vhLib.Macro,TECH.Error 1 %RegisteredObject %String v %String 1 %String 1 %String 1 KenmerkenKlasseNaam:%String 1 1 %Status %String %String %String 1 1 v Set ..KlasseNaamZonderVersie=$P(..KenmerkenKlasseNaam,VersiePrefix,1,$L(..KenmerkenKlasseNaam,VersiePrefix)-1) Set ..VersieNr=+$$$LastPiece(..KenmerkenKlasseNaam,VersiePrefix) } Else { // ClassName is NIET volgens de naming-conventie --> VersieNr is 0 Set ..KlasseNaamZonderVersie=..KenmerkenKlasseNaam Set ..VersieNr=0 } ]]>