Index: AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml =================================================================== diff -u -r55058 -r55265 --- AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml (.../ReceptieAfmeldenConverter.cls.xml) (revision 55058) +++ AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml (.../ReceptieAfmeldenConverter.cls.xml) (revision 55265) @@ -126,7 +126,7 @@ #dim SpaceTower As DOM.PM.Product = ..ProductApi.GeefProduct(ProductId) #dim SpaceTowerKindIterator As TECH.Iterator = SpaceTower.GeefKindBouwstenenIterator() #dim BouwsteenKind As DOM.PM.Bouwstenen.BouwsteenKind - #dim BouwsteenKindProductIdLijst As %ListOfObjects = ##class(%ListOfObjects).%New() + #dim BouwsteenKindIteratorLijst As %ListOfObjects = ##class(%ListOfObjects).%New() #dim BouwsteenKindIterator1 As TECH.Iterator #dim BouwsteenKindIterator2 As TECH.Iterator #dim BouwsteenKindIterator3 As TECH.Iterator @@ -136,15 +136,15 @@ While SpaceTowerKindIterator.HasNext() { Set BouwsteenKind = SpaceTowerKindIterator.Next() If BouwsteenKind.Type = "K" { - Do BouwsteenKindProductIdLijst.Insert(..BouwsteenIteratorFactory.Maak(BouwsteenKind.KindProduct.GeefID())) + Do BouwsteenKindIteratorLijst.Insert(..BouwsteenIteratorFactory.Maak(BouwsteenKind.KindProduct.GeefID())) } } // OPGELET: Voorlopig voorzien voor SpaceTowers met maximaal 5 VERSCHILLENDE ProductGroep-BouwsteenKinderen (P.s.: Aantallen doen er niet toe voor de InventSync) - Set BouwsteenKindIterator1 = $select($$$HasLength(BouwsteenKindProductIdLijst.GetAt(1)):BouwsteenKindProductIdLijst.GetAt(1),1:##class(TECH.ListbuildIterator).%New( "" )) - Set BouwsteenKindIterator2 = $select($$$HasLength(BouwsteenKindProductIdLijst.GetAt(2)):BouwsteenKindProductIdLijst.GetAt(2),1:##class(TECH.ListbuildIterator).%New( "" )) - Set BouwsteenKindIterator3 = $select($$$HasLength(BouwsteenKindProductIdLijst.GetAt(3)):BouwsteenKindProductIdLijst.GetAt(3),1:##class(TECH.ListbuildIterator).%New( "" )) - Set BouwsteenKindIterator4 = $select($$$HasLength(BouwsteenKindProductIdLijst.GetAt(4)):BouwsteenKindProductIdLijst.GetAt(4),1:##class(TECH.ListbuildIterator).%New( "" )) - Set BouwsteenKindIterator5 = $select($$$HasLength(BouwsteenKindProductIdLijst.GetAt(5)):BouwsteenKindProductIdLijst.GetAt(5),1:##class(TECH.ListbuildIterator).%New( "" )) + Set BouwsteenKindIterator1 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(1)):BouwsteenKindIteratorLijst.GetAt(1),1:##class(TECH.ListbuildIterator).%New( "" )) + Set BouwsteenKindIterator2 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(2)):BouwsteenKindIteratorLijst.GetAt(2),1:##class(TECH.ListbuildIterator).%New( "" )) + Set BouwsteenKindIterator3 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(3)):BouwsteenKindIteratorLijst.GetAt(3),1:##class(TECH.ListbuildIterator).%New( "" )) + Set BouwsteenKindIterator4 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(4)):BouwsteenKindIteratorLijst.GetAt(4),1:##class(TECH.ListbuildIterator).%New( "" )) + Set BouwsteenKindIterator5 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(5)):BouwsteenKindIteratorLijst.GetAt(5),1:##class(TECH.ListbuildIterator).%New( "" )) #dim IteratorOfIterators As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New() Do IteratorOfIterators.SetIterators(BouwsteenKindIterator1, BouwsteenKindIterator2, BouwsteenKindIterator3, BouwsteenKindIterator4, BouwsteenKindIterator5)