17:22:00.172 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Não é permitido definir item que receberá outras despesas no orçamento
Chamadas:Linha:900 - itempedidovendasubordinado._retornarmensagem - itempedidobase.prg
Linha:6876 - itempedidovendasubordinado.lratearoutrasdespesas_assign - itempedidobase.prg
Linha:432 - controletinta.atualizarcorantes - controletinta.prg
Linha:531 - controletinta_unit.testunit13 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
DODEFAULT(tcLogUsuario, tcCodigoExcecao )
THIS._RetornarMensagem( 'Não é permitido definir item que receberá outras despesas no orçamento' )
&lcComando.
IF THIS.oObjetoTeste.AtualizarCorantes( 1, 'lRatearOutrasDespesas', .T. )
llTestOk = EVALUATE(lcTeste)
Executando TestUnit: CONTROLETINTA_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:439 - controletinta.atualizarcorantes - controletinta.prg
Linha:531 - controletinta_unit.testunit13 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()