(Delphi DLL) Insert Signed XML as Base64 Data into Invoice XML

See more TicketBAI Examples

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb1: HCkStringBuilder;
success: Boolean;
sb2: HCkStringBuilder;
xml: HCkXml;

begin
// 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
sb1 := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sb1,'qa_output/signedXml_1.xml','utf-8');

// TicketBAI Sign XML Example 2
sb2 := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sb2,'qa_output/signedXml_2.xml','utf-8');

xml := CkXml_Create();
CkXml_putTag(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');

Memo1.Lines.Add(CkXml__getXml(xml));

success := CkXml_SaveXml(xml,'qa_output/ticketBAI_invoice.xml');

CkStringBuilder_Dispose(sb1);
CkStringBuilder_Dispose(sb2);
CkXml_Dispose(xml);

end;