Xbase++
Create SOAP with multiple VeriFactu Digitally Signed Registration Records

Creates a SOAP message containing a multiple digitally signed invoice registration records, formatted according to the specifications for Spain's Veri*Factu system.
Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++
LOCAL nSuccess
LOCAL oXml
LOCAL oSbXml
LOCAL oSbSignedSoap

nSuccess := 0

nSuccess := 1

//  Begin with the following SOAP XML:

//  <?xml version="1.0" encoding="utf-8"?>
//  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">
//      <soapenv:Header/>
//      <soapenv:Body>
//          <sum:RegFactuSistemaFacturacion>
//              <sum:Cabecera>
//                  <sum1:ObligadoEmision>
//                      <sum1:NombreRazon>XYZ STORE SL</sum1:NombreRazon>
//                      <sum1:NIF>B99999999</sum1:NIF>
//                  </sum1:ObligadoEmision>
//                  <sum1:RemisionRequerimiento>
//                      <sum1:RefRequerimiento>3333333333</sum1:RefRequerimiento>
//                      <sum1:FinRequerimiento>S</sum1:FinRequerimiento>
//                  </sum1:RemisionRequerimiento>
//              </sum:Cabecera>
//  
//          </sum:RegFactuSistemaFacturacion>
//      </soapenv:Body>
//  </soapenv:Envelope>

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:AddAttribute("xmlns:sum", "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
oXml:AddAttribute("xmlns:sum1", "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
oXml:AddAttribute("xmlns:xd", "http://www.w3.org/2000/09/xmldsig#")
oXml:UpdateChildContent("soapenv:Header", "")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon", "XYZ STORE SL")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF", "B99999999")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento", "3333333333")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento", "S")

//  Prior to this code, we created N signed SOAP messages, each containing a single signed record.
//  Load each of these signed SOAP messages into a StringBuilder and insert after the "</sum:Cabecera>"
//  Note: We must NOT use Chilkat.Xml for this.  We must do string operations using Chilkat StringBuilder to prevent whitespace or formatting modifications which would break the signatures.

oSbXml := CreateObject("Chilkat.StringBuilder")
oXml:GetXmlSb(oSbXml)

//  ---------------------------------------------------------------------------------------------
//  Load the previously signed XML containing just one signed record.
oSbSignedSoap := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbSignedSoap:LoadFile("c:/temp/qa_output/signedSoapXml1.xml", "utf-8")
IF (nSuccess == 0)
    ? oSbSignedSoap:LastErrorText
    oXml:destroy()
    oSbXml:destroy()
    oSbSignedSoap:destroy()
    RETURN
ENDIF

//  Remove everything before "</sum:Cabecera>", including the "</sum:Cabecera>"
oSbSignedSoap:RemoveBefore("</sum:Cabecera>")

//  Remove everything after the "</sum:RegFactuSistemaFacturacion>", including the "</sum:RegFactuSistemaFacturacion>"
oSbSignedSoap:RemoveAfterFinal("</sum:RegFactuSistemaFacturacion>")

//  We now have the portion of the signed SOAP xml from <sum:RegistroFactura> to </sum:RegistroFactura>
//  Insert it after the </sum:Cabecera>
oSbSignedSoap:Prepend("</sum:Cabecera>")
oSbXml:ReplaceFirst("</sum:Cabecera>", oSbSignedSoap:GetAsString())

//  ---------------------------------------------------------------------------------------------
//  Add the next signed SOAP containing a single signed record.
nSuccess := oSbSignedSoap:LoadFile("c:/temp/qa_output/signedSoapXml2.xml", "utf-8")
IF (nSuccess == 0)
    ? oSbSignedSoap:LastErrorText
    oXml:destroy()
    oSbXml:destroy()
    oSbSignedSoap:destroy()
    RETURN
ENDIF

//  Remove everything before "</sum:Cabecera>", including the "</sum:Cabecera>"
oSbSignedSoap:RemoveBefore("</sum:Cabecera>")

//  Remove everything after the "</sum:RegFactuSistemaFacturacion>", including the "</sum:RegFactuSistemaFacturacion>"
oSbSignedSoap:RemoveAfterFinal("</sum:RegFactuSistemaFacturacion>")

//  We now have the portion of the signed SOAP xml from <sum:RegistroFactura> to </sum:RegistroFactura>
//  Insert it after the </sum:Cabecera>
oSbSignedSoap:Prepend("</sum:Cabecera>")
oSbXml:ReplaceFirst("</sum:Cabecera>", oSbSignedSoap:GetAsString())

//  ---------------------------------------------------------------------------------------------
//  Continue adding more signed records if needed.

//  Save the SOAP containing multiple signed records..
oSbXml:WriteFile("c:/temp/qa_output/soap_combined.xml", "utf-8", 0)

oXml:destroy()
oSbXml:destroy()
oSbSignedSoap:destroy()