Index: APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml
===================================================================
diff -u -r29059 -r29587
--- APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml (.../SequentieGebaseerdeUitvoeringInfo.cls.xml) (revision 29059)
+++ APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml (.../SequentieGebaseerdeUitvoeringInfo.cls.xml) (revision 29587)
@@ -67,6 +67,10 @@
%Date
+
+%TimeStamp
+
+
%Library.CacheStorage
SequentieGebaseerdeUitvoeringInfoDefaultData
@@ -99,6 +103,9 @@
DueOut
+
+DueOutTijdstip
+
Index: vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/TaorboxBatch.cls.xml
===================================================================
diff -u -r29059 -r29587
--- vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/TaorboxBatch.cls.xml (.../TaorboxBatch.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/TaorboxBatch.cls.xml (.../TaorboxBatch.cls.xml) (revision 29587)
@@ -8,6 +8,12 @@
+
+
+%TimeStamp
+
+
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoInvuller/GeefUitvoeringInfo/Test.cls.xml
===================================================================
diff -u -r29059 -r29587
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoInvuller/GeefUitvoeringInfo/Test.cls.xml (.../Test.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoInvuller/GeefUitvoeringInfo/Test.cls.xml (.../Test.cls.xml) (revision 29587)
@@ -34,6 +34,10 @@
#dim DummyToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Dummy.DOM.AKP.ProductToeleveringLijn).%New()
do ToeleveringAPIStub.IndienMethodCall("GeefToeleveringLijn",..#DummyToeleveringID,..#DummyToeleveringLijnID).DanReturn(DummyToeleveringLijn)
+ #dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
+ Set BatchServiceStub = ##class(vhTest.Fake.APPS.Halux.common.BatchService).%New()
+ Do ProductieAPIStub.IndienMethodCall("GeefBatchService").DanReturn(BatchServiceStub)
+
Set ..Invuller = ##class(vhUnitTest.APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoInvuller.GeefUitvoeringInfo.DummyInvuller).%New()
]]>
Index: APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml
===================================================================
diff -u -r29059 -r29587
--- APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml (.../SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml) (revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/common/SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml (.../SequentieGebaseerdeUitvoeringInfoDefaultAanvuller.cls.xml) (revision 29587)
@@ -13,6 +13,11 @@
1
+
+APPS.Halux.common.BatchService
+1
+
+
ProductTypeAPI:DOM.PM.ProductTypeAPI
1
@@ -22,6 +27,7 @@
@@ -43,6 +49,9 @@
set UitvoeringInfo.DueOut = ToeleveringLijn.GeefLeverdag()
+ #dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(ProductieSequentieItem.BatchID)
+ Set UitvoeringInfo.DueOutTijdstip = Batch.GeefVroegsteDueOut()
+
#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(ProductieSequentieItem.ProductID)
set UitvoeringInfo.DossierCode = Product.GeefDossierCode()
]]>