Pascal (Lazarus/Delphi)

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. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Xml,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sb1: TStringBuilder;
  sb2: TStringBuilder;
  xml: TXml;

begin
  success := False;

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

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

  xml := TXml.Create;
  xml.Tag := 'lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion';
  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');

  WriteLn(xml.GetXml());

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


  sb1.Free;
  sb2.Free;
  xml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.