Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml =================================================================== diff -u -r71368 -r71435 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71368) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71435) @@ -60,6 +60,9 @@ #dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering) Set BatchData.Opties = ##class(%ListOfObjects).%New() + Set ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New() + Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering)) + While (UitvoeringInfoLijstIterator.HasNext()) { #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DetailBladUitvoeringInfo = UitvoeringInfoLijstIterator.Next() Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml =================================================================== diff -u -r71429 -r71435 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml (.../BatchNaarObjectiveDataGenerator.cls.xml) (revision 71429) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml (.../BatchNaarObjectiveDataGenerator.cls.xml) (revision 71435) @@ -78,9 +78,6 @@ Set ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New() Do ##class(TECH.ListUtils).AppendList(Opties, ProductOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo)) - Set ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New() - Do ##class(TECH.ListUtils).AppendList(Opties, ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo)) - Quit Opties ]]>