1 persistent %Library.Persistent 0 Res.VertalingAbstract 1 1 VertalingsTypes Prod.Kenmerk.MetaDefinitie parent VertaalTransforms 1 Indien meerdere substituties mogelijk zijn, afhankelijk van de waarde, dan moet de juiste gekozen worden door een expressie. Bv. getal in mm maar moet gedisplayed worden in cm, dan moet X gedeeld worden door 10 Bv. prijs per 100 dan moet de eenheidsprijs vermenigvuldigd worden met 100 Bv. om een getal te formateren De gebruikte formule kan als volgt omschreven worden Set Sleutel = f(X) %Library.String Leeg : Geen execute T : letterlijk @ : expressie X : eXecute D: Label^Routine F : Functie Label^Routine R : Routine Label^Routine(paramlist) %Library.String ';' gescheiden, bijv. 'L;K' %Library.String Waarde:%Library.String %Library.Status %Library.String Geeft leeg terug wanneer geen sleutels gevonden zijn. Maw het gaat dan om specifieke vertalingen. De parameter ExcludeContainer: zie Method Code Hierarchie: - MetaDefinitie: GetVertalingSleutels geeft alle sleutels aanwezig in een MetaDef Dit omtrent alle VertalingsTypes dus (zijnde o.a. 'L','O','K',...) - VertaalTrans: GetVertalingSleutels geeft alle sleutels aanwezig in een MetaDef.VertaalTrans obj. Dit omtrent één VertalingsType FunctieResult: $LB($LB(VertalingsType1,Sleutel1),$LB(VertalingsType2,Sleutel2),...) VertalingsTypes:%Library.String,ExcludeContainer:%Library.String="" %Library.String %Library.Boolean %Library.SQLQuery paKenmerk:%String SELECT ID, SleutelSelectExec, SleutelSelectExecType, VertalingsTypes FROM Prod_Kenmerk.VertaalTransAbstract WHERE (Kenmerk = :paKenmerk) ORDER BY VertalingsTypes %Library.CacheStorage {%%PARENT}("VT") VertaalTransAbstractDefaultData {%%PARENT}("VT") ^Prod.Ken.VertaalTransAbstractI ^Prod.Ken.VertaalTransAbstractS %%CLASSNAME node 0 SleutelSelectExec SleutelSelectExecType