Beheer van de EANCode Prod.Product,TECH.Error 1 %RegisteredObject %String %String %Integer %String VH Companycode toegekend door GS1 aan Van Hoecke nv %String 5415001 De domein voor Van Hoecke heeft 5 digits of 100.000 codes %Integer 5 De EANCode is 13 lang %Integer 13 1 1 %Status 1 ProductID:%String ProductID:%String %Boolean ClassificatieID:%String Nieuwe EANCode op product definieren ProductID:%String EANCode:%String %Boolean EANCode:%String 1 %Boolean W ##class(APPS.PM.EANCodeService).%New().GeefVolgendeNieuweEANCode() %String Vertrekkend van een SeuqenceNr opbouw van de EANCode SequenceNr:%Integer 1 %String w ##class(APPS.PM.EANCodeService).%New("").GeefCheckDigit("750105453010") ; resultaat 7 ID 1 %Integer 1 %Integer 1 %Integer ..EANSequenceNbrDigits { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("EAN Sequence overflow "_^PR.EANCodeD(..EANDomein))) } Quit SequenceNr ]]>