vhLib.Macro 1 %RegisteredObject,%XML.Adaptor right Property TEKST As %String(XMLPROJECTION = "CONTENT"); %String array %String sTxt:%String Method Append() toegevoegd om compatibel te zijn met klasse BL.FOP.Basis.pxTekstHTML String:%String,OldFmtToHtml:%Boolean=0,InputIsHtml:%String=0 ", "ªu","", "ªB","", "ªb","") Do ..AppendItem(String) Quit ]]> SubTag 1 BL.FOP.Basis.pxTekstBlok 0) "" Set pxTxt=..%New() Do pxTxt.Fill(.arTxt) Quit pxTxt ]]> 1 RTBlock:%String BL.FOP.Basis.pxTekstBlok %String