18:08:20.463 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete inválido. Chamadas:Linha:404 - freteporroteiro.definirtipo - frete.prg Linha:6134 - orcamentovenda.definirtipofrete - orcamentobase.prg Linha:1666 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Tipo de frete inválido.') IF NOT THIS.oFrete.DefinirTipo( tcTipo ) llOk = loOrcamento.DefinirTipoFrete('7') llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:2046 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1697 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:08:20.627 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:421 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:767 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2393 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4010 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3888 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1698 - ORCAMENTOVENDA_UNIT.TESTUNIT025 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:421 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:767 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2393 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4010 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3888 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1698 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:3909 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1698 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:08:20.668 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:421 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:767 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2393 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4010 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3888 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1698 - ORCAMENTOVENDA_UNIT.TESTUNIT025 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:421 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:767 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2393 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4010 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3888 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1698 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:4406 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1700 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:08:20.725 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:421 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:767 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2393 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4010 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3888 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1698 - ORCAMENTOVENDA_UNIT.TESTUNIT025 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:421 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:767 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2393 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4010 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3888 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1698 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:5210 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1701 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:08:20.736 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:421 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:767 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2393 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4010 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3888 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1698 - ORCAMENTOVENDA_UNIT.TESTUNIT025 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:421 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:767 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2393 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4010 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3888 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1698 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:5273 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1702 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:08:24.358 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Endereço de faturamento não foi definido! Item de orçamento sem produto informado. Item de orçamento sem preço de venda informado. Parcelamento inválido, pois: Total da operação do parcelamento não informado. Chamadas:Linha:1684 - orcamentovenda.gravar - orcamentobase.prg Linha:1706 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( THIS.LogUsuario ) llOkGravar = loOrcamento.gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:3866 - orcamentovenda.buscarsomenteleitura - orcamentobase.prg Linha:1717 - orcamentovenda_unit.testunit025 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()