Factura Electronica México

[felipep]

Yo guardé el post de uamero para futura referencia

Se los anexo en dydtelcom.com/foro.zip

[nuk3zito]

¿¿¿Osea! Eliminaron los post's del usuario uamero aunque no tuvieran nada que ver con el "incidente" de la acusación que hizo de plagio a Caral???

Pero que falta de... sentido común de parte de quien lo haya hecho!!!

Es cierto que el tipo es un engreído o como lo quieran ver... pero los posteos en este hilo eran de bastante utilidad y a decir verdad, solo él ha aportado algo útil en este tema de la facturación digital.

Estamos muy mal con esto señores!

[Casimiro Notevi]

Los ha borrado él mismo.
uamero ha borrado sus mensajes.
Nadie le ha dicho nada, estábamos esperando una disculpa para Caral, nada más.

[nuk3zito]

Empezado por Casimiro Notevi

Los ha borrado él mismo.
uamero ha borrado sus mensajes.
Nadie le ha dicho nada, estábamos esperando una disculpa para Caral, nada más.

OK Casimiro...

No me queda otra más que mostrar mi carota y ofrecer una disculpa a quien haya yo acusado con este mensaje.

De cualquier manera y siendo honesto, las soluciones en cuanto a este tema estaban a medias, pues estaba usando un truquito para salir del problema y solo utilizaba Delphi como un cascaron, pues el fuerte de todo el relajo lo hacía OpenSSL. Yo espero no tener problemas en la empresa y postear algo del trabajo que yo he realizado al respecto.

Gracias, una disculpa y un saludo a todos.

[Casimiro Notevi]

No pasa nada, todos nos equivocamos a veces
Espero que entre todos se pueda sacar una solución para la factura electrónica.

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

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

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

[vieckthor.fox]

Empezado por felipep

Yo guardé el post de uamero para futura referencia

Se los anexo en dydtelcomDOTcom/foroDOTzip

Ya lo bajé, pero NO lo pude leer.

Gracias de antemano por el aporte!