1 persistent %Library.Persistent 0 Res.PI.VertalingsGroep Interne code van bv. een kenmerk %Library.String %Library.String Res.PI.Taal Res.PI.VertalingsType Indien de vertaling een link is: Subdirectory en naam. Indien DirSoort leeg is dan wordt hier de ganse URL ingegeven. Indien Extensie leeg is dan bevat dit veld ook de extensie. De naam wordt uitgebreid met Soort en/of met de taal. Deze codes worden gescheiden door _ (underscore van de naam) %Library.String %Date 1 1 Groep,Intern,Type,Taal 1 1 Groep:%Library.String,InternFrom:%Library.String,InternTo:%Library.String 1 Groep:%Library.String,Intern:%Library.String,Type:%Library.String %Library.String 1 Languages:%Library.String,Count:%Library.Integer=0 %Library.String "F" //Languages="NNNFFFDD" & Count=3 =RESULTAAT=> "NF" //Languages kunnen opgehaald worden via GetLanguages New BuildLang,FirstLanguage,LangStr Set LangStr=Languages Set BuildLang="" For Quit:($L(LangStr)=0) Do . Set FirstLanguage=$E(LangStr,1) . If ($L(LangStr,FirstLanguage)-1)'= . Set LangStr=$TR(LangStr,FirstLanguage,"") Quit BuildLang ]]> U geeft een interne waarde op: 2 types, bijv: 1. Breedte, dit geeft 0 terug 2.{%CM}, dit geeft 1 terug, want de % wijst op een universele vertaling 1 Intern:%Library.String %Library.Integer 3 Do //We zoeken naar zaken van het type '{%Intern}', min. 4 chars: '{', '%', '}' en Intern . If ($E(Intern,1)="{") && ($E(Intern,InternLength)="}") Do //Is Intern een sleutel? .. If $E(Intern,2)="%" Set InternIsUniversal=1 Quit InternIsUniversal ]]> %Library.SQLQuery paGroep:%String SELECT ID,Vertaling FROM Res.VertalingAbstract WHERE Groep=:paGroep Ook lege vertalingen zijn toegelaten %Library.SQLQuery paGroep:%Library.String,paIntern:%Library.String,paType:%Library.String SELECT Taal,Vertaling FROM Res.VertalingAbstract WHERE (Groep = :paGroep) AND (Intern = :paIntern) AND (Type = :paType) ORDER BY Taal %Library.SQLQuery paGroep:%Library.String,paIntern:%Library.String,paType:%Library.String SELECT Taal,Vertaling FROM Res.VertalingAbstract WHERE (Groep = :paGroep) AND (Intern = :paIntern) AND (Type = :paType) AND (Vertaling IS NOT NULL) ORDER BY Taal insert:%Boolean 1 %Status insert:%Boolean 1 %Status %Library.CacheStorage ^Res.VertalingAbstractD VertalingAbstractDefaultData ^Res.VertalingAbstractD ^Res.VertalingAbstractI ^Res.VertalingAbstractS %%CLASSNAME node 0 RandInfo Vertaling WijzigingsDatumTijd