Omzetten van een numeriek waarde naar een alfanumerieke code. Dit volgens een bepaald formaat en met een checkdigit Mogelijke codes in de format zijn - "A" Alfa karakters - "N" Numerieke karakters - "X" Alfanumerieke karakters - "C" Checkdigit (modulo 7) - " " Spacer TECH.Mockable ABCDEFGHKLMNPRSTUVWXYZ 123456789 123456789ABCDEFGHKLMNPRSTUVWXYZ 0 A AAA CNN;A NNC AAA;A AA NC AA;A CN AA NN;A CN AA AA;A AA AA CN;A AA CN NN;A NC NN AA %String %Integer %String %String Omzetten van een numerieke waarde naar een alfanumerieke code CodeNr:%Integer (SomCombinaties+AantalCombinaties) { Set ..CodeGeformateerd=..ConverteerNaarCode(CodeNr-SomCombinaties,Format) Set ..CodeFormat=Format } Set SomCombinaties=SomCombinaties+AantalCombinaties Quit:..CodeGeformateerd'="" } ]]> Overzicht van de formaten en de corresponderende combinaties 0 Hoeveel combinaties zijn er mogelijk met de vooropgestelde formaten %String Aantal:%Integer,Format:%String 1 0 { Set PosInValue=Aantal#$L(FormatValue) Set Aantal=Aantal\$L(FormatValue) Set Result=$E(FormatValue,$S(PosInValue:PosInValue,1:$L(FormatValue)))_Result } Else { Set Result=..#NulValue_Result } } } Quit Result ]]> Aantal:%Integer 1 %String Format:%String 1 %Integer