Foros Club Delphi

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 16-02-2011 01:53:39

Cita:

Empezado por jzginez (Mensaje 391069)
hola amigos estoy muy perdido en esto de la facturación electronica, el caso es que hace ya varios años para un agencia de motos donde trabaje hice un sistema de facturación y es la fecha en que me acaban de buscar para ampliarle la posibilidad de la factura electrónica pero hasta donde entiendo de lo que todos ustedes comenta ya no vale la pena porque hay que hacerlo a travez de un tercero, esto apreciación es correcta?

gracias

Si por que en el 2010 todavia lo podias hacer sin enviar el xml
a el PAC
en el 2011 entro la ley para que todos los que no se cambiaron al modelo
de facturacion electronica de manera voluntaria
en el 2010 ahora el modelo es con un tercero que te timbrara y hara
el envio de el reporte mensual al SAT

es mas trabajo por que hasta ahora hay poca informacion y los PAC
no son claros en sus metodos.

nuk3zito 16-02-2011 16:31:28

Anexo 20
 
Raza, ¿alguien sabe si hay algún Anexo 20 más reciente que el que se emitió el 23 de Septiembre de 2010?
Anexo20_23sep10.doc

De antemano agradezco su respuesta.

Saludos a todos.

JXJ 16-02-2011 22:26:06

Cita:

Empezado por nuk3zito (Mensaje 391143)
Raza, ¿alguien sabe si hay algún Anexo 20 más reciente que el que se emitió el 23 de Septiembre de 2010?
Anexo20_23sep10.doc

De antemano agradezco su respuesta.

Saludos a todos.

no hay mas reciente.
el de 23 de septiembre es la base

gmontes 23-02-2011 05:14:55

me comentan que tambien debemos reportar al sat las facturas impresas junto con los cfd.


Requisitos para uso simultáneo de comprobantes
I.2.11.8. Para los efectos del artículo 42, fracción II del Reglamento del CFF y Décimo, fracción II de las Disposiciones Transitorias del CFF, del “Decreto por el que se reforman, adicionan y derogan diversas disposiciones de las Leyes del Impuesto sobre la Renta, del Impuesto a los Depósitos en Efectivo y del Impuesto al Valor Agregado, del Código Fiscal de la Federación y del Decreto por el que se establecen las obligaciones que podrán denominarse en Unidades de Inversión; y reforma y adiciona diversas disposiciones del Código Fiscal de la Federación y de la Ley del Impuesto sobre la Renta, publicado el 1 de abril de 1995”, publicado en el DOF del 7 de diciembre de 2009, los contribuyentes que hubieran optado por emitir CFD podrán seguir utilizando comprobantes impresos en establecimientos autorizados y emitirlos simultáneamente, sin que sea necesario que dictaminen sus estados financieros, siempre que incluyan en el reporte mensual que establece la regla II.2.23.4.1., fracción IV los datos de los comprobantes fiscales impresos siguientes:
I. RFC del cliente. En el caso de que amparen operaciones efectuadas con el público en general o con residentes en el extranjero que no se encuentren inscritos en el RFC, éstas se podrán reportar, utilizando el RFC genérico a que se refiere la regla I.2.23.4.2.
II. Folio del comprobante y en su caso serie.
III. Número y año de aprobación de los folios.
IV. Monto de la operación.
V. Monto del IVA trasladado.
VI. Estado del comprobante (cancelado o vigente).
VII. Números de pedimento.
VIII. Fechas de los pedimentos.


hasta hoy me entere :(

ContraVeneno 23-02-2011 16:16:04

así es, si el contribuyente decide que quiere hacer facturas digitales y tambien utilizar facturas pre-impresas, deberá reportarlas ante el SAT...

lo que me hace dudar sobre cómo van a controlar las preimpresas.... se supone que TOOOOOOODDDDOOOOO este rollo de las facturas electrónicas era para que se dejaran de usar las pre-impresas... pero pues que dice su mamá que siempre no.

nejamube 14-04-2011 03:20:46

Cbb - Qrcode - Dll
 
En el siguiente post se encuentra una DLL para generar los QRCODE.

http://www.clubdelphi.com/foros/show...2&postcount=11

ronco88 25-08-2011 02:28:23

Addenda de Qualitas
 
Alguien me puede ayudar con la Addenda de Qualitas, debido a que cuando la genero me marca un Error: cvc-complex-type.2.4.c: The matching wildcard is strict, but no declaration can be found for element 'ECFD y quisiera ver que es lo que tengo mal

PD mesquivelh tu haces mencion de que tienes la Addenda AMIS, me podrias ayudar

Rom@n 30-08-2011 00:43:50

ya conocen CiberSAT, recomendado para el CFDI cualquier lenguaje
 
Hola espero no sea tarde aun para los desarrolladores que siguen buscando como timbrar, firmar, consumir webservice,gera codigo de barras bidimencional hace todo.. les recomiendo que utilicen estas DLLs, echenle un vistazo haber si los convence yo las utilizo con delphi 2010 y actualmente conecta con los principales PACs ademas de todo se pueden utilizar en casi todos los lenguajes, en delphi funciona perfecto..

http://ciber-tec.com/CiberSAT/

ahi van a encontrar descargas de demos muy faciles de implementar va a ser minimo el esfuerzo., espero les sirva., suerte

JXJ 17-10-2011 23:41:13

Cita:

Empezado por nejamube (Mensaje 380159)
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;

:)

hola carnal. trate e hacer esa funcion con delphi 7
y no me funciono. al querer usar á í &
se muestra
|||

¿que sera?

JXJ 17-10-2011 23:45:00

ya vi que con el uso de &
es cuando se truena. si lo lleva el nombre del emisor

sigo revisand osi en alguna otra parte se truena.

usando delphi 7 y msxml

ContraVeneno 18-10-2011 00:22:03

recuerda que para los caracteres especiales en el XML (como el &) hay que poner el código correspondiente, no puedes poner el & así como va.

JXJ 18-10-2011 04:34:03

Cita:

Empezado por ContraVeneno (Mensaje 415932)
recuerda que para los caracteres especiales en el XML (como el &) hay que poner el código correspondiente, no puedes poner el & así como va.

es cierto.


yo pense que el msxml lo converti por si mismo pero no. este si requiere
de que lo pongas explicitmente.

par la &
poner

&

me confundi por que los acentuados si se los traga bien. ni chista


gracis.

JXJ 18-10-2011 04:57:31

Cita:

Empezado por Rom@n (Mensaje 410415)
Hola espero no sea tarde aun para los desarrolladores que siguen buscando como timbrar, firmar, consumir webservice,gera codigo de barras bidimencional hace todo.. les recomiendo que utilicen estas DLLs, echenle un vistazo haber si los convence yo las utilizo con delphi 2010 y actualmente conecta con los principales PACs ademas de todo se pueden utilizar en casi todos los lenguajes, en delphi funciona perfecto..

http://ciber-tec.com/CiberSAT/

ahi van a encontrar descargas de demos muy faciles de implementar va a ser minimo el esfuerzo., espero les sirva., suerte

ahi el que quiera ahi tengo 3 llaves para que lo usen.

aclaro se compraron 5 pero solo se usaron 2. se las puedo dejar mas barato de lo que me costaron.
mandeme un pm.
ya no las vamos a usar.

Draker 03-12-2011 22:44:11

Buenas tardes banda, es mucha "chuches" de mi parte pero alguien tendria la amabilidad de compartirme algunas notas de credito) (por devolucion, por descuento, etc), ya que mi no entender aun como iran los conceptos, y los detalles del xml.

De antemano mil gracias....

Casimiro Notevi 03-12-2011 22:51:04

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

nuk3zito 22-05-2012 17:05:47

Cita:

Empezado por ronco88 (Mensaje 410061)
Alguien me puede ayudar con la Addenda de Qualitas, debido a que cuando la genero me marca un Error: cvc-complex-type.2.4.c: The matching wildcard is strict, but no declaration can be found for element 'ECFD y quisiera ver que es lo que tengo mal

PD mesquivelh tu haces mencion de que tienes la Addenda AMIS, me podrias ayudar

Si quieres, envíame tu CFD y te indico que es lo que está mal. Yo manejo esa addenda. Si quieres por MP

aigartua 24-07-2012 18:13:57

aportando algo mas
 
Bueno me he leido todo el hilo, yo programo en Lazarus, y hace unos años realicé esta solución, es algo muy parecido a lo que han dicho por aqui, solo les paso la función que utilicé para realizar la digestion completa tanto en md5 o sha1 y pasarla a base64, parametro msg la cadena orginal, tipo es para indicar el tipo de digestion MD5 o SHA1, la llave esta en formato DER:
Código Delphi [-]
// Función para obtener el sello del documento según los requerimientos
// y especificaciones del SAT
// Equivale a:
// openssl dgst -md5 -sign llave.pem cadenaoriginal.txt | openssl base64 -A > sello.txt
function TFinterfaz.sello(msg,tipo: widestring): string;
var
  Len: cardinal;
  mdctx: EVP_MD_CTX;
  inbuf, outbuf: array [0..4095] of char;
  key: puEVP_PKEY;
  bp: pBIO;
  pk: PuRSA;
  rkey: PuRSA;
  i: integer;
  s: string;

  // Función para encriptar a base64
  Function EncodeBase64(S : String) : String;
  Var
    S1,S2 : TStringStream;

  begin
    S1:=TStringStream.Create(S);
    Try
      S1.Position:=0;
      S2:=TStringStream.Create('');
      Try
        With TBase64EncodingStream.Create(S2) do
          Try
            CopyFrom(S1,S1.Size);
          Finally
            Free;
          end;
        Result:=S2.DataString;
      finally
        S2.Free;
      end;
   finally
     S1.Free;
   end;
  end;

  function TipoError: string;
  var
    ErrMsg: array [0..160] of char;
  begin
    ERR_error_string(ERR_get_error, @ErrMsg);
    result := StrPas(@ErrMsg);
  end;

begin
  // Inicializa la libreria de OpenSSL
  OpenSSL_add_all_algorithms;
  OpenSSL_add_all_ciphers;
  OpenSSL_add_all_digests;
  ERR_load_crypto_strings;
  // Leer la llave privada en formato DER con contraseña
  bp := BIO_new(BIO_s_file());
  BIO_read_filename(bp, Pchar(ruta+nomarchivo));
  pk := nil;
  rkey := PEM_read_bio_RSAPrivateKey(bp, pk, nil, PChar(passw));
  if rkey = nil then
    raise Exception.Create('Error en llave privada.' + TipoError);
  key := EVP_PKEY_new;
  EVP_PKEY_assign(key, EVP_PKEY_RSA, rkey);
  StrPCopy(inbuf, msg);
  if tipo = 'MD5' then
    // MD5
    EVP_SignInit(@mdctx, EVP_md5());
  if tipo = 'SHA1' then
    // SHA1
    EVP_SignInit(@mdctx, EVP_sha1());
  EVP_SignUpdate(@mdctx, @inbuf, StrLen(inbuf));
  EVP_SignFinal(@mdctx, @outbuf, Len, key);
  // Cierra la libreria y libera la memoria
  EVP_cleanup;
  // este procediemiento quita un byte porque regresaba el caracter final, quizá un #13 o #10 o \n
  // dado que el dll esta hecho en c pero por las prisas en su momento asi se quedó
  s:='';
  for i:=0 to len-1 do
    s:=s+outbuf[i];
  result:=EncodeBase64(S)
end;

espero que a alguien le sirva como a mi

Casimiro Notevi 24-07-2012 18:28:08

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

edorantes 08-11-2012 18:43:45

Hola igualmente yo estoy tratando con esto de cfdi pero a mi me dieron a conectar con un PAC por medio de Web service ya he creado la concexion por asi decirlo con el WSDL importer lo que no se es como implementar sus funcione creadas espero me ayuden

Casimiro Notevi 08-11-2012 18:50:58

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)


La franja horaria es GMT +2. Ahora son las 03:15:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi