08:56:21.444 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Data prevista para a entrega maior que a data limite permitida []!
Chamadas:Linha:676 - agvalidacaodados.validarprevisaoentrega - agvalidacaodados.prg
Linha:4610 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg
Linha:4805 - itempedidovenda._acoesapospreencherdatamarcada - itempedidobase.prg
Linha:4770 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg
Linha:2928 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg
Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Data prevista para a entrega'+IIF(EMPTY(VERSION(2)), ' ['+oAgTransformacao.DataParaCaracter(tdDataPrevisao)+']', '')+' maior que a data limite permitida ['+IIF(EMPTY(VERSION(2)), oAgTransformacao.DataParaCaracter(ldDataLimite), '')+']!')
IF NOT oAgValidacaoDados.ValidarPrevisaoEntrega( tAssign, (THIS.ObterEncomenda() > 0), THIS.oAutenticador.OidUsuario, THIS._oOrcamento.oFilial.ObterOID(), 'I' )
THIS.dPrevisaoEntrega = IIF(llTratamentoDiferenciadoDatasMarcadasEPrevistas, {}, tAssign)
THIS._AcoesAposPreencherDataMarcada(tAssign)
loItemPedido.dEntregaMarcada = tdData
Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:2940 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg
Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()