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() ]]>