ValidaCFD

Código: Seleccionar todo

program localtime2UTC;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils
  , WinApi.Windows
  , System.DateUtils
  ;

function CurrentLocalBias: TDateTime;
const
  MinsInDay = 1440;
var
  TZInfo: TTimeZoneInformation;
begin
  //Get the between UTC and time for this locale and convert
  //to TDateTime by dividing by MinsInDay
  //NB: If local time is ahead of UTC, bias is negative
  case GetTimeZoneInformation(TZInfo) of
    TIME_ZONE_ID_DAYLIGHT:
      Result := (TZInfo.Bias + TZInfo.DaylightBias) / MinsInDay;
    TIME_ZONE_ID_STANDARD:
      Result := (TZInfo.Bias + TZInfo.StandardBias) / MinsInDay;
    TIME_ZONE_ID_UNKNOWN:
      Result := TZInfo.Bias / MinsInDay;
  else
   Result := TZInfo.Bias / MinsInDay;
  end;
end;

function UTCTimeNow: TDateTime;
begin
  //UTC time = local time + Bias + Standard/Daylight bias
  Result := Now + CurrentLocalBias;
end;


function GetTimeZone: string;
var
  TimeZone: TTimeZoneInformation;
begin
  GetTimeZoneInformation(TimeZone);
  Result := 'GMT ' + IntToStr(TimeZone.Bias div -60);
end;

function LocalToUTC(LocalTime: TDateTime): TDateTime;
var TimeZoneInformation: TTimeZoneInformation;
    Bias: integer;
begin
 Bias := 0;

 case GetTimeZoneInformation(TimeZoneInformation) of
  TIME_ZONE_ID_STANDARD: Bias := TimeZoneInformation.Bias + TimeZoneInformation.StandardBias;
  TIME_ZONE_ID_DAYLIGHT: Bias := TimeZoneInformation.Bias + TimeZoneInformation.DaylightBias;
 end;

 result := LocalTime + (Bias * OneMinute);
end;

var
  tdt : TDateTime;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    writeln (GetTimeZone);
    tdt := LocalToUTC(now);
    Writeln(FormatDateTime('c',tdt));
    Writeln(FormatDateTime('c',UTCTimeNow));
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Código: Seleccionar todo

function NowUTC : TDateTime;
var SystemTime: TSystemTime;
begin
	GetSystemTime(SystemTime);
	Result := SystemTimeToDateTime(SystemTime);
end;

Código: Seleccionar todo

<?xml version="1.0" encoding="UTF-8"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
   <s:Body xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
      <SolicitaDescarga xmlns="http://DescargaMasivaTerceros.sat.gob.mx">
         <solicitud RfcEmisor="CHHH000421XXX" RfcSolicitante="CHHH000421XXX" FechaInicial="2018-03-01T00:00:00" FechaFinal="2018-03-07T00:00:00" TipoSolicitud="CFDI">
            <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
               <SignedInfo>
                  <CanonicalizationMethod Algorithm="Algorithm" />
                  <SignatureMethod Algorithm="Algorithm" />
                  <Reference>
                     <DigestMethod Algorithm="Algorithm" />
                     <DigestValue>onjoYp8Pcr1t0r73J3LRNGlGjIU=</DigestValue>
                  </Reference>
               </SignedInfo>
               <SignatureValue>MII...IDAQAB</SignatureValue>
               <KeyInfo>
                  <X509Data>
                     <X509IssuerSerial>
                        <X509IssuerName>OID.1.2.840.113549.1.9.2=Responsable: Administración Central de Servicios Tributarios al Contribuyente, OID.2.5.4.45=SAT970701NN3, L=Cuauhtémoc, S=Distrito Federal, C=MX, PostalCode=06300, STREET="Av. Hidalgo 77, Col. Guerrero", E=acods@sat.gob.mx, OU=Administración de Seguridad de la Información, O=Servicio de Administración Tributaria, CN=A.C. del Servicio de Administración Tributaria</X509IssuerName>
                        <X509SerialNumber>00003030310000003030343030383233000000</X509SerialNumber>
                     </X509IssuerSerial>
                     <X509Certificate>MIIGoz...eydk=</X509Certificate>
                  </X509Data>
               </KeyInfo>
            </Signature>
         </solicitud>
      </SolicitaDescarga>
   </s:Body>
</s:Envelope>

Código: Seleccionar todo

<des:solicitud FechaFinal="2017-01-02T15:00:00" FechaInicial="2017-01-02T00:00:02" RfcEmisor="XXXXX" RfcSolicitante="XXXXX" TipoSolicitud="CFDI"></des:solicitud>';