Factura Electronica México

[ifarias]

Hola a todos.

Estudiando sobre la generación de documentos XML me encontré esta liga que facilita enormemente la administración del documento Factura(XML) para los que usamos Delphi, desconozco si exista alguna facilidad similar en Lazarus

La liga es delphiallimite.blogspot.com/2007/10/trabajando-con-documentos-xml-y-iii.html
En ella se explica el uso del XML Data Binding, con la cual se puede usar directamente el archivo cfdv2.xsd proporcionado por el SAT, para generar la estructura interna del documento y manipularlo fácilmente

Espero que esto ayude a la comunidad.

Saludos

[Willo]

Hola a todos....

he estado leyendo todos los mensajes del hilo y ya me perdi, aun no entro a las danzas esas de la facturacion electronica, pero tengo en puerta un problema sino igual, muy muy parecido...

tengo una empresa que por ley debe presentar declaraciones de IDE, en formato XML, encriptadas y firmadas digitalmente.

el SAT tambien proporciona un certificado y una llave para ello, y aunque finalmente pude generar los archivos XML, no entiendo muy bien como debo proceder para encriptarlos (con el estandar PKCS7 ) y firmarlos digitalmente.

alguien podra proporcionarme una guia de como lograr esto?

gracias de antemano

[dado]

Empezado por Willo

Hola a todos....

he estado leyendo todos los mensajes del hilo y ya me perdi, aun no entro a las danzas esas de la facturacion electronica, pero tengo en puerta un problema sino igual, muy muy parecido...

tengo una empresa que por ley debe presentar declaraciones de IDE, en formato XML, encriptadas y firmadas digitalmente.

el SAT tambien proporciona un certificado y una llave para ello, y aunque finalmente pude generar los archivos XML, no entiendo muy bien como debo proceder para encriptarlos (con el estandar PKCS7 ) y firmarlos digitalmente.

alguien podra proporcionarme una guia de como lograr esto?

gracias de antemano

Hola, estuve investigando tu problema, vi en la pagina del SAT la forma en que deberia hacerse dicha declaracion y te puedo confirmar con certeza que la factura electronica NO ES igual a lo que necesitas.

Veras, la Factura Electronica maneja un certificado PKCS8 y genera una cadena original para firmarla.

Tu declaracion usa PKCS7 y NO requiere de cadena original. Claro que debe haber algunas similitudes pero definitivamente no aplican las mismas rutinas

[JXJ]

y como se genera el archivo .pem

a mi me pide contraseña o me da error.
pkcs8 -inform DER -in AAA010101AAA_0408021316S.key -out AAA010101AAA.key.pem


o mejor aun usando delphi, ¿como se hace?

[Mosis2k2]

Empezado por JXJ

y como se genera el archivo .pem

a mi me pide contraseña o me da error.
pkcs8 -inform DER -in AAA010101AAA_0408021316S.key -out AAA010101AAA.key.pem


o mejor aun usando delphi, ¿como se hace?

te paso el codigo que yo utilice para convertir el archivo a .pem.

//---------------------------------------------------------
procedure TfrmEmpresa.KeyToPem;
var
  BatFile: TStringList;
  LlaveDerToPEM, OutFile, BatFileName: string;
begin
  //Convertimos el CERTIFICADO de formato DER a formato PEM con la siguiente instrucción de OpenSSL
  OutFile:= FolderFilesPEM + ExtractFileName(txtPrivateKey.Text)+'.pem';
  LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in '+ txtPrivateKey.Text  +' -out ' + OutFile;
  //Creamos el archivo .Bat
  BatFileName:= 'C:\MiFactura\Bin\'+LlaveBat;
  BatFile:= TStringList.Create;
  BatFile.Add(LlaveDerToPEM);
  BatFile.SaveToFile(BatFileName);
  try
    WinExecAndWait32(BatFileName,1);
  except
    on E : Exception do
      ShowMessage(E.ClassName+' Se provoco la excepción : '+E.Message);
  end;
  if FileExists(OutFile) then begin
    if LengthFile(OutFile) = 0 then
      MessageDlg('Verifique que la contraseña sea correcta e intentelo nuevamente.', mtError, [mbOk], 0);
  end;
  PrivateKeyPemFile:= OutFile;
end;
//---------------------------------------------------------

Saludos.

[dado]

te paso el codigo que yo utilice para convertir el archivo a .pem.

Código:
//---------------------------------------------------------procedure TfrmEmpresa.KeyToPem;var BatFile: TStringList; LlaveDerToPEM, OutFile, BatFileName: string;begin //Convertimos el CERTIFICADO de formato DER a formato PEM con la siguiente instrucción de OpenSSL OutFile:= FolderFilesPEM + ExtractFileName(txtPrivateKey.Text)+'.pem'; LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in '+ txtPrivateKey.Text +' -out ' + OutFile; //Creamos el archivo .Bat BatFileName:= 'C:\MiFactura\Bin\'+LlaveBat; BatFile:= TStringList.Create; BatFile.Add(LlaveDerToPEM); BatFile.SaveToFile(BatFileName); try WinExecAndWait32(BatFileName,1); except on E : Exception do ShowMessage(E.ClassName+' Se provoco la excepción : '+E.Message); end; if FileExists(OutFile) then begin if LengthFile(OutFile) = 0 then MessageDlg('Verifique que la contraseña sea correcta e intentelo nuevamente.', mtError, [mbOk], 0); end; PrivateKeyPemFile:= OutFile;end;//---------------------------------------------------------
Saludos.

No he probado esta rutina aunque parece muy buena, ahora, si me permites dos consejos :

1. Enmarca los nombre de archivo con comilla doble, eso te permite usar directorios con nombres largos y espacios entre ellos
2. usa la opcion -passin para pasarle la clave y que no te la pida en la ventana de MSDOS

Es decir, te recomiendo que agregues:

Código Delphi [-]
clave := InputBox('SE REQUIERE LA CLAVE','Introduzca su Clave Privada del Certificado','');
...
...
LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in "'+ txtPrivateKey.Text  +'" -passin pass:' + clave + ' -out "' + OutFile +'"';
  //Creamos el archivo .Bat << nota las comillas doble " que se agregaron

//De esta forma txtPrivateKey.Text puede ser = 'c:\archivos de programa\mis documentos\es decir\nombres largos y con espacios\privatekey.key'

[jourdan]

Empezado por ifarias

Hola a todos.

Estudiando sobre la generación de documentos XML me encontré esta liga que facilita enormemente la administración del documento Factura(XML) para los que usamos Delphi, desconozco si exista alguna facilidad similar en Lazarus

La liga es delphiallimite.blogspot.com/2007/10/trabajando-con-documentos-xml-y-iii.html

Muchas gracias pero creo que solo funciona para las versiones architect de delphi, lo trate de hacer pero tengo delphi 6 profesional y no encontre la forma. Saludos

[abartol]

Hola a todos. Como puedo saber los certificados que hay instalados en el equipo? El objetivo es mostrarlos para seleccionar uno y firmar los ficheros. Alguna idea?

Gracias a tod@s!

[richy08]

Empezado por ifarias

Hola a todos.

Estudiando sobre la generación de documentos XML me encontré esta liga que facilita enormemente la administración del documento Factura(XML) para los que usamos Delphi, desconozco si exista alguna facilidad similar en Lazarus

La liga es delphiallimite.blogspot.com/2007/10/trabajando-con-documentos-xml-y-iii.html
En ella se explica el uso del XML Data Binding, con la cual se puede usar directamente el archivo cfdv2.xsd proporcionado por el SAT, para generar la estructura interna del documento y manipularlo fácilmente

Espero que esto ayude a la comunidad.

Saludos

hola ifarias lograste hacer el proceso de generacion del .xml sabes estoy viendo la referencia del url que describes pero es un ejemplo muy basico y estoy un poco perdido te agradeceria si me orientas un poco

saludos

[ifarias]

Empezado por richy08

hola ifarias lograste hacer el proceso de generacion del .xml sabes estoy viendo la referencia del url que describes pero es un ejemplo muy basico y estoy un poco perdido te agradeceria si me orientas un poco

saludos

Hola. Efectivamente si pude lograrlo pero el problema es que trabajas con archivos en formato 'PEM' y se complica algo la generación de XML ya que si por casualidad haces referencia a un campo que sea opcional y que no se valla a usar, este se genera dentro del archivo XML, ejemplo: motivoDescuento="" y esto no es válido.

Encontre otras rutinas publicada por www_bambucode_com/codigoabierto/facturacion_electronica_delphi_php, que hacen todo lo que requerimos.
y ademas utilizan el OPENSSL para leer facilmente los .CER y los .KEY proporcionados por el SAT.

Por otro lado, pergunto si alguien a manejado las DEVOLUCIONES ELECTONICAS, y me refiero a si se requiere solicitar Folios al SAT para la generación de los mismos, y que estructura se debe seguir o es la misma que el "cfdv2.xsd", y si lo es, como se le reporta al SAT.

El Anexo 20 de 2010, no menciona nada en absoluto.

[richy08]

Empezado por ifarias

Hola. Efectivamente si pude lograrlo pero el problema es que trabajas con archivos en formato 'PEM' y se complica algo la generación de XML ya que si por casualidad haces referencia a un campo que sea opcional y que no se valla a usar, este se genera dentro del archivo XML, ejemplo: motivoDescuento="" y esto no es válido.

Encontre otras rutinas publicada por www_bambucode_com/codigoabierto/facturacion_electronica_delphi_php, que hacen todo lo que requerimos.
y ademas utilizan el OPENSSL para leer facilmente los .CER y los .KEY proporcionados por el SAT.

Por otro lado, pergunto si alguien a manejado las DEVOLUCIONES ELECTONICAS, y me refiero a si se requiere solicitar Folios al SAT para la generación de los mismos, y que estructura se debe seguir o es la misma que el "cfdv2.xsd", y si lo es, como se le reporta al SAT.

El Anexo 20 de 2010, no menciona nada en absoluto.

hola ifarias yo descargue ese codigo de bambucode pero pues valla por mi version de delphi (D7) no logre ni que compile, ademas marca errores de que faltan archivos .dcu te agradeceria si me indicas en cual .pas es donde te basaste para dicho proposito

mil gracias por tu tiempo