20:29:07.963 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Não é permitido dar desconto unitário para produtos em oferta.
Chamadas:Linha:908 - itempedidovenda._retornarmensagem - itempedidobase.prg
Linha:6688 - itempedidovenda._permitiralterarpreco - itempedidobase.prg
Linha:4264 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg
Linha:4295 - itempedidovenda.npreco_assign - itempedidobase.prg
Linha:4582 - itempedidobase_unit.testunit119 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
DODEFAULT(tcLogUsuario, tcCodigoExcecao )
THIS._RetornarMensagem('Não é permitido dar desconto unitário para produtos em oferta.')
IF llChamadaExterna AND NOT THIS._PermitirAlterarPreco( tnAssign, .F. ) &&&&& valida se pode alterar o preco
IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna )
loItemPedido.nPreco = 40.00
Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:4441 - itempedidovenda.npreco_assign - itempedidobase.prg
Linha:4582 - itempedidobase_unit.testunit119 - itempedidobase_unit.prg
Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()