Factura Electronica México

[Rom@n]

Hola programadores de delphi, quiero aportar un poco al tema de facturacion electronica les explico brevemente el siguiente codigo:
1:busco con el opendialog execute el archivo .key
2:abro con shell execute opennssl y paso los parametros para crear el archivo .pem
3:el sleep esta dando 10 segundos para teclear el password que corresponde el sello, despues de poner la clave correcta te crea el archivo .pem

Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn4Click(Sender: TObject);
var
Rutasello,nombresello:string;
begin
if Opensello.Execute then
  begin
    Rutasello := Opensello.FileName ;
    if Rutasello <> '' then
    begin
      nombresello:=ExtractFileName(opensello.FileName);
      CopyFile(PChar(rutasello), PChar('C:\SAT\'+nombresello), false);
      sello.Text:=nombresello;
      ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('pkcs8 -inform DER -in '+PChar('C:\SAT\'+nombresello)+' -out C:\SAT\'+nombresello+'.pem'), nil, SW_SHOW);
      Sleep(10000);
    end;
  end//fin del dialog1 execute
  else
  begin
    showmessage('no se ejecuto');
  end;
end;

[nuk3zito]

Ps con la novedad de que el sat ya liberó su nuevo Anexo 20.

Búsquenlo para que vean las diferencias. Que jijos!


http://www.sat.gob.mx/sitio_internet...on/default.asp

[ContraVeneno]

mmkela, y yo que acabo de terminar de acomodar el formato anterior... ¿ahora tengo que hacer uno para las digitales?

shaaalee....


Pues parece que el más sencillo es el criptosys junto con firmasat... al menos de 10 que conozco, 8 lo están... estamos usando...

[nuk3zito]

Empezado por nuk3zito

Ps con la novedad de que el sat ya liberó su nuevo Anexo 20.

Búsquenlo para que vean las diferencias. Que jijos!


http://www.sat.gob.mx/sitio_internet...on/default.asp

Pues no hubo diferencias... o al menos no para los que ya emitimos CFD's. Los requerimientos "nuevos" son para los que emiten CFDI.
Saludos.

[edgaronfo]

Hola programadores y foreros, les envío un cordial saludo.
Este es mi primer post y antes que nada permítanme felicitarlos por el excelente trabajo que están haciendo en estos foros del clubdelphi.com ya que me han salvado incontables veces; pero en especial en este foro de las facturas electrónicas SAT, este foro me ha salvado la vida (bueno tal vez no tanto como la vida pero me ha dado una gran ayudadota): MUUUUCHAS GRACIAAAAAAS!!!!

Gracias al código que han puesto aquí estoy haciendo mi modulito de facturas electrónicas, si no, quién sabe si lo hubiera podido hacer. De nuevo muchas gracias.

Y me gustaría añadir mi granito de arena al tema, ya que yo tuve problemas para añadir los encabezados y el tipo de documento al documento xml y en estos foros leí un hilo que decía que tienes que respetar los namespaces del documento, y no fijarlo como atributo:

véase: Attributos fantasmas en nodos XML (www_clubdelphi_com/foros/showthread.php?t=40379)

y leyendo sus indicaciones llegué a esto:

procedure prepareSatXML(thisXMLDoc : TXMLDocument);
var CFD : IXMLComprobante;
begin
    thisXMLDoc.XML.Text := '';
    thisXMLDoc.Active := True;
    thisXMLDoc.Version := '1.0';
    thisXMLDoc.Encoding:='UTF-8';

    CFD := GetComprobante(thisXMLDoc);
    CFD.DeclareNamespace('xsi', 'http_//www_w3_org/2001/XMLSchema-instance');
    CFD.Schema:='http_//www_sat_gob_mx/cfd/2 http_//www_sat_gob_mx/sitio_internet/cfd/2/cfdv2.xsd';
    CFD.Version:='2.0';
end;

aunque para usar CFD.Schema tuve que hacer un poco más de argucias en el unit que me generó el delphi xml bind

Por cierto, primero use el xml binder para que delphi me generara una unidad de interface para manejar automáticamente el documento xml en el formato que pide hacienda como está ejemplificado arriba (IXMLComprobante).

Y luego use el TSXLPageProducer para que automáticamente me generara la cadena original (Ejemplo de TSXLPageProducer):

procedure TForm1.bttnCadenaOriginal1Click(Sender: TObject);
var xslt_source : string;
begin
  xslt_source := 'cadenaoriginal_2_0.xslt';
try
   XMLDoc.Active := False; // just in case
   XSLPageProducer1.FileName := xslt_source;
   XSLPageProducer1.XMLData := XMLDoc;
   XMLDoc.Active := True;
   Memo1.Text := XSLPageProducer1.Content; // Transform!!
 except
   on E: Exception do
     Memo1.Text := E.Message
 end;
end;

Y así dejas que delphi se haga bolas por tí, jejeje.
espero que sea de ayuda para alguien como lo fue para mí.

Entonces mis preguntas son:
De dónde obtienes NoAprobación y AnoAprobación ??

Y finalmente usando Sello.pas que bajas de este mismo hilo (muchísimas gracias felipep) puedes producir el sello, el certificado y el NoCertificado.

Y precisamente aquí es donde está mi última pregunta:
la función GetNoCertificado(const AFileName: string): string; de la unidad Sello.pas me regresa un string muy raro, así debe ser?
ejemplo de resultado:
〱〰㈱〰〰〰〰㈰㔲㜱圌¨
que cuando le hago: UTF8Decode(NoCertificado) me da:
??????????? (puros signos de interrogación)

Muchas gracias por su atención.


Saludos!

[ContraVeneno]

Empezado por edgaronfo

Entonces mis preguntas son:
De dónde obtienes NoAprobación y AnoAprobación ??

El número de aprobación y el año de aprobación, se te proporcionan cuando solicitas los folios. En el documento de solicitud de folios ahí encuentras estos datos. Obviamente esto se configuran junto con los folio.

[edgaronfo]

Empezado por ContraVeneno

El número de aprobación y el año de aprobación, se te proporcionan cuando solicitas los folios. En el documento de solicitud de folios ahí encuentras estos datos. Obviamente esto se configuran junto con los folio.

Ooooooh! osea que ese control lo tiene que llevar uno mismo, por decir, "manualmente"... oh! yo pensé que lo sacabas del certificado o de alguno de los archivos que te manda hacienda, qué burro! jajaja.

Ok, entonces uno debe llevar el control y debe saber el NoAprobacion y el AnoAprobacion.

Muchas gracias!

Entonces rápidamente, lo único que generas en el momento es:
1.-cadena original
2.-sello digital
3.-NoCertificado

verdad?

gracias!

[nuk3zito]

Empezado por edgaronfo

...
Y luego use el TSXLPageProducer para que automáticamente me generara la cadena original (Ejemplo de TSXLPageProducer):

procedure TForm1.bttnCadenaOriginal1Click(Sender: TObject);
var xslt_source : string;
begin
  xslt_source := 'cadenaoriginal_2_0.xslt';
try
   XMLDoc.Active := False; // just in case
   XSLPageProducer1.FileName := xslt_source;
   XSLPageProducer1.XMLData := XMLDoc;
   XMLDoc.Active := True;
   Memo1.Text := XSLPageProducer1.Content; // Transform!!
 except
   on E: Exception do
     Memo1.Text := E.Message
 end;
end;

Y así dejas que delphi se haga bolas por tí, jejeje.
espero que sea de ayuda para alguien como lo fue para mí.
...

Te la rifaste con ese código... yo no sabía como obtener la cadena original en Delphi (en C# no me dio nadita de problemas).

En serio, te agradezco el aporte. Solo me resta probarlo.

[edgaronfo]

Empezado por nuk3zito

Te la rifaste con ese código... yo no sabía como obtener la cadena original en Delphi (en C# no me dio nadita de problemas).

En serio, te agradezco el aporte. Solo me resta probarlo.

Gracias y de nada nuk3zito, sabía que a alguien le iba a ayudar, es mi pequeña aportación al foro que tanto me ha dado, a mí me sirvió muchísimo y te lo hace automático tal como hacienda te lo pide, tú mientras te dedicas a otras cosas, y además tiene la enorme ventaja que con los cambios que está haciendo hacienda, cuando salga la versión nueva del cadenaoriginal_2_0.XSLT nomás le cambias el archivo y listo!!!!

Saludos!

[nuk3zito]

Empezado por edgaronfo

Gracias y de nada nuk3zito, sabía que a alguien le iba a ayudar, es mi pequeña aportación al foro que tanto me ha dado, a mí me sirvió muchísimo y te lo hace automático tal como hacienda te lo pide, tú mientras te dedicas a otras cosas, y además tiene la enorme ventaja que con los cambios que está haciendo hacienda, cuando salga la versión nueva del cadenaoriginal_2_0.XSLT nomás le cambias el archivo y listo!!!!

Saludos!

Así es... conozco las bondades que esto ofrece pues lo uso en C#. En los primeros post que puse en este hilo yo solicitaba que alguien me ayudara a realizar esta "transformación" en Delphi (de hecho está en la primer página) pero no tuve éxito, aunque aún me sirve (y mucho) tu aporte, ya solo me queda probar aunque no tengo dudas de que esto vaya a funcionar bien.

Ahora me estoy metiendo en la onda de CFDI, a ver como me va con eso.

Saludos.