How to add XML file to PDFA as Factur-X attachment

LOCAL m.lcXFRX, m.lnRetVal, m.lcXMLMD, m.lcRDFMD, m.lcXMLFile
m.lcXMLFile="c:\temp\Factur-X.xml"
m.loXFRX=EVALUATE([xfrx("XFRX#INIT")])
m.lnRetVal = loXFRX.SetParams("Factur-X.pdf",,,,.T.,,"PDF")
IF m.lnRetVal = 0
   m.loXFRX.setpdfa(.T.,"3B") && Must version 3

   m.lcXMLMD=[  <rdf:Description rdf:about="" xmlns:fx="urn:factur-x:pdfa:CrossIndustryDocument:invoice:1p0#">]+CHR(13)+CHR(10)+;
             [   <fx:ConformanceLevel>BASIC</fx:ConformanceLevel>]+CHR(13)+CHR(10)+;
             [   <fx:DocumentFileName>]+JUSTFNAME(m.lcXMLFile)+[</fx:DocumentFileName>]+CHR(13)+CHR(10)+;
             [   <fx:DocumentType>INVOICE</fx:DocumentType>  ]+CHR(13)+CHR(10)+;
             [   <fx:Version>1.0</fx:Version>]+CHR(13)+CHR(10)+;
             [  </rdf:Description>]+CHR(13)+CHR(10)

   m.lcRDFMD=[     <rdf:li rdf:parseType="Resource">]+CHR(13)+CHR(10)+;
             [      <pdfaSchema:schema>Factur-X PDFA Extension Schema</pdfaSchema:schema>]+CHR(13)+CHR(10)+;
             [      <pdfaSchema:namespaceURI>urn:factur-x:pdfa:CrossIndustryDocument:invoice:1p0#</pdfaSchema:namespaceURI>]+CHR(13)+CHR(10)+;
             [      <pdfaSchema:prefix>fx</pdfaSchema:prefix>]+CHR(13)+CHR(10)+;
             [      <pdfaSchema:property>]+CHR(13)+CHR(10)+;
             [       <rdf:Seq>]+CHR(13)+CHR(10)+;
             [        <rdf:li rdf:parseType="Resource">]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:name>DocumentFileName</pdfaProperty:name>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:valueType>Text</pdfaProperty:valueType>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:category>external</pdfaProperty:category>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:description>name of the embedded XML invoice file</pdfaProperty:description>]+CHR(13)+CHR(10)+;
             [        </rdf:li>]+CHR(13)+CHR(10)+;
             [        <rdf:li rdf:parseType="Resource">]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:name>DocumentType</pdfaProperty:name>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:valueType>Text</pdfaProperty:valueType>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:category>external</pdfaProperty:category>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:description>INVOICE</pdfaProperty:description>]+CHR(13)+CHR(10)+;
             [        </rdf:li>]+CHR(13)+CHR(10)+;
             [        <rdf:li rdf:parseType="Resource">]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:name>Version</pdfaProperty:name>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:valueType>Text</pdfaProperty:valueType>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:category>external</pdfaProperty:category>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:description>The actual version of the Factur-X XML schema</pdfaProperty:description>]+CHR(13)+CHR(10)+;
             [        </rdf:li>]+CHR(13)+CHR(10)+;
             [        <rdf:li rdf:parseType="Resource">]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:name>ConformanceLevel</pdfaProperty:name>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:valueType>Text</pdfaProperty:valueType>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:category>external</pdfaProperty:category>]+CHR(13)+CHR(10)+;
             [         <pdfaProperty:description>The conformance level of the embedded Factur-X data</pdfaProperty:description>]+CHR(13)+CHR(10)+;
             [        </rdf:li>]+CHR(13)+CHR(10)+;
             [       </rdf:Seq>]+CHR(13)+CHR(10)+;
             [      </pdfaSchema:property>]+CHR(13)+CHR(10)+;
             [     </rdf:li>]+CHR(13)+CHR(10)

   m.loXFRX.AddAttachment(m.lcXMLFile, .T., "XML-Format", "text/XML", "Data", m.lcXMLMD)
   m.loXFRX.AttachmentsList.cExtensiondata=m.lcRDFMD

   m.loXFRX.ProcessReport("FActur-X.frx")
ENDIF

LOCAL m.lcXFRX, m.lnRetVal, m.lcXMLFile, m.loFile
m.lcXMLFile="c:\temp\Factur-X.xml" 
m.loXFRX=EVALUATE([xfrx("XFRX#INIT")]) 
m.lnRetVal = loXFRX.SetParams("Factur-X.pdf",,,,.T.,,"PDF")
IF m.lnRetVal = 0 
   m.loXFRX.setpdfa(.T.,"3B") && Must version 3
   m.loFile=m.loXFRX.AddAttachment(m.lcXMLFile, .T., "XML-Format", "text/XML", "Data")
   m.loFile.CreateFACTURXMetadata("BASIC", "INVOICE", "1.0")

   m.loXFRX.ProcessReport("FActur-X.frx")
ENDIF