Cita:
Empezado por keys
Lo primero gracias. El problema de las 13 facturas ya esta solucionado hace tiempo, se solucionó con el uso correcto de las CAPICOM, el problema no lo tengo con los envios, los hago correctamente. El problema es que si en el ordenador hay varios certificados hay que indicar con cual de ellos hacer el envío y como ya he dicho la función que los devuelve por lo visto tambien incluye los eliminados.
|
Por eso he optado por cargar directamente al fichero y así no hace falta preguntar al usuario que certificado debe escoger.
De todas maneras para ver que certificados del “store” están vigentes, con CAPICOM puedes filtrarlos:
Código Delphi
[-]
for I := 1 to Certs.Count -1 do
begin
Cert := IInterface(Certs.Item[i]) as ICertificate;
if Now <= Cert.ValidToDate then
begin
aList.Add(Cert.SubjectName);
end;