Skip to main content

Pointage

annuaire Frontignan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.EmailPersonnel, EMPLOYES1.Telephone1, EMPLOYES1.Telephone2
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((CBool(EMPLOYES1!Productif))<>0) And ((EMPLOYES1.[Actif])<>0)) Or (((EMPLOYES1.NomPrenom)="LEVOYER Allan")) Or (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") And ((EMPLOYES1.[Actif])<>0));

cadre ou pas : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.OPCA, EMPLOYES1.[Actif]
FROM EMPLOYES1;

Copie de annuaire Frontignan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.EmailPersonnel, EMPLOYES1.Telephone1, EMPLOYES1.Telephone2, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.[Actif]
FROM EMPLOYES1
WHERE (((EMPLOYES1.CodeSite)="FR"));

Cout salarie employe responsable : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.TypeContrat, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite
FROM EMPLOYES1;

Cout salarie prod FR : 

SELECT HEURE_MOIS.AN, HEURE_MOIS.MOIS, EMPLOYES1.NomPrenom, HEURE_MOIS.CoutSalaireMois, HEURE_MOIS.TotalPrimeSanaHSup
FROM HEURE_MOIS LEFT JOIN EMPLOYES1 ON HEURE_MOIS.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_MOIS.AN)>=2021));

cout salarie total heures : 

SELECT HEURE_JOUR.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2021# And #10/31/2023#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>#12/30/1899#));

Cout salarie ventilation : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionEquipes1.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionEquipes1.CodeSite AS SITEVENTILATION
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.ID_Employe = EMPLOYES1.NumAuto) LEFT JOIN ProductionEquipes1 ON ProductionVentilation.Id_Activite = ProductionEquipes1.IdEquipeProduction
WHERE (((ProductionVentilation.LaDate) Between #1/1/2021# And #10/31/2023#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

cout salarie ventilation 2021 2023 : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionEquipes1.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionEquipes1.CodeSite AS SITEVENTILATION, EMPLOYES1.TypeContrat, EMPLOYES1.CodeSite AS SITEEMPLOYE, EMPLOYES1.NomPrenomResponsable
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.ID_Employe = EMPLOYES1.NumAuto) LEFT JOIN ProductionEquipes1 ON ProductionVentilation.Id_Activite = ProductionEquipes1.IdEquipeProduction
WHERE (((ProductionVentilation.LaDate) Between #10/1/2021# And #9/30/2023#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

Dates contrats : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") AND ((EMPLOYES1.TypeContrat)="CDI") AND ((EMPLOYES1.CodeSite)="FR"));

Dates contrats filiere mer : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="JUILLE Thibaud"));

Dates contrats maintenance : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") AND ((EMPLOYES1.TypeContrat)="CDI"));

Dates periode essai : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateDebut
FROM EMPLOYES1
WHERE (((EMPLOYES1.DateCDI)>=Date()-130) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="FR") And ((CBool(EMPLOYES1![Actif]))<>0));

employesinterim : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.TypeContrat
FROM EMPLOYES1;

Envoi mail Retards Prod MAR : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1],3) AS POINTAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1]-[HEURE_JOUR1]![HeureDebutProd],3) AS RETARD, EMPLOYES1.EmailPersonnel
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour)=Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1-HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899#) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="MA"))
ORDER BY HEURE_JOUR1.LeJour;

Envois mail Retards Prod FR : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1],3) AS POINTAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1]-[HEURE_JOUR1]![HeureDebutProd],3) AS RETARD, EMPLOYES1.EmailPersonnel, EMPLOYES1.NomPrenomResponsable
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour)=Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1-HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899#) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="FR") And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"))
ORDER BY HEURE_JOUR1.LeJour;

Heures toutlemonde : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2019# And #12/31/2019#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

HEURES_ACT_FRONTI : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionTaches.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionTaches.CodeSite
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.NumEmploye = EMPLOYES1.NumAuto) LEFT JOIN ProductionTaches ON ProductionVentilation.NumTache = ProductionTaches.NumAuto
WHERE (((ProductionVentilation.LaDate)>#12/31/2022#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

HEURES_ACT_FRONTI_VBA : 

SELECT ProductionVentilation_1.LaDate, EMPLOYES1.NomPrenom, ProductionTaches.Libelle, FormatDateTime([ProductionVentilation_1]![Heures],3) AS Expr1, ProductionTaches.CodeSite, Services.ANALYTIQUE
FROM ((ProductionVentilation AS ProductionVentilation_1 LEFT JOIN EMPLOYES1 ON ProductionVentilation_1.NumEmploye = EMPLOYES1.NumAuto) LEFT JOIN ProductionTaches ON ProductionVentilation_1.NumTache = ProductionTaches.NumAuto) LEFT JOIN Services ON ProductionTaches.idService = Services.IdService
WHERE (((ProductionVentilation_1.LaDate) Between Date()-20 And Date()) And ((FormatDateTime(ProductionVentilation_1!Heures,3))<>"00:00:00"));

HeuresAllan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((HEURE_JOUR.LeJour) Between #1/1/2026# And #12/31/2026#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

HeuresALLAN VERIF POINTAGE : 

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()-7 And Date()) And ((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00"));

HeuresALLANFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR.EquipeProd, FormatDateTime([HeuresPointeuse],3) AS HTT1
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((FormatDateTime(HEURE_JOUR!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR.LeJour)=Date()));

Heuresdemarrage : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, EMPLOYES1.EmailPersonnel
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()+1 And Date()+5) And ((EMPLOYES1.EmailPersonnel)<>"") And ((Len([EquipeProd]))>"0") And ((CBool(EMPLOYES1![Actif]))<>0) And ((EMPLOYES1.CodeSite)="FR"))
ORDER BY HEURE_JOUR1.LeJour;

HeuresKEVINFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR.EquipeProd, FormatDateTime([HeuresPointeuse],3) AS HTT1
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenom)="LIDIER Kévin") And ((FormatDateTime(HEURE_JOUR!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR.LeJour)=Date()));

HeuresMaintenance : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") AND ((HEURE_JOUR.LeJour)>=#1/1/2020#));

HeuresoperateurFR : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat, CBool([EMPLOYES1]![Productif]) AS Expr1
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((HEURE_JOUR.LeJour) Between #1/1/2026# And #12/31/2026#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00") And ((CBool(EMPLOYES1!Productif))<>0));

HEURESPRODFINVENTILATION : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1
FROM EMPLOYES1 RIGHT JOIN ProductionVentilation ON EMPLOYES1.NumAuto = ProductionVentilation.ID_Employe
WHERE (((EMPLOYES1.NomPrenom)<>"LIDIER Kévin") And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00") And ((ProductionVentilation.LaDate)=Date()) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HEURESPRODFR VERIF FIN VENTILATION : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, EMPLOYES1.CodeSite
FROM EMPLOYES1 RIGHT JOIN ProductionVentilation ON EMPLOYES1.NumAuto = ProductionVentilation.ID_Employe
WHERE (((ProductionVentilation.LaDate) Between Date()-7 And Date()) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00") And ((EMPLOYES1.CodeSite)="FR"));

HeuresPRODFR VERIF POINTAGE : 

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()-7 And Date() And (HEURE_JOUR1.LeJour) Between Date()-7 And Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00") And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HeuresPRODFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((EMPLOYES1.NomPrenom)<>"LIDIER Kévin") And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR1.LeJour)=Date()) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HeuresSylvette : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenom)="CELADA Sylvette") And ((HEURE_JOUR.LeJour) Between #1/1/2024# And #12/31/2024#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

JOURSFERIES : 

SELECT Calendrier.Date, CBool([Ferie]) AS JFERIE
FROM Calendrier
WHERE (((CBool([Ferie]))=True) AND ((Calendrier.Annee)>=2023));

mdp frontignan : 

SELECT EMPLOYES.NomPrenom, EMPLOYES.[Actif], EMPLOYES.TypeContrat, EMPLOYES.EmailPersonnel, EMPLOYES.NomPrenomResponsable, EMPLOYES.MDPEntretien, UTILISATEURS.MDP4D
FROM EMPLOYES LEFT JOIN UTILISATEURS ON EMPLOYES.NumAuto = UTILISATEURS.id_Empl;

MODULATION 4D : 

SELECT EMPLOYES1.NomPrenom, [HEURE_JOUR]![Modulation] AS Expr1, EMPLOYES1.[Actif], EMPLOYES1.NomPrenomResponsable, EMPLOYES1.TypeContrat, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour
FROM (HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto) LEFT JOIN Calendrier ON HEURE_JOUR.LeJour = Calendrier.Date
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2025# And Date()));

MODULATION AUTO heures avances 4d : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.TypeContrat, EMPLOYES1.NomPrenomResponsable, EmployeModulation.PeriodePaie, EmployeModulation.Sortie, EMPLOYES1.CodeSite, EMPLOYES1.[Actif], FormatDateTime([EmployeModulation]![Sortie],3) AS HEURES2, FormatDateTime([EmployeModulation]![Sortie],2) AS JOUR2
FROM EMPLOYES1 RIGHT JOIN EmployeModulation ON EMPLOYES1.NumAuto = EmployeModulation.NumEmploye;

MODULATION AUTO Periode PAie : 

SELECT HEURE_MOIS.PeriodePaie, EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.[Actif], EMPLOYES1.CodeSite, HEURE_MOIS.AN, HEURE_MOIS.Modulation, HEURE_MOIS.HeuresSUP100Payees, FormatDateTime([HEURE_MOIS]![HeuresSUP100Payees],3) AS HEURESHSPAYE, FormatDateTime([HEURE_MOIS]![HeuresSUP100Payees],2) AS JOURSHSPAYE, FormatDateTime([HEURE_MOIS]![Modulation],3) AS HEURESMODULATION, FormatDateTime([HEURE_MOIS]![Modulation],2) AS JOURSMODULATION
FROM HEURE_MOIS LEFT JOIN EMPLOYES1 ON HEURE_MOIS.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_MOIS.AN)=2025));

MODULATION filiere mer heures realisees : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR.LeJour, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, Calendrier.Ferie, HEURE_JOUR.CodeAbsence, EMPLOYES1.[Actif]
FROM (HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto) LEFT JOIN Calendrier ON HEURE_JOUR.LeJour = Calendrier.Date
WHERE (((HEURE_JOUR.LeJour) Between #12/30/2024# And #12/31/2025#) And ((EMPLOYES1.[Actif])<>0) And ((StrConv(EMPLOYES1!IdResponsable,1))=2926));

MODULATION maintenance heures realisees : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR.LeJour, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, Calendrier.Ferie, HEURE_JOUR.CodeAbsence, EMPLOYES1.[Actif]
FROM (HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto) LEFT JOIN Calendrier ON HEURE_JOUR.LeJour = Calendrier.Date
WHERE (((HEURE_JOUR.LeJour) Between #12/30/2024# And #12/31/2025#) And ((StrConv(EMPLOYES1!IdResponsable,1))=1268));

MODULATIONFR absences : 

SELECT HEURE_MOIS.AN, HEURE_MOIS.MOIS, EMPLOYES1.NomPrenom, HEURE_MOIS.AbsAbsence, HEURE_MOIS.AbsAbsenceJustifie, HEURE_MOIS.AbsReposCompensateur, HEURE_MOIS.AbsRTT, HEURE_MOIS.AbsMaladie, HEURE_MOIS.AbsCongesPayes, HEURE_MOIS.AbsAccidentTravail
FROM HEURE_MOIS LEFT JOIN EMPLOYES1 ON HEURE_MOIS.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_MOIS.AN)>2024) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((CBool(EMPLOYES1!Productif))<>0));

MODULATION absences nouveau :

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, HEURE_JOUR1.AbsAbsence, HEURE_JOUR1.AbsMaladie, HEURE_JOUR1.AbsCongesPayes, HEURE_JOUR1.Ferie, HEURE_JOUR1.AbsEvtFamilial, HEURE_JOUR1.AbsMaternite, HEURE_JOUR1.AbsCongesParental, HEURE_JOUR1.AbsAccidentTravail
FROM HEURE_JOUR1 LEFT JOIN EMPLOYES1 ON HEURE_JOUR1.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_JOUR1.LeJour) Between #1/1/2025# And #12/31/2025#) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((CBool(EMPLOYES1!Productif))<>0));

MODULATIONFR heures realisees  : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR.LeJour, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, Calendrier.Ferie, HEURE_JOUR.CodeAbsence, EMPLOYES1.[Actif]
FROM (HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto) LEFT JOIN Calendrier ON HEURE_JOUR.LeJour = Calendrier.Date
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2025# And #12/31/2025#) And ((HEURE_JOUR.IDemploye)<>1167) And ((EMPLOYES1.TypeContrat)="CDI" Or (EMPLOYES1.TypeContrat)="CDD") And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((CBool(EMPLOYES1!Productif))<>0));

PRESENCE FRONTI v2 : 

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, HEURE_JOUR1.AbsAbsence, HEURE_JOUR1.AbsMaladie, HEURE_JOUR1.AbsCongesPayes, HEURE_JOUR1.Ferie, HEURE_JOUR1.AbsEvtFamilial, HEURE_JOUR1.AbsMaternite, HEURE_JOUR1.AbsCongesParental, HEURE_JOUR1.AbsAccidentTravail, EMPLOYES1.[Actif], EMPLOYES1.NomPrenomResponsable
FROM HEURE_JOUR1 LEFT JOIN EMPLOYES1 ON HEURE_JOUR1.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_JOUR1.LeJour)>#12/31/2023#) AND ((EMPLOYES1.CodeSite)="FR"));

PRESENCES_FRONTI : 

SELECT EMPLOYES1.NomPrenom, EmployesAbsences.CodeTypeAbs, EmployesAbsences.DateDebutAbsence, EmployesAbsences.NbreJoursAbsence, EMPLOYES1.[Actif], EmployesAbsences.DateFinAbsence, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite
FROM EmployesAbsences LEFT JOIN EMPLOYES1 ON EmployesAbsences.NumAutoEmploye = EMPLOYES1.NumAuto
WHERE (((EmployesAbsences.DateDebutAbsence)>#12/31/2022#));

REquete list activité marie france : 

SELECT ProductionTaches.Libelle, Service.Libelle, ProductionTaches.Macro_Ana, Service.ANALYTIQUE, ProductionGroupes.NomGroupe, ProductionTaches.CodeSite
FROM (ProductionTaches LEFT JOIN ProductionGroupes ON ProductionTaches.NumAutoGroupe = ProductionGroupes.NumAuto) LEFT JOIN Service ON ProductionTaches.idService = Service.IdService;

requete param mdp : 

SELECT PARAM.MargeMini, PARAM.DateJ, PARAM.PrixEtiquette, PARAM.NomJVentes, PARAM.MessageTarif, PARAM.INdicStandard, PARAM.ClientComptoir, PARAM.MessageTarif2, PARAM.ClientStock, PARAM.MessagePrevisio, PARAM.PrestDansRevien, PARAM.EDfactJournalie, PARAM.FactSurDateBL, PARAM.MargePrestinclu, PARAM.EDprestarif, PARAM.DebutFete, PARAM.FinFete, PARAM.FourniFete, PARAM.NomFourniFete, PARAM.EtiqSpecifique, PARAM.NomJachats, PARAM.MesTeteTarif, PARAM.PoidsPalette, PARAM.MesTeteTarVide, PARAM.MesTarVide, PARAM.MesTarVide2, PARAM.GestionStock, PARAM.IDetiquette, PARAM.TauxCoulage, PARAM.CoursEURO, PARAM.Version, PARAM.TauxHoraire, PARAM.CoutPurifKG, PARAM.NBJoursA, PARAM.NBJoursB, PARAM.NBJoursC, PARAM.ConditRgltPurif, PARAM.ArrondiPVFdizai, PARAM.AfficherEuro, PARAM.MDPProjet, PARAM.IDetikEntree, PARAM.IDetikSortie, PARAM.NBligFactDetail, PARAM.IDfourniGroupag, PARAM.DateNewPR, PARAM.DatePassageEURO, PARAM.PasseALeuro, PARAM.IDetiqCABcolis, PARAM.IDetiqCABunite, PARAM.IDrecette, PARAM.IDetiqCABBL, PARAM.IDetiqCABBLspecial, PARAM.NBheuresA, PARAM.NBheuresB, PARAM.NBheuresC, PARAM.SuperPR1, PARAM.SuperPR2, PARAM.NBheuresD, PARAM.NBheuresE, PARAM.NBheuresF, PARAM.ZoneA, PARAM.ZoneB, PARAM.ZoneC, PARAM.ZoneD, PARAM.ZoneE, PARAM.ZoneF, PARAM.IDetiqCABBLprep, PARAM.GestionEmballage, PARAM.Hpause, PARAM.Hmaladie, PARAM.TrancheCA1, PARAM.TrancheCA2, PARAM.TrancheCA3, PARAM.TauxCA1, PARAM.TauxCA2, PARAM.TauxCA3, PARAM.TauxMargeLimite, PARAM.DateEmballage, PARAM.HeureTraitementAuto, PARAM.TauxHeurenuit, PARAM.TauxHeureSup, PARAM.TauxHeureFerie, PARAM.TauxCoutEntreprise, PARAM.LibPrime1, PARAM.LibPrime2, PARAM.LibPrime3, PARAM.LibPrime4, PARAM.LibPrime5, PARAM.LibPrime6, PARAM.LibPrime7, PARAM.LibPrime8, PARAM.LibPrime9, PARAM.LibPrime10, PARAM.LibPrime11, PARAM.LibPrime12, PARAM.LibPrime13, PARAM.LibPrime14, PARAM.Langue1, PARAM.Langue2, PARAM.Langue3, PARAM.Langue4, PARAM.Langue5, PARAM.MDPRH, PARAM.EmailEnvoiFax, PARAM.MDPRHBis, PARAM.tempofax, PARAM.ServeurSMTP, PARAM.NumeroBonTransport, PARAM.IDetiqCABpaletteProd, PARAM.PoidsMaxReperePalette, PARAM.DDebutFete, PARAM.DFinFete, PARAM.IdEtikCABPartiel, PARAM.SecondTourProd, PARAM.Stock_OK, PARAM.COF_Delai_Fact, PARAM.COF_Delai_RappelO, PARAM.COF_Delai_Relance1, PARAM.COF_Delai_Relance2, PARAM.ASSCREDIT_Actif, PARAM.RapportProductivite, PARAM.MargeNuit, PARAM.StatsVJnuit, PARAM.NePasEteindre, PARAM.COF_Delai_Declaration, PARAM.COF_Delai_Intervention, PARAM.Date_Fin_Objectif_1, PARAM.Date_Fin_Objectif_2, PARAM.Annee_Fin_Objectif_1, PARAM.Annee_Fin_Objectif_2, PARAM.ZoneG, PARAM.ZoneH, PARAM.ZoneI, PARAM.ZoneJ, PARAM.NBheuresG, PARAM.NBheuresH, PARAM.NBheuresI, PARAM.NBheuresJ, PARAM.Prod2008, PARAM.TitreMailing1, PARAM.TitreMailing2, PARAM.TitreMailing3, PARAM.TitreMailing4, PARAM.TitreMailing5, PARAM.RemAnivCRF_DateDeb, PARAM.RemAnivCRF_DateFin, PARAM.TauxRemAniv, PARAM.HauteurMaxPaletteRepere, PARAM.Analyse2010, PARAM.COF_Delai_Notif, PARAM.Meto_PasNoLotPreco, PARAM.TolerencePointage, PARAM.srvPointageNuit, PARAM.SMTPserveurNom, PARAM.PrecoNewBLclient, PARAM.TauxHeure0105, PARAM.NCINuit, PARAM.BLCreerAutomatique, PARAM.DestinatairesStatsProduits, PARAM.DestinatairesStatsEmployes, PARAM.MDPCodir, PARAM.MDPParametres
FROM PARAM;

Retards Prod FR : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1],3) AS POINTAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1]-[HEURE_JOUR1]![HeureDebutProd],3) AS RETARD, EMPLOYES1.[Actif], EMPLOYES1.NomPrenomResponsable
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour)>#1/1/2025#) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1-HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899#) And ((EMPLOYES1.TypeContrat)="CDI"))
ORDER BY HEURE_JOUR1.LeJour;

service activite : 

SELECT Service.Libelle, ProductionEquipes1.Libelle, ProductionEquipes1.CodeSite
FROM Service LEFT JOIN ProductionEquipes1 ON Service.IdService = ProductionEquipes1.idService;

HeuresPROD :

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM HEURE_JOUR RIGHT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") AND ((HEURE_JOUR.LeJour)>=#1/1/2025#) AND ((CBool([EMPLOYES1]![Productif]))<>0));

UNION SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM HEURE_JOUR RIGHT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenom)="LEVOYER Allan") AND ((HEURE_JOUR.LeJour)>=#1/1/2025#));

 

No comments to display

Back to top