00:00:13.636 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Data prevista não pode ser menor que a data atual!
Chamadas:Linha:2085 - agvalidacaodados.validarprevisaoentrega - agvalidacaodados.prg
Linha:5056 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg
Linha:5251 - itempedidovenda._acoesapospreencherdatamarcada - itempedidobase.prg
Linha:5216 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg
Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg
Linha:693 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( "Data prevista"+IIF(NOT THIS._lModoTestUnit, " ["+oAgTransformacao.DataParaCaracter(tdDataPrevisao)+"]", '')+" não pode ser menor que a data atual!")
IF NOT oAgValidacaoDados.ValidarPrevisaoEntrega( tAssign, (THIS.ObterEncomenda() > 0), THIS.oAutenticador.OidUsuario, THIS._oOrcamento.oFilial.ObterOID(), 'I' )
THIS.dPrevisaoEntrega = IIF(llTratamentoDiferenciadoDatasMarcadasEPrevistas, {}, tAssign)
THIS._AcoesAposPreencherDataMarcada(tAssign)
.dEntregaMarcada = tdEntregaMarcada
Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:5228 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg
Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg
Linha:693 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()