Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml =================================================================== diff -u -r71770 -r71772 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71770) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71772) @@ -74,15 +74,43 @@ #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) #dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) - If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) { - Set BatchDataLijst = ..GeefBatchDataLijstVoorNietVhoss(Batch, UitvoeringInfoLijstIterator) + If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) { + If (..BevatBatchVhoss(UitvoeringInfoLijst)) { + Set BatchDataLijst = ..GeefBatchDataLijstVoorVhoss(Batch, UitvoeringInfoLijstIterator) + } Else { + Set BatchDataLijst = ..GeefBatchDataLijstVoorNietVhoss(Batch, UitvoeringInfoLijstIterator) + } + } } Quit BatchDataLijst ]]> + +Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator +1 + + + Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator 1 @@ -115,7 +143,7 @@ While (UitvoeringInfoLijstIterator.HasNext()) { #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next() - + If (UitvoeringInfo.ToeleveringID = Toelevering.GeefID()) { #dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLadePerUitvoeringInfo(Toelevering, UitvoeringInfo) @@ -167,6 +195,31 @@ Quit BestandVolledigeNaam ]]> + + +UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst +1 +%Boolean + 0) { + #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijst.GetAt(1) + #dim ProductId As %String = UitvoeringInfo.ProductID + + Set BevatBatchVhoss = ..BevatVhossVerpakking(ProductId) + } + + Quit BevatBatchVhoss +]]> + + + +1 +ProductId:%String +1 +%Boolean + Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml =================================================================== diff -u -r71684 -r71772 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71684) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71772) @@ -9,6 +9,16 @@ + + +ProductId:%String +1 +%Boolean + +