Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Problema con operaciones con fechas

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:
Código:
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:
Código:
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:
Cita:
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.
Responder Con Cita
  #2  
Antiguo 17-04-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Mira en la configuración de windows, "regional" para ver qué formato de fecha tiene, vaya a ser diferente al resto de equipos.
Responder Con Cita
  #3  
Antiguo 17-04-2019
Javierus Javierus is offline
Miembro
 
Registrado: jun 2017
Posts: 93
Poder: 8
Javierus Va por buen camino
¿Has comprobado los valores específicos que devuelve la query en ese ordenador y caso concreto? ¿Qué devuelve?
Responder Con Cita
  #4  
Antiguo 20-04-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
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.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #5  
Antiguo 23-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Gracias por las respuestas.
Cita:
Empezado por lbuelvas Ver Mensaje
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.
Cita:
Your user name and password are not defined. Ask your database administrator to set up a Firebird login
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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.
Cita:
Empezado por Javierus Ver Mensaje
¿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.
Responder Con Cita
  #6  
Antiguo 23-04-2019
Javierus Javierus is offline
Miembro
 
Registrado: jun 2017
Posts: 93
Poder: 8
Javierus Va por buen camino
Cita:
Empezado por Angel.Matilla Ver Mensaje
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.
Responder Con Cita
  #7  
Antiguo 23-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Javierus Ver Mensaje
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.
Responder Con Cita
  #8  
Antiguo 23-04-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
A ver si tiene un firebird antiguo o uno nuevo con dialect 1 en lugar de 3
Responder Con Cita
  #9  
Antiguo 23-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
A ver si tiene un firebird antiguo o uno nuevo con dialect 1 en lugar de 3
No seguro. El motor es la versión 2.7; la instalé yo con TeamViewer. Y el dialecto en el arranque fuerzo que sea el 3.
Responder Con Cita
  #10  
Antiguo 23-04-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues entonces tan sólo te queda asegurarte de los valores que retorna cada apartado.
Responder Con Cita
  #11  
Antiguo 25-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
He dado un paso más. A la vista de los valores que me devolvía el query lo modifiqué así:
Código PHP:
SELECT CAST(B.Caduca AS DATECaducaCAST(B.Caduca AS DATE) - CURRENT_DATE 
FROM Usuarios A
Claves B 
WHERE A
.Nombre = :Nombre AND A.Nombre B.Nombre AND B.Clave = :Clave 
y puse que me mostrara esto en pantalla:
Código PHP:
ShowMessage("Caduca: " fMenu->Auxiliar->FieldByName("Caduca")->Value 
            
"\nFaltan: " fMenu->Auxiliar->Fields->FieldByNumber(2)->Value); 
He comprobado que en mi máquina y una de las del usuario, que tenemos W7, el mensaje sí me devuelve un valor (por ejemplo: Caduca: 09/06/2019 Faltan: 45). Sin embargo en el otro equipo del usuario, que tiene W10, al ejecutar ese ShowMessage da un error:
Código PHP:
Could no convert variant of type (Nullinto type (String) 
Cada vez estoy más convencido que el problema está asociado al sistema operativo. Y no se me ocurre como solventarlo.
Responder Con Cita
  #12  
Antiguo 25-04-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
A ver si no devuelven ningún dato o no hay registros con esos valores y devuelve null.
Responder Con Cita
  #13  
Antiguo 27-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Registros sí hay; la base de datos ahora mismo es igual la que tengo yo que la del usuario.
Responder Con Cita
  #14  
Antiguo 27-04-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Mira "por separado" qué devuelve cada apartado de la consulta y lo comparas con tu equipo y con el del cliente, algo así:
Código SQL [-]
SELECT CAST(B.Caduca AS DATE) Caduca
Código SQL [-]
select current_date from rdb$dabatase
Código SQL [-]
select CAST(B.Caduca AS DATE) - CURRENT_DATE
etc...
Responder Con Cita
  #15  
Antiguo 27-04-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Gracias por la sugerencia. El lunes haré la prueba.
Responder Con Cita
  #16  
Antiguo 29-05-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Bueno después de unos cuantos días en que tuve abandonado este tema lo retomé ayer. Lo primero que he hecho es comprobar la configuración del PC donde aparece el problema. Es esta:

Siguiendo vuestras sugerencias he modificado algo el código. Ahora está así:
Código:
fMenu->Auxiliar->Close();
fMenu->Auxiliar->SQL->Text = "SELECT CURRENT_DATE FROM RDB$DATABASE";
fMenu->Auxiliar->Open();
TDateTime dFecha = fMenu->Auxiliar->FieldByName("CURRENT_DATE")->AsDateTime;

fMenu->Auxiliar->Close();
fMenu->Auxiliar->SQL->Text = "SELECT CAST(B.Caduca AS DATE) Caduca 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();
int nDias = fMenu->Auxiliar->FieldByName("Caduca")->AsDateTime - dFecha;

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

     if (nDias < 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");
}
Sin embargo a pesar de todo me sigue mostrando la fecha como una hora; es decir: en la frase cAux = "Su clave caduca el..., en vez de poner por ejemplo Su clave caduca el 30/06/2019 me pone Su clave caduca el 00:00:00. Y reitero que es el único equipo en que lo hace y además es el único con Windows 10, por eso intuyo que es un problema del sistema operativo.
Responder Con Cita
  #17  
Antiguo 29-05-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pero esto estará mal:
AsDateTime.FormatString("ddddd");
Será algo así como "dd-mm-yyyy"
Responder Con Cita
  #18  
Antiguo 29-05-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Pero esto estará mal:
AsDateTime.FormatString("ddddd");
Será algo así como "dd-mm-yyyy"
Según la ayuda de Builder:
Cita:
ddddd Displays the date using the format given by the ShortDateFormat global variable.
No obstante no me cuesta nada poner la forma tradicional. Cierto es que como en ningún sitio me ha dado problemas...
Responder Con Cita
  #19  
Antiguo 30-05-2019
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.354
Poder: 19
Angel.Matilla Va por buen camino
Estaba dándole vueltas al problema y lo de usar el formato dd/mm/yyyy en vez de ddddd afecta únicamente a la presentación y no a los cálculos internos que lleve a cabo la máquina, aunque he de decir que todavía no he podido probar el cambio.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
operaciones con fechas GustavoCruz Firebird e Interbase 12 07-04-2009 23:52:35
Operaciones con fechas tifosi_loco SQL 2 06-12-2007 15:26:08
Operaciones con fechas jandres Varios 2 07-11-2006 20:16:27
Operaciones con fechas febito Oracle 1 05-08-2004 04:30:09
operaciones con fechas ing_alsaac Varios 2 11-05-2003 11:02:57


La franja horaria es GMT +2. Ahora son las 01:22:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi