TFacturaElectronica con soporte para CFDI

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