TFacturaElectronica con soporte para CFDI

[gmontes]

ok, gracias. lo probare

[IVAND]

Hola a todos

Se puede aplicar este modelo a la facturacion electronica en ecuador ?

[lcarrasco]

Hola, de momento aplica solo para la legislación de México por lo que se tendrían que hacer adecuaciones a las especificaciones técnicas de su país respecto a la generación del XML, sello, etc.

Saludos!

[mak8888]

Hola. Estoy probando el programa en Delphi 7 y no consigue encontrar el archivo RegularExpressions.dcu. He tirado de Google, pero no me queda claro si es que esa unit va incluida en versiones posteriores de Delphi o tengo que descargarla de algún sitio.
Gracias a todos

[mak8888]

En Delphi XE5 me da error indicándome que no encuentra el archivo httpsend.dcu
¿Con qué versión de delphi conseguisteis compilar la aplicación?

[Mariu Vega]

Muchas gracias por el aporte!

[tmsanchez]

Hola, para compilar con Delphi XE5 necesitas descargar los componentes Synapse de la siguiente dirección:

http://colocrossing.dl.sourceforge.n.../synapse39.zip

Una vez que los hayas descargado, descomprimes el archivo zip y vas al menú Tools / Options y despues seleccionas Environment Options / Delphi Options / Library en el cuadro de texto Library Path agregas la carpeta synapse39\source\lib

Algo muy importante, cuando corras el proyecto de ejemplo te va a marcar un error en la unit synautil.pas en las lineas que hacen referencia TimeSeparator y ShortMonthNames.

La solución es editar synautil.pas y modificar la función getTimeFromStr

Código Delphi [-]
function GetTimeFromStr(Value: string): TDateTime;
var
  x: integer;
begin
  x := rpos(':', Value);
  if (x > 0) and ((Length(Value) - x) > 2) then
    Value := Copy(Value, 1, x + 2);
  Value := ReplaceString(Value, ':', System.SysUtils.FormatSettings.TimeSeparator);
  Result := -1;
  try
    Result := StrToTime(Value);
  except
    on Exception do ;
  end;
end;

También al final de archivo (linea 1800) tienes que modificarlo de la siguiente forma:

Código Delphi [-]
{==============================================================================}
var
  n: integer;
begin
  for n :=  1 to 12 do
  begin
    CustomMonthNames[n] := System.SysUtils.FormatSettings.ShortMonthNames[n];
    MyMonthNames[0, n] := System.SysUtils.FormatSettings.ShortMonthNames[n];
  end;
end.

Te recomiendo abrir el proyecto EjemploFacturaElectronica.dproj y ejecutarlo, no olvides copiar los archivos quricol32.dll y quricol64.dll

Espero te haya sido de utilidad.

Saludos.

[mak8888]

Muchas gracias por la ayuda.
Saludos