|
Buenos Días, siento haber tardado, te paso las dos SQL que utilizo para el cálculo de horas normales, extras y de festivos, ya que en mi caso se cobra a diferente precio estos tres tipos (incluso tengo un intérvalo de precios de horas extras, ya que no cobran lo mismo, y depende del trabajador, todas las horas extras. Bueno te lo paso y explico:
//Horas Normales
SELECT CNM_ITE, CNM_MES, CNM_AÑO,
Sum(IIf(([CNM_DSM]<>"SABADO" And [CNM_DSM]<>"DOMINGO"),
IIf(([CNM_HTA]-[PER_HPD])<0,[CNM_HTA],[PER_HPD]),0)) AS HTA,
Sum(IIf(([CNM_DSM]<>"SABADO" And [CNM_DSM]<>"DOMINGO"),
IIf(([CNM_HTA]-[PER_HPD])<=0,0,(IIf(([CNM_HTA]-[PER_HPD])>[PER_HF1],[PER_HF1],([CNM_HTA]-[PER_HPD])))),0)) AS HE1, Sum(IIf(([CNM_DSM]<>"SABADO" And [CNM_DSM]<>"DOMINGO"),IIf(([CNM_HTA]-[PER_HPD])<=0,0,(IIf(([CNM_HTA]-[PER_HPD])>[PER_HF1],([CNM_HTA]-[PER_HPD]-[PER_HF1]),0))),0)) AS HE2
FROM CNM, PER
WHERE CNM_ITE=:iteter AND CNM_AÑO=:ano AND CNM_MES=:mescalc AND CNM_ITE=PER_ITE AND CDate(Str([CNM_DIA])+'/'+Str([CNM_MES])+'/'+Str([CNM_AÑO])) NOT IN (SELECT CAL_FECHA FROM CAL) AND
CDate(Str([CNM_DIA])+'/'+Str([CNM_MES])+'/'+Str([CNM_AÑO])) NOT IN (SELECT CAP_FECHA FROM CAP WHERE CAP_ITE=CNM_ITE)
GROUP BY CNM_ITE, CNM_MES, CNM_AÑO;
Como ves obtengo el cálculo de un mes en concreto. Respecto a CNM_DSM, es un campo calculado en tiempo de ejecución, cuando introducen las hora trabajadas en una fecha, con esa fecha, le calculo el dia de la semana en Delphi utilizando el DayofWeek(fecha), teniendo en cuenta que te devuelve un numérico del 1 al 7 y el 1 es Domingo y el 7 es Sábado.
//Horas Festivas
SELECT CNM_ITE, CNM_MES, CNM_AÑO, Sum([CNM_HTA]) AS HFE
FROM CNM, PER
WHERE CNM_AÑO=:ano and CNM_MES=:mescalc and PER_ITE=:iteter and CNM_ITE=PER_ITE and ( [CNM_DSM]="SABADO" or [CNM_DSM]="DOMINGO" or CDate(Str([CNM_DIA])+'/'+Str([CNM_MES])+'/'+Str([CNM_AÑO])) IN (SELECT CAL_FECHA FROM CAL) or CDate(Str([CNM_DIA])+'/'+Str([CNM_MES])+'/'+Str([CNM_AÑO])) IN (SELECT CAP_FECHA FROM CAP WHERE CAP_ITE=CNM_ITE) )
GROUP BY CNM_ITE, CNM_MES, CNM_AÑO;
Espero que te ayude y cualquier duda sobre las SQL que te paso, me la comentas.
|