Finish v1.2.1
Cambio menor que impedía que compilara
Se adaptó código para compatibilidad con Delphi XE4
Merge pull request #32 from dsalinas10/master

Cambios para que compile en Delphi XE4
Cambio menor que impedía que compilara

Se cambio la ruta absoluta del archivo cadenaoriginal_TFD_1_0.xslt por
la ruta relativa para que compile sin error de no encontrar el archivo
Cambio menor que impedía que compilara

Se agregaron los archivos ClaseCertificadoSellos y uWSHelper para que
compilara el ejemplo
Cambios para que compile el PAC de Comercio Digital con Delphi XE4

Varios cambios que tuve que hacer para que me compilara el ejemplo con
el PAC de Comercio Digital en Delphi XE4.

Además tuve que cambiar en la unidad sinautil la función GetTimeFromStr
como sigue

function GetTimeFromStr(Value: string): TDateTime;
var
x: integer;
fs: TFormatSettings;
begin
x := rpos(':', Value);
if (x > 0) and ((Length(Value) - x) > 2) then
Value := Copy(Value, 1, x + 2);
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
Value := ReplaceString(Value, ':', fs.TimeSeparator);
Result := -1;
try
Result := StrToTime(Value);
except
on Exception do ;
end;
end;

Y al final lo siguiente

var
n: integer;
fs: TFormatSettings;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
for n :=  1 to 12 do
begin
CustomMonthNames[n] := fs.ShortMonthNames[n];
MyMonthNames[0, n] := fs.ShortMonthNames[n];
end;
end.
Merge pull request #34 from dsalinas10/master

Cambios para que compile en Delphi XE4
Se agregan direccion y datos de receptor cuando este tiene RFC de publico en general o extranjero ya que estos datos se omitian del XML.
Finish soporte-extranjeros