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