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

[Quim Herrera]

No sé si ya lo habéis detectado, creo que hay un error en uVerifactuFuncs.pas en TEventosWebNode.WebNodeBeforePost al validar un NIF con P12 o PFX en la asignación del nombre del archivo y password:

Código Delphi [-]
 if sesion=-1 then // viene de un validador de nif
  begin
      pass:=nifValidator;
      cert:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

deberia ser:

Código Delphi [-]
  if sesion=-1 then // viene de un validador de nif
  begin
      cert:=nifValidator;
      pass:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

Saludos

[elguille]

Hola, muchas gracias por iluminar el camino. Tengo un problema al cargar directamente un certificado PFX, no me funciona el procedimiento

Código Delphi [-]
cargaCertificado(Data: Pointer; cert, pass: string)

que está en uverifactufuncs.pas, la siguiente linea no carga el certificado correctamente

Código Delphi [-]
InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT))

lo he modificado para saber cual es el error

Código Delphi [-]
   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT)) then
   BEGIN
      LastError := GetLastError();
      raise Exception.CreateFmt('Error en InternetSetOption. Código: %d', [LastError]);
   END;

recibo el código de error 6 . He importado el certificado al almacen de windows y desde ahi funciona perfectamente ¿alguien ha probado de cargar un certificado desde el fichero PFX directamente?
Gracias anticipadas.

[ramherfer]

Empezado por elguille

recibo el código de error 6 . He importado el certificado al almacen de windows y desde ahi funciona perfectamente ¿alguien ha probado de cargar un certificado desde el fichero PFX directamente?
Gracias anticipadas.

Hola termino de hacer una prueba validando NIF del cliente, por hacer una prueba rápida y sencilla con PFX y me pide que seleccione un certificado del almacen. Esto con el nombre de certificado cierto que no ocurre y funciona bien. Habiendo realizado una prueba con validación, creo que tampoco funcionará con los envíos. No lo he probado en los envíos por si se me lía un trifostio. Luego si acaso probaré con una factura y amplio la información lo tengo fácil para cambiar el uso de certificados.

Probado, pide el certificado tanto al comprobar el nif como al facturar del almacen de certificados.

[elguille]

Empezado por ramherfer

Hola termino de hacer una prueba validando NIF del cliente, por hacer una prueba rápida y sencilla con PFX y me pide que seleccione un certificado del almacen. Esto con el nombre de certificado cierto que no ocurre y funciona bien. Habiendo realizado una prueba con validación, creo que tampoco funcionará con los envíos. No lo he probado en los envíos por si se me lía un trifostio. Luego si acaso probaré con una factura y amplio la información lo tengo fácil para cambiar el uso de certificados.

Probado, pide el certificado tanto al comprobar el nif como al facturar del almacen de certificados.

Creo que pide el certificado por el error que señalo, al no poder cargarse este, te enseña los del almacen.

Saludos

[seccion_31]

Empezado por Quim Herrera

No sé si ya lo habéis detectado, creo que hay un error en uVerifactuFuncs.pas en TEventosWebNode.WebNodeBeforePost al validar un NIF con P12 o PFX en la asignación del nombre del archivo y password:

Código Delphi [-]
 if sesion=-1 then // viene de un validador de nif
  begin
      pass:=nifValidator;
      cert:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

deberia ser:

Código Delphi [-]
  if sesion=-1 then // viene de un validador de nif
  begin
      cert:=nifValidator;
      pass:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

Saludos

gracias, añado la correccion.