18:01:55.420 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: 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 - itempedidovenda._retornarmensagem - itempedidobase.prg
Linha:6394 - itempedidovenda._validarentregaposterior - itempedidobase.prg
Linha:6321 - itempedidovenda.definirentregaposterior - itempedidobase.prg
Linha:6170 - itempedidovenda.definirencomenda - itempedidobase.prg
Linha:770 - encomenda_unit.testunit21 - encomenda_unit.prg
Linha:236 - encomenda_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()
THIS.DefinirEntregaPosterior(lnEntregaPosterior)
tnRetornado_RET = THIS.oObjetoTeste.DefinirEncomenda(1)
Executando TestUnit: ENCOMENDA_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:6218 - itempedidovenda.definirencomenda - itempedidobase.prg
Linha:770 - encomenda_unit.testunit21 - encomenda_unit.prg
Linha:236 - encomenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()