Factura Electronica México

[felipep]

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

[mesquivelh]

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.

[nejamube]

Muchas Gracias.

[nuk3zito]

Empezado por mesquivelh

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.

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]

Empezado por nuk3zito

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.

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

[nuk3zito]

Empezado por felipep

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.

[nuk3zito]

Empezado por mesquivelh

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.

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.

[felipep]

Empezado por nuk3zito

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

[dado]

Empezado por felipep

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

Veo que hay mucha confusion con los caracteres raros que aparecen en la cedena original.

Em MUY IMPORTANTE que la cadena original tenga esos caracteres raros, esa es la codificacion UTF8 a la que se refiere el Anexo 20, ES INDISPENSABLE sellar la cadena original con esos caracteres.

Ahora, para mostrar la cadena de forma "normal" lo que tienen que usar es por ejemplo :

Memo1.Text := UTF8Decode(CadenaOriginal);

Esto es, cuando vayan a mostrar / imprimir /grabar la cadena hay que Decodificarla

[wallamx]

Empezado por felipep

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

Mil gracias Funciona de maravilla