Controles fecha/hora
 

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.

Ojofaq Aeat/veri*factu
 

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.

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.

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.

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.

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.

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.

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.

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.

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

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

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

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 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:

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;

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.

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