Index: vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml
===================================================================
diff -u -r59826 -r65995
--- vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml (.../Test.cls.xml) (revision 59826)
+++ vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml (.../Test.cls.xml) (revision 65995)
@@ -7,6 +7,7 @@
+
+
+
+
+
+
+
+
Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r61521 -r65995
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 61521)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 65995)
@@ -23,8 +23,18 @@
1
+
+DOM.VKP.OrderAPI
+1
+
+
+
+DOM.VKP.impl.EindPersonalityBepaler
+1
+
+
-CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat
+CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat,OrderAPI:DOM.VKP.OrderAPI="",EindPersonalityBepaler:DOM.VKP.impl.EindPersonalityBepaler=""
1
1
%Status
@@ -34,23 +44,38 @@
Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.VKP.impl.VerkoopAPI).%New())
Set ..DueOutProductieBepaler = $$$Inject(DueOutProductieBepaler,##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New())
+ Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+ Set ..EindPersonalityBepaler = $$$Inject(EindPersonalityBepaler,##class(DOM.VKP.impl.EindPersonalityBepaler).%New())
+
Quit $$$OK
]]>
-ProductieDatum:%Date,ProductNummer:%String="",KlantNummer:%String="",VerzendWijze:APPS.VKP.VerzendWijze=""
+ProductieDatum:%Date,ProductNummer:%String="",KlantNummer:%String="",VerzendWijze:APPS.VKP.VerzendWijze="",OrderID:%String=""
%Time
-LeverDatum:%Date,ProductNummer:%String=""
+LeverDatum:%Date,ProductNummer:%String="",OrderID:%String=""
TECH.Horolog
-
Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r64688 -r65995
--- FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 64688)
+++ FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 65995)
@@ -68,7 +68,7 @@
. If 'LeverDatum Do
. . Set LeverDatum=$$DefaultFromWeek(PRNr,ToeLevWk)
. ; omzetting van leverdag naar productie DueOut
- . Set DueOut=blLeveringsTermijn.GetLaatsteProductieTijdstip(LeverDatum, PRNr)
+ . Set DueOut=blLeveringsTermijn.GetLaatsteProductieTijdstip(LeverDatum, PRNr, ORDNr)
. If DateComparator.IsKleinerDan(+DueOut,CurrentDate) Do
. . Set $Piece(DueOut,",",1) = CurrentDate
. ; vroegste
Index: APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r59787 -r65995
--- APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 59787)
+++ APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 65995)
@@ -194,13 +194,13 @@
-LeverDatum:%Date,ProductNummer:%String=""
+LeverDatum:%Date,ProductNummer:%String="",OrderID:%String=""
TECH.Horolog