Controles fecha/hora

[ermendalenda]

Supongo que alguno ya lo habéis pensado.
Voy a meter un control de tiempo de que el registro que se genera no puede ser en fechs hora anterior al anterior. Y por si acaso no hay registros que sea superior a hoy 2/11/2024 o o lo metáis en algún parámetro del sistema. Esto mete una capa más de seguridad en los programas de escritorio en los que existen, remotas pero posibles, situaciones en los que puede pasar:
1. Que a raiz de un corte de luz, el equipo tenga gastada la pila y vuelva a una fecha anterior y no haya conexión a Internet, con lo cual no puede sincronizar con ningún reloj.
2. Que al primo del dueño del restaurante, Ramiro, le pregunten como hacer una factura con fecha anterior y como se está sacando un módulo de ofimática online en CCC es un genio. Entonces el tío vá y le quita Internet al equipo y le cambia la fecha al ordenador emite la factura, con su QR chulo y se pega el moco y ahora llama al servicio técnico para que haga una subsanacion de esto, a ver como te lo comes.
Lo primero es guardar una log de este cambio de fecha, y después bloquear emisiones de facturas.

[ermendalenda]

No sé si es aconsejable marcar como incidencia los cambios de fecha de envío ejemplo se genera el registro a las 23:59
Se envía a las 00:00
Esto no queda claro con lo que dicen.

La fecha de expedición de la factura debe coincidir con la de generación del registro de facturación. Ambas fechas, generalmente deben corresponderse con la fecha en que se remite el Registro de facturación. No obstante, se pueden dar situaciones puntuales de no coincidencia, de la fecha de generación del registro con la de envío (por ejemplo, incidencia al remitir que obliga a reintentar más adelante, cambio de horario de verano/invierno...).

Un mayor detalle puede encontrarse en las reglas de validación que afecten a los campos del registro de facturación y del mensaje de remisión a la AEAT .

[Neftali [Germán.Estévez]]

Empezado por ermendalenda

Supongo que alguno ya lo habéis pensado.
Voy a meter un control de tiempo de que el registro que se genera no puede ser en fechs hora anterior al anterior. Y por si acaso no hay registros que sea superior a hoy 2/11/2024 o o lo metáis en algún parámetro del sistema.

Nosotros sí tenemos un control similar de control de fechas. Para que no puedan meter una factura con fecha anterior a la última introducida (a nuestros clientes se les ocurren cosas muy raras). Cambios de fecha del equipo, por ejemplo.

[AlfredoSanz]

Holaqtal.

Yo me inclino por verificar la fecha del sistema mediante un webservice antes de hacer el envío, de esta forma nos aseguramos de que "mi vecino Jose" no ha tocado nada.

He estado probando worldtimeapi.org, pero muchas veces no me responde.

¿Alguien sabe de algún servicio similar?

[novatico]

Empezado por AlfredoSanz

Holaqtal.

Yo me inclino por verificar la fecha del sistema mediante un webservice antes de hacer el envío, de esta forma nos aseguramos de que "mi vecino Jose" no ha tocado nada.

He estado probando worldtimeapi.org, pero muchas veces no me responde.

¿Alguien sabe de algún servicio similar?

Prueba http://date.jsontest.com, es más sencillo pero puede servir.
El servicio de worldtimeapi.org empezó a tener fallos/esperas aleatorias desde que, creo que en Septiembre, se produjo aquella caída masiva de Microsoft. Desde entonces, algunos días funciona perfectamente, y otros se producen esperas muy largas. En mi caso, esto lo he detectado principalmente por las tardes.

[ermendalenda]

Empezado por AlfredoSanz

Holaqtal.

Yo me inclino por verificar la fecha del sistema mediante un webservice antes de hacer el envío, de esta forma nos aseguramos de que "mi vecino Jose" no ha tocado nada.

He estado probando worldtimeapi.org, pero muchas veces no me responde.

¿Alguien sabe de algún servicio similar?

Sí, está fallando, pero le he metido hasta 10 reintentos y funciona.
De todas formas le dalta una capa más de seguridad, que es a lo que me refiero, y es si le quitan el cable de Red para que no lea la fecha/hora de Internet, supongo que tu aplicación si es de escritorio seguirá funcionando.para ese caso proponía qu se compararse la fecha/hora del registro anterior que no sea mayor que la actual del sistema.

[Neftali [Germán.Estévez]]

Nosotros para temas "serios" pedimos la Fecha/hora al servidor de Base de Datos (en nuestro caso un SQLServer).
Ese servidor no suelen administrarlo los clientes y no pueden "tocarlo" y a los que lo administran ellos no se atreven, porque si cambiasen eso dejaría de funcionar TODA la aplicación.

Para otros temas sin importancia sí que cogemos la del equipo cliente (como os he dicho), pero sabemos que alguno ya ha probado a cambiarla.

[ermendalenda]

Gracias, también había pensado hacer una segunda consulta a un servidor propio y así contrasto que si la fecha/hora del sistema es una de las 2, la del servidor público de hora o la del nuestro, la dé por válida. Ya que puede ocurrir que alguno falle y el desastre es monumental, pero así meto triple seguridad.

[bmfranky]

Empezado por ermendalenda

Sí, está fallando, pero le he metido hasta 10 reintentos y funciona.
De todas formas le dalta una capa más de seguridad, que es a lo que me refiero, y es si le quitan el cable de Red para que no lea la fecha/hora de Internet, supongo que tu aplicación si es de escritorio seguirá funcionando.para ese caso proponía qu se compararse la fecha/hora del registro anterior que no sea mayor que la actual del sistema.

Si, algo asi he implementado yo, cuando cargo los datos de la huella del ultimo registro enviado, compruebo que la fecha hora de uso no sea posterior a la del sistema, si es asi, cancelo la exportacion de la factura, antes de realizar envios ni asientos de la factura.

if (DateTime.Parse(huellaAnterior.FechaHoraUso) > DateTime.Now)// si la fecha de uso es posterior a la del sistema...
                {
                    MessageBox.Show("La fecha del sistema es anterior a la del ultimo registro enviado, se cancelara el envio hasta que se subsane la incidencia.", "Atencion.");
                    return;//<-cancelamos la funcion.
                }

[ermendalenda]

Empezado por bmfranky

Si, algo asi he implementado yo, cuando cargo los datos de la huella del ultimo registro enviado, compruebo que la fecha hora de uso no sea posterior a la del sistema, si es asi, cancelo la exportacion de la factura, antes de realizar envios ni asientos de la factura.

if (DateTime.Parse(huellaAnterior.FechaHoraUso) > DateTime.Now)// si la fecha de uso es posterior a la del sistema...
                {
                    MessageBox.Show("La fecha del sistema es anterior a la del ultimo registro enviado, se cancelara el envio hasta que se subsane la incidencia.", "Atencion.");
                    return;//<-cancelamos la funcion.
                }

Así es pero yo le dejaría unos segundos de margen para emitir una factura unos segundos antes (20 o 30 segundos) por lo que. Pueda pasar con la sincronizacion de la hora

[bmfranky]

Empezado por ermendalenda

Así es pero yo le dejaría unos segundos de margen para emitir una factura unos segundos antes (20 o 30 segundos) por lo que. Pueda pasar con la sincronizacion de la hora

Hombre, no puede ser que la hora actual sea ni un segundo "Anterior" a la del registro ya enviado, posteior , o descuadrada del servidor de la aeat, podria ser, por eso , cuando implementen las funciones de consulta de registros anteriores, como en la respuesta se incluira el timestamp de hacienda, ahi si que verificare que la hora del sistema no se descuadre mucho de la de hacienda, por ejemplo consultando el ultimo registro enviado antes de empezar a facturar, o al cargar el SIF.

[ermendalenda]

Empezado por bmfranky

Hombre, no puede ser que la hora actual sea ni un segundo "Anterior" a la del registro ya enviado, posteior , o descuadrada del servidor de la aeat, podria ser, por eso , cuando implementen las funciones de consulta de registros anteriores, como en la respuesta se incluira el timestamp de hacienda, ahi si que verificare que la hora del sistema no se descuadre mucho de la de hacienda, por ejemplo consultando el ultimo registro enviado antes de empezar a facturar, o al cargar el SIF.

Sí, es mejor no dejar hacer ningún registro, es cierto que si pasara lo de la sincronizacion, y si fuera por unos segundos, en cuanto vuelva a intentarlo ya le dejaría. A mi me puede pasar por que yo sincronizo desee el programa y solo lo reguló si hay una diferencia de 20 segundos. Pero si hago como dices, al momento me va a dejar de nuevo cerrar facturas

[edari]

Empezado por novatico

Prueba http://date.jsontest.com, es más sencillo pero puede servir.
El servicio de worldtimeapi.org empezó a tener fallos/esperas aleatorias desde que, creo que en Septiembre, se produjo aquella caída masiva de Microsoft. Desde entonces, algunos días funciona perfectamente, y otros se producen esperas muy largas. En mi caso, esto lo he detectado principalmente por las tardes.

A mí me funciona a veces mal worldtimeapi... habrá que empezar a descartarlo
Pruebo este a ver pero me da hora inglesa...habrá que pasar algún parámetro?
Conocéis algún otro que informe también de la zona horaria?

Gracias

[ermendalenda]

Empezado por novatico

Prueba http://date.jsontest.com, es más sencillo pero puede servir.
El servicio de worldtimeapi.org empezó a tener fallos/esperas aleatorias desde que, creo que en Septiembre, se produjo aquella caída masiva de Microsoft. Desde entonces, algunos días funciona perfectamente, y otros se producen esperas muy largas. En mi caso, esto lo he detectado principalmente por las tardes.

Hola
Estoy probando el servicio. Sabía si siempre devuelve 1 hora menos, o cambia en verano?
Gracias

[rci]

Yo trabajo en c#.net y utilizo servidores ntp (Network Time Protocol) para consultar la hora en internet, ahora mismo uso time.windows.com pero creo que hay muchos mas servidores de este tipo.
Devuelve la fecha y hora UTC y luego la convierto en la hora local
No se si serviría para delphi

[bmfranky]

Empezado por rci

Yo trabajo en c#.net y utilizo servidores ntp (Network Time Protocol) para consultar la hora en internet, ahora mismo uso time.windows.com pero creo que hay muchos mas servidores de este tipo.
Devuelve la fecha y hora UTC y luego la convierto en la hora local
No se si serviría para delphi

Hola, puedes pasar el codigo que usas para la consulta?
Yo uso esta

http://worldtimeapi.org/api/ip

Que devuelbe un json con todos los datos incluyendo el desfase UTC, basado en la ip, mirad el ejemplo.

utc_offset"+01:00"timezone"Europe/Madrid"day_of_week2day_of_year310datetime"2024-11-05T09:13:09.623438+01:00"utc_datetime"2024-11-05T08:13:09.623438+00:00"unixtime1730794389raw_offset3600week_number45dstfalseabbreviation"CET"dst_o ffset0dst_fromnulldst_untilnullclient_ip"79.108.205.131"

[rci]

Empezado por bmfranky

Hola, puedes pasar el codigo que usas para la consulta?
Yo uso esta
Que devuelbe un json con todos los datos incluyendo el desfase UTC, basado en la ip, mirad el ejemplo.

Lo saqué de internet: https://stackoverflow.com/questions/...server-using-c

Es posible que se pueda mejorar pero de momento uso este:

       private static DateTime GetNetworkTime()
       {
           //default Windows time server
           const string ntpServer = "time.windows.com";

           // NTP message size - 16 bytes of the digest (RFC 2030)
           var ntpData = new byte[48];

           //Setting the Leap Indicator, Version Number and Mode values
           ntpData[0] = 0x1B; //LI = 0 (no warning), VN = 3 (IPv4 only), Mode = 3 (Client Mode)

           var addresses = Dns.GetHostEntry(ntpServer).AddressList;

           //The UDP port number assigned to NTP is 123
           var ipEndPoint = new IPEndPoint(addresses[0], 123);
           //NTP uses UDP

           using (var socket = new Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp))
           {
               socket.Connect(ipEndPoint);

               //Stops code hang if NTP is blocked
               socket.ReceiveTimeout = 3000;

               socket.Send(ntpData);
               socket.Receive(ntpData);
               socket.Close();
           }

           //Offset to get to the "Transmit Timestamp" field (time at which the reply 
           //departed the server for the client, in 64-bit timestamp format."
           const byte serverReplyTime = 40;

           //Get the seconds part
           ulong intPart = BitConverter.ToUInt32(ntpData, serverReplyTime);

           //Get the seconds fraction
           ulong fractPart = BitConverter.ToUInt32(ntpData, serverReplyTime + 4);

           //Convert From big-endian to little-endian
           intPart = SwapEndianness(intPart);
           fractPart = SwapEndianness(fractPart);

           var milliseconds = (intPart * 1000) + ((fractPart * 1000) / 0x100000000L);

           //**UTC** time
           var networkDateTime = (new DateTime(1900, 1, 1, 0, 0, 0, DateTimeKind.Utc)).AddMilliseconds((long)milliseconds);

           return networkDateTime.ToLocalTime();
       }

       // stackoverflow.com/a/3294698/162671
       private static uint SwapEndianness(ulong x)
       {
           return (uint)(((x & 0x000000ff) << 24) +
                          ((x & 0x0000ff00) << 8) +
                          ((x & 0x00ff0000) >> 8) +
                          ((x & 0xff000000) >> 24));
       }

[mqm]

Aqui teneis en codigo en delphi 11.

Código Delphi [-]
unit VerificaFecha;
interface

uses
  IdUDPClient, IdGlobal, SysUtils, DateUtils;

function GetNetworkTime: TDateTime;

implementation

function SwapEndianness(Value: UInt32): UInt32;
begin
  Result := ((Value and $000000FF) shl 24) or
            ((Value and $0000FF00) shl 8) or
            ((Value and $00FF0000) shr 8) or
            ((Value and $FF000000) shr 24);
end;

function GetNetworkTime: TDateTime;
const
  NTP_SERVER = 'time.windows.com';
  NTP_PORT = 123;
  NTP_PACKET_SIZE = 48;
  NTP_TIMESTAMP_OFFSET = 2208988800; // Seconds between 1900 and 1970
  SERVER_REPLY_TIME = 40; // Offset to "Transmit Timestamp"
var
  UDPClient: TIdUDPClient;
  NTPData: TIdBytes;
  Seconds, Fraction: UInt32;
  UnixTime: UInt64;
begin
  UDPClient := TIdUDPClient.Create(nil);
  try
    UDPClient.Host := NTP_SERVER;
    UDPClient.Port := NTP_PORT;
    UDPClient.BufferSize := NTP_PACKET_SIZE;

    SetLength(NTPData, NTP_PACKET_SIZE);
    FillChar(NTPData[0], NTP_PACKET_SIZE, 0);

    // Set LI, VN, Mode
    NTPData[0] := $1B;

    // Send request
    UDPClient.Connect;
    UDPClient.SendBuffer(NTPData);

    // Receive response
    UDPClient.ReceiveTimeout := 3000;
    UDPClient.ReceiveBuffer(NTPData);

    // Extract timestamp
    Seconds := SwapEndianness(PCardinal(@NTPData[SERVER_REPLY_TIME])^);
    Fraction := SwapEndianness(PCardinal(@NTPData[SERVER_REPLY_TIME + 4])^);

    UnixTime := Seconds - NTP_TIMESTAMP_OFFSET;
    Result := UnixDateDelta + UnixTime / SecsPerDay;
    Result := Result + (Fraction / High(UInt32) / SecsPerDay);

    // Convert to local time
    Result := TTimeZone.Local.ToLocalTime(Result);
  finally
    UDPClient.Free;
  end;
end;

end.

Y ejemplo de llamada :
procedure TForm3.Button1Click(Sender: TObject);
var
  NetworkTime: TDateTime;
begin
  try
    NetworkTime := GetNetworkTime;
    ShowMessage('La hora de red es: ' + DateTimeToStr(NetworkTime));
  except
    on E: Exception do
      ShowMessage('Error al obtener la hora de red: ' + E.Message);
  end;
end;

[Neftali [Germán.Estévez]]

Empezado por mqm

Aqui teneis en codigo en delphi 11.

Por favor, añadid TAG's cuando pongáis código en los mensajes.
Para los nuevos en los foros, la recomendación es leer la Guía de estilo de los foros.

[adolphsys]

Empezado por Neftali [Germán.Estévez]

Nosotros sí tenemos un control similar de control de fechas. Para que no puedan meter una factura con fecha anterior a la última introducida (a nuestros clientes se les ocurren cosas muy raras). Cambios de fecha del equipo, por ejemplo.

Pues, al menos con los servidores de prueba Verifactu, están admitiendo remitir una factura con fecha anterior a la última...