1 vhConsistency.Check 0 %Status 0) { Set i = 1 If ($Piece(Multiples.GetAt(1),".",2)'="1") { Set Status = $$$ERROR($$$GeneralError,"Fout") Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Product.GeefPRNr()_") heeft multiples die niet starten met nummer 1.") } ElseIf (Multiples.Count() > 1) { While (i < Multiples.Count()) && ($Piece(Multiples.GetAt(i),".",2) = ($Piece(Multiples.GetAt(i+1),".",2) - 1)) { Set i = i + 1 } If (i < Multiples.Count()) { Set Status = $$$ERROR($$$GeneralError,"Fout") Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Product.GeefPRNr()_") heeft multiples met gaten ("_##class(TECH.ListUtils).ListToPieces(Multiples,",")_").") } } } } Quit Status ]]>