persistent vhLib.Macro Res.VertalingAbstract %Library.Boolean 0 1 Groep:%Library.String,Intern:%Library.String,Type:%Library.String,Taal:%Library.String %Library.Status 1 Groep:%Library.String,Intern:%Library.String,Type:%Library.String %Library.Status VTList: Een lijst van VertalingsTypes, bijv. "L;O;K" met ";" als Seperator 1 Groep:%Library.String,Intern:%Library.String,VTList:%Library.String,Seperator:%Library.String=";" %Library.Status Geeft de vertaling van de Interne waarde terug. Als 1 %Library.String Geeft de vertaling van de Interne waarde terug. Indien de vertaling niet gevonden is, dan wordt er vertaald naar TaalDFL, uitgebruid met het achtervoegsel "(TextType-Taal)". Als ook TaalDFL geen vertaling bevat, wordt de code "{Intern-TextType}" teruggegeven. 1 Groep:%Library.String,Intern:%Library.String,TextType:%Library.String="L",Taal:%Library.String="N",VervangWaarde:%Library.String,PlainTxt:%Boolean=0,ReturnsHTML:%Boolean 1 %Library.String Ook lege vertalingen zijn toegelaten %Library.SQLQuery paGroep:%Library.String,paIntern:%Library.String,paType:%Library.String SELECT Taal,Vertaling,IsHTML FROM Res.Vertaling 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.Vertaling WHERE (Groep = :paGroep) AND (Intern = :paIntern) AND (Type = :paType) AND (Vertaling IS NOT NULL) ORDER BY Taal Result is leeg dan niet bijgevoegd, vertaling bestaat al Result is 1 dan bijvoegd Anders errormelding Created By ? (on ?) 1 Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String %String Gaat na of de vertaling reeds bestaat. Indien niet, dan wordt ze aangemaakt; indien wel, dan wordt enkel de waarde (vertaling) aangepast. Result is de Save() Status van het vertalings-object Created By WimV (on 21/03/2007) 1 Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String %Status Creëert voor iedere taal (N,F,D,E) een vertaling-object via de method CreateOrUpdate()
Result is tekst: ofwel error message, ofwel piece-delimited list ("\") : results van de save-methods voor de verschillende talen/vertalingen.
Created By WimV (on 21/03/2007)]]> 1 Groep:%String,Intern:%String,TextType:%String,VtlNL:%String,VtlFR:%String,VtlDE:%String,VtlEN:%String 1 %String Created By WimV (on 21/03/2007)]]> 1 pdlParams:%String,VtlNL:%String,VtlFR:%String,VtlDE:%String,VtlEN:%String 1 %String 1 Groep:%String,Taal:%String="N",FileName:%String,flagForceUpdate:%Boolean=0 %Status 1 Groep:%String,Folder:%String %Status , YEAR.") Do oFile.WriteLine("# ") Do oFile.WriteLine("#, fuzzy") Do oFile.WriteLine("msgid """"") Do oFile.WriteLine("msgstr """"") Do oFile.WriteLine("""Project-Id-Version: "_Omschrijving_"\n""") Do oFile.WriteLine("""POT-Creation-Date: "_$P($ZDT($H,3),":",1,2)_"\n""") Do oFile.WriteLine("""PO-Revision-Date: "_$P($ZDT($H,3),":",1,2)_"+0100\n""") Do oFile.WriteLine("""Last-Translator: Anonymous \n""") Do oFile.WriteLine("""Language-Team: \n""") Do oFile.WriteLine("""MIME-Version: 1.0\n""") Do oFile.WriteLine("""Content-Type: text/plain; charset=UTF-8\n""") Do oFile.WriteLine("""Content-Transfer-Encoding: 8bit\n""") Do oFile.WriteLine("""X-Generator: dxgettext 1.2.2\n""") ConvertTaalToISO(Taal) Quit $CASE(Taal,"N":"nl","E":"en","F":"fr","D":"de",:"?"_Taal) CreatePath(Path) Set cpPiece = 2 If $$$StartsWith(Path,"\\") Set cpPiece=cpPiece+2 For cpCounter = cpPiece : 1 : $L(Path,"\") Do . Set cpFolder=$P(Path,"\",1,cpCounter) . If '##class(%File).DirectoryExists(cpFolder) Do ##class(%File).CreateDirectory(cpFolder) ]]> %Library.CacheStorage VertalingDefaultData "Vertaling" IsHTML