17:22:04.473 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Não é permitido definir item que receberá outras despesas no orçamento
Chamadas:Linha:433 - controletinta.atualizarcorantes - controletinta.prg
Linha:568 - controletinta_unit.testunit14 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarErroObj( loItem )
THIS.oObjetoTeste.AtualizarCorantes( 1, 'cTipoEntrega', 'F' )
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse )
Executando TestUnit: CONTROLETINTA_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:439 - controletinta.atualizarcorantes - controletinta.prg
Linha:568 - controletinta_unit.testunit14 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

17:22:04.494 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Não é permitido definir item que receberá outras despesas no orçamento
Recurso de entrega posterior por item não está ativado. Veja parâmetro 'Venda com entrega posterior por item' (Filial/Sistema de Vendas)
Chamadas:Linha:900 - itempedidovendasubordinado._retornarmensagem - itempedidobase.prg
Linha:6394 - itempedidovendasubordinado._validarentregaposterior - itempedidobase.prg
Linha:6321 - itempedidovendasubordinado.definirentregaposterior - itempedidobase.prg
Linha:432 - controletinta.atualizarcorantes - controletinta.prg
Linha:572 - controletinta_unit.testunit14 - 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("Recurso de entrega posterior por item não está ativado. "+ "Veja parâmetro 'Venda com entrega posterior por item' (Filial/Sistema de Vendas)")
IF tnAtivado = 1 AND NOT THIS._ValidarEntregaPosterior()
&lcComando.
IF THIS.oObjetoTeste.AtualizarCorantes( 1, 'DefinirEntregaPosterior()', '1' )
Executando TestUnit: CONTROLETINTA_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:439 - controletinta.atualizarcorantes - controletinta.prg
Linha:572 - controletinta_unit.testunit14 - controletinta_unit.prg
Linha:236 - controletinta_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()