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

[DarkDudae]

Nueva sugerencia para el componente:

Obtener fechas de caducidad de los certificados.

Para ello, bastaría con hacer una pequeña modificación en la función loadCertificados y en el tipo TCertificados.

Código Delphi [-]
function loadCertificados(aList, aFechas:TStringList):integer;
var
  hStore: HCERTSTORE;
  PrevContext, CurContext: PCERT_CONTEXT;
  cbSize: DWORD;
  SysTime: TSystemTime;
  sNombre: String;
begin
  aList.Clear;
  aFechas.Clear;
  Result := 0;
  hStore := CertOpenSystemStore(0, PChar('MY'));
  if hStore <> nil then begin
     PrevContext := nil;
     CurContext := CertEnumCertificatesInStore(hStore, PrevContext);
     while CurContext <> nil do begin
       sNombre := '';
       cbSize := CertGetNameString(CurContext, CERT_NAME_SIMPLE_DISPLAY_TYPE, 0, nil, nil, 0);
       if cbSize > 0 then
       begin
          SetLength(sNombre, cbSize-1);
          CertGetNameString(CurContext, CERT_NAME_SIMPLE_DISPLAY_TYPE, 0, nil, PChar(sNombre), cbSize);
          aList.Add(sNombre);
          if FileTimeToSystemTime(CurContext^.pCertInfo^.NotAfter, SysTime) then
          begin
            AFechas.Add(datetimetostr(SystemTimeToDateTime(SysTime)));
          end;
       end;
       PrevContext := CurContext;
       CurContext  := CertEnumCertificatesInStore(hStore, PrevContext);
     end;
  end;
  result:=aList.count;
end;

[ramherfer]

Buenas tardes.
¿Es posible que no me valide los nif's usando el pfx?

Con el nombre de certificado, si lo hace aunque no devuelve el nombre registrado en la AEAT, en resultado venía IDENTIFICADO o NO IDENTIFICADO
Un saludo,

[seccion_31]

Empezado por ramherfer

Buenas tardes.
¿Es posible que no me valide los nif's usando el pfx?

Con el nombre de certificado, si lo hace aunque no devuelve el nombre registrado en la AEAT, en resultado venía IDENTIFICADO o NO IDENTIFICADO
Un saludo,

Ya esta incorporado

Tambien soportara exentas (por otros motivos a exportacion, ue, y canarias) , en un array distinto a la de ivas, e inversión del sujeto pasivo en facturas nacionales. (eso si, toda la factura bajo inv.suje.pasivo)

La demo ha cambiado algo, y la excel para importar tambien.

Ademas de otros cambios y pequeños errores.

Creo que la semana que viene la subire

Saludos

[seccion_31]

buenos dias DarkDudae !

¿ x favor, Puedes modificar el codigo para que directamente cargue SOOLO los certificados validos, evitando los caducados ?

NO tengo ninguno caducado para provar, y evitar el segundo parametro, y mas cambios.

Copiaria y pegaria tu codigo y ya, lo incorporo a la nueva version.

Saludos !