Index: APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml =================================================================== diff -u -r33372 -r33379 --- APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml (.../TussenEtiketVoorToeleveringBepaler.cls.xml) (revision 33372) +++ APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml (.../TussenEtiketVoorToeleveringBepaler.cls.xml) (revision 33379) @@ -11,20 +11,14 @@ Set TussenEtiket.Info1 = ToeleveringID Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New() - #dim ProductIterator As TECH.Iterator = ToeleveringService.GeefProductIterator(ToeleveringID) + #dim ProductIDIterator As TECH.Iterator = ToeleveringService.GeefProductIDIterator(ToeleveringID) Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New() #dim Batch As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatchViaID(ToeleveringID) Set DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New() Set TussenEtiket.Info3 = "Batch:"_Batch.GeefID()_", "_DueOutFormatter.GeefGeformatteerdeDueOut(Batch) - - #dim KennisAnkerRepository As DOM.common.Kennis.KennisAnkerRepository = ##class(DOM.common.Kennis.KennisAnkerRepository).%New() - #dim KennisAnkerIterator As TECH.Iterator - Set KennisAnkerIterator = KennisAnkerRepository.GeefKennisAnkers(ToeleveringService.GeefKlant(ToeleveringID).GeefID(), ProductIterator) - - Quit TussenEtiket ]]>