persistent vhLib.Macro 0 Res.VertalingAbstract Basisdirectory voor links naar externe documenten, fotos, html, ... Er wordt abstract gewerkt het uiteindelijk bad moet bepaald worden naar gelang te toepassing : Web, FTP, Shares, ... %Library.String %Library.String Alleen bij linkn, om extra aan te duiden over wat het document, foto, html handelt. %Library.String Indien niet TaalAfhankelijk , "N" invullen (default) %Library.Boolean Waar het document kan geplaatst worden. Bv. Basis is naast het product, Extra is via link-button %Library.String Toepassing:%Library.String %Library.Boolean 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 URL van de Interne waarde terug. 1 Groep:%Library.String,Intern:%Library.String,TextType:%Library.String="L",Taal:%Library.String="N",VervangWaarde:%Library.String,Toepassing:APPS.common.enu.Toepassing %Library.String Opbouw van de bestandsnaam rekeninghoudend met Soort document en taal 1 %Library.String 1 %String TO DO : verplaatsen naar TECH. (files) + unittest voor schrijven. 1 BestandNaam:%String,Extensie:%String 1 %String 0 { Set BestandNaamZonderExtensie = $E(BestandNaam,1,StartPositieVanExtensie-$L(Extensie)-2) }Else{ Set BestandNaamZonderExtensie = BestandNaam } Quit BestandNaamZonderExtensie ]]> 1 %String Opbouw van de ganse URL bestaande uit directory en bestandsnaam Toepassing:APPS.common.enu.Toepassing %String Ook lege vertalingen zijn toegelaten %Library.SQLQuery paGroep:%Library.String,paIntern:%Library.String,paType:%Library.String SELECT Taal,DirectoryCode,Extensie,Soort,TaalAfhankelijk,Vertaling,WebPlaatsing FROM Res.VertalingLink 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.VertalingLink WHERE (Groep = :paGroep) AND (Intern = :paIntern) AND (Type = :paType) AND (Vertaling IS NOT NULL) ORDER BY Taal %Library.SQLQuery paGroep:%Library.String SELECT DISTINCT Vertaling FROM Res.VertalingLink WHERE (Groep = :paGroep) ORDER BY Vertaling %Library.CacheStorage VertalingLinkDefaultData "VertalingLink" DirectoryCode Extensie Product Soort SubPadEnNaam TaalAfhankelijk URLParameter VolgNr WebPlaatsing