Factura Electronica México

[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.

[jourdan]

La FEA y Firma electronica avanzada es lo mismo y te sirve entre otras cosas para solicitar los folios que vas a usar para elaborar tus comprobantes fiscales digitales
Saludos

[dado]

Empezado por 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.

La FEA y la FIEL son lo mismo, solo le cambiaron de nombre, como cuando cambiaron la "CIE" (Clave de identificacion electronica) por la "CIEF" (clave de identificacion electronica fuerte)

No es necesario estar dado de alta para programar la factura electronica, el SAT ofrece certificados de prueba con sus respectivas llaves para que los desarrolladores puedan hacer pruebas.

[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 nuk3zito

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

Solo quisiera aclarar este dato y es que considero que tratandose de SISTEMAS DE SEGURIDAD hay que saber bien que es que.

Es correcto, la clave (de 8 digitos o mas) que uno proporciona sirve para abrir la llave privada (esto es, el archivo que tiene extension *.key).

Esta llave privada (*.key) es la que se usa para sellar cualquier documento digase factura electronica o cualquier otra cosa. Este archivo DEBEN GUARDARLO MUY BIEN, es super privado.

El Certificado (archivo con extension *.cer) SE ABRE SIN NECESIDAD DE CLAVES NI NADA, es mas, si le dan doble clic podran ver que Windows abre el certificado y les muestra mucha informacion interesante.

El CERTIFICADO ES PUBLICO, pueden darselo a quien lo solicite, lo unico que viene dentro del certificado son : fechas de vigencia, el emisor, la empresa a la que se le otorgo y la LLAVE PUBLICA.

Dentro del CERTIFICADO PUBLICO esta la LLAVE PUBLICA, esta SOLO SIRVE para verificar que la cadena origial y el sello "empaten".

Espero no haberlos hecho mas bolas.....

[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;