Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml =================================================================== diff -u -r32595 -r32604 --- APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml (.../ProductieSequentieGroepeerderResultSetBased.cls.xml) (revision 32595) +++ APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml (.../ProductieSequentieGroepeerderResultSetBased.cls.xml) (revision 32604) @@ -198,21 +198,20 @@ #dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID) #dim SequentieInfoArray As Array of APPS.Halux.common.dto.ProductieSequentie = ##class(%ArrayOfObjects).%New() #dim ProductVolgorde As List of %String = ##class(%ListOfDataTypes).%New() - #dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = "" #dim ProductID As %String = "" - + While (ResultSet.Next()) { #dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal") - + Continue:$$$Not(DeelAantal = 1) - + Set SequentieInfo = ..GeefSequentieInfo(ResultSet) Set SequentieInfo.DeelAantal = "" Set ProductID = SequentieInfo.ProductID If $$$Not(SequentieInfoArray.IsDefined(ProductID)) { - Do SequentieInfoArray.SetAt(SequentieInfo,ProductID) + Do SequentieInfoArray.SetAt(SequentieInfo, ProductID) Do ProductVolgorde.Insert(ProductID) } Else { #dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie = SequentieInfoArray.GetAt(ProductID) @@ -270,12 +269,12 @@