Factura Electronica México

[JXJ]

Empezado por Rom@n

Hola quetal programadores quiero aportar un poco al tema de facturacion electronica voy a explicar brevemente este codigo esperando que le sirva a mas de uno:
1:Primero Busco con dialogExecute el archivo .cer
2:ejecuto el openssl con shellexecute y paso los parametros para convertir a formato pem y creo un archivo de texto.
3:con una funcion de escaneo busco la palabra not after y copio solo la fecha con copy y la proceso para lograr un formato de echa valido
4:la funcion LongDateStrToShortDateStr me rotorna el numero de mes ya que en el archivo caduca aparece el mes abreviado ejem:ene,feb,mar....dic


Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn5Click(Sender: TObject);
var
Rutacerti,nombrecerti:string;
position: integer;
dia,mes,yy,h,m,s:string;
begin
if Opencerti.Execute then
begin
Rutacerti := Opencerti.FileName ;
if Rutacerti <> '' then
begin
nombrecerti:=ExtractFileName(opencerti.FileName);
CopyFile(PChar(rutacerti), PChar('C:\SAT\'+nombrecerti), false);
certi.Text:=nombrecerti;
ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -inform DER -outform PEM -in '+PChar('C:\SAT\'+nombrecerti)+' -out C:\SAT\'+nombrecerti+'.pem'),nil,SW_SHOW);
Sleep(1000);
ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -in C:\SAT\'+nombrecerti+'.pem -text -out C:\SAT\caduca.txt'),nil,SW_SHOW);
Sleep(1000);
//proceso para sacar la fecha de caducidad
position := ScanFile('C:\SAT\caduca.txt', 'Not After', true);
if position <> -1 then
begin
//showmessage(archivo_caduca);
dia:=Copy(archivo_caduca,17,2);
mes:=LongDateStrToShortDateStr(Copy(archivo_caduca,13,3));//(Copy(archivo_caduca,13,3)));
yy:=Copy(archivo_caduca,29,4);
h:=Copy(archivo_caduca,20,8);
if date>=strtodatetime(dia+'/'+mes+'/'+yy+' '+h) then
showmessage('Este certificado ya esta caducado:'+ dia+'/'+mes+'/'+yy+' '+h)
else
showmessage('Certificado Vigente hasta:'+ dia+'/'+mes+'/'+yy+' '+h);
caduca.DateTime:= strtodatetime(dia+'/'+mes+'/'+yy+' '+h);
end
else
begin
ShowMessage('No se econtro Fecha de caducidad (Not After)');
end;
end;
end//fin del dialog1 execute
else
begin
showmessage('no se ejecuto');
end;

cual es tu funcion

scanfile

[JXJ]

Empezado por JXJ

cual es tu funcion

scanfile

y tu funcion

LongDateStrToShortDateStr

[JXJ]

Empezado por JXJ

y tu funcion

LongDateStrToShortDateStr

unas dudas con este tema.

la fecha de validez del certificado.

¿como se traducen a un formato de fecha entendible''?
no se que es GMT

notBefore=May 3 19:07:59 2010 GMT

notAfter=May 2 19:07:59 2012 GMT


esta informacion la necesito ingrear a firebird
con el formato

dd/MM/yyy :

[edgaronfo]

Morris, oye, ya te mandé mi correo por mensaje privado. Fíjate que nomás no he podido hacerlo funcionar en Delphi 2010 y ya lo estoy pasando a Delphi 2006, es que tengo que entregar avances y no he podido resolver ese problemita, que no es tan grande después de todo, pero que me limitaba un poquito.

Ahorita lo que me tiene preocupado es encapsularlo en una clase y subirlo a una DLL, pero mi cliente usa Visual Basic así que ya sabrás los líos en los que me tuve que meter para que se pudiera instanciar una clase en VB para un objeto en un DLL hecho en Delphi...

Pero : "El cliente siempre tiene la razón..."

Saludos!

p.d. ojalá me puedas mandar ese proyectito en Delphi 2010 para saber de una buena vez qué me está fallando, gracias!

[edgaronfo]

Por cierto! JXJ, GMT significa: Greenwich Mean Time, y aquí hay información de lo que es:

http://es.wikipedia.org/wiki/Tiempo_medio_de_Greenwich

Espero que te sea de utilidad, saludos!

[Eina]

Empezado por JXJ

cual es tu funcion

scanfile

me prodrias ayudar, soy nueva en delphi, eh checado tu codigo, me parece bien, pero no entiendo la funcion de Scanfile, me podrias asignar tu codigo de Scanfile, estoy haciendo el sistema de facturacion electronica para mis residencia.


gracias

[dado]

La funcion que publicaron para obtener el numero de serie del certificado y sus otros datos esta muy bien, solo que padece de un pequeño problema, hay que alimentar el certificado en formato PEM pero el SAT nos lo proporciona en formato DER.

Bueno, la pregunta es, alguien ha podido convertir de DER a PEM dentro de Delphi, sin usar el incomodo *.bat?

O reformulando la pregunta, alguien ha podido programar esto en delphi :

openssl x509 -inform DER -outform PEM -in aaa010101.cer