Factura Electronica México

[nuk3zito]

Que tal dado, yo obtuve la misma información que tu obtuviste pero pues ya no quise contradecir más a nejamube porque pues el mismo SAT se hace bolas el solito y la verdad nada está escrito.
Lo que es un hecho y que nos salva es, el que quiera entrarle a las CFD's, que lo haga ya en este año, porque iniciar apenas para el siguiente va a estar más complicado el asunto.
Dentro de las reformas de esto de la factura electrónica, está la manera en que los xml's deben almacenarse, pues recientemente en un anteproyecto le agregaron a una frase una simple palabrita ("después") que cambia todo un esquema de como deben almacenarse los xml's en tu empresa. Lo que intento decir con esto es que el SAT como dice una cosa dice otra, y en este sentido prefiero confiar en expertos en la materia para que me diga "lo que el SAT quizo decir fue...". Así que preocupado no estoy, pues el desarrollo en que se le ha invertido tiempo sigue vigente para el 2011. Ya después veremos.

En todo este embrollo puedo decir que "Las reglas cambian para los que no han empezado a utilizarlas" pues el simple hecho de inciar con CFD's ya es un cambio radical en una empresa. Los demás, seguimos igual hasta que tengamos que añadir el BarCode de dos dimensiones que indica el SAT y las nuevas propiedades en el xml.

Saludos.

[[AzidRain]]

De acuerdo contigo dado, es lo que finalmente salió, al principio de habló de hologramas pero quedó en códigos de barra 2D que se pueden pegar a cualquier papel para hacerlo en automático un comprobante fiscal (siempre que no rebase los 2,000 pesos).

el link del proveedor que encontre que da servicio ya sea web, api o conector es buzón fiscal,aunque el SAT tiene listados otros 21 proveedores autorizados.

Mi querido nejamube, tu link es de la miscelánea del 2007. Por otro lado no hemos mencioando (para que les digan a sus clientes) que todos los contribuyentes del régimen general de ley que se encuentren dictaminados podrán optar por emitir CFDs o comprobantes en papel.

Por ciertor y sin que suene a comercial, los de buzón fiscal dan asesoría y lo necesario para conectar aplicaciones ya hechas con su servicio y de hecho creo que es lo que mejor hacen. Los otros proveedores que he revisado sirven bien pero para pequeños volúmenes de facturación. NO olvidemos que hay la obligación de registrar lo facturado directamente en contabilidad electrónica.

[dado]

nuk3zito

Es correcto lo que dices, pero fijate, por pimera vez ya pasamos de "se dice por ahi..." a un Anteproyecto publicado en la pagina OFICIAL del SAT, eso ya es un avance ENOOORME.

Ahora, en otro foro (el mio...je je je) comentabamos que el SAT esta "del tingo al tango" y no da una.

Hay que reconocer que para el SAT la presion es mucha, incluso se comento que el "Esquema 2010" va a durar por lo menos todo el 2011 debido a las presiones por parte de la iniciativa privada para "desquitar" lo invertido, o como dicen los expertos, para que se cumple el Retorno de la Inversion.

[nejamube]

Claramente en el utlimo parrafo dice que durante el primer semestre del 2011, en ninguna parte dice que todo el 2011, creo que algunas personas interpretan o entienden mal las cosas, o las entienden como los conviene o les gustaria que fuera.



http://www.sat.gob.mx/sitio_internet.../66_18807.html



Lo anterior implica que para quienes ya optaron u opten por el uso de la facturación electrónica hasta diciembre de 2010, se les respetará el uso de los modelos vigentes, considerando, además, que los contribuyentes que emiten facturas electrónicas a través de proveedores actuales podrán seguir operando esté esquema, durante el primer semestre de 2011.

[dado]

Empezado por nejamube

Claramente en el utlimo parrafo dice que durante el primer semestre del 2011, en ninguna parte dice que todo el 2011, creo que algunas personas interpretan o entienden mal las cosas, o las entienden como los conviene o les gustaria que fuera.



http://www.sat.gob.mx/sitio_internet.../66_18807.html



Lo anterior implica que para quienes ya optaron u opten por el uso de la facturación electrónica hasta diciembre de 2010, se les respetará el uso de los modelos vigentes, considerando, además, que los contribuyentes que emiten facturas electrónicas a través de proveedores actuales podrán seguir operando esté esquema, durante el primer semestre de 2011.

Mi estimado nejamube, porque siento que incluso te molesta cuando te corregimos ??

Ok. Dice textualmente :

Lo anterior implica que para quienes ya optaron u opten por el uso de la facturación electrónica hasta diciembre de 2010, se les respetará el uso de los modelos vigentes, considerando, además, que los contribuyentes que emiten facturas electrónicas a través de proveedores actuales podrán seguir operando esté esquema, durante el primer semestre de 2011.


".....LOS CONTRIBUYENTES QUE EMITEN F.E. ATRAVEZ DE PACFD...", es decir, atravez de terceros autorizados.

Para los MEDIOS PROPIOS se puede usar durante todo el 2011.

Ahora, te explico, porque los que usan PACFD lo van a poder hacer "durante el 1er semestre del 2011", bueno, porque los PACFD VA A DESAPARECER !!!

SI, como lo oyes, desaparecen los PACFD y APARECEN los PAC (Proveedor Autorizado de Certificacion), ahora, donde esta el truco? bueno los MISMOS PACFD se va a adaptar para ser PAC y les estan dando ese chance hasta mediados del 2011.

Aqui esta el dicho que dice :

Si antes del 1° de enero de 2011 optó por emitir factura electrónica utilizando sus propios medios, podrá seguir utilizando este esquema durante 2011 manteniendo sus mismos procesos para obtener series, folios y presentación reportes mensuales

Y si, si es a mi conveniencia, al igual que todos los desarrolladores de CFD que estan facturando actualmente..........


Saludos,

[dado]

NOTICIA IMPORTANTE:

PASEN LA VOZ!!!

VA A CAMBIAR LA FORMA DE GENERAR EL SELLO.

En el anteproyecto del Anexo 20 menciona que ahora el Sello Digital debera usarse SHA-1 , YA NO ES MD5, ahora va a ser SHA-1

Dice en la Seccion I inciso C):

Los algoritmos utilizados en la generación de un sello digital son los siguientes:

SHA-1, que es una función hash (digestión, picadillo o resumen) de un solo sentido tal que para cualquier entrada produce una salida compleja de 160 bits (20 bytes) denominada "digestión".

Ahora, recuerden, esta en anteproyecto, todavia puede cambiar.[/font]

[[AzidRain]]

En efecto dado, los PACFD se convertiran en PAC, de hecho muchos ya están trabajando en esa trancisión. Se dice que con la figura de PAC será mas sencillo hacerlo por medios propios pues ya solo le mandas al PAC la factura que puede ser en un formato de archivo x, y o z (no necesariamente xml) y el PAC lo formatea y certifica regresándote el comprobante fiscal ya en su formato digital.

[nuk3zito]

Empezado por dado

NOTICIA IMPORTANTE:

PASEN LA VOZ!!!

VA A CAMBIAR LA FORMA DE GENERAR EL SELLO.

En el anteproyecto del Anexo 20 menciona que ahora el Sello Digital debera usarse SHA-1 , YA NO ES MD5, ahora va a ser SHA-1

Dice en la Seccion I inciso C):



Ahora, recuerden, esta en anteproyecto, todavia puede cambiar.[/font]

Abrá que esperar el "Nuevo Anexo 20", y supongo que el CFD cambiará de versión.

[nuk3zito]

Empezado por nejamube

...
creo que algunas personas interpretan o entienden mal las cosas, o las entienden como los conviene o les gustaria que fuera.

Por eso digo yo: eso de entender los puntos y las comas se lo dejo a los expertos. Tu deberías hacer lo mismo pues tienes muchas confusiones. No dejes que el SAT se salga con la suya, mejor apóyate en alguien más.

Saludos.

[Rom@n]

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;

[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.