Problema con operaciones con fechas

[Angel.Matilla]

No sé si esto tendría que ir aquí o en el foro de FB porque es sobre una base de datos de este motor. A ver:

Tengo una aplicación en la que se pide al entrar usuario y clave de acceso, que están guardados en sendas tablas, una para los usuarios y otra para las claves porque le tengo puesta fecha de caducidad a las mismas. Una vez que se introduce y valida la clave ejecuto este código para comprobar su validez:

fMenu->Auxiliar->Close();
fMenu->Auxiliar->SQL->Text = "SELECT B.Caduca, B.Caduca - CURRENT_DATE FROM Usuarios A, Claves B WHERE A.Nombre = :Nombre AND A.Nombre = B.Nombre AND B.Clave = :Clave";
fMenu->Auxiliar->ParamByName("Nombre")->AsString = NombreUser;
fMenu->Auxiliar->ParamByName("Clave")->AsString  = ClaveUser;
fMenu->Auxiliar->Open();

if (fMenu->Auxiliar->Fields->FieldByNumber(2)->AsInteger < 11)
{
     cAux = "Su clave caduca el " + fMenu->Auxiliar->FieldByName("Caduca")->AsDateTime.FormatString("ddddd");

     if (fMenu->Auxiliar->Fields->FieldByNumber(2)->AsInteger < 1)
     {
          Mensaje(3, cAux + ".\nDebe cambiar la clave de acceso al sistema.", "Continuar");

          Application->CreateForm(__classid(TfCamCla), &fCamCla);
          fCamCla->Tag = 1;
          fCamCla->Nombre->Text = NombreUser;
          fCamCla->ShowModal();

          if (fCamCla->Tag < 0)
          {
               TipoInstalacion = fCamCla->Tag;
               delete fCamCla;
               Mensaje(1, "No se ha modificado la clave. Sistema desconectado.", "Terminar");
               Application->Terminate();
               return TipoInstalacion;
          }
          delete fCamCla;
     }
     else
          Mensaje(4, cAux, "Continuar");
}

Y la tabla en que se guardan las claves es esta:

CREATE TABLE Claves (Nombre VARCHAR(15), Clave VARCHAR(12), Fecha DATE, Caduca DATE, CONSTRAINT PK_Claves PRIMARY KEY (Nombre, Clave))

No voy a entrar si el código podía ser más sencillo o no; no es el problema. EL problema es que en todas las máquinas que está corriendo la aplicación, incluida la mía, ese query SELECT B.Caduca, B.Caduca - CURRENT_DATE... funciona a la perfección, menos en una que usa Windows 10 y que TODOS los días le obliga al usuario a cambiar la clave. Había pensado que estuviera mal la fecha del sistema pero acabo de comprobar que es correcta.
Por poner un ejemplo, con el usuario que está dando error este es el último registro que hay en esa tabla:

Nombre: JOSEMIGUEL
Clave: DINGO47
Fecha: 09/04/2019
Caduca: 09/06/2019

Como veis la fecha tope está en el rango en que no debería saltar el error, pero no hay forma de que ejecute bien ese trozo de código y empiezo a pensar que tiene que ver con el sistema operativo.

[Casimiro Noteví]

Mira en la configuración de windows, "regional" para ver qué formato de fecha tiene, vaya a ser diferente al resto de equipos.

[Javierus]

¿Has comprobado los valores específicos que devuelve la query en ese ordenador y caso concreto? ¿Qué devuelve?

[lbuelvas]

Será que los registros con el nombre de usuaio y/o contraseña no están en la base de datos ?

La parte del

Código Delphi [-]
if (fMenu->Auxiliar->Fields->FieldByNumber(2)->AsInteger < 1)

puede fallar si el query no retorna registros.

Prueba que otro usuario trate de ingresar en esa máquina.

[Angel.Matilla]

Gracias por las respuestas.

Empezado por lbuelvas

Será que los registros con el nombre de usuaio y/o contraseña no están en la base de datos ?

La parte del

Código Delphi [-]
if (fMenu->Auxiliar->Fields->FieldByNumber(2)->AsInteger < 1)

puede fallar si el query no retorna registros.

Prueba que otro usuario trate de ingresar en esa máquina.

Si el usuario y/o clave no están en la base de datos devuelve un mensaje de error de Firebird.

Your user name and password are not defined. Ask your database administrator to set up a Firebird login

Empezado por Casimiro Notevi

Mira en la configuración de windows, "regional" para ver qué formato de fecha tiene, vaya a ser diferente al resto de equipos.

Eso no lo he comprobado. Lo miraré en cuanto pueda esta mañana.

Empezado por Javierus

¿Has comprobado los valores específicos que devuelve la query en ese ordenador y caso concreto? ¿Qué devuelve?

Hice la prueba el otro día y devolvía valores coherentes.

[Javierus]

Empezado por Angel.Matilla

Hice la prueba el otro día y devolvía valores coherentes.

Cuando la cosa está así, no ves qué falla, y tienes que correrlo en casa del cliente, yo recurro al OutputDebugString: le metes entre cada línea de código y la siguiente un ODS diciendo que estás ahí y los valores que importen. Luego en el cliente, corres p.ej. el DebugView de Microsoft (quizás como administrador), y ejecutas tu programa, verificando los valores que aparecen.

Con frecuencia suele ser alguna tontería, que al ver esa "traza" queda clara.

[Angel.Matilla]

Empezado por Javierus

Cuando la cosa está así, no ves qué falla, y tienes que correrlo en casa del cliente, yo recurro al OutputDebugString: le metes entre cada línea de código y la siguiente un ODS diciendo que estás ahí y los valores que importen. Luego en el cliente, corres p.ej. el DebugView de Microsoft (quizás como administrador), y ejecutas tu programa, verificando los valores que aparecen.

Con frecuencia suele ser alguna tontería, que al ver esa "traza" queda clara.

Gracias por la sugerencia. No conocía esa herramienta; la investigaré. Lo que más me mosquea es que sólo ocurre en un ordenador que tiene W10. en los demás, con W7, funciona sin problema. Acabo de estar viendo en remoto la pantalla del cliente (está a 140 km. de donde estoy yo) y le puse que sacara un mensaje con tres datos: Cuando caduca la clave, la fecha del sistema y los días que faltan (B.Caduca - CURRENT_DATE).

Si lo corro en mi máquina me da bien los datos (dos fechas y la diferencia entre ambas) pero en esa "maldita" máquina la fecha de caducidad me da una hora (00:00:00) y en la base de datos esa fecha está bien grabada. He estado viendo como me indicó Casimiro la configuración regional y está bien. Cada vez lo entiendo menos porque es el único sitio de los que usan fechas que ocurre esto. No sé si "forzando" a que devuelva una fecha con un CAST se puede solucionar.