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

[CarlosMz]

Buenas noticias, no sería más sencillo encapsularlo en una clase ?

Una pregunta ¿por qué usas capicom ? no es más sencillo cargar desde un fichero el certificado:

Código Delphi [-]
procedure TMain.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
  Client: THTTPClient);
var
   CertStream: TMemoryStream;
begin
     CertStream := TMemoryStream.Create;
     CertStream.LoadFromFile('file.pfx');
     HTTPReqResp.ClientCertificate.Stream := CertStream;
     HTTPReqResp.ClientCertificate.Password := 'password';

end;

[seccion_31]

¿Sinceramente?

porque no tengo mucha idea, y se hacerlo asi. XD

ahora mismo esta echo asi.

¿que ventajas tiene un metodo sobre otro?

[CarlosMz]

xD, pues como ventajas, a simple vista, que no hay necesidad de instalar el certificado,
se puede cargar directamente desde un fichero o stream, y simplifica el código reduciendo dependencias

[seccion_31]

uummmm...

voy a ver que hago finalmente, de momento publico este componente asi y luego se puede incoporar.

gracias por el extracto de codigo.

El que se pueda enviar una factura desde D7 para mi no es sencillo. la unidad de la AEAT no compila, y el httprio tampoco funciona.

Interaccionar con una DLL en berlin tampoco he podido porque el httprio da un error de proteccion al enviar.

He descartado el DDE

Al final he usado mensajes definidos por el usuario para comunicar con una aplicacion (D10) que se queda residente y va recibiendo las facturas, ordenes de envio y comunica el resultado.
Los datos se transmiten en dos direcciones atraves de funciones "filemapping".

Funcionar, funciona, y enviar una factura es muy simple. En caso de fallo solo haria falta cambiar la aplicacion residente o servidor, que incopora un sistema de log que te va diciendo lo que hace.

[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;

[seccion_31]

voy a intentar hacer que admita un nombre de certificado o nombre de fichero.pfx en el certificado para tener las dos opciones.

[CarlosMz]

Tiene buena pinta, creo que ¿habría que agregarle un control de flujo según los errores recibidos por parte de la AEAT?