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
+
+