Lazarus Pascal

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. Lazarus Pascal

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.