Demo con código Verifactu.dll para (delphi 7)

[seccion_31]

mas o menos quedara asi:

procedure TForm1.Button2Click(Sender: TObject);
var
  factura, anterior:TRegistroFactura;
  resultado:TResultadoEnvio;
  j:integer;
begin
    // datos generales
    verifactu1.Emisor.NombreRazonEmisor:='Industrias Pepe';
    verifactu1.Emisor.nifEmisor:='Emisor nif';
    verifactu1.SistemaInformatico.razonSocial:='Software prueba sl';
    verifactu1.SistemaInformatico.nif:='informatico nif';
    verifactu1.SistemaInformatico.nombre:='software aeat';
    verifactu1.SistemaInformatico.ID:='1000';
    verifactu1.SistemaInformatico.Version:='11';
    verifactu1.SistemaInformatico.NumeroInstalacion:='01';
    verifactu1.certificado:='mi certificado';

    // cargar factura
    if verifactu1.inicio then
    begin
          factura.numSerieFactura:='F0001';
          factura.fechaFactura:='01/10/2024';
          factura.estado:='A';
          factura.DescripcionOperacion:='VENTA MERCADERIAS';
          factura.cliente:='CLIENTE';
          factura.clienteNIF:='NIF-CLIENTE';
          factura.nivas:=1;
          factura.iva[0].iva:=21;
          factura.iva[0].baseImp:=100;
          factura.iva[0].impIVA:=120;
          factura.cuotatotal:=120;
          factura.total:=1120;

          // sin anterior
          anterior.numSerieFactura:='';


    end;
    if verifactu1.envio(resultado) then
    begin
        for j:=0 to resultado.nfacturas do
        begin
              if not resultado.facturas[j].error then
                  showmessage(resultado.facturas[j].numserieFactura+' '+resultado.facturas[j].csv)
              else
                  showmessage(resultado.facturas[j].numserieFactura+' '+inttostr(resultado.facturas[j].errorCodigo) );
        end;
    end
    else
        showmessage('Error En El Envio');
end;