Factura Electronica México

[jourdan]

Muchas gracias por sus respuestas, somos muchos los que andamos trabajando en solucionar esto, Yo de plano compre el active x de chilkat.
unamero mucha sgracias por la información, lo intente varias veces con el liveay32.dll pero sin exito.

El activex de chilkat sirve bastante bien pero vale sus buenos 150 dolaritos

[osmuar_exp]

Buenas tardes, andamos en la mismas con la factura electrónica, ya pasé la validación de la factura en el validador de hacienda factura estilo

"uamero"

, el problema que se me presenta es el siguiente:

Tengo una cadena original "grande" y me marca el error en la funcion

ReadPrivateKey

, Funcion:

Código PHP:

function ReadPrivateKey(AFileName: string): pEVP_PKEY; 
  var keyfile: pBIO;     
  mx : pEVP_PKey;  
 begin     
   keyfile := BIO_new(BIO_s_file());   
   mx := nil;       
   BIO_read_filename(keyfile,PChar(AFilename));     
   result := PEM_read_bio_PrivateKey(keyfile,mx,nil,nil); 
end; 


Error:

error:00000000:lib(0):func(0):reason(0)

me marca error en el begin antes de acceder al la primera linea de la funcion...
les dejo la cadena por si alguien quiere hacer la prueba y si ya encontrarón una solución me harian un gran favor si la postean...
Nota: Ya descargue la nueva version de la libreria OpenSSL junto con el Microsoft Visual C++ 2008 Redistributable y ni asi.
Nota: Si a la siguiente cadena le quito nose algunos 7 u 8 conceptos no me marca el error, entonces por ahi viene el error en la longitud de la cadena :S.
Gracias...

Cadena Original: Es de prueba

||2.0|FE|313|2010-04-22T16:45:42|38843|2008|ingreso|Pago en una sola exhibicion|760.00|881.60|EXP010829R48|MI EMPRESA SA DE CV|AV. MEXICO|30|NUEVO PROGRESO|GUADALAJARA|GUADALAJARA|JALISCO|MEXICO|64000|MEXICO|AGA152156DD5|AGROPECUARIA EL AVION|AV. CONSTITUCION|626|CD INDUSTRIAL|GUADALAJARA|JALISCO|MEXICO|64000|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|1.00|KILO|030903341|BOLSA JUMBO 1KG|38.00|38.00|IVA|16|121.60|121.60||

[nejamube]

Muchas Gracias.

[osmuar_exp]

Empezado por nejamube

Hola, el validador siempre me marca que el sello digital es invalido, que pudo ser alterado.


Adjunto la cadena original y el CFD en formato XML.

Los estoy validando en :



¿La cadena original esta correcta ?

Es lo unico que creo que puede alterar el sello esperado por el SAT.

Gracias.

Hola, fijate que ami me pasaba lo mismo, el sello digital era invalido, intenta buscar dentro de tu cadena de sello saltos de linea, etc,,,aparte debes estar seguro de que el certificado (no autorizacion, año de autorizacion y no certificado) sean los correctos., con eso ami me soluciono el problema, saludos...

Código Delphi [-]
memo.Lines.clear;
memo.lines.add(SelloDigital(ruta_llave,CalculaCadenaOriginal(1)));
memo.Text := AnsiReplaceStr(memo.Text,#8,'');          
memo.Text := AnsiReplaceStr(memo.Text,#10,'');
memo.Text := AnsiReplaceStr(memo.Text,#13,'');
memo.Text := AnsiReplaceStr(memo.Text,'  ','');
sello:=memo.text;

[jourdan]

Empezado por osmuar_exp

Hola, fijate que ami me pasaba lo mismo, el sello digital era invalido, intenta buscar dentro de tu cadena de sello saltos de linea, etc,,,aparte debes estar seguro de que el certificado (no autorizacion, año de autorizacion y no certificado) sean los correctos., con eso ami me soluciono el problema, saludos...

Hola, una pregunta, estoy casi seguro que estoy haciendo todo bien ya que el revisado la cadena original muchas veces, etc. estoy usando el active x de chilkat pero no logo validar el archivo en la ágina del sat, la pregunta es: tu pediste al sat folios reales y con esos archivos pudiste pasar las pruebas.
Con la llave privada, el certificado y la constraseña que da el sat para hacer pruebas no he logrado validar y no se si sea porque no cuento con el numero de autorización, ya que en año de autorizacion puese 2008 y el No. de certificado lo saque del mismo resultado del validador, alguien me puede ayudar. Muchas gracias

[nejamube]

Muchas gracias.

[nejamube]

Muchas gracias.

[nejamube]

Corregido.

[nejamube]

Muchas gracias.

[mesquivelh]

Muchas Gracias felipep, quité el UTF8Encode y ya sale bien mi cadena original.

Por otro lado, me puedes indicar la sintaxis en delphi para los comandos:

openssl pkcs8 -inform DER -in AAA010101AAA_Test.key -out AAA010101AAA.key.pem
openssl x509 -inform DER -in AAA010101AAA_Test.cer -out AAA010101AAA.cer.pem

Quiero incluir la conversion a PEM en la unidad que subiste (Sello.pas) que estoy usando en mi proyecto

Nuevamente muchas gracias me has ayudado mucho.

[JXJ]

yo ya me perdi

¡¿son diferentes la FEA. Firma Electronica Avanzada, existe ya no existe?
¿Comprobante digital.?
como n estoy dado de alta, no se como comprobar que mi factura este bien.
quiero hacer un software para hacer facturas electronicas.

sigo revisando.

[joaquin123]

Espero no estar violando las reglas he obtenido nucha ayuda aqui, fui un usuario del foro en la epoca 1993-1997 ....

En esta unidad viene como obtener los datos del certificado.. usando como base unidad sello.pas y esta de aqui. (gettime esta en OpenSSLUtils.pas)
( No puedo subir el enlace, buscarla en google )
function GetInicioVigencia(const AFileName: string): TdateTime;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
Fecha:TDateTime;
begin
InitOpenSSL;
fn := PAnsiChar(ansistring(AFileName));
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, fn);
x := X509_new;
x509 := PEM_read_bio_X509(bp, x, nil, nil);
Fecha:=getTime(X509_get_notBefore(x509));
X509_free(x509);
BIO_free(bp);
Result := Fecha;
EVP_cleanup;
end;

Gracias, Saludos desde Tijuana B.C. Mexico

[Ñuño Martínez]

Empezado por joaquin123

Espero no estar violando las reglas he obtenido nucha ayuda aqui, fui un usuario del foro en la epoca 1993-1997 ....

Pues así, a primera vista, no parece que incumplas nada. De todas formas, te lees la Guía de estilo y Santas Pascuas.

Y re-bienvenido, Joaquín.

[ifarias]

Alguien de ustedes save para que sirve el password que proporciona el SAT junto con el Certificado y la Llave ???

[Ñuño Martínez]

Pues así, a bulto, diría que para autentificar el producto o el servicio...

[nuk3zito]

Empezado por ifarias

Alguien de ustedes save para que sirve el password que proporciona el SAT junto con el Certificado y la Llave ???

Así a grandes rasgos, el password te sirve para desencriptar la llave... y la llave te sirve para abrir el certificado.

[dado]

Empezado por osmuar_exp

Buenas tardes, andamos en la mismas con la factura electrónica, ya pasé la validación de la factura en el validador de hacienda factura estilo , el problema que se me presenta es el siguiente:

Tengo una cadena original "grande" y me marca el error en la funcion

ReadPrivateKey

, Funcion:

Código PHP:

function ReadPrivateKey(AFileName: string): pEVP_PKEY; 
  var keyfile: pBIO;     
  mx : pEVP_PKey;  
 begin     
   keyfile := BIO_new(BIO_s_file());   
   mx := nil;       
   BIO_read_filename(keyfile,PChar(AFilename));     
   result := PEM_read_bio_PrivateKey(keyfile,mx,nil,nil); 
end; 


Error:
me marca error en el begin antes de acceder al la primera linea de la funcion...
les dejo la cadena por si alguien quiere hacer la prueba y si ya encontrarón una solución me harian un gran favor si la postean...
Nota: Ya descargue la nueva version de la libreria OpenSSL junto con el Microsoft Visual C++ 2008 Redistributable y ni asi.
Nota: Si a la siguiente cadena le quito nose algunos 7 u 8 conceptos no me marca el error, entonces por ahi viene el error en la longitud de la cadena :S.
Gracias...

Cadena Original: Es de prueba

Si hay un bug en la rutina del sello. Solo tienes que hacer el buffer mas grande, quedaria asi :

Código Delphi [-]
function CalculaSello(llaveprivada,cadenaoriginal: string): string;
var inbuf: array [0..8192] of char; //AQUI AUMENTAMOS EL BUFFER PARA PASAR CADENAS MAS GRANDES
 outbuf: array [0..1024] of char;
 key: pEVP_PKEY;
 mdctx: EVP_MD_CTX;
 Len: cardinal;
begin
 StrPCopy(inbuf,cadenaoriginal);
 key := ReadPrivateKey(llaveprivada);
 EVP_SignInit(@mdctx,EVP_md5());
 EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf));
 EVP_SignFinal(@mdctx,@outbuf,Len,key);
 result := BinToBase64(@outbuf,Len);
end;