FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Si tienes razon solo funciona la primera vez. Estoy viendo si con este otro codigo que encontre se corrije si quieres puedes probarlo tambien.
http://stackoverflow.com/questions/1...ning-to-delphi Saludos |
#2
|
|||
|
|||
Anexo una modificación al código enviado en donde puedes obtener varias veces el sello al limpiar bien la memoria y puedes también obtener los datos del certificado.
Ojalá sea de utilidad |
#3
|
||||
|
||||
Factura digital traerá problemas para contribuyentes: AMECE
A partir del primer minuto del próximo año todas las empresas y personas físicas que realicen una transacción superior a los 2 mil pesos tendrán que expedir facturas digitales. Más información aquí |
#4
|
||||
|
||||
Cadena Original
Que tal uamero, me llama la atención la manera en que generas la cadena original. Mira, con C# la genero con la siguiente función:
Código:
public string GeneraCadenaOriginal(string nombreArchivo) { string cadenaOriginal = ""; string fileXSLT = System.IO.Path.Combine(Directory.GetCurrentDirectory(), "cadenaoriginal_2_0.xslt"); // @"http://www.sat.gob.mx/sitio_internet/cfd/2/cadenaoriginal_2_0/cadenaoriginal_2_0.xslt"; string newFile = System.IO.Path.GetTempFileName(); try { XslCompiledTransform xsl = new XslCompiledTransform(); xsl.Load(fileXSLT); xsl.Transform(nombreArchivo, newFile); xsl = null; StreamReader streamReader = new StreamReader(newFile); cadenaOriginal = streamReader.ReadToEnd(); streamReader.Close(); } catch (Exception) { throw; } finally { // Eliminamos el archivo System.IO.File.Delete(newFile); } return cadenaOriginal; } Bueno, la pregunta es ¿de puritita casualidad no has encontrado algo acerca de como transformar el XML en la cadena original utilizando el archivo XSLT para ello? Por cierto, lo que expones acerca de como el componente TXMLDcument te genera las entidades ya lo comprobé y si que te saca de apurototote. Aún así me gustaría encontrar la manera de generar la cadena original con una transformación ¿Alguien sabe como hacer esta transformación? Saludos y excelente trabajo uamero.
__________________
Tiempo y ocasión acontecen a todos! |
#5
|
|||
|
|||
Hola, revisa el anexo 20
Hola, revisa los requerimientos en el SAT.
Es necesario generar un movimiento contable, entre muchas otras cosas, por lo demas, tu trabajo no ha sido en vano. Gracias. Última edición por nejamube fecha: 19-04-2010 a las 02:28:15. Razón: Falta de enlaces que demuestren el comentario |
#6
|
||||
|
||||
Que tal uamero, me preocupé cuando leí tu último post pero luego me puse a leer ese artículo y me encuentro que los contribuyentes que así lo soliciten podrán generar sus propios comprobantes fiscales digitales con sus propios medios informáticos, con un proveedor externo de ste servicio o mediante el servicio que el sat ofrecerá. Si optas por generarlos tu, solo debes cumplir con los requisitos establecidos por el sat para que tus comprobantes sean válidos.
En otras palabras, tu trabajo SI sirve siempre y cuando tu empresa vaya a generar por si misma sus propios CFD's. Esto viene en la fracción VII de ese artículo. Cabe comentar que todo el texto que proporcionan al respecto siempre vienen muy rebuscados y nada claros, pero en ningún caso indica que solo el sat vaya a proporcionar los folios o sellos. Saludos, y estamos al pendiente de lo que aquí se vea.
__________________
Tiempo y ocasión acontecen a todos! Última edición por nuk3zito fecha: 19-04-2010 a las 17:17:18. |
#7
|
|||
|
|||
uamero que paso contigo?
uamero, necesito de favor tus post, ocupo de ellos ya que hasta el momento es la fuente de informacion mas propia que hay para solventar la facturacion electronica en Mexico para un desarrollador en Delphi.
No te rajes! |
#8
|
|||
|
|||
Podrias poner un ejemplo de como utilizar las funciones
Cita:
Gracias de antemano |
#9
|
|||
|
|||
Problemas con el Sello
Cita:
Ya revisé la cadena y está correcta, de hecho me genera el mismo MD5 que genera el validador del SAT. Alguien ha validado los .xml con el Sello?? . Las rutinas que utilizo son las siguientes... Código:
function SelloDigital(llaveprivada, cadenaoriginal: widestring): String; var Len : cardinal; mdctx : EVP_MD_CTX; inbuf : array [0..8192] of char; outbuf : array [0..1023] of char; key: pEVP_PKEY; begin cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#13,''); cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#10,''); cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#8,''); cadenaoriginal := AnsiReplaceStr(cadenaoriginal,' ',''); cadenaoriginal := AnsiReplaceStr(cadenaoriginal,' |','|'); cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'| ','|'); cadenaoriginal := UTF8Encode(cadenaoriginal); StrPCopy(inbuf,cadenaoriginal); InitOpenSSL; key:=LoadPrivateKey(llaveprivada,''); // EVP_MD_CTX_init(@mdctx); EVP_SignInit(@mdctx,EVP_md5()); EVP_SignUpdate(@mdctx,@inbuf,Length(inbuf)); EVP_SignFinal(@mdctx,@outbuf,Len,key); // EVP_MD_CTX_cleanup(@mdctx); EVP_PKEY_free(key); FreeOpenSSL; result := bintobase64(@outbuf,Len); end; |
#10
|
|||
|
|||
Factura Electronica Validada en SAT
Cita:
Ya pude validar el XML completo en el Validador del SAT, la rutina que está mal es: Código:
EVP_SignUpdate(@mdctx,@inbuf,Length(inbuf)); debe ser EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf)); Les comento que use el XML Data Binding con Delphi 7 generandolo a partir el archivo cfdv2.xsd del SAT solo requiere un truco para dar de alta los nameSpace adicionales, ya que el XML Data Binding solo puede dar de alta uno. Claro que se puede generar el XML a mano a través del XMLDocument directamente. El truco es : Código:
const // Esta cabecera es necesaria como primer renglón del archivo XML // y no se da de alta a traves del XML Data Binding. CabezaXML = '<?xml version="1.0" encoding="UTF-8"?>'; var Nodo : IXMLNode; S : String; i : integer; Cadena : wideString; begin // donde esté nuestra llave privada ya en formato .pem.... PuKey := 'C:\...\Factura Electronica\...\aaa010101aaa.cer.pem'; XMLFactura := GetComprobante(XML1); // Alta de los nameSpace faltantes... Nodo := XML1.DocumentElement; Nodo.Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance'; Nodo.Attributes['xsi:schemaLocation'] := 'http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd'; with XMLFactura do begin Version := '2.0'; ... // Generar la Cadena y luego el Sello XMLFactura.Sello := SelloDigital(PrKey,Cadena); XML1.XML.Insert(0,CabezaXML); // Generamos el archivo Fact1.XML -- cambiar el nombra al necesario. // así com el directorio de datos donde guardamos los XML XML1.Active := True; XML1.SaveToFile('C:\...\Factura Electronica\XML\Fact1.xml'); end; Saludos y mucha suerte... |
#11
|
|||
|
|||
Hola ifarias, mi solucion es muy parecida a la tuya y me permito hacerte una recomendacion.
El Data Binding del cfdv2.xsl se genera muy bien pero aveces resulta que, por ejemplo, el cliente NO tiene "Numero Interior" o "Colonia" es por eso que en la unidad cfdv2.pas te recomiendo hacer una busqueda y remplazo de : Buscar : SetAttribute( Remplazar por : if Value <> '' then SetAttribute( entonces, por ejemplo, la rutina que graba el "Numero Exterior" quedaria asi :
Eso te garantiza que no se vayan a grabar datos nulos o vacios, algo que por cierto no le gusta al validador...... Hay dos valores tipo integer, noAprobacion y anoAprobacion (sic), esos tienes que usar
Tambien me permito mostrar como yo solucione los namespace extra, algo que no me deja muy convencido de tu solucion es que creas otro nodo, rompiendo un poco con el pragma del encapsulado que te da el data binding.
|
#12
|
|||
|
|||
En el mensaje anterior estaba tratando de introducir el siguiente codigo :
XMLDoc.XML.Text := '<?xml version="1.0" encoding="UTF-8" ?><Comprobante xmlns="http://www.sat.gob.mx/cfd/2"></Comprobante>'; XMLDoc.Active := True; CFD := GetComprobante(XMLDoc); with CFD do begin SetAttribute('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance'); SetAttribute('xsi:schemaLocation','http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd'); Version := '2.0'; Serie := ...........etc.................. Pero parece que el parser no lo interpreto bien........Saludos |
#13
|
|||
|
|||
dado
Gracias por los comentarios, los tomaré en cuenta. En cuanto a generar un Nodo adicional, la realidad es que me estoy posicionando en el nodo <Comprobante> que es el raíz en ese momento, (para mi desarrollo), y agrego atributos adicionales. Esto da como resultado el siguiente código XML Código:
<Comprobante xmlns="http://www.sat.gob.mx/cfd/2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd" version="2.0" serie= .... En cuanto al XML Data Binding, tienes toda la razón, es buena idea prevenir el que se generen datos nulos, y que fácil es que cometamos errores al codificar y tener problemas posteriores. |
#14
|
|||
|
|||
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... |
#15
|
|||
|
|||
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 |
#16
|
|||
|
|||
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. |
#17
|
|||
|
|||
Cadena Original
Muchas Gracias.
Última edición por nejamube fecha: 03-05-2010 a las 20:00:58. Razón: C++ |
#18
|
||||
|
||||
Cita:
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.
__________________
Tiempo y ocasión acontecen a todos! |
#19
|
|||
|
|||
Cita:
|
#20
|
||||
|
||||
Cita:
__________________
Tiempo y ocasión acontecen a todos! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Mexico - Como crear sellos en FACTURA ELECTRONICA.. | pcicom | API de Windows | 12 | 10-11-2012 18:46:55 |
Factura Electrónica | aig | Varios | 13 | 10-12-2010 17:12:44 |
factura electronica | cmm07 | Varios | 4 | 02-04-2009 17:46:03 |
factura electronica | spia | Varios | 2 | 22-02-2009 21:30:06 |
Factura electronica AUNA | Aprendiz | Varios | 5 | 01-09-2005 10:44:15 |
|