' Définition de la requête en fonction du filtre choisi (periode)
Select Case periode
Case "TT"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND ((HISTO_TAC.DT_CRE = '" & date_ajd & "' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.TACTIVE=1) OR (HISTO_TAC.DT_CRE BETWEEN '" & date_moins_10 & "' AND '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND HISTO_TAC.DPL=0 AND Commun_tachesREC.TACTIVE=1))ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TARF"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND ((COMMUN_TACHESREC.DATETEMPO = '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.TACTIVE=1) OR (HISTO_TAC.DT_CRE BETWEEN '" & date_moins_10 & "' AND '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND HISTO_TAC.DPL=0 AND Commun_tachesREC.TACTIVE=1)) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TAOK"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, Commun_tachesREC.ID, COMMUN_TACHESREC.GRPINTERV, Commun_tachesREC.DATETEMPO, HISTO_TAC.DT_CRE, Commun_tachesREC.Titre, Commun_tachesREC.Horaire, HISTO_TAC.IDTachesREC, Commun_tachesREC.URL_Procedure, Commun_tachesREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, Commun_tachesREC.IDTYPE_Niv2, Commun_tachesREC.IDCriticite, Commun_tachesREC.Ponctuelle, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM Commun_tachesREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND (HISTO_TAC.DT_CRE = '" & date_ajd & "' AND HISTO_TAC.RAS=1 AND HISTO_TAC.PB=0 AND Commun_tachesREC.TACTIVE=1) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TAIN"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, Commun_tachesREC.ID, COMMUN_TACHESREC.GRPINTERV, Commun_tachesREC.DATETEMPO, HISTO_TAC.DT_CRE, Commun_tachesREC.Titre, Commun_tachesREC.Horaire, HISTO_TAC.IDTachesREC, Commun_tachesREC.URL_Procedure, Commun_tachesREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, Commun_tachesREC.IDTYPE_Niv2, Commun_tachesREC.IDCriticite, Commun_tachesREC.Ponctuelle, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM Commun_tachesREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND (HISTO_TAC.DT_CRE = '" & date_ajd & "' AND HISTO_TAC.RAS=0 AND HISTO_TAC.PB=1 AND Commun_tachesREC.TACTIVE=1) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TTJ"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND ((HISTO_TAC.DT_CRE = '" & date_ajd & "' AND Commun_tachesREC.Horaire >= '01:00' AND Commun_tachesREC.Horaire <= '22:59' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.Horaire >= '01:00' AND Commun_tachesREC.Horaire <= '22:59'AND Commun_tachesREC.TACTIVE=1)) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TTJ1"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID, HISTO_TAC, Commun_Applications, Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND ((HISTO_TAC.DT_CRE = '" & date_ajd & "' AND Commun_tachesREC.Horaire >= '23:00' AND Commun_tachesREC.Horaire <= '23:59' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.Horaire >= '23:00' AND Commun_tachesREC.Horaire <= '23:59'AND Commun_tachesREC.TACTIVE=1) OR (HISTO_TAC.DT_CRE = '" & date+1 & "' AND Commun_tachesREC.Horaire >= '23:00' AND Commun_tachesREC.Horaire <= '23:59' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date+1 & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.Horaire >= '23:00' AND Commun_tachesREC.Horaire <= '23:59'AND Commun_tachesREC.TACTIVE=1) ) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TTJ2"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND ((HISTO_TAC.DT_CRE = '" & date_ajd & "' AND Commun_tachesREC.Horaire >= '00:00' AND Commun_tachesREC.Horaire <= '00:59' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date_ajd & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.Horaire >= '23:00' AND Commun_tachesREC.Horaire <= '00:59'AND Commun_tachesREC.TACTIVE=1) OR (HISTO_TAC.DT_CRE = '" & date-1 & "' AND Commun_tachesREC.Horaire >= '00:00' AND Commun_tachesREC.Horaire <= '00:59' AND Commun_tachesREC.TACTIVE=1) OR (COMMUN_TACHESREC.DATETEMPO = '" & date-1 & "' AND HISTO_TAC.RAS = 0 AND HISTO_TAC.PB = 0 AND Commun_tachesREC.Horaire >= '00:00' AND Commun_tachesREC.Horaire <= '00:59'AND Commun_tachesREC.TACTIVE=1) ) ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TTJ5"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND HISTO_TAC.DT_CRE >= '" & (date)+1 & "' AND HISTO_TAC.DT_CRE <= '" & (date)+5 & "' AND Commun_tachesREC.TACTIVE=1 ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
Case "TTPJ5"
sSql = "SET DATEFORMAT DMY SELECT HISTO_TAC.ID as HistoID, COMMUN_TACHESREC.ID, COMMUN_TACHESREC.GRPINTERV, COMMUN_TACHESREC.DATETEMPO, HISTO_TAC.DT_CRE, COMMUN_TACHESREC.TITRE, COMMUN_TACHESREC.HORAIRE, HISTO_TAC.IDTACHESREC, COMMUN_TACHESREC.URL_PROCEDURE, COMMUN_TACHESREC.ActionPB, Commun_Applications.NAME AS APPNAME, Commun_Applications.CLASS AS CLASSNAME, Commun_Type_Niv1.NAME AS TYPENAME, Commun_GrpInterv.GRP_NAME, COMMUN_TACHESREC.IDTYPE_NIV2, COMMUN_TACHESREC.IDCRITICITE, COMMUN_TACHESREC.PONCTUELLE, HISTO_TAC.PB, HISTO_TAC.RAS,HISTO_TAC.DPL,HISTO_INC.IDEtat FROM COMMUN_TACHESREC left outer join HISTO_INC on HISTO_INC.IDTachesREC = COMMUN_TACHESREC.ID,HISTO_TAC,Commun_Applications,Commun_Type_Niv1,Commun_GrpInterv "&Grp_intervenant2&" COMMUN_TACHESREC.ID = HISTO_TAC.IDTACHESREC AND Commun_Applications.ID = Commun_tachesREC.IDAppli AND Commun_Type_Niv1.ID = Commun_tachesREC.IDType_Niv1 AND Commun_GrpInterv.ID = Commun_tachesREC.GRPInterv AND HISTO_TAC.DT_CRE >= '" & (date)+1 & "' AND HISTO_TAC.DT_CRE <= '" & (date)+5 & "' AND Commun_tachesREC.Ponctuelle=1 AND Commun_tachesREC.TACTIVE=1 ORDER BY HISTO_TAC.DT_CRE, COMMUN_TACHESREC.HORAIRE"
End Select