09:08:34.212 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o TPO da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:349 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:61 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:736 - ITEMPEDIDOVENDAREST.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2195 - ITEMPEDIDOVENDAREST._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:3707 - ITEMPEDIDOVENDAREST.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3616 - ITEMPEDIDOVENDAREST.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1753 - ITEMPEDIDOVENDAREST.DEFINIRPRODUTO - ITEMPEDIDOBASE.PRG LINHA:1019 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG LINHA:887 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG LINHA:70 - ORCAMENTOVENDAREST_UNIT.TESTUNIT002_ - ORCAMENTOVENDAREST_UNIT.PRG LINHA:236 - ORCAMENTOVENDAREST_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:349 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:61 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:736 - itempedidovendarest.obteraliquotaicms - itempedidovenda.prg Linha:2195 - itempedidovendarest._buscarpreco - itempedidobase.prg Linha:3707 - itempedidovendarest.alterarquantidade - itempedidobase.prg Linha:3616 - itempedidovendarest.nquantidade_assign - itempedidobase.prg Linha:1753 - itempedidovendarest.definirproduto - itempedidobase.prg Linha:1019 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:887 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:70 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o TPO da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1072 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:887 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:70 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:34.214 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM1 is not an object. - Linha: 71 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:71 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:36.510 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o TPO da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:349 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:61 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:736 - ITEMPEDIDOVENDAREST.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2195 - ITEMPEDIDOVENDAREST._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:3707 - ITEMPEDIDOVENDAREST.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3616 - ITEMPEDIDOVENDAREST.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1753 - ITEMPEDIDOVENDAREST.DEFINIRPRODUTO - ITEMPEDIDOBASE.PRG LINHA:1019 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG LINHA:887 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG LINHA:73 - ORCAMENTOVENDAREST_UNIT.TESTUNIT002_ - ORCAMENTOVENDAREST_UNIT.PRG LINHA:236 - ORCAMENTOVENDAREST_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:349 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:61 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:736 - itempedidovendarest.obteraliquotaicms - itempedidovenda.prg Linha:2195 - itempedidovendarest._buscarpreco - itempedidobase.prg Linha:3707 - itempedidovendarest.alterarquantidade - itempedidobase.prg Linha:3616 - itempedidovendarest.nquantidade_assign - itempedidobase.prg Linha:1753 - itempedidovendarest.definirproduto - itempedidobase.prg Linha:1019 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:887 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:73 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o TPO da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1072 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:887 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:73 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:36.512 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM2 is not an object. - Linha: 74 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:74 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:36.611 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM1 is not an object. - Linha: 79 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:79 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:36.613 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM1 is not an object. - Linha: 81 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:81 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:08:36.615 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM2 is not an object. - Linha: 82 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:82 - orcamentovendarest_unit.testunit002_ - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()