TECH.RegisteredObject 1 ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer %ListOfDataTypes 60) continue:$$$Not($piece(LijnData,"\",13)=ToelevLijnNr) continue:$$$Not($piece(LijnData,"\",3)=Aantal) do Items.Insert(LijnData) } if Items.Count()>1 { set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal) do ##class(TECH.ExceptionHandler).Throw(Exception) } W !,Items.GetAt(1),! quit Items ]]> 1 ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer %ListOfDataTypes 60) continue:$$$Not($piece(LijnData,"\",13)=ToelevLijnNr) ;continue:$$$Not($piece(LijnData,"\",3)=Aantal) do Items.Insert(LijnData) } if Items.Count()>1 { set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal) do ##class(TECH.ExceptionHandler).Throw(Exception) } W !,Items.GetAt(1),! quit Items ]]>