Recorrer Tabla, contar registro repetidos y escribir totales en otra Tabla

[Lucas_diaz1810]

Saludos y bendiciones del Cielo para todos.

El asunto es el siguiente:

Tengo una tabla dbf conlas ausencias de los empleados de una quincena, esto significa que se repiten los que faltan mas de una jornada o dia de trabajo. Me gustaria poder contar las cantidades de ausencias de cada uno y ponerlo en una tabla diferente.

Las Tablas van mas o menos asi:

Ausencias
Codbar
codigoEmp
fecha (esto es las fecha en que falta a su trabajo)

AusContadas
Codbar
CodigoEmp
TotalFaltas

Si alguien puede ayudarme se lo agradeceria mucho, pues es urgente.

Att. Lucas

[[Lepe]]

Mas que recorrer las tablas en delphi, usaremos un Tquery con su sentencia sql tal que así:

Código SQL [-]
select codigoEmp, count(fecha) from Ausencias
where codigoEmp = :codigo and (fecha between  :fechaini and fechaFin)

Porque supongo que querrás pedirlo entre dos fechas determinadas. Ya en Delphi:

Código Delphi [-]

// query1 tiene el sql anterior
query1.parambyname('codigo').Asinteger := 32;
query1.parambyname('fechaini').Asdate := datetimepicker1.date;
query1.parambyname('fechaFin').Asdate := datetimepicker1.date;
query1.Open;
if not query1.IsEmpty then
begin 
  query2.sql.text := 'update ausContadas set TotalFaltas = :totales where codigoEmp = :codigo';
  query2.parambyname('codigo').AsInteger := 32;
  query2.parambyname('totales').AsInteger := query1.Fields[1].Asinteger;
  query2.ExecSql;
end;

No sé si dbf podría hacer algo así, pruébalo ya que sería mejor:

Código SQL [-]
update ausContadas set TotalFaltas = 
                  ( 
                  select count(fecha) from Ausencias 
                  where codigoEmp = :codigo and (fecha between  :fechaini and fechaFin)
                  )
where codigoEmp = :codigo

En AusContadas, no entiendo como se pueden almacenar las faltas de todos los meses de un mismo empleado, por ejemplo.


Saludos.