(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

' 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
Dim sb1 As Chilkat.StringBuilder
Set sb1 = Chilkat.NewStringBuilder

success = sb1.LoadFile("qa_output/signedXml_1.xml","utf-8")

' TicketBAI Sign XML Example 2
Dim sb2 As Chilkat.StringBuilder
Set sb2 = Chilkat.NewStringBuilder
success = sb2.LoadFile("qa_output/signedXml_2.xml","utf-8")

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
xml.Tag = "lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion"
Dim success As Boolean
success = xml.AddAttribute("xmlns:lrpficfcsgap","https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PF_140_1_1_Ingresos_ConfacturaConSG_AltaPeticion_V1_0_2.xsd")
xml.UpdateChildContent "Cabecera|Modelo","140"
xml.UpdateChildContent "Cabecera|Capitulo","1"
xml.UpdateChildContent "Cabecera|Subcapitulo","1.1"
xml.UpdateChildContent "Cabecera|Operacion","A00"
xml.UpdateChildContent "Cabecera|Version","1.0"
xml.UpdateChildContent "Cabecera|Ejercicio","2022"
xml.UpdateChildContent "Cabecera|ObligadoTributario|NIF","79732487C"
xml.UpdateChildContent "Cabecera|ObligadoTributario|ApellidosNombreRazonSocial","ARRIOLA LEJARDI ANE"
xml.UpdateChildContent "Ingresos|Ingreso|TicketBai",sb1.GetEncoded("base64","utf-8")
xml.UpdateChildContent "Ingresos|Ingreso|Renta|DetalleRenta|Epigrafe","197330"
xml.UpdateChildContent "Ingresos|Ingreso[1]|TicketBai",sb2.GetEncoded("base64","utf-8")
xml.UpdateChildContent "Ingresos|Ingreso[1]|Renta|DetalleRenta|Epigrafe","197330"
xml.UpdateChildContent "Ingresos|Ingreso[1]|Renta|DetalleRenta|IngresoAComputarIRPFDiferenteBaseImpoIVA","S"
xml.UpdateChildContent "Ingresos|Ingreso[1]|Renta|DetalleRenta|ImporteIngresoIRPF","400.00"

Debug.Print xml.GetXml()

success = xml.SaveXml("qa_output/ticketBAI_invoice.xml")