09:29:57.207 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Data prevista para a entrega [12/06/2026] maior que a data limite permitida []!
Chamadas:Linha:2050 - agvalidacaodados.validarprevisaoentrega - agvalidacaodados.prg
Linha:4971 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg
Linha:5166 - itempedidovenda._acoesapospreencherdatamarcada - itempedidobase.prg
Linha:5131 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg
Linha:3717 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg
Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( 'Data prevista para a entrega'+IIF(THIS._lModoTestUnit, ' ['+oAgTransformacao.DataParaCaracter(tdDataPrevisao)+']', '')+' maior que a data limite permitida ['+IIF(not THIS._lModoTestUnit, 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:417 - ON...  - ctrlib.prg
Linha:3729 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg
Linha:585 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()