vhLib.Macro 1 %RegisteredObject,%XML.Adaptor right TRANSPORT %Library.String 1 writer:%XML.Writer,blnCreateRoot:%Boolean=1 0 ") Do . Set sTag=$$$TextBetween(str,"<",">") . Set str=$$$Replace(str,"<"_sTag_">","") Quit ; Ophalen taalafhankelijke tekst TXT(Ref,Piece,Taal) If '$D(Piece) Set Piece=2 Quit $P($P($T(@("T"_Ref_"^DCFAX")),";",Piece),"\",$F("NFDE",Taal)-1) ]]> %Status 1 1 %Status 1