Sample code for 30+ languages & platforms
Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oSb1
LOCAL oSb2
LOCAL oXml

nSuccess := 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
oSb1 := CreateObject("Chilkat.StringBuilder")
nSuccess := oSb1:LoadFile("qa_output/signedXml_1.xml", "utf-8")

//  TicketBAI Sign XML Example 2
oSb2 := CreateObject("Chilkat.StringBuilder")
nSuccess := oSb2:LoadFile("qa_output/signedXml_2.xml", "utf-8")

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

? oXml:GetXml()

nSuccess := oXml:SaveXml("qa_output/ticketBAI_invoice.xml")

oSb1:destroy()
oSb2:destroy()
oXml:destroy()