¿¿¿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??? :eek: :confused:

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! :mad:

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. :o

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.

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

Podrias poner un ejemplo de como utilizar las funciones
 

Hola, aprovechando, podrias poner un ejemplo de que funciones son las que hay que llamar y en que orden?

Gracias de antemano

Hola wallamx

Bienvenido a estos foros. Solo te comento que no por repetir tu mensaje vas a hacer que te contesten más rapido...

Te recomiendo que le des una leida a la Guía de Estilo de los foros...


Saludos...

Hola,

una vez obtenida la cadena, simplemente tienes que ejecutar las siguientes funciones:

//Obtiene el sello a partir de la cadena
Sello := SelloDigital('aaa010101aaa_CSD_01.key.pem',cadena);

//Obtiene el certificado (clave pública)
Certificado := LoadPublicKey('aaa010101aaa_CSD_01.cer.pem');

//Obtiene la serie del certificado
NoCertificado := GetNoCertificado('aaa010101aaa_CSD_01.cer.pem');

Todas las funciones están declaradas en el archivo que subí.

Saludos

Estimados:

Estoy estado trabajando con sus indicaciones, todas muy útiles, pero al generar mi cadena original me aparece así:

||2.0|A|1|2009-08-16T16:30:00|1|2009|ingreso|Una sola exhibición|350|5.25|397.25|ISP900909Q88|Industrias del Sur Poniente, S.A. de C.V.|Alvaro Obregón|37|3|Col. Roma Norte|México|Cuauhtémoc|Distrito Federal|México|06700|Pino Suarez|23|Centro|Monterrey|Monterrey|Nuevo Léon|México|95460|CAUR390312S87|Rosa María Calderón Uriegas|Topochico|52|Jardines del Valle|Monterrey|Monterrey|Nuevo León|México|95465|10|Caja|Vasos decorados|20|200|1|pieza|Charola metálica|150|150|IVA|15|52.5||

Como verán las vocales con acento no aparecen como tal, ¿me podrían orientar?, estoy trabajando con Delphi 2007 y los fuentes que publicaron felipep y uamero.

Cadena Original
 

Muchas Gracias.

Yo opté por cambiar las letras acentuadas porque tenía ese mismo problema.

La verdad, todo esto se resolvería si lográramos obtener la cadena original como Dios manda, es decir, usando la transformación del XML con el archivo XSLT que proporciona el sat para este fin pero sinceramente no pude más que haciendo una función en C#, la puse en una dll y ésta la mandaba llamar desde Delphi... pero no me gusta hacer las cosas así :( y me gustaría hacer todo esto con Delphi.

Si alguien sabe como hacer esta transformación con Delphi les estaré agradecido, ya que cualquier modificación que haga el sat a la generación de la cadena original repercutirá en cambios inminentes a nuestro código fuente si hacemos la cadena como indicaba el uamero, pero si generamos la cadena haciendo la transformación, entonces los cambios a nuestro código serían mínimos o nulos.

Felipep Milgracias
 

Mil gracias Funciona de maravilla

Utilizando directamente la cadena, con acentos y caracteres, mas los componentes XML de Delphi, con codificación UTF-8, se colocan automáticamente los caracteres especiales según las reglas del SAT y pasa perfectamente la validación

Mira, te comento el problema como es...
Yo utilizo el TXMLDocument y le digo que codificación usar, le envío los valores y todo y el documento SI SE GENERA BIEN.
Realmente el problema es cuando quiero mostrar el contenido del XML digamos en un TMemo... ahí es donde el componente ya no respeta esos acentos y los cambia.

No es tan grave el asunto en si, solo que los dueños del sistema quieren ver todos los pasos que realiza el software para el sellado de un documento, y pues por eso opté por eliminar los acentos (para poder usar el TMemo), más solo lo eliminé provisionalmente, pues lo restauraré cuando ya no sea necesario mostrar los pasos uno a uno.

De casualidad ¿Sabrás como mostrar correctamente el xml en algún componente? Esto es todo el problema, pero si no lo mostrará, todo estaría OK.

Saludos y gracias de antemano.

Si no la muestras en un componente, todo estará bien! El problema lo tengo yo que por ahora tengo que mostrar el contenido del xml.

Quítenle solamente la instrucción UTF8Encode. no es necesaria

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

Error en key:=ReadPrivateKey(llaveprivada);
 

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 , Funcion:
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

Agradecimiento
 

Muchas Gracias.

RE: Sello digital alterado
 

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;

Agradecimiento
 

Muchas gracias.