18:23:17.497 - EXCEÇÃO NÃO TRATADA!
Erro: 2059 - Mensagem: Unhandled Structured Exception.
ErrorNo: 2071
Message: User Thrown Error .
UserValue: (Object)
Details: 
Procedure: _tratarexcecao
LineNo: 2215 - Linha: 1119
Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:1119 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:934 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:1627 - itenspedidovenda_unit.testunit037 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

18:23:18.566 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Desconto não pode ser concedido para itens em oferta.
Chamadas:Linha:1248 - descontoorcamento._definirvalordesconto - descontoorcamento.prg
Linha:754 - descontoorcamento.nvalordesconto_assign - descontoorcamento.prg
Linha:1373 - orcamentovenda._totalizarpedido - orcamentobase.prg
Linha:1088 - orcamentobase._atualizartotalpedido_notificacao - orcamentobase.prg
Linha:3102 - orcamentovenda._atualizartotalpedido_notificacao - orcamentovenda.prg
Linha:1153 - orcamentobase.executarnotificacao - orcamentobase.prg
Linha:2491 - orcamentovenda.executarnotificacao - orcamentovenda.prg
Linha:106 - observadororcamento._notificaralteracao - observador.prg
Linha:215 - observadororcamento._identificartarefas - observadororcamento.prg
Linha:131 - observadororcamento.atualizar - observador.prg
Linha:1551 - custommu._notificarobservador - custommu.prg
Linha:313 - itempedidovenda._notificarobservador - negociobase.prg
Linha:2446 - itempedidovenda._calcularimpostos - itempedidobase.prg
Linha:3785 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3677 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1637 - itenspedidovenda_unit.testunit037 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Desconto não pode ser concedido para itens em oferta.') &&& FNX-5033 -FNX-5159
THIS._DefinirValorDesconto( tnAssign , 'NORMAL' ) && FNX-5558
THIS.oDesconto.nValorDesconto = MAX(0, THIS.oDesconto.nValorDesconto + lnDescontoSuframa)
THIS._nValorTotal = THIS._TotalizarPedido()
DODEFAULT()
Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:3861 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3677 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1637 - itenspedidovenda_unit.testunit037 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()