(Tcl) Create SOAP with multiple VeriFactu Digitally Signed Registration Records

See more Verifactu Examples

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set success 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>

set xml [new_CkXml]

CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:sum" "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd"
CkXml_AddAttribute $xml "xmlns:sum1" "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd"
CkXml_AddAttribute $xml "xmlns:xd" "http://www.w3.org/2000/09/xmldsig#"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateChildContent $xml "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon" "XYZ STORE SL"
CkXml_UpdateChildContent $xml "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF" "B99999999"
CkXml_UpdateChildContent $xml "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento" "3333333333"
CkXml_UpdateChildContent $xml "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.

set sbXml [new_CkStringBuilder]

CkXml_GetXmlSb $xml $sbXml

# ---------------------------------------------------------------------------------------------
# Load the previously signed XML containing just one signed record.
set sbSignedSoap [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbSignedSoap "c:/temp/qa_output/signedSoapXml1.xml" "utf-8"]
if {$success == 0} then {
    puts [CkStringBuilder_lastErrorText $sbSignedSoap]
    delete_CkXml $xml
    delete_CkStringBuilder $sbXml
    delete_CkStringBuilder $sbSignedSoap
    exit
}

# Remove everything before "</sum:Cabecera>", including the "</sum:Cabecera>"
CkStringBuilder_RemoveBefore $sbSignedSoap "</sum:Cabecera>"

# Remove everything after the "</sum:RegFactuSistemaFacturacion>", including the "</sum:RegFactuSistemaFacturacion>"
CkStringBuilder_RemoveAfterFinal $sbSignedSoap "</sum:RegFactuSistemaFacturacion>"

# We now have the portion of the signed SOAP xml from <sum:RegistroFactura> to </sum:RegistroFactura>
# Insert it after the </sum:Cabecera>
CkStringBuilder_Prepend $sbSignedSoap "</sum:Cabecera>"
CkStringBuilder_ReplaceFirst $sbXml "</sum:Cabecera>" [CkStringBuilder_getAsString $sbSignedSoap]

# ---------------------------------------------------------------------------------------------
# Add the next signed SOAP containing a single signed record.
set success [CkStringBuilder_LoadFile $sbSignedSoap "c:/temp/qa_output/signedSoapXml2.xml" "utf-8"]
if {$success == 0} then {
    puts [CkStringBuilder_lastErrorText $sbSignedSoap]
    delete_CkXml $xml
    delete_CkStringBuilder $sbXml
    delete_CkStringBuilder $sbSignedSoap
    exit
}

# Remove everything before "</sum:Cabecera>", including the "</sum:Cabecera>"
CkStringBuilder_RemoveBefore $sbSignedSoap "</sum:Cabecera>"

# Remove everything after the "</sum:RegFactuSistemaFacturacion>", including the "</sum:RegFactuSistemaFacturacion>"
CkStringBuilder_RemoveAfterFinal $sbSignedSoap "</sum:RegFactuSistemaFacturacion>"

# We now have the portion of the signed SOAP xml from <sum:RegistroFactura> to </sum:RegistroFactura>
# Insert it after the </sum:Cabecera>
CkStringBuilder_Prepend $sbSignedSoap "</sum:Cabecera>"
CkStringBuilder_ReplaceFirst $sbXml "</sum:Cabecera>" [CkStringBuilder_getAsString $sbSignedSoap]

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

# Save the SOAP containing multiple signed records..
CkStringBuilder_WriteFile $sbXml "c:/temp/qa_output/soap_combined.xml" "utf-8" 0

delete_CkXml $xml
delete_CkStringBuilder $sbXml
delete_CkStringBuilder $sbSignedSoap