16 respuestas en este tema

[jltf2308]

tengo una tabla access que guarda en un campo la fecha larga, es decir dd/mm/yyyy hh:nn:ss... necesito primero que todo separar ambos datos para luego ir filtrando por horas especificas... en si estoy trabajando en un sistema de asistencia de personal, y dependiendo de las horas quiero tener hora de entrada y salida... quien me orienta por favor

[Caral]

Hola
Aqui tienes un programa de asistencia completo.
Trabaja con base de datoes access tambien.
Saludos

Archivos adjuntos

•  4109_d942c7a3a6dca3d9cd58c3e819b7915f470d8266.zip   76,47KB   122 descargas

[jltf2308]

Revisando

[Caral]

Hola
El programa toma la foto del empleado.
Necesitas un componente para ese fin.
Aqui lo dejo, solo instalalo y ya.
Saludos

Archivos adjuntos

•  4110_4c0a6198295329551e3fcd754cf274df7917bb1a.zip   668,89KB   65 descargas

[jltf2308]

Gracias por el aporte, el detalle está en que necesito manejar los datos directamente de la base de datos que ya tengo establecida ya que esta se llena desde un equipo de registro de asistencia, es decir maneja la toma de asistencia a través de huella dactilar.
Necesito calcular horas extras, dias trabajados e inasistencias... Pero la base de datos almacena hora y fecha como una variable datetime, por lo cual me toma todo el valor en un solo campo
Esta es la captura de la base de datos


con este codigo logro hacer un filtro de fecha y hora, ya que la hora la establezco en dtpicker

delphi

ADOQuery1.Active:= False;
  ADOQuery1.SQL.Text:= 'SELECT distinct * From V_Record';
  ADOQuery1.SQL.Add('where (Checktime between :hora1 and :hora2)');
  ADOQuery1CheckTime.DisplayFormat := 'dd/mm/yyyy';
  ADOQuery1.Parameters.ParamByName('hora1').Value := FormatDateTime('dd,mm,yyyy', horaent1.Time);
  ADOQuery1.Parameters.ParamByName('hora2').Value := FormatDateTime('dd,mm,yyyy', horasal1.Time);
  ADOQuery1.Active:= True;

lo que quiero es mediante filtros separar hora de entrada y salida... a menos que exista otro metodo

[Jose_Augusto]

Hola Comunidad,

Bueno, espero que me pueda explicar sobre mi humilde sugerencia y forma de ver las reglas del negocio.

Tienes en una tabla todas las asistencias, tanto entradas como salidas, salidas intermedias y entradas intermedias, porque puede que un empleado tenga un horario mixto de trabajar.
necesitas generar una tarjeta o kardex de asistencia por cada empleado de tal manera que te quede

empleado:
fecha dia.                        E                  S 
dd/mm/aaaa              hh:nn:SS        hh:nn:ss
dd/mm/aaaa              hh:nn:SS        hh:nn:ss
dd/mm/aaaa              hh:nn:SS        hh:nn:ss

o en su defecto
empleado:
fecha dia.                        E                  SI                EI              S
dd/mm/aaaa              hh:nn:ss        hh:nn:ss    hh:nn:ss    hh:nn:ss
dd/mm/aaaa              hh:nn:ss        hh:nn:ss    hh:nn:ss    hh:nn:ss
dd/mm/aaaa              hh:nn:ss        hh:nn:ss    hh:nn:ss    hh:nn:ss

esto es correcto...?

si es asi

la solucion esta en el horario, turno, o configuración que tenga establecida el empleado, por un lado, o tomar las asistencias por pares. pero el problema es si el empleado se le olvido marcar alguna. es por eso que me voy mas por la primer opcion.

creas un filtro para traer la entrada, como es esto.
creas una consulta donde preguntes por la asistencia que se acerque mas a la hora de entrada, esto es manejando una tolerancia.      hora de entrada + ó - tolerancia

creas un filtro para traer la salida, como es esto.
creas una consulta donde preguntes por la asistencia que se acerque mas a la hora de salida, esto es manejando una tolerancia.      hora de salida + ó - tolerancia

espero haberme explicado y que mi comentario sea lo que esperas y si es así o si salieron mas dudas, con gusto puedo ayudarte.

[jltf2308]

Emparejar las horas es lo que quiero... ya con el filtro puedo tener los chequeos que esten entre fecha1 y fecha2... actualmente puedo ver esos chequeos tomando en cuenta la hora. esta consulta la muestro en un dbgrid, alli mismo quiero mostrar fecha, entrada salida_inter, entrada_inter y salida, pero ni idea de como poder manejar esos datos dentro del grid

[Jose_Augusto]

no te sirve utilizar un ClientDataSet?, primero haciendo una consulta donde por cada empleado buscas las fechas distintas y despues barres la consulta, fecha por fecha filtrando entradas y salidas una vez que tengas una fecha completa con sus entradas y salidas la agregas al ClientdataSet y claro el dbgrid lo ligas al ClientDataSet

[jltf2308]

he visto esa sugerencia en otros foros, pero no se como ejecutarla, en realidad ya estoy en el punto donde el fin justifica los medios ya que hago esto por dos cosas, para aprender y poder desarrollar algo mas elaborado, pero me hacen falta las herramientas de conocimiento para eso me uni a la comunidad y decidi abrir el tema para que me ayuden a buscar solucion

[Jose_Augusto]

Hola Nuevamente,

Si no mal recuerdo cuando agregas el componente ClientDataSet desde el grupo "Data Access", en su propiedad FieldDefs defines los campos que vas a utilizar, una vez definidos, clic segundario sobre el componente (derecho) y clic sobre Create DataSet y listo ya esta funcionando  tu ClientDataSet, ya lo puedes ligar a un TDataSource y a tus Datacontrols. lo manipulas como un TTable.



revisa este blog, es una maravilla, te dará mas pistas de como usar este componente, espero  te sirva la ayuda.

http://delphiallimit...emoria-con.html

[jltf2308]

delphi

begin
//Filtro por contenido del combobox
//filtro Todos
  if ComboBox1.text = 'Todos' then
  begin
      ADOQuery1.Active:= False;
      ADOQuery1.SQL.Text:= 'SELECT * From V_Record';
      ADOQuery1.SQL.Add('where (Checktime between :hora1 and :hora2)');
      ADOQuery1CheckTime.DisplayFormat := 'hh:nn:ss';
      //ADOQuery1.Parameters.ParamByName('nombre').Value := ComboBox1.Text;
      ADOQuery1.Parameters.ParamByName('hora1').Value := horaent1.datetime;
      ADOQuery1.Parameters.ParamByName('hora2').Value := horasal1.datetime;
      ADOQuery1.Active:= True;
        ADOQuery1.First;
  while not ADOQuery1.Eof do
    begin
        ClientDataSet1.Append;
        ClientDataSet1Legajo.Value := adoquery1userid.Value;
        ClientDataSet1Cedula.Value := adoquery1NativePlace.Value;
        ClientDataSet1Nombre.Value := adoquery1Name.Value;
        ClientDataSet1Fecha.Value := adoquery1Checktime.Value;
        ClientDataSet1HoraE.Value := adoquery1Checktime.Value;
        ADOQuery1.Next;
    end;
  end
//Filtro por nombre
  else
  begin
  ADOQuery1.Active:= False;
  ADOQuery1.SQL.Text:= 'SELECT * From V_Record';
  ADOQuery1.SQL.Add('where (Checktime between :hora1 and :hora2)and Name = :nombre');
  ADOQuery1CheckTime.DisplayFormat := 'hh:nn:ss';
  ADOQuery1.Parameters.ParamByName('nombre').Value := ComboBox1.Text;
  ADOQuery1.Parameters.ParamByName('hora1').Value := horaent1.datetime;
  ADOQuery1.Parameters.ParamByName('hora2').Value := horasal1.datetime;
  ADOQuery1.Active:= True;
    ADOQuery1.First;
  while not ADOQuery1.Eof do
    begin
        ClientDataSet1.Append;
        ClientDataSet1Legajo.Value := adoquery1userid.Value;
        ClientDataSet1Cedula.Value := adoquery1NativePlace.Value;
        ClientDataSet1Nombre.Value := adoquery1Name.Value;
        ClientDataSet1Fecha.Value := adoquery1Checktime.Value;
        ClientDataSet1HoraE.Value := adoquery1Checktime.Value;
        ADOQuery1.Next;
    end;
  end;

[jltf2308]

a partir de lo anterior, quiero hacer un filtro de hora y asi obtener una tabla que me muestre la fecha el nombre la hora de entrada y salida

[Sergio]

No uso access, pero en FireBird existen varias soluciones:

1) "Separar" fecha y hora desde la propia SQL y obtener dos campos distintos (más al respecto aquí http://www.firebirds...20-extract.html):

Select Extract(hour from MyField) as hora

En access parece que tienes algo similar llamado DatePart() "para campos calculados": http://msdn.microsof...(v=SQL.80).aspx

2) Usar el campo como float, y como la fecha va en la parte entera y la hora en la decimal, redondeando y esas cosas separas una cosa de otra, o si tienes funciones de redondeo y esas cosas, puedes filtrar por hora usando (date-round(date))

[poliburro]

Sería de mucha ayuda si nos mostrarás los campos de la tabla. De esa manera podríamos armar una consulta que se ajuste a lo que necesitas amigo mio

[jltf2308]

Gracias por el aporte, el detalle está en que necesito manejar los datos directamente de la base de datos que ya tengo establecida ya que esta se llena desde un equipo de registro de asistencia, es decir maneja la toma de asistencia a través de huella dactilar.
Necesito calcular horas extras, dias trabajados e inasistencias... Pero la base de datos almacena hora y fecha como una variable datetime, por lo cual me toma todo el valor en un solo campo
Esta es la captura de la base de datos


con este codigo logro hacer un filtro de fecha y hora, ya que la hora la establezco en dtpicker

delphi

ADOQuery1.Active:= False;
  ADOQuery1.SQL.Text:= 'SELECT distinct * From V_Record';
  ADOQuery1.SQL.Add('where (Checktime between :hora1 and :hora2)');
  ADOQuery1CheckTime.DisplayFormat := 'dd/mm/yyyy';
  ADOQuery1.Parameters.ParamByName('hora1').Value := FormatDateTime('dd,mm,yyyy', horaent1.Time);
  ADOQuery1.Parameters.ParamByName('hora2').Value := FormatDateTime('dd,mm,yyyy', horasal1.Time);
  ADOQuery1.Active:= True;

lo que quiero es mediante filtros separar hora de entrada y salida... a menos que exista otro metodo

este es el formato de la tabla de donde extraigo los datos
la tabla resultante quedaría
en vez de checktime, seria fecha, horaentrada horasalida
en realidad ya la parte de separar fecha y hora lo solucione dando formato al query...
Es decir, ya tengo la fecha en un campo, la hora de entrada en otro campo,  me hace falta una consulta para sacar la hora de salida... no se si me explico

[Jose_Augusto]

Hola,

Bueno, revisando el codigo que nos muestras, encuentro lo siguiente:

-El contenido de la Tquery lo pasas completo al ClientDataSet.
-Estoy entendiendo que en la consulta pides todas las "asistencias" de una misma fecha que estan entre la entrada y la salida. en lo ideal cada empleado tendrá un par de asistencias. ¿estamos de acuerdo?
-En vez de pasar "Todo" al TclientDataSet, analiza cada fecha-hora que encuentras de acuerdo a la configuracion que tengas del horario laboral, al "barrer" los registros de la consulta decidas, cual es entrada y cual es salida, de acuerdo a dicha configuración laboral.
-ahora que si lo quieres todo en la consulta puedes intentar hacer subconsultas para que te filtre la entrada y la salida. pero tienes que manejar un rango para la entrada y un rango para la salida

creas un filtro para traer la entrada, como es esto.
creas una consulta donde preguntes por la asistencia que se acerque mas a la hora de entrada, esto es manejando una tolerancia.      hora de entrada + ó - tolerancia

creas un filtro para traer la salida, como es esto.
creas una consulta donde preguntes por la asistencia que se acerque mas a la hora de salida, esto es manejando una tolerancia.      hora de salida + ó - tolerancia

por ejemplo Un Empleado que su jornada laboral empieza a las 8 AM y termina 5 PM no quiere decir que todos los dias va a llegar en punto, sobre todo que los registros se guardan hasta en milisegundos, no puedes preguntar si entro exactamente a esa hora, ni tampoco puedes "separar" la hora de entrada porque daría lo mismo entrar 8:01 que 8:59.
mejor toma un rango. manejas un rango de tolerancia para entrar antes de la hora asignada como entrada, y un rango despues, para tomarla como un retado. es decir, 15 minutos antes y 15 minutos despues por ejemplo.

entonces ya en tu consulta agregas una subconsulta para la entrada y Otra para la salida

SELECT V_Record.* , (SELECT MIN(Checktime) FROM V_Record WHERE Checktime between :hora1 and :hora2) as ENTRADA, (SELECT MAX(Checktime) FROM V_Record WHERE Checktime between :hora3 and :hora4) as SALIDA

From V_Record 

WHERE

Checktime = :FECHA

El min en la entrada es para que tome la primera del dia y el Max es para que tome la ultima del dia en la salida. ya teniendo esto puedes pasarlo directamente al DBgrid o al clientdataset por si quieres hacer otro proceso.
esta es una forma burda de solucionarlo. ya que el control de asistencias es complejo ya que hay otras "circunstancias" que necesitas contemplar y controlar, retardos, inasistencias, permisos, si al usuario se le olvidó marcar alguna, tolerancias, en fin.

espero que haya sido clara mi idea, y te pueda servir

[Wilson]

Sin entrar en detalles de tu problema porque no dispongo de mucho tiempo, solo puedo decirte que MsAccess cuenta con funciones predefinas para obtener la parte que necesites de un campo del tipo  DateTime:

Por ejemplo si quieres recuperar solo la hora del campo CHECKTIME harías algo así:

SELECT HOUR(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Si quieres recuperar solo los minutos del campo CHECKTIME harías algo así:

SELECT MINUTE(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Si quieres recuperar solo los segundos del campo CHECKTIME harías algo así:

SELECT SECOND(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Si quieres recuperar solo el mes del campo CHECKTIME harías algo así:

SELECT MONTH(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Si quieres recuperar solo el día del campo CHECKTIME harías algo así:

SELECT DAY(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Si quieres recuperar solo el año del campo CHECKTIME harías algo así:

SELECT YEAR(CHECKTIME) FROM TU_TABLA
WHERE
/*TUS CONDICIONES*/

Como es lógico también puedes usar estas funciones dentro de las condiciones de tus consultas, por ejemplo, a la siguiente consulta le pasas los parámetros de  fecha y horas que quieras obtener:

SELECT * FROM V_RECORD WHERE
(CHECKTIME = :FECHA) AND
(HOUR(CHECKTIME) BETWEEN :HORA1 AND :HORA2)

Saludos.