Tcl
Tcl
Insert Signed XML as Base64 Data into Invoice XML
See more TicketBAI Examples
Demonstrates how to insert previously signed XML into another XML as base64 data.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# We wish to create the following XML:
# <?xml version="1.0" encoding="UTF-8" standalone="no"?><lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion xmlns:lrpficfcsgap="https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PF_140_1_1_Ingresos_ConfacturaConSG_AltaPeticion_V1_0_2.xsd">
# <Cabecera>
# <Modelo>140</Modelo>
# <Capitulo>1</Capitulo>
# <Subcapitulo>1.1</Subcapitulo>
# <Operacion>A00</Operacion>
# <Version>1.0</Version>
# <Ejercicio>2022</Ejercicio>
# <ObligadoTributario>
# <NIF>79732487C</NIF>
# <ApellidosNombreRazonSocial>ARRIOLA LEJARDI ANE</ApellidosNombreRazonSocial>
# </ObligadoTributario>
# </Cabecera>
# <Ingresos>
# <Ingreso>
# <TicketBai>PD94bWw...ldEJhaT4=</TicketBai>
# <Renta>
# <DetalleRenta>
# <Epigrafe>197330</Epigrafe>
# </DetalleRenta>
# </Renta>
# </Ingreso>
# <Ingreso>
# <TicketBai>PD94bWw...rZXRCYWk+</TicketBai>
# <Renta>
# <DetalleRenta>
# <Epigrafe>197330</Epigrafe>
# <IngresoAComputarIRPFDiferenteBaseImpoIVA>S</IngresoAComputarIRPFDiferenteBaseImpoIVA>
# <ImporteIngresoIRPF>400.00</ImporteIngresoIRPF>
# </DetalleRenta>
# </Renta>
# </Ingreso>
# </Ingresos>
# </lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion>
# Use this online tool to generate code from sample XML:
# Generate Code to Create XML
# First get the signed XML created in these other examples
# TicketBAI Sign XML Example 1
set sb1 [new_CkStringBuilder]
set success [CkStringBuilder_LoadFile $sb1 "qa_output/signedXml_1.xml" "utf-8"]
# TicketBAI Sign XML Example 2
set sb2 [new_CkStringBuilder]
set success [CkStringBuilder_LoadFile $sb2 "qa_output/signedXml_2.xml" "utf-8"]
set xml [new_CkXml]
CkXml_put_Tag $xml "lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion"
CkXml_AddAttribute $xml "xmlns:lrpficfcsgap" "https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PF_140_1_1_Ingresos_ConfacturaConSG_AltaPeticion_V1_0_2.xsd"
CkXml_UpdateChildContent $xml "Cabecera|Modelo" "140"
CkXml_UpdateChildContent $xml "Cabecera|Capitulo" "1"
CkXml_UpdateChildContent $xml "Cabecera|Subcapitulo" "1.1"
CkXml_UpdateChildContent $xml "Cabecera|Operacion" "A00"
CkXml_UpdateChildContent $xml "Cabecera|Version" "1.0"
CkXml_UpdateChildContent $xml "Cabecera|Ejercicio" "2022"
CkXml_UpdateChildContent $xml "Cabecera|ObligadoTributario|NIF" "79732487C"
CkXml_UpdateChildContent $xml "Cabecera|ObligadoTributario|ApellidosNombreRazonSocial" "ARRIOLA LEJARDI ANE"
CkXml_UpdateChildContent $xml "Ingresos|Ingreso|TicketBai" [CkStringBuilder_getEncoded $sb1 "base64" "utf-8"]
CkXml_UpdateChildContent $xml "Ingresos|Ingreso|Renta|DetalleRenta|Epigrafe" "197330"
CkXml_UpdateChildContent $xml "Ingresos|Ingreso[1]|TicketBai" [CkStringBuilder_getEncoded $sb2 "base64" "utf-8"]
CkXml_UpdateChildContent $xml "Ingresos|Ingreso[1]|Renta|DetalleRenta|Epigrafe" "197330"
CkXml_UpdateChildContent $xml "Ingresos|Ingreso[1]|Renta|DetalleRenta|IngresoAComputarIRPFDiferenteBaseImpoIVA" "S"
CkXml_UpdateChildContent $xml "Ingresos|Ingreso[1]|Renta|DetalleRenta|ImporteIngresoIRPF" "400.00"
puts [CkXml_getXml $xml]
set success [CkXml_SaveXml $xml "qa_output/ticketBAI_invoice.xml"]
delete_CkStringBuilder $sb1
delete_CkStringBuilder $sb2
delete_CkXml $xml