Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml =================================================================== diff -u -r32716 -r32719 --- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml (.../Test.cls.xml) (revision 32716) +++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputValidator/Test.cls.xml (.../Test.cls.xml) (revision 32719) @@ -26,15 +26,6 @@ ]]> - - - - + + + + + + + + 1 APPS.TRANSP.OfferteService.dto.BerekenInput Index: APPS/TRANSP/UPS/impl/Settings.cls.xml =================================================================== diff -u -r32716 -r32719 --- APPS/TRANSP/UPS/impl/Settings.cls.xml (.../Settings.cls.xml) (revision 32716) +++ APPS/TRANSP/UPS/impl/Settings.cls.xml (.../Settings.cls.xml) (revision 32719) @@ -12,6 +12,11 @@ %Integer 60 + + +%Integer +5 + Index: APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml =================================================================== diff -u -r32716 -r32719 --- APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml (.../BerekenInputValidator.cls.xml) (revision 32716) +++ APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml (.../BerekenInputValidator.cls.xml) (revision 32719) @@ -30,10 +30,16 @@ Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Woonplaats is niet ingevuld : " _BerekenInput.Referentie) } - If (BerekenInput.GewensteLeverDatum < ..GeefHuidigeDatum()) + If (BerekenInput.GewensteLeverDatum = "") { - Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet in het verleden zijn : " _BerekenInput.Referentie) + Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum mag niet leeg zijn : " _BerekenInput.Referentie) } + + If (BerekenInput.GewensteLeverDatum < ..GeefDatumPlusProductieDagen()) + { + #dim ProductieDagen As %Integer = ##class(APPS.TRANSP.UPS.impl.Settings).%GetParameter("ProductieDagen") + Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Gewenste leverdatum kan pas vanaf vandaag + " _ProductieDagen _" niet in het verleden zijn : " _BerekenInput.Referentie) + } If (BerekenInput.GewensteLeverDatum > ..GeefUitersteDatum() ) { @@ -74,6 +80,20 @@ ]]> + +1 +%Date + + + BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput 1