Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml =================================================================== diff -u -r29936 -r30010 --- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 29936) +++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 30010) @@ -184,6 +184,11 @@ #dim ProductOmschrijvingList As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(UI.HFV.GeefOmschrijving(),EersteKolomBreedte) Set ProductOmschrijvingIt = ##class(TECH.ListIterator).%New(ProductOmschrijvingList) + + Set OPEenProductIt = ##class(TECH.ListIterator).%New(OPVoorEenProductLijst) + While OPEenProductIt.HasNext() { + Do ..ProcessToegevoegdItem(OPEenProductIt.Next()) + } } } @@ -216,7 +221,6 @@ } If (Lijn'="") { - Do ..ProcessToegevoegdItem(OPEenProduct) Do ..Document.VoegLijnToe(Lijn,"\") } }