Foros Club Delphi - Factura Electronica México

Página 13 de 23

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Factura Electronica México (https://www.clubdelphi.com/foros/showthread.php?t=66807)

JXJ	08-10-2010 00:22:16

Cita:

Empezado por Rom@n (Mensaje 377331)

Hola quetal programadores quiero aportar un poco al tema de facturacion electronica voy a explicar brevemente este codigo esperando que le sirva a mas de uno:
1:Primero Busco con dialogExecute el archivo .cer
2:ejecuto el openssl con shellexecute y paso los parametros para convertir a formato pem y creo un archivo de texto.
3:con una funcion de escaneo busco la palabra not after y copio solo la fecha con copy y la proceso para lograr un formato de echa valido
4:la funcion LongDateStrToShortDateStr me rotorna el numero de mes ya que en el archivo caduca aparece el mes abreviado ejem:ene,feb,mar....dic

Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn5Click(Sender: TObject);
var
Rutacerti,nombrecerti:string;
position: integer;
dia,mes,yy,h,m,s:string;
begin
if Opencerti.Execute then
begin
Rutacerti := Opencerti.FileName ;
if Rutacerti <> '' then
begin
nombrecerti:=ExtractFileName(opencerti.FileName);
CopyFile(PChar(rutacerti), PChar('C:\SAT\'+nombrecerti), false);
certi.Text:=nombrecerti;
ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -inform DER -outform PEM -in '+PChar('C:\SAT\'+nombrecerti)+' -out C:\SAT\'+nombrecerti+'.pem'),nil,SW_SHOW);
Sleep(1000);
ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -in C:\SAT\'+nombrecerti+'.pem -text -out C:\SAT\caduca.txt'),nil,SW_SHOW);
Sleep(1000);
//proceso para sacar la fecha de caducidad
position := ScanFile('C:\SAT\caduca.txt', 'Not After', true);
if position <> -1 then
begin
//showmessage(archivo_caduca);
dia:=Copy(archivo_caduca,17,2);
mes:=LongDateStrToShortDateStr(Copy(archivo_caduca,13,3));//(Copy(archivo_caduca,13,3)));
yy:=Copy(archivo_caduca,29,4);
h:=Copy(archivo_caduca,20,8);
if date>=strtodatetime(dia+'/'+mes+'/'+yy+' '+h) then
showmessage('Este certificado ya esta caducado:'+ dia+'/'+mes+'/'+yy+' '+h)
else
showmessage('Certificado Vigente hasta:'+ dia+'/'+mes+'/'+yy+' '+h);
caduca.DateTime:= strtodatetime(dia+'/'+mes+'/'+yy+' '+h);
end
else
begin
ShowMessage('No se econtro Fecha de caducidad (Not After)');
end;
end;
end//fin del dialog1 execute
else
begin
showmessage('no se ejecuto');
end;

cual es tu funcion

scanfile

JXJ	08-10-2010 01:37:17

Cita:

Empezado por JXJ (Mensaje 378727)

cual es tu funcion

scanfile

y tu funcion

LongDateStrToShortDateStr

JXJ	08-10-2010 20:43:59

Cita:

Empezado por JXJ (Mensaje 378731)

y tu funcion

LongDateStrToShortDateStr

unas dudas con este tema.

la fecha de validez del certificado.

¿como se traducen a un formato de fecha entendible''?
no se que es GMT

notBefore=May 3 19:07:59 2010 GMT

notAfter=May 2 19:07:59 2012 GMT

esta informacion la necesito ingrear a firebird
con el formato

dd/MM/yyy :

edgaronfo

09-10-2010 00:51:19

Lo estoy pasando a Delphi 2006

Morris, oye, ya te mandé mi correo por mensaje privado. Fíjate que nomás no he podido hacerlo funcionar en Delphi 2010 y ya lo estoy pasando a Delphi 2006, es que tengo que entregar avances y no he podido resolver ese problemita, que no es tan grande después de todo, pero que me limitaba un poquito.

Ahorita lo que me tiene preocupado es encapsularlo en una clase y subirlo a una DLL, pero mi cliente usa Visual Basic así que ya sabrás los líos en los que me tuve que meter para que se pudiera instanciar una clase en VB para un objeto en un DLL hecho en Delphi...

Pero : "El cliente siempre tiene la razón..."

Saludos!

p.d. ojalá me puedas mandar ese proyectito en Delphi 2010 para saber de una buena vez qué me está fallando, gracias!

edgaronfo

09-10-2010 00:56:20

Por cierto!

Por cierto! JXJ, GMT significa: Greenwich Mean Time, y aquí hay información de lo que es:

http://es.wikipedia.org/wiki/Tiempo_medio_de_Greenwich

Espero que te sea de utilidad, saludos!

Eina	12-10-2010 02:01:21

como la funcion Scanfile

Cita:

Empezado por JXJ (Mensaje 378727)

cual es tu funcion

scanfile

me prodrias ayudar, soy nueva en delphi, eh checado tu codigo, me parece bien, pero no entiendo la funcion de Scanfile, me podrias asignar tu codigo de Scanfile, estoy haciendo el sistema de facturacion electronica para mis residencia.

gracias

dado	13-10-2010 00:09:40

La funcion que publicaron para obtener el numero de serie del certificado y sus otros datos esta muy bien, solo que padece de un pequeño problema, hay que alimentar el certificado en formato PEM pero el SAT nos lo proporciona en formato DER.

Bueno, la pregunta es, alguien ha podido convertir de DER a PEM dentro de Delphi, sin usar el incomodo *.bat?

O reformulando la pregunta, alguien ha podido programar esto en delphi :

openssl x509 -inform DER -outform PEM -in aaa010101.cer

alexsazu

13-10-2010 01:31:50

Delphi

Ya casi tengo hecho el codgio para la generacion del Sello digital, si estan interesados. favor de comunicarse conmigo y ver la forma de pago para ver el archivo, lo tengo realizado en delphi 2010 y delphi 7

Recuerden solametne tengo la estructura de como generalrlo:

Codigo completo delphi:
Exportcion a XML.
generacion del Sello Digital
Cadena de certificacion..

Saludos

ContraVeneno

13-10-2010 01:54:30

Cita:

Empezado por alexsazu (Mensaje 379096)

...comunicarse conmigo y ver la forma de pago para ver el archivo...

no entendí... ¿cuál forma de pago?, no sabía que la forma de pago se involucraba en las facturas electrónicas, ¿que no son solo de "ingreso" o "egreso"?

sarcasmo sutil, o sutil sacarmos....

dado	13-10-2010 16:18:36

Cita:

Empezado por alexsazu (Mensaje 379096)

Mmmmh, talvez le compre sus rutinas, para ver como programo la "Cadena de certificacion", nunca habia oido de eso.....

Cita:

contrveneno dijo : sarcasmo sutil o sutil sarcasmo

alexsazu

13-10-2010 21:35:50

Todo se hace con el openssl,

bien los que esten interesados en ver mi codigo del programa en delphi 2010
sobre la factura electronica, pueden enviarme un correo privado

saludos

Casimiro Notevi

13-10-2010 21:44:01

Cita:

Empezado por alexsazu (Mensaje 379200)

Todo se hace con el openssl,
bien los que esten interesados en ver mi codigo del programa en delphi 2010
sobre la factura electronica, pueden enviarme un correo privado
saludos

Hola, alexsazu, esto es un foro público para ayudarnos entre todos, si pretendes enseñar código privadamente y cobrar por ello, eso es spam.
En clubdelphi no está permitido ese tipo de prácticas.

nuk3zito

14-10-2010 19:41:13

Cita:

Empezado por alexsazu (Mensaje 379096)

Saludos alexsazu.

Te recomiendo esta página que está buenísima y puede que encuentres eso que andas buscando:
Mercadolibre

Solo dale click al link y esto te llevará a otra página. Ahí hay un mundo de posibilidades para tí. Sería bueno que ahí fuera donde publicaras tu oferta.

Saludos!

nuk3zito

14-10-2010 19:45:33

Cita:

Empezado por ContraVeneno (Mensaje 379099)

no entendí... ¿cuál forma de pago?, no sabía que la forma de pago se involucraba en las facturas electrónicas, ¿que no son solo de "ingreso" o "egreso"?

Cita:

Empezado por dado (Mensaje 379148)

Mmmmh, talvez le compre sus rutinas, para ver como programo la "Cadena de certificacion", nunca habia oido de eso.....

Ahh! Es que eso viene en el Anexo 21, pero lo van a liberar en el 2012, creo que el 23 de Diciembre.

Hay que estar pendientes!

JXJ	21-10-2010 21:58:03

Cita:

Empezado por nuk3zito (Mensaje 379310)

Ahh! Es que eso viene en el Anexo 21, pero lo van a liberar en el 2012, creo que el 23 de Diciembre.

Hay que estar pendientes!

no encuentro la informacion del anexo 20 version 3 para los cfdi

y no se si existe un validador del sat para los cfdi

mi situacion es la de desarrollador de un software que ahora
es para version 2 del CFD que es un punto de venta

y que se tiene la intencion de venderlo a
pymes para que ellos generen sus propios CFDs v2 y
que en el 2011 generen segun la version 3.

en eso estoy ahora ¿donde hay el pdf con las instrucciones para la version 3
como existe la version pdf para la version 2 ?

nejamube

22-10-2010 17:20:22

Obtener la cadena original

Si alguien quiere obtener la cadena original de la forma correcta, aqui les dejo esta funcion:

Código Delphi [-]
uses XMLIntf,  MSXML,  XMLDoc,  msxmldom;

function CadenaOriginal(const xml, xsl : string ): string;var
  XMLDoc : IXMLDOMDocument;
  XSLDoc : IXMLDOMDocument;
  Template : IXSLTemplate;
  Processor : IXSLProcessor;
begin
  Result := '';
  try
    XMLDoc := CoFreeThreadedDOMDocument30.Create;
    XSLDoc := CoFreeThreadedDOMDocument30.Create;
    XMLDoc.load(xml);
    XSLDoc.load(xsl);
    Template := CoXSLTemplate30.Create;
    Template.stylesheet := XSLDoc;
    Processor := Template.createProcessor;
    Processor.input := XMLDoc;
    Processor.transform;
    result :=  Processor.output;
  finally
    XMLDoc := nil;
    XSLDoc := nil;
  end;
end;

nuk3zito

23-10-2010 01:12:16

Cita:

Empezado por JXJ (Mensaje 380081)

no encuentro la informacion del anexo 20 version 3 para los cfdi
...
en eso estoy ahora ¿donde hay el pdf con las instrucciones para la version 3
como existe la version pdf para la version 2 ?

Busca el Anexo 20 de la RMF publicado en el DOF del 23 de Septiembre del 2010.
Aunque ahí notarás que el xml no cambia de versión, ya menciona los CFDI y los cambios en el sellado, como por ejemplo usar el algoritmo SHA1 en lugar del MD5.

Saludos.

dado	24-10-2010 08:10:12

Acabo de liberar el ValidaCFD V0.1c programa para validar Facturas Electronicas.

Dentro de lo nuevo que trae es que ya valida CFD's firmados con SHA-1

Tambien valida, de forma limitada* los CFDI y genera un preview que se puede exportar a PDF y que incluye el Codigo de Barras Bidimensional (QR Code).

Como siempre lo pueden descargar libremente de www.validacfd.com

*Referente a que valida "de forma limitada" es porque no he obtenido suficientes muestras de CFDI para hacer pruebas y siendo el *unico* validador que existe para CFDI es dificil porque no puedo comparar resultados

ENVIENME SUS CFDI para hacer pruebas de validacion !!

lcarrasco

26-10-2010 00:52:15

Hola amigos, ya tengo algunas semanas viendo el codigo publicado aqui tan amablemente por todos ustedes.

Les comento que pronto liberare una libreria de clases de codigo abierto para que sea muy sencillo implementar la factura electronica en Delphi.

Les adelanto que despues de 4 dias y con la ayuda del creador de la libreria libeay32.pas logre hacer la digestion/hashing usando directamente el archivo .key (DER) que nos da el SAT, sin necesidad de convertir primero a PEM (aunque tambien logre eso, convertir el .key a .pem sin llamar a openssl.exe)

Pronto les paso la liga, solo quiero afinar los detalles para publicar algo de calidad (con pruebas de unidad, incluidas) y que sea un esfuerzo colaborativo para que todos se vean beneficiados y que tambien contribuyan los cambios que el mismo SAT vaya publicando.

juanelo

26-10-2010 01:12:09

Cita:

Empezado por dado (Mensaje 380263)

*Referente a que valida "de forma limitada" es porque no he obtenido suficientes muestras de CFDI para hacer pruebas y siendo el *unico* validador que existe para CFDI es dificil porque no puedo comparar resultados

Te comento que tu validador falla o manda un "error" falso al manejar el impuesto IEPS, es decir, te indica que el IVA no es correcto cuando si lo es, recuerda que se calcula como IVA = (subtotal + IEPS) * TasaIVA /100.
Saludos.

La franja horaria es GMT +2. Ahora son las 14:48:19.

Página 13 de 23

« Primero

Último »

Mostrar 40 mensajes desde este tema en una página