correctifs bis

test/source/forms/frm_Admin.bas

@@ -1,840 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    RecordSelectors = NotDefault
-    MaxButton = NotDefault
-    MinButton = NotDefault
-    ControlBox = NotDefault
-    AutoCenter = NotDefault
-    NavigationButtons = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    ScrollBars =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =10714
-    DatasheetFontHeight =11
-    ItemSuffix =16
-    Right =9030
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x98cd09ff0f38e440
-    End
-    OnCurrent ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin CheckBox
-            BorderLineStyle =0
-            LabelX =230
-            LabelY =-30
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BorderThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BorderShade =65.0
-            ShowPageHeaderAndPageFooter =1
-        End
-        Begin FormHeader
-            Height =5986
-            BackColor =13611711
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =850
-                    Top =170
-                    Width =3232
-                    Height =340
-                    FontSize =13
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Outils d'Administration"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =850
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =4082
-                    LayoutCachedHeight =510
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =283
-                    Top =170
-                    Width =501
-                    Height =336
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
-                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
-                                "ccessservices/2009/11/forms\"><"
-                        End
-                        Begin
-                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =784
-                    LayoutCachedHeight =506
-                    Gradient =0
-                    BackColor =16183539
-                    BackThemeColorIndex =-1
-                    BackTint =100.0
-                    BorderColor =12029087
-                    BorderThemeColorIndex =-1
-                    BorderTint =100.0
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin CheckBox
-                    OverlapFlags =85
-                    Left =283
-                    Top =3039
-                    Width =340
-                    Height =283
-                    ColumnOrder =0
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="AvertSQL"
-                    AfterUpdate ="[Event Procedure]"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =3039
-                    LayoutCachedWidth =623
-                    LayoutCachedHeight =3322
-                    Begin
-                        Begin Label
-                            OverlapFlags =247
-                            Left =512
-                            Top =3004
-                            Width =4245
-                            Height =555
-                            BorderColor =8355711
-                            Name ="Étiquette3"
-                            Caption ="Activer / Désactiver les avertissements SQL (lors de mises à jour, suppressions."
-                                "..)"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =512
-                            LayoutCachedTop =3004
-                            LayoutCachedWidth =4757
-                            LayoutCachedHeight =3559
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =793
-                    Width =4245
-                    Height =397
-                    TabIndex =2
-                    ForeColor =16777215
-                    Name ="Commande4"
-                    Caption ="Ouvrir les paramètres utilisateurs"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =4755
-                    LayoutCachedHeight =1190
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =2
-                    WebImagePaddingBottom =2
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =1586
-                    Width =4245
-                    Height =397
-                    TabIndex =3
-                    ForeColor =16777215
-                    Name ="Commande5"
-                    Caption ="Droits d'accès"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =1586
-                    LayoutCachedWidth =4755
-                    LayoutCachedHeight =1983
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =2323
-                    Width =4245
-                    Height =397
-                    TabIndex =4
-                    ForeColor =16777215
-                    Name ="Commande6"
-                    Caption ="Suivi des versions"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =2323
-                    LayoutCachedWidth =4755
-                    LayoutCachedHeight =2720
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =4422
-                    Width =4256
-                    Height =396
-                    TabIndex =5
-                    ForeColor =16777215
-                    Name ="ImportPDA"
-                    Caption ="Import Direct depuis PDA"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =4422
-                    LayoutCachedWidth =4766
-                    LayoutCachedHeight =4818
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =3775
-                    Width =4245
-                    Height =397
-                    TabIndex =6
-                    ForeColor =16777215
-                    Name ="ToutImpr"
-                    Caption ="Tout Imprimer*"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =3775
-                    LayoutCachedWidth =4755
-                    LayoutCachedHeight =4172
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =510
-                    Top =5106
-                    Width =4252
-                    Height =393
-                    TabIndex =7
-                    ForeColor =16777215
-                    Name ="PeripleToutExporter"
-                    Caption ="PERIPLE: Tout Exporter"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =5106
-                    LayoutCachedWidth =4762
-                    LayoutCachedHeight =5499
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =25
-                    BackColor =10642560
-                    BackThemeColorIndex =7
-                    BackTint =100.0
-                    BorderColor =10642560
-                    BorderThemeColorIndex =7
-                    BorderTint =100.0
-                    HoverColor =11895705
-                    HoverThemeColorIndex =7
-                    HoverTint =80.0
-                    PressedColor =8605542
-                    PressedThemeColorIndex =7
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =33
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =625
-                    Top =5703
-                    Width =3911
-                    Height =283
-                    BorderColor =8355711
-                    Name ="txt_prog"
-                    Caption ="..."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =625
-                    LayoutCachedTop =5703
-                    LayoutCachedWidth =4536
-                    LayoutCachedHeight =5986
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =0
-            BackColor =13611711
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-        Begin FormFooter
-            Height =396
-            BackColor =13611711
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =85
-                    Left =120
-                    Top =60
-                    Width =8775
-                    Height =285
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="* Imprime un exemplaire de chaque formulaire depuis le début de l'année pour l'a"
-                        "gent choisi."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =120
-                    LayoutCachedTop =60
-                    LayoutCachedWidth =8895
-                    LayoutCachedHeight =345
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub AvertSQL_AfterUpdate()
-If Me.AvertSQL = True Then
- Call MAJParametre("AvertSQL", 1)
-Else
- Call MAJParametre("AvertSQL", 0)
-End If
-
-Me.Refresh
-End Sub
-
-Private Sub Commande4_Click()
-DoCmd.OpenForm "frm_ParamUtil"
-End Sub
-
-Private Sub Commande5_Click()
-DoCmd.OpenForm "frm_acces"
-End Sub
-
-Private Sub Commande6_Click()
-DoCmd.OpenForm "frm_SuiviVersions"
-End Sub
-
-Private Sub Form_Current()
-If parametre("AvertSQL") = 1 Then
- Me.AvertSQL = True
-Else
- Me.AvertSQL = False
-End If
-
-
-End Sub
-
-
-Private Sub ImportPDA_Click()
-Dim fichier As String
-Dim rep As String
-Dim nomFichier As String
-Dim strMAJImportRH, sql, critere As String
-Dim DejaImporte As Integer
-Dim CodeAgent As String
-Dim moisRH, anneeRH As Integer
-Dim rs As DAO.Recordset
-
-DejaImporte = 0
-
-'chercher le nom du fichier
-fichier = Nz(ChercherNomFichier(), "")
-
-If fichier = "" Then
-    Exit Sub
-End If
-
-'''''''procédure d'import du xml'''''''
-'vider la table d'importation rapport
-
-DoCmd.SetWarnings False
-DoCmd.RunSQL ("DELETE * FROM Rapport;")
-
-
-'test si fichier déja importé
-
-nomFichier = ExtraitNomFichier(fichier)
-rep = ExtraitNomRep(fichier)
-
-Call MAJParametre("RepXML", rep)
-
-DoCmd.SetWarnings False
-
-If DCount("FichierXML", "tbl_ImportRH", "[FichierXML]='" & nomFichier & "'") > 0 Or DCount("FichierXML", "tbl_ImportRH", "[FichierXML]='" & Right(nomFichier, (Len(nomFichier) - 2)) & "'") > 0 Then
- If MsgBox("Attention, ce fichier semble avoir déja été importé. Le réimport supprimera toutes les anciennes données relatives à ce fichier. Voulez vous continuer?", vbYesNo) = vbNo Then Exit Sub
- DejaImporte = 1
- sql = "DELETE * FROM tbl_ImportRH WHERE [FichierXML]='" & nomFichier & "' OR [FichierXML]='" & Right(nomFichier, (Len(nomFichier) - 2)) & "';"
- DoCmd.RunSQL sql
-End If
-
-'appeler la procédure d'import XML
-Call ImportXMLPDA(fichier)
-
-strShortFileName = nomFichier
-
-'TRANSFERT DES DONNEES RH VERS tbl_ImportRH (reprendre le code SQL du module d'import PDA)
-strUpdateImportRH = "INSERT INTO tbl_ImportRH ( CodeLigne, CodeAgent, DateRH, CodeChantier, CodeLocalisation, Localisation, strCategorieInterventionId, HeureSup1, HeureSup2, HeureSupDimanche, Repas, DistanceTranche1, VehiculePersoTranche1, DistanceTranche2, VehiculePersoTranche2, Remarque, Depart, FichierXML, DateImport, ResponsableImport ) " & _
-                    "SELECT Rapport.Id, Rapport.CodeAgent, ReformateDate([datedebut]) AS DDebut, Rapport.CodeChantier, Rapport.CodeLocalisation, DLookUp('strTiersMnemo','tblTiers','lngTiersId = ' & [CodeLocalisation]& ' ') AS Localisation, " & _
-                    "Rapport.CodeNatureRealisation, Rapport.HeureSup1, Rapport.HeureSup2, Rapport.HeureSupDimanche, Rapport.Repas, Rapport.DistanceTranche1, Rapport.VehiculePersoTranche1, Rapport.DistanceTranche2, Rapport.VehiculePersoTranche2, Rapport.Remarque, Rapport.Depart, '" & strShortFileName & "' AS FichierXML, Now() AS DateImport, Environ('Username') AS ResponsableImport " & _
-                    "FROM Rapport " & _
-                    "WHERE (((Rapport.HeureSup1) Is Not Null) AND ((Rapport.HeureSup2) Is Not Null) AND ((Rapport.HeureSupDimanche) Is Not Null) AND ((Rapport.Repas) Is Not Null) AND ((Rapport.DistanceTranche1) Is Not Null) AND ((Rapport.VehiculePersoTranche1) Is Not Null) AND ((Rapport.DistanceTranche2) Is Not Null) AND ((Rapport.VehiculePersoTranche2) Is Not Null));"
-
-DoCmd.RunSQL strUpdateImportRH
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_ImportRH WHERE [FichierXML]='" & nomFichier & "';")
-
-If rs.RecordCount = 0 Then
- MsgBox "Données importées dans tbl_ImportRH; Erreur dans le retraitement des données, veuillez procéder manuellement."
- Exit Sub
-End If
-
-rs.MoveFirst
-CodeAgent = rs![CodeAgent]
-moisRH = Month(rs![DateRH])
-anneeRH = Year(rs![DateRH])
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then
- MsgBox "Données importées dans tbl_ImportRH; Erreur dans le retraitement des données, veuillez procéder manuellement."
- Exit Sub
-End If
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-'on supprime la ligne correspondante de la table tbl_suivi, puis on lance le form "frm_chargement"
-sql = "DELETE * FROM tbl_SuiviRH WHERE " & critere & ";"
-DoCmd.RunSQL sql
-
-DoCmd.SetWarnings True
-
-Call Chargement
-
-
-End Sub
-
-Private Sub PeripleToutExporter_Click()
-Dim moisRH, anneeRH, essai As Integer
-Dim sql As String
-Dim rs As DAO.Recordset
-
-If Not CurrentProject.AllForms("frm_menu").IsLoaded Then
-  MsgBox "Le formulaire menu doit être ouvert"
-  GoTo fin
-End If
-moisRH = forms![frm_menu].moisRH
-anneeRH = forms![frm_menu].anneeRH
-
-If MsgBox("Vous aller exporter vers le serveur Sharepoint les données de tous les agents pour la période suivante:" & _
-          vbNewLine & moisRH & "\" & anneeRH, vbOKCancel) = vbCancel Then
-    MsgBox "Opération annulée"
-    GoTo fin
-End If
-
-DoCmd.Hourglass True
-'test connexion sharepoint:
-essai = 0
-While testConnexionLecteur(lecteurVirtuel, repHttp) = False
-   Call Attendre(500)
-   essai = essai + 1
-   If essai >= 3 Then
-      MsgBox "Erreur: impossible de se connecter au serveur sharepoint, les fichiers seront créés ici: " & vbNewLine & _
-               rep & nomFichier
-   End If
-Wend
-
-sql = "SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom " & _
-      "From tbl_Agents " & _
-      "GROUP BY tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.[CodeAgent] " & _
-      "HAVING (((tbl_Agents.[CodeAgent]) In (SELECT [CodeAgent] FROM tbl_ImportRH WHERE Month([DateRH])=" & moisRH & " AND Year([DateRH])=" & anneeRH & ";))) " & _
-      "ORDER BY tbl_Agents.Nom;"
-'Debug.Print sql
-Set rs = CurrentDb.OpenRecordset(sql)
-
-Me.txt_prog.Visible = True
-
-If Not rs.RecordCount > 0 Then
-  MsgBox "Erreur: aucune donnée à exporter pour cette période"
-  GoTo fin
-End If
-rs.MoveLast
-rs.MoveFirst
-
-Do Until rs.EOF = True
-  Me.txt_prog.Caption = rs.AbsolutePosition & "/" & rs.RecordCount
-  If VerifDonneesExport(rs![CodeAgent], moisRH, anneeRH) = True Then
-    Call Periple_MajTableTampon(rs![CodeAgent], moisRH, anneeRH, True)
-    'Call Periple_ExportXML(True)
-  Else
-    MsgBox rs![Nom] & " - Vous devez corriger les erreurs détectées dans les données pour pouvoir les exporter."
-  End If
-  rs.MoveNext
-Loop
-
-fin:
-  On Error GoTo 0
-  DoCmd.Hourglass False
-  Me.txt_prog.Visible = False
-  Set rs = Nothing
-  Exit Sub
-err:
-  MsgBox "Erreur: " & err.Description
-  GoTo fin
-End Sub
-
-Private Sub ToutImpr_Click()
-Dim CodeAgent, msg, critere, imprimante As String
-Dim rs As DAO.Recordset
-
-CodeAgent = Nz(InputBox("Code de l'agent?"), "")
-
-If Not Len(CodeAgent) > 0 Then Exit Sub
-If IsNull(DLookup("CodeAgent", "tbl_Agents", "[CodeAgent]='" & CodeAgent & "'")) Then
- MsgBox ("Code non trouvé dans tbl_Agents")
- Exit Sub
-End If
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE [AnneeRH]=" & Year(Now()) & " AND [CodeAgent]='" & CodeAgent & "' ORDER BY [moisRH];")
-
-If Not rs.RecordCount > 0 Then
- MsgBox ("Pas de données trouvées pour l'année en cours")
- Exit Sub
-End If
-
-rs.MoveFirst
-Do Until rs.EOF = True
- msg = msg & "," & MonthName(rs![moisRH])
-rs.MoveNext
-Loop
-
-msg = "Vous allez imprimer les formulaires des mois suivants: " & vbNewLine & Right(msg, Len(msg) - 1)
-
-If MsgBox(msg, vbYesNo) = vbNo Then Exit Sub
-
-'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
-imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
-If imprimante = "" Then
- MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
- Exit Sub
-End If
-NumIMP = 0
-NombreImp = Application.Printers.Count
-For Each ImpCherche In Application.Printers
- If ImpCherche.DeviceName = imprimante Then
-  Set Application.Printer = Application.Printers(NumIMP)
-  Exit For
- Else
-  NumIMP = NumIMP + 1
- End If
-Next ImpCherche
-
-rs.MoveFirst
-Do Until rs.EOF = True
- critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & rs![moisRH] & " AND [AnneeRH]=" & rs![anneeRH]
- Call ImprEtats("Et_FormDep", 1, critere)
- Call ImprEtats("Et_FormHS", 1, critere)
- Call ImprEtats("Et_RecapEFD", 1, critere)
- Call ImprEtats("Et_EtFraisDep", 1, critere)
-rs.MoveNext
-Loop
-
-Set Application.Printer = Nothing
-
-
-End Sub

test/source/forms/frm_AgentValide.bas

@@ -1,1007 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    FilterOn = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =11962
-    DatasheetFontHeight =11
-    ItemSuffix =31
-    Right =9810
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[CodeAgent]='T11'"
-    RecSrcDt = Begin
-        0xd24e6afe3536e440
-    End
-    RecordSource ="r_Agents"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =623
-            BackColor =15849926
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =2
-            BackTint =20.0
-            Begin
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =11281
-                    Top =56
-                    Width =576
-                    Height =396
-                    ForeColor =4210752
-                    Name ="Commande19"
-                    Caption ="Commande19"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande19\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =11281
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11857
-                    LayoutCachedHeight =452
-                    BackColor =14136213
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette20"
-                    Caption ="Données de l'agent pour le mois de"
-                    GridlineColor =10921638
-                    LayoutCachedWidth =3986
-                    LayoutCachedHeight =334
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3968
-                    Width =1418
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte8"
-                    ControlSource ="=UCase(MonthName([Forms]![frm_Menu]![Mois]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedWidth =5386
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =5499
-                    Width =1247
-                    Height =315
-                    ColumnOrder =1
-                    FontSize =13
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte10"
-                    ControlSource ="=[Forms]![frm_Menu]![Annee]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5499
-                    LayoutCachedWidth =6746
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =1418
-                    Top =283
-                    Width =321
-                    Height =315
-                    ColumnOrder =2
-                    FontSize =9
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1418
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =1739
-                    LayoutCachedHeight =598
-                    Begin
-                        Begin Label
-                            OverlapFlags =223
-                            Top =283
-                            Width =1545
-                            Height =315
-                            FontSize =9
-                            BorderColor =8355711
-                            Name ="Étiquette16"
-                            Caption ="(code période:"
-                            GridlineColor =10921638
-                            LayoutCachedTop =283
-                            LayoutCachedWidth =1545
-                            LayoutCachedHeight =598
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =1758
-                    Top =283
-                    Width =225
-                    Height =315
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette27"
-                    Caption =")"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1758
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =1983
-                    LayoutCachedHeight =598
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =6179
-            BackColor =14270637
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =1870
-                    Top =113
-                    Width =1086
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1870
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =2956
-                    LayoutCachedHeight =428
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =120
-                            Width =1575
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette0"
-                            Caption ="Code de l'agent:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =120
-                            LayoutCachedWidth =1740
-                            LayoutCachedHeight =435
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =907
-                    Top =1190
-                    Width =3066
-                    Height =315
-                    ColumnWidth =3225
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =907
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =3973
-                    LayoutCachedHeight =1505
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =1190
-                            Width =585
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette1"
-                            Caption ="Nom:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =1190
-                            LayoutCachedWidth =750
-                            LayoutCachedHeight =1505
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =1700
-                    Width =1431
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Grade"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =1700
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2015
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =1700
-                            Width =890
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Grade:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =1700
-                            LayoutCachedWidth =1060
-                            LayoutCachedHeight =2015
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =2097
-                    Width =1431
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Catégorie"
-                    ControlSource ="Catégorie"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =2097
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2412
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2097
-                            Width =1080
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette3"
-                            Caption ="Catégorie:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2097
-                            LayoutCachedWidth =1250
-                            LayoutCachedHeight =2412
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =2494
-                    Width =1431
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="RémunérationBase"
-                    ControlSource ="RémunérationBase"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =2494
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2809
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2494
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="Rémunération de base:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2494
-                            LayoutCachedWidth =2480
-                            LayoutCachedHeight =2809
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2568
-                    Top =2891
-                    Width =1401
-                    Height =315
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Groupe"
-                    ControlSource ="Groupe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2568
-                    LayoutCachedTop =2891
-                    LayoutCachedWidth =3969
-                    LayoutCachedHeight =3206
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2891
-                            Width =795
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette5"
-                            Caption ="Groupe"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2891
-                            LayoutCachedWidth =965
-                            LayoutCachedHeight =3206
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =1190
-                    Width =4191
-                    Height =750
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceAdmin"
-                    ControlSource ="ResidenceAdmin"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =11787
-                    LayoutCachedHeight =1940
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =1190
-                            Width =2490
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette6"
-                            Caption ="Résidence administrative:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =1190
-                            LayoutCachedWidth =7485
-                            LayoutCachedHeight =1505
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =2040
-                    Width =4191
-                    Height =780
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceFamiliale"
-                    ControlSource ="ResidenceFamiliale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =11787
-                    LayoutCachedHeight =2820
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4988
-                            Top =2040
-                            Width =2040
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette7"
-                            Caption ="Résidence familiale:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4988
-                            LayoutCachedTop =2040
-                            LayoutCachedWidth =7028
-                            LayoutCachedHeight =2355
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =3004
-                    Width =3411
-                    Height =315
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Telephone"
-                    ControlSource ="Telephone"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =3004
-                    LayoutCachedWidth =11007
-                    LayoutCachedHeight =3319
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =3000
-                            Width =1140
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette9"
-                            Caption ="Téléphone:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =3000
-                            LayoutCachedWidth =6135
-                            LayoutCachedHeight =3315
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2550
-                    Top =3287
-                    Width =1431
-                    Height =315
-                    TabIndex =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2550
-                    LayoutCachedTop =3287
-                    LayoutCachedWidth =3981
-                    LayoutCachedHeight =3602
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =3288
-                            Width =960
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette10"
-                            Caption ="Matricule"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =3288
-                            LayoutCachedWidth =1130
-                            LayoutCachedHeight =3603
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3974
-                    Top =4762
-                    Width =1641
-                    Height =315
-                    TabIndex =10
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateAutorisationVP"
-                    ControlSource ="DateAutorisationVP"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3974
-                    LayoutCachedTop =4762
-                    LayoutCachedWidth =5615
-                    LayoutCachedHeight =5077
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =4761
-                            Width =3630
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette12"
-                            Caption ="Date de l'autorisation de circuler:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =4761
-                            LayoutCachedWidth =3800
-                            LayoutCachedHeight =5076
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3968
-                    Top =5159
-                    Width =1641
-                    Height =315
-                    ColumnWidth =2640
-                    TabIndex =11
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PuissanceFiscVP"
-                    ControlSource ="PuissanceFiscVP"
-                    StatusBarText ="Puissance Fiscale Réelle du VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =5159
-                    LayoutCachedWidth =5609
-                    LayoutCachedHeight =5474
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =5160
-                            Width =2430
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette13"
-                            Caption ="Puissance fiscale (en CV):"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =5160
-                            LayoutCachedWidth =2595
-                            LayoutCachedHeight =5475
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3968
-                    Top =5555
-                    Width =1641
-                    Height =315
-                    TabIndex =12
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NbKmAutorisesVP"
-                    ControlSource ="NbKmAutorisesVP"
-                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =5555
-                    LayoutCachedWidth =5609
-                    LayoutCachedHeight =5870
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =5550
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette14"
-                            Caption ="Nombr de Km autorisés:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =5550
-                            LayoutCachedWidth =2475
-                            LayoutCachedHeight =5865
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =3458
-                    Width =3411
-                    Height =315
-                    TabIndex =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="TypeVirement"
-                    ControlSource ="TypeVirement"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =3458
-                    LayoutCachedWidth =11007
-                    LayoutCachedHeight =3773
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =3465
-                            Width =1770
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette15"
-                            Caption ="Type de virement:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =3465
-                            LayoutCachedWidth =6765
-                            LayoutCachedHeight =3780
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =2324
-                    Top =4308
-                    Width =3288
-                    Height =315
-                    TabIndex =14
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="Modifiable21"
-                    ControlSource ="TypeVehicule"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Listes.CodeChoix, tbl_Listes.LibelleChoix, tbl_Listes.TableListe, tbl"
-                        "_Listes.ChampListe FROM tbl_Listes WHERE (((tbl_Listes.TableListe)='tbl_Agents')"
-                        " AND ((tbl_Listes.ChampListe)='TypeVehicule')); "
-                    ColumnWidths ="0;2835"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2324
-                    LayoutCachedTop =4308
-                    LayoutCachedWidth =5612
-                    LayoutCachedHeight =4623
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =4308
-                            Width =1710
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette22"
-                            Caption ="Type de véhicule:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =4308
-                            LayoutCachedWidth =1880
-                            LayoutCachedHeight =4623
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =793
-                    Width =789
-                    Height =340
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="Poste:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =959
-                    LayoutCachedHeight =1133
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =4995
-                    Top =795
-                    Width =1485
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette24"
-                    Caption ="Coordonnées:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4995
-                    LayoutCachedTop =795
-                    LayoutCachedWidth =6480
-                    LayoutCachedHeight =1140
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =3855
-                    Width =2085
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette25"
-                    Caption ="Véhicule personnel:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =3855
-                    LayoutCachedWidth =2255
-                    LayoutCachedHeight =4200
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =14270637
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-Private Sub Form_Open(Cancel As Integer)
-Dim CodeAgent, critere, sql As String
-Dim JourRH, moisRH, anneeRH As Integer
-
-CodeAgent = forms![frm_menu].lst_agent.Column(0)
-
-If CodeAgent = "" Then
-DoCmd.Close
-Exit Sub
-End If
-
-critere = "[CodeAgent]='" & CodeAgent & "'"
-
-Me.Filter = critere
-Me.FilterOn = True
-Me.Refresh
-
-End Sub

test/source/forms/frm_BaremesValide.bas

@@ -1,552 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    RecordLocks =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15193
-    DatasheetFontHeight =11
-    ItemSuffix =29
-    Right =10050
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x127907bf35d1e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.Commentaire, tbl_baremes.PeriodeValidi"
-        "te FROM r_BaremeValide INNER JOIN tbl_baremes ON (r_BaremeValide.Expr1 = tbl_bar"
-        "emes.PeriodeValidite) AND (r_BaremeValide.NomBareme = tbl_baremes.NomBareme) GRO"
-        "UP BY tbl_baremes.NomBareme, tbl_baremes.Commentaire, tbl_baremes.PeriodeValidit"
-        "e ORDER BY tbl_baremes.NomBareme; "
-    OnCurrent ="[Event Procedure]"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BorderThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BorderShade =65.0
-            ShowPageHeaderAndPageFooter =1
-        End
-        Begin FormHeader
-            Height =1133
-            BackColor =12566463
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =566
-                    Top =793
-                    Width =1245
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="NomBareme"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =1811
-                    LayoutCachedHeight =1108
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3231
-                    Top =793
-                    Width =2820
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="Commentaire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3231
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =6051
-                    LayoutCachedHeight =1108
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =680
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Barèmes valides pour le mois de "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4666
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =576
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande16"
-                    Caption ="Commande16"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande16\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =632
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =6519
-                    Top =793
-                    Width =1545
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette19"
-                    Caption ="PeriodeValidite"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6519
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =8064
-                    LayoutCachedHeight =1108
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4195
-                    Top =56
-                    Width =1418
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte8"
-                    ControlSource ="=UCase(MonthName([Forms]![frm_Menu]![Mois]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4195
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5613
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =5726
-                    Top =56
-                    Width =1247
-                    Height =315
-                    ColumnOrder =1
-                    FontSize =13
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte10"
-                    ControlSource ="=[Forms]![frm_Menu]![Annee]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5726
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6973
-                    LayoutCachedHeight =371
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =510
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =566
-                    Top =56
-                    Width =2556
-                    Height =315
-                    ColumnWidth =2790
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3122
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3231
-                    Top =56
-                    Width =3171
-                    Height =315
-                    ColumnWidth =2775
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Commentaire"
-                    ControlSource ="Commentaire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3231
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6402
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6519
-                    Top =56
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6519
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8220
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    Visible = NotDefault
-                    OverlapFlags =85
-                    Left =12415
-                    Top =56
-                    Width =2341
-                    Height =340
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="MAJBareme"
-                    Caption ="Mettre à jour"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12415
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =14756
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin FormFooter
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =2097
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Subform
-                    CanShrink = NotDefault
-                    OverlapFlags =85
-                    BorderWidth =2
-                    Left =566
-                    Top =283
-                    Width =12075
-                    Height =1365
-                    BorderColor =16777215
-                    Name ="sfrm_detailbareme"
-                    SourceObject ="Form.sfrm_detailbareme"
-                    LinkChildFields ="NomBareme;PeriodeValidite"
-                    LinkMasterFields ="NomBareme;PeriodeValidite"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =12641
-                    LayoutCachedHeight =1648
-                    BorderShade =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-
-Private Sub Form_Current()
-AffichageSfrm
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-'hauteur pied de form auto
-Dim compte As Integer
-Dim rst As DAO.Recordset
- 
-Set rst = Me.RecordsetClone
-If rst.RecordCount = 0 Then Exit Sub
-rst.MoveLast
-compte = rst.RecordCount
-
-Me.PiedFormulaire.Height = Me.Form.InsideHeight - (Me.EntêteFormulaire.Height + compte * Me.Détail.Height)
-
-End Sub
-
-Private Sub MAJBareme_Click()
-Dim NomBareme As String
-Dim PeriodeValidite As Integer
-Dim sql, critere As String
-
-
-NomBareme = Me.NomBareme
-PeriodeValidite = Me.PeriodeValidite
-
-'Call NvellePeriode("tbl_PeriodeBareme", NomBareme, PeriodeValidite)
-
-critere = "[NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite
-
-DoCmd.OpenForm "frm_ModifBareme", , , critere
-
-
-End Sub
-
-
-Sub AffichageSfrm()
-
-Dim niv As Integer
-
-niv = 0
-
-If IsNull(Me![sfrm_detailbareme].Form.BorneInf) Then
-'coeff simple
-niv = 1
-Else
-'barême
-niv = 2
-End If
-
-Call VerrouSfrmDetailBareme(forms![frm_BaremesValide], niv)
-
-'hauteur auto
-hauteur = Me.[sfrm_detailbareme].Form.EntêteFormulaire.Height _
-     + Me.[sfrm_detailbareme].Form.PiedFormulaire.Height _
-     + Me.[sfrm_detailbareme].Form.Détail.Height _
-         * (Me.[sfrm_detailbareme].Form.RecordsetClone.RecordCount) _
-     + 110
-
-Me.[sfrm_detailbareme].Form.InsideHeight = hauteur
-Me.[sfrm_detailbareme].Height = hauteur
-
-
-Me.Refresh
-
-End Sub

test/source/forms/frm_ChoixImpr.bas

@@ -1,291 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =6994
-    DatasheetFontHeight =11
-    ItemSuffix =6
-    Right =10815
-    Bottom =7920
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x5730dc3c1438e440
-    End
-    OnCurrent ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =5725
-            BackColor =15195103
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin ListBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =170
-                    Top =510
-                    Width =6300
-                    Height =4408
-                    BackColor =15524070
-                    ForeColor =4210752
-                    BorderColor =10921638
-                    Name ="lstImpr"
-                    RowSourceType ="Value List"
-                    RowSource ="\"\""
-                    ColumnWidths ="3525"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =6470
-                    LayoutCachedHeight =4918
-                    BackThemeColorIndex =7
-                    BackTint =20.0
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =120
-                            Width =3015
-                            Height =315
-                            FontWeight =700
-                            BorderColor =8355711
-                            Name ="Col1_Étiquette"
-                            Caption ="Sélectionnez votre imprimante:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =120
-                            LayoutCachedWidth =3180
-                            LayoutCachedHeight =435
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin CommandButton
-                    OverlapFlags =93
-                    Left =1247
-                    Top =5159
-                    Width =1757
-                    Height =340
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="Ok"
-                    Caption ="OK"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1247
-                    LayoutCachedTop =5159
-                    LayoutCachedWidth =3004
-                    LayoutCachedHeight =5499
-                    Gradient =0
-                    BackColor =15527148
-                    BackThemeColorIndex =-1
-                    BackTint =100.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =1360
-                    Top =4988
-                    Width =1700
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="impr"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1360
-                    LayoutCachedTop =4988
-                    LayoutCachedWidth =3060
-                    LayoutCachedHeight =5303
-                    Begin
-                        Begin Label
-                            Visible = NotDefault
-                            OverlapFlags =223
-                            Left =113
-                            Top =4989
-                            Width =1275
-                            Height =315
-                            BorderColor =8355711
-                            ForeColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="impr choisie:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =113
-                            LayoutCachedTop =4989
-                            LayoutCachedWidth =1388
-                            LayoutCachedHeight =5304
-                        End
-                    End
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =3572
-                    Top =5159
-                    Width =1757
-                    Height =340
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="Annuler"
-                    Caption ="Annuler"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3572
-                    LayoutCachedTop =5159
-                    LayoutCachedWidth =5329
-                    LayoutCachedHeight =5499
-                    Gradient =0
-                    BackColor =15527148
-                    BackThemeColorIndex =-1
-                    BackTint =100.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Annuler_Click()
-Me.impr = "annuler"
-End Sub
-
-Private Sub Ok_Click()
-Dim impr As String
-Me.impr = Me.lstImpr
-End Sub
-
-Private Sub Form_Current()
-Me.impr = ""
-'on liste les imprimantes
-For Each prt In Application.Printers
-Me.lstImpr.AddItem prt.DeviceName
-Next
-Me.lstImpr.AllowValueListEdits = False
-End Sub

test/source/forms/frm_HistoAgent.bas

@@ -1,893 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =25965
-    DatasheetFontHeight =11
-    ItemSuffix =43
-    Right =18435
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[CodeAgent]='T5'"
-    RecSrcDt = Begin
-        0xebcd95be35d1e440
-    End
-    RecordSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.Grade, tbl_Agents.Catégo"
-        "rie, tbl_Agents.RémunérationBase AS [Rémunération de base], tbl_Agents.Groupe, t"
-        "bl_Agents.ResidenceAdmin AS [Résidence administrative], tbl_Agents.ResidenceFami"
-        "liale AS [Résidence familiale], tbl_Agents.Telephone AS Téléphone, tbl_Agents.Ma"
-        "tricule, tbl_Agents.TypeVehicule AS Véhicule, tbl_Agents.DateAutorisationVP AS ["
-        "Date de l'autorisation de circuler], tbl_Agents.PuissanceFiscVP AS [Puissance fi"
-        "scale], tbl_Agents.NbKmAutorisesVP AS [Nombre de kilomètres autorisés], tbl_Agen"
-        "ts.TypeVirement AS [Type de virement], tbl_Agents.PeriodeValidite AS [Période de"
-        " validité], tbl_PeriodeAgent.DateInf AS [Valide à partir de], tbl_PeriodeAgent.D"
-        "ateSup AS [Valide jusqu'à] FROM tbl_PeriodeAgent INNER JOIN tbl_Agents ON (tbl_P"
-        "eriodeAgent.CodePeriode = tbl_Agents.PeriodeValidite) AND (tbl_PeriodeAgent.Code"
-        "Agent = tbl_Agents.CodeAgent) ORDER BY tbl_Agents.CodeAgent, tbl_Agents.PeriodeV"
-        "alidite DESC; "
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin CheckBox
-            BorderLineStyle =0
-            LabelX =230
-            LabelY =-30
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1247
-            BackColor =14270637
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =623
-                    Top =113
-                    Width =3969
-                    Height =453
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Historique des données de l'agent:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =4592
-                    LayoutCachedHeight =566
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =7143
-                    Top =113
-                    Width =1230
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette21"
-                    Caption ="(Code Agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7143
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =8373
-                    LayoutCachedHeight =428
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =4875
-                    Top =906
-                    Width =1185
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="Grade"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4875
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =6060
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =6122
-                    Top =906
-                    Width =975
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette24"
-                    Caption ="Catégorie"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6122
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =7097
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =223
-                    Left =7086
-                    Top =711
-                    Width =1365
-                    Height =510
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette25"
-                    Caption ="Rémunération de base"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7086
-                    LayoutCachedTop =711
-                    LayoutCachedWidth =8451
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =87
-                    Left =8446
-                    Top =906
-                    Width =765
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette26"
-                    Caption ="Groupe"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8446
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =9211
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =10827
-                    Top =906
-                    Width =2430
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette27"
-                    Caption ="Résidence administrative"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10827
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =13257
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =13492
-                    Top =906
-                    Width =1905
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette28"
-                    Caption ="Résidence familiale"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =13492
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =15397
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =15816
-                    Top =906
-                    Width =1080
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette29"
-                    Caption ="Téléphone"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =15816
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =16896
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =9580
-                    Top =906
-                    Width =960
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette30"
-                    Caption ="Matricule"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9580
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =10540
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =17574
-                    Top =906
-                    Width =900
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette31"
-                    Caption ="Véhicule"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =17574
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =18474
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =19785
-                    Top =396
-                    Width =1350
-                    Height =825
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette32"
-                    Caption ="Date de l'autorisation de circuler"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =19785
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =21135
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =21145
-                    Top =621
-                    Width =1005
-                    Height =600
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette33"
-                    Caption ="Puissance fiscale"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =21145
-                    LayoutCachedTop =621
-                    LayoutCachedWidth =22150
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =22336
-                    Top =441
-                    Width =1710
-                    Height =780
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette34"
-                    Caption ="Nombre de kilomètres autorisés"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =22336
-                    LayoutCachedTop =441
-                    LayoutCachedWidth =24046
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =24094
-                    Top =906
-                    Width =1710
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette35"
-                    Caption ="Type de virement"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =24094
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =25804
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =95
-                    Top =566
-                    Width =1245
-                    Height =660
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette36"
-                    Caption ="Période de validité"
-                    GridlineColor =10921638
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =1245
-                    LayoutCachedHeight =1226
-                End
-                Begin Label
-                    OverlapFlags =87
-                    Left =1248
-                    Top =906
-                    Width =1665
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette37"
-                    Caption ="Valide à partir de"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1248
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =2913
-                    LayoutCachedHeight =1221
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3005
-                    Top =906
-                    Width =1380
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette38"
-                    Caption ="Valide jusqu'à"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3005
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =4385
-                    LayoutCachedHeight =1221
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =113
-                    Width =516
-                    Height =396
-                    ForeColor =4210752
-                    Name ="Commande39"
-                    Caption ="Commande39"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande39\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =572
-                    LayoutCachedHeight =509
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8447
-                    Top =113
-                    Width =1086
-                    Height =315
-                    ColumnOrder =0
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8447
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =9533
-                    LayoutCachedHeight =428
-                End
-                Begin TextBox
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =4308
-                    Top =113
-                    Width =2541
-                    Height =315
-                    ColumnOrder =1
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4308
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =6849
-                    LayoutCachedHeight =428
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =9581
-                    Top =113
-                    Width =283
-                    Height =283
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette40"
-                    Caption =")"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9581
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =9864
-                    LayoutCachedHeight =396
-                End
-            End
-        End
-        Begin Section
-            Height =371
-            Name ="Détail"
-            AlternateBackColor =15523798
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =4875
-                    Width =1251
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Grade"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4875
-                    LayoutCachedWidth =6126
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =6292
-                    Width =621
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Catégorie"
-                    ControlSource ="Catégorie"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6292
-                    LayoutCachedWidth =6913
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7200
-                    Width =1131
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Rémunération de base"
-                    ControlSource ="Rémunération de base"
-                    EventProcPrefix ="Rémunération_de_base"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7200
-                    LayoutCachedWidth =8331
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8446
-                    Width =1071
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Groupe"
-                    ControlSource ="Groupe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8446
-                    LayoutCachedWidth =9517
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =10827
-                    Width =2256
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Résidence administrative"
-                    ControlSource ="Résidence administrative"
-                    EventProcPrefix ="Résidence_administrative"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10827
-                    LayoutCachedWidth =13083
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =13492
-                    Width =2271
-                    Height =315
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Résidence familiale"
-                    ControlSource ="Résidence familiale"
-                    EventProcPrefix ="Résidence_familiale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13492
-                    LayoutCachedWidth =15763
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =15817
-                    Height =315
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Téléphone"
-                    ControlSource ="Téléphone"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15817
-                    LayoutCachedWidth =17518
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =9580
-                    Width =1206
-                    Height =315
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9580
-                    LayoutCachedWidth =10786
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =19785
-                    Width =1311
-                    Height =315
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Date de l'autorisation de circuler"
-                    ControlSource ="Date de l'autorisation de circuler"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    EventProcPrefix ="Date_de_l_autorisation_de_circuler"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =19785
-                    LayoutCachedWidth =21096
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =21146
-                    Width =681
-                    Height =315
-                    ColumnWidth =2640
-                    TabIndex =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Puissance fiscale"
-                    ControlSource ="Puissance fiscale"
-                    StatusBarText ="Puissance Fiscale Réelle du VP"
-                    EventProcPrefix ="Puissance_fiscale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =21146
-                    LayoutCachedWidth =21827
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =22336
-                    Height =315
-                    TabIndex =10
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nombre de kilomètres autorisés"
-                    ControlSource ="Nombre de kilomètres autorisés"
-                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
-                    EventProcPrefix ="Nombre_de_kilomètres_autorisés"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =22336
-                    LayoutCachedWidth =24037
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =24093
-                    Height =315
-                    TabIndex =11
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Type de virement"
-                    ControlSource ="Type de virement"
-                    EventProcPrefix ="Type_de_virement"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =24093
-                    LayoutCachedWidth =25794
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Width =1191
-                    Height =315
-                    TabIndex =12
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Période de validité"
-                    ControlSource ="Période de validité"
-                    StatusBarText ="cf. tbl_PeriodeAgent"
-                    EventProcPrefix ="Période_de_validité"
-                    GridlineColor =10921638
-
-                    LayoutCachedWidth =1191
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =1247
-                    Height =315
-                    TabIndex =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Valide à partir de"
-                    ControlSource ="Valide à partir de"
-                    EventProcPrefix ="Valide_à_partir_de"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1247
-                    LayoutCachedWidth =2948
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2994
-                    Height =315
-                    TabIndex =14
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Valide jusqu'à"
-                    ControlSource ="Valide jusqu'à"
-                    EventProcPrefix ="Valide_jusqu_à"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2994
-                    LayoutCachedWidth =4695
-                    LayoutCachedHeight =315
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =17574
-                    Width =2098
-                    Height =315
-                    TabIndex =15
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="Modifiable41"
-                    ControlSource ="Véhicule"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Listes.CodeChoix, tbl_Listes.LibelleChoix, tbl_Listes.TableListe, tbl"
-                        "_Listes.ChampListe FROM tbl_Listes WHERE (((tbl_Listes.TableListe)=\"tbl_Agents\""
-                        ") AND ((tbl_Listes.ChampListe)=\"Typevehicule\")); "
-                    ColumnWidths ="0;2835"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =17574
-                    LayoutCachedWidth =19672
-                    LayoutCachedHeight =315
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End

test/source/forms/frm_HistoBaremes.bas

@@ -1,425 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    RecordLocks =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15193
-    DatasheetFontHeight =11
-    ItemSuffix =37
-    Right =9000
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[NomBareme]='Heures de route'"
-    RecSrcDt = Begin
-        0x6c06a4bd35d1e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.PeriodeValidite, tbl_PeriodeBareme.Dat"
-        "eInf, tbl_PeriodeBareme.DateSup FROM tbl_PeriodeBareme INNER JOIN tbl_baremes ON"
-        " (tbl_PeriodeBareme.NomBareme = tbl_baremes.NomBareme) AND (tbl_PeriodeBareme.Co"
-        "dePeriode = tbl_baremes.PeriodeValidite) GROUP BY tbl_baremes.NomBareme, tbl_bar"
-        "emes.PeriodeValidite, tbl_PeriodeBareme.DateInf, tbl_PeriodeBareme.DateSup ORDER"
-        " BY tbl_baremes.NomBareme, tbl_PeriodeBareme.DateInf DESC; "
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BorderThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BorderShade =65.0
-            ShowPageHeaderAndPageFooter =1
-        End
-        Begin FormHeader
-            Height =1133
-            BackColor =12566463
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =680
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Historique des versions du barème:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4666
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =576
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande16"
-                    Caption ="Commande16"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande16\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =632
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4535
-                    Top =56
-                    Width =2556
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4535
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7091
-                    LayoutCachedHeight =371
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =285
-                    Top =735
-                    Width =1845
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette34"
-                    Caption ="Periode de validité"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =285
-                    LayoutCachedTop =735
-                    LayoutCachedWidth =2130
-                    LayoutCachedHeight =1050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =2607
-                    Top =737
-                    Width =1725
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette35"
-                    Caption ="Valide à partir du:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2607
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =4332
-                    LayoutCachedHeight =1052
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =4705
-                    Top =737
-                    Width =1560
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette36"
-                    Caption ="Valide jusqu'au:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4705
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =6265
-                    LayoutCachedHeight =1052
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =396
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =283
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedWidth =1984
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2607
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateInf"
-                    ControlSource ="DateInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2607
-                    LayoutCachedWidth =4308
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =4705
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateSup"
-                    ControlSource ="DateSup"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4705
-                    LayoutCachedWidth =6406
-                    LayoutCachedHeight =315
-                End
-            End
-        End
-        Begin FormFooter
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =2324
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Subform
-                    CanShrink = NotDefault
-                    OverlapFlags =85
-                    Left =1417
-                    Top =56
-                    Width =12075
-                    Height =1365
-                    BorderColor =10921638
-                    Name ="sfrm_detailbareme"
-                    SourceObject ="Form.sfrm_detailbareme"
-                    LinkChildFields ="NomBareme;PeriodeValidite"
-                    LinkMasterFields ="NomBareme;PeriodeValidite"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1417
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =13492
-                    LayoutCachedHeight =1421
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Commande29_Click()
-Dim critere, NomBareme As String
-
-NomBareme = Nz(Me.NomBareme, "")
-
-critere = "[NomBareme]='" & NomBareme & "'"
-
-
-
-
-End Sub

test/source/forms/frm_MAJAgent.bas

@@ -1,1184 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    FilterOn = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =11970
-    DatasheetFontHeight =11
-    ItemSuffix =47
-    Right =10395
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[CodeAgent]='T5' AND [PeriodeValidite]=1"
-    RecSrcDt = Begin
-        0x8fb1b13eb636e440
-    End
-    RecordSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.PeriodeValidite, tbl_Age"
-        "nts.Grade, tbl_Agents.Catégorie, tbl_Agents.RémunérationBase, tbl_Agents.Groupe,"
-        " tbl_Agents.ResidenceAdmin, tbl_Agents.ResidenceFamiliale, tbl_Agents.Telephone,"
-        " tbl_Agents.Matricule, tbl_Agents.TypeVehicule, tbl_Agents.DateAutorisationVP, t"
-        "bl_Agents.PuissanceFiscVP, tbl_Agents.NbKmAutorisesVP, tbl_Agents.TypeVirement F"
-        "ROM tbl_Agents; "
-    AfterUpdate ="[Event Procedure]"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =2267
-            BackColor =15849926
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =2
-            BackTint =20.0
-            Begin
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =113
-                    Top =56
-                    Width =516
-                    Height =396
-                    ForeColor =4210752
-                    Name ="Commande19"
-                    Caption ="Commande19"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande19\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =629
-                    LayoutCachedHeight =452
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =680
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette20"
-                    Caption ="Mise à jour des données de l'agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4666
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =795
-                    Top =963
-                    Width =4425
-                    Height =345
-                    BorderColor =8355711
-                    Name ="txt_ancdate"
-                    Caption ="Les données ci dessous sont valables depuis le "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =795
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =5220
-                    LayoutCachedHeight =1308
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8617
-                    Top =966
-                    Width =1476
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8617
-                    LayoutCachedTop =966
-                    LayoutCachedWidth =10093
-                    LayoutCachedHeight =1281
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =795
-                    Top =1368
-                    Width =7710
-                    Height =285
-                    BorderColor =8355711
-                    Name ="txt_nvdate"
-                    Caption ="Veuillez choisir la date à partir de  laquelle les nouvelles données prendront e"
-                        "ffet:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =795
-                    LayoutCachedTop =1368
-                    LayoutCachedWidth =8505
-                    LayoutCachedHeight =1653
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8617
-                    Top =1363
-                    Width =1474
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NvelleDate"
-                    Format ="Short Date"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8617
-                    LayoutCachedTop =1363
-                    LayoutCachedWidth =10091
-                    LayoutCachedHeight =1678
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =793
-                    Top =1760
-                    Width =6480
-                    Height =345
-                    BorderColor =8355711
-                    Name ="txt_copie"
-                    Caption ="Voulez vous utiliser les anciennes données comme point de départ?"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =1760
-                    LayoutCachedWidth =7273
-                    LayoutCachedHeight =2105
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =1442
-                    Left =8617
-                    Top =1760
-                    Width =1476
-                    Height =315
-                    ColumnOrder =1
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    Name ="CopieAnc"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Oui\";0;\"Non\""
-                    ColumnWidths ="0;1441"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8617
-                    LayoutCachedTop =1760
-                    LayoutCachedWidth =10093
-                    LayoutCachedHeight =2075
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =93
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =11281
-                    Top =113
-                    Width =501
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =9
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11281
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =11782
-                    LayoutCachedHeight =428
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =10261
-                    Top =1760
-                    Width =1077
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="CmdOK"
-                    Caption ="OK"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10261
-                    LayoutCachedTop =1760
-                    LayoutCachedWidth =11338
-                    LayoutCachedHeight =2043
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =793
-                    Top =680
-                    Width =6855
-                    Height =630
-                    BorderColor =8355711
-                    Name ="txt_edition"
-                    Caption ="Veuillez renseigner ci dessous les nouvelles informations de l'agent. Elles sero"
-                        "nt prises en compte à partir du:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =7648
-                    LayoutCachedHeight =1310
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =247
-                    Left =9070
-                    Top =113
-                    Width =2385
-                    Height =225
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette46"
-                    Caption ="Code de la période affichée:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9070
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =11455
-                    LayoutCachedHeight =338
-                End
-            End
-        End
-        Begin Section
-            Height =6179
-            BackColor =14270637
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =1870
-                    Top =113
-                    Width =1086
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1870
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =2956
-                    LayoutCachedHeight =428
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =120
-                            Width =1575
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette0"
-                            Caption ="Code de l'agent:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =120
-                            LayoutCachedWidth =1740
-                            LayoutCachedHeight =435
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =907
-                    Top =1190
-                    Width =3066
-                    Height =315
-                    ColumnWidth =3225
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =907
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =3973
-                    LayoutCachedHeight =1505
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =1190
-                            Width =585
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette1"
-                            Caption ="Nom:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =1190
-                            LayoutCachedWidth =750
-                            LayoutCachedHeight =1505
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =1700
-                    Width =1431
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Grade"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =1700
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2015
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =1700
-                            Width =890
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Grade:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =1700
-                            LayoutCachedWidth =1060
-                            LayoutCachedHeight =2015
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =2097
-                    Width =1431
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Catégorie"
-                    ControlSource ="Catégorie"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =2097
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2412
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2097
-                            Width =1080
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette3"
-                            Caption ="Catégorie:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2097
-                            LayoutCachedWidth =1250
-                            LayoutCachedHeight =2412
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =2494
-                    Width =1431
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="RémunérationBase"
-                    ControlSource ="RémunérationBase"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =2494
-                    LayoutCachedWidth =3982
-                    LayoutCachedHeight =2809
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2494
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="Rémunération de base:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2494
-                            LayoutCachedWidth =2480
-                            LayoutCachedHeight =2809
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2568
-                    Top =2891
-                    Width =1401
-                    Height =315
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Groupe"
-                    ControlSource ="Groupe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2568
-                    LayoutCachedTop =2891
-                    LayoutCachedWidth =3969
-                    LayoutCachedHeight =3206
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =2891
-                            Width =795
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette5"
-                            Caption ="Groupe"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =2891
-                            LayoutCachedWidth =965
-                            LayoutCachedHeight =3206
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =1190
-                    Width =4191
-                    Height =750
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceAdmin"
-                    ControlSource ="ResidenceAdmin"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =11787
-                    LayoutCachedHeight =1940
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =1190
-                            Width =2490
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette6"
-                            Caption ="Résidence administrative:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =1190
-                            LayoutCachedWidth =7485
-                            LayoutCachedHeight =1505
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =2040
-                    Width =4191
-                    Height =780
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceFamiliale"
-                    ControlSource ="ResidenceFamiliale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =11787
-                    LayoutCachedHeight =2820
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4988
-                            Top =2040
-                            Width =2040
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette7"
-                            Caption ="Résidence familiale:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4988
-                            LayoutCachedTop =2040
-                            LayoutCachedWidth =7028
-                            LayoutCachedHeight =2355
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =3004
-                    Width =3411
-                    Height =315
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Telephone"
-                    ControlSource ="Telephone"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =3004
-                    LayoutCachedWidth =11007
-                    LayoutCachedHeight =3319
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =3000
-                            Width =1140
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette9"
-                            Caption ="Téléphone:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =3000
-                            LayoutCachedWidth =6135
-                            LayoutCachedHeight =3315
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2550
-                    Top =3287
-                    Width =1431
-                    Height =315
-                    TabIndex =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2550
-                    LayoutCachedTop =3287
-                    LayoutCachedWidth =3981
-                    LayoutCachedHeight =3602
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =3288
-                            Width =960
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette10"
-                            Caption ="Matricule"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =3288
-                            LayoutCachedWidth =1130
-                            LayoutCachedHeight =3603
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3974
-                    Top =4762
-                    Width =1641
-                    Height =315
-                    TabIndex =10
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateAutorisationVP"
-                    ControlSource ="DateAutorisationVP"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3974
-                    LayoutCachedTop =4762
-                    LayoutCachedWidth =5615
-                    LayoutCachedHeight =5077
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =4761
-                            Width =3630
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette12"
-                            Caption ="Date de l'autorisation de circuler:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =4761
-                            LayoutCachedWidth =3800
-                            LayoutCachedHeight =5076
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3968
-                    Top =5159
-                    Width =1641
-                    Height =315
-                    ColumnWidth =2640
-                    TabIndex =11
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PuissanceFiscVP"
-                    ControlSource ="PuissanceFiscVP"
-                    StatusBarText ="Puissance Fiscale Réelle du VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =5159
-                    LayoutCachedWidth =5609
-                    LayoutCachedHeight =5474
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =5160
-                            Width =2430
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette13"
-                            Caption ="Puissance fiscale (en CV):"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =5160
-                            LayoutCachedWidth =2595
-                            LayoutCachedHeight =5475
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3968
-                    Top =5555
-                    Width =1641
-                    Height =315
-                    TabIndex =12
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NbKmAutorisesVP"
-                    ControlSource ="NbKmAutorisesVP"
-                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =5555
-                    LayoutCachedWidth =5609
-                    LayoutCachedHeight =5870
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =165
-                            Top =5550
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette14"
-                            Caption ="Nombr de Km autorisés:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =5550
-                            LayoutCachedWidth =2475
-                            LayoutCachedHeight =5865
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7596
-                    Top =3458
-                    Width =3411
-                    Height =315
-                    TabIndex =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="TypeVirement"
-                    ControlSource ="TypeVirement"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7596
-                    LayoutCachedTop =3458
-                    LayoutCachedWidth =11007
-                    LayoutCachedHeight =3773
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4995
-                            Top =3465
-                            Width =1770
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette15"
-                            Caption ="Type de virement:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4995
-                            LayoutCachedTop =3465
-                            LayoutCachedWidth =6765
-                            LayoutCachedHeight =3780
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =2324
-                    Top =4308
-                    Width =3288
-                    Height =315
-                    TabIndex =14
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="TypeVehicule"
-                    ControlSource ="TypeVehicule"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Listes.CodeChoix, tbl_Listes.LibelleChoix, tbl_Listes.TableListe, tbl"
-                        "_Listes.ChampListe FROM tbl_Listes WHERE (((tbl_Listes.TableListe)='tbl_Agents')"
-                        " AND ((tbl_Listes.ChampListe)='TypeVehicule')); "
-                    ColumnWidths ="0;2835"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2324
-                    LayoutCachedTop =4308
-                    LayoutCachedWidth =5612
-                    LayoutCachedHeight =4623
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =170
-                            Top =4308
-                            Width =1710
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette22"
-                            Caption ="Type de véhicule:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =170
-                            LayoutCachedTop =4308
-                            LayoutCachedWidth =1880
-                            LayoutCachedHeight =4623
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =793
-                    Width =789
-                    Height =340
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="Poste:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =959
-                    LayoutCachedHeight =1133
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =4995
-                    Top =795
-                    Width =1485
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette24"
-                    Caption ="Coordonnées:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4995
-                    LayoutCachedTop =795
-                    LayoutCachedWidth =6480
-                    LayoutCachedHeight =1140
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =3855
-                    Width =2085
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette25"
-                    Caption ="Véhicule personnel:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =3855
-                    LayoutCachedWidth =2255
-                    LayoutCachedHeight =4200
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =14270637
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Form_AfterUpdate()
-Me.DateInf = DLookup("[DateInf]", "[tbl_periodeAgent]", "[CodeAgent]='" & Me.CodeAgent & "' AND [CodePeriode]=" & Me.PeriodeValidite)
-
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Me.NvelleDate = "01/" & Format(Month(Now()), "00") & "/" & Year(Now())
-Me.CopieAnc = 1
-Me.DateInf = DLookup("[DateInf]", "[tbl_periodeAgent]", "[CodeAgent]='" & Me.CodeAgent & "' AND [CodePeriode]=" & Me.PeriodeValidite)
-
-Call VerrouMAJAgent(1)
-End Sub
-
-Private Sub CmdOK_Click()
-Dim rs As DAO.Recordset
-Dim NvPeriode, copie, i, k As Integer
-Dim NvelleDate As Date
-Dim CodeAgent As String
-Dim ACopier() As Variant
-
-CodeAgent = Me.CodeAgent
-NvelleDate = CDate(Me.NvelleDate)
-copie = Nz(Me.CopieAnc.Column(0), 1)
-
-If IsNull(NvelleDate) Then
- Me.NvelleDate.BackColor = 12566463
- Exit Sub
-End If
-
-NvPeriode = NvellePeriode("tbl_PeriodeAgent", CodeAgent, NvelleDate)
-If NvPeriode = 0 Then Exit Sub
-
-
-Call VerrouMAJAgent(0)
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Agents WHERE [CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & Me.PeriodeValidite & ";")
-If rs.RecordCount = 0 Then copie = 0
-rs.MoveFirst
-ReDim ACopier(rs.Fields.Count - 1)
-
-For i = 0 To rs.Fields.Count - 1
- 'on copie de toute façon le code et le nom
- If rs.Fields(i).Name = "CodeAgent" Or rs.Fields(i).Name = "Nom" Then
-  ACopier(i) = rs.Fields(i)
- ElseIf rs.Fields(i).Name = "PeriodeValidite" Then
-  ACopier(i) = NvPeriode
- Else
-  If copie = 1 Then
-   ACopier(i) = rs.Fields(i)
-  Else
-   ACopier(i) = Null
-  End If
- End If
-Next i
-
-
-'création d'une nouvelle ligne dans la table tbl_agents
-Set rs = CurrentDb.OpenRecordset("tbl_Agents")
-
-rs.AddNew
-For i = 0 To rs.Fields.Count - 1
-  rs.Fields(i) = ACopier(i)
-Next i
-rs.Update
-
-'on place l'enregistrement du formulaire sur ce nouvel enregistrement
-Me.FilterOn = False
-Me.Filter = "[CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & NvPeriode
-Me.FilterOn = True
-
-Call CreerMsg(12, , CodeAgent, NvPeriode)
-
-Me.Refresh
-
-Call VerrouMAJAgent(2)
-
-End Sub

test/source/forms/frm_MAJBareme.bas

@@ -1,858 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    FilterOn = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =12245
-    DatasheetFontHeight =11
-    ItemSuffix =15
-    Right =10395
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[NomBareme]='Frais Kilométriques (11)' AND [PeriodeValidite]=1"
-    RecSrcDt = Begin
-        0xf052af211737e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.PeriodeValidite, tbl_baremes.BorneInf,"
-        " tbl_baremes.BorneSup, tbl_baremes.UniteBornes, tbl_baremes.Valeur, tbl_baremes."
-        "UniteValeur, tbl_baremes.Commentaire FROM tbl_baremes ORDER BY tbl_baremes.Borne"
-        "Inf; "
-    AfterUpdate ="[Event Procedure]"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =2607
-            BackColor =10855845
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =624
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Mise à jour du barème:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =624
-                    LayoutCachedWidth =4610
-                    LayoutCachedHeight =334
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Width =576
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande16"
-                    Caption ="Commande16"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande16\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedWidth =576
-                    LayoutCachedHeight =351
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =965
-                    Top =850
-                    Width =4425
-                    Height =345
-                    BorderColor =8355711
-                    Name ="txt_ancdate"
-                    Caption ="Les données ci dessous sont valables depuis le "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =965
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =5390
-                    LayoutCachedHeight =1195
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8787
-                    Top =853
-                    Width =1476
-                    Height =315
-                    ColumnOrder =1
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8787
-                    LayoutCachedTop =853
-                    LayoutCachedWidth =10263
-                    LayoutCachedHeight =1168
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =965
-                    Top =1255
-                    Width =7710
-                    Height =285
-                    BorderColor =8355711
-                    Name ="txt_nvdate"
-                    Caption ="Veuillez choisir la date à partir de  laquelle les nouvelles données prendront e"
-                        "ffet:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =965
-                    LayoutCachedTop =1255
-                    LayoutCachedWidth =8675
-                    LayoutCachedHeight =1540
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =8787
-                    Top =1250
-                    Width =1474
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NvelleDate"
-                    Format ="Short Date"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8787
-                    LayoutCachedTop =1250
-                    LayoutCachedWidth =10261
-                    LayoutCachedHeight =1565
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =963
-                    Top =1647
-                    Width =6480
-                    Height =345
-                    BorderColor =8355711
-                    Name ="txt_copie"
-                    Caption ="Voulez vous utiliser les anciennes données comme point de départ?"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =963
-                    LayoutCachedTop =1647
-                    LayoutCachedWidth =7443
-                    LayoutCachedHeight =1992
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    LimitToList = NotDefault
-                    RowSourceTypeInt =1
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =1442
-                    Left =8787
-                    Top =1647
-                    Width =1476
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    Name ="CopieAnc"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Oui\";0;\"Non\""
-                    ColumnWidths ="0;1442"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8787
-                    LayoutCachedTop =1647
-                    LayoutCachedWidth =10263
-                    LayoutCachedHeight =1962
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =93
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =11622
-                    Top =56
-                    Width =501
-                    Height =315
-                    ColumnOrder =4
-                    FontSize =9
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11622
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12123
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =10431
-                    Top =1647
-                    Width =1077
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="CmdOK"
-                    Caption ="OK"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10431
-                    LayoutCachedTop =1647
-                    LayoutCachedWidth =11508
-                    LayoutCachedHeight =1930
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    Left =963
-                    Top =567
-                    Width =6855
-                    Height =630
-                    BorderColor =8355711
-                    Name ="txt_edition"
-                    Caption ="Veuillez renseigner ci dessous les nouvelles informations de l'agent. Elles sero"
-                        "nt prises en compte à partir du:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =963
-                    LayoutCachedTop =567
-                    LayoutCachedWidth =7818
-                    LayoutCachedHeight =1197
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =247
-                    Left =9411
-                    Top =56
-                    Width =2385
-                    Height =225
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette46"
-                    Caption ="Code de la période affichée:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9411
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11796
-                    LayoutCachedHeight =281
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3174
-                    Width =3696
-                    Height =315
-                    ColumnWidth =2790
-                    ColumnOrder =0
-                    FontSize =13
-                    TabIndex =6
-                    BorderColor =10921638
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3174
-                    LayoutCachedWidth =6870
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =453
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =1190
-                    Top =56
-                    Width =1086
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="BorneInf"
-                    ControlSource ="BorneInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1190
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2276
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2777
-                    Top =56
-                    Width =1026
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="BorneSup"
-                    ControlSource ="BorneSup"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2777
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3803
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3911
-                    Top =56
-                    Width =786
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="UniteBornes"
-                    ControlSource ="UniteBornes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3911
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4697
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =5612
-                    Top =56
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Valeur"
-                    ControlSource ="Valeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5612
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7313
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7426
-                    Top =56
-                    Width =636
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="UniteValeur"
-                    ControlSource ="UniteValeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7426
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8062
-                    LayoutCachedHeight =371
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =623
-                    Top =56
-                    Width =450
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="De: "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =1073
-                    LayoutCachedHeight =371
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =2324
-                    Top =56
-                    Width =390
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="à:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2324
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2714
-                    LayoutCachedHeight =371
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =4818
-                    Top =56
-                    Width =690
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="=>"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4818
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5508
-                    LayoutCachedHeight =371
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =8220
-                    Top =56
-                    Width =1922
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="InserLigne"
-                    Caption ="Insérer une ligne"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8220
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10142
-                    LayoutCachedHeight =339
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =10204
-                    Top =56
-                    Width =1922
-                    TabIndex =6
-                    ForeColor =4210752
-                    Name ="SupprLigne"
-                    Caption ="Supprimer la ligne"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10204
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12126
-                    LayoutCachedHeight =339
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =14211288
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-Private Sub CmdOK_Click()
-Dim rs As DAO.Recordset
-Dim NvPeriode, copie, i, j, k As Integer
-Dim NvelleDate As Date
-Dim NomBareme As String
-Dim ACopier() As Variant
-
-NomBareme = Me.NomBareme
-If IsNull(Me.NvelleDate) Then
- MsgBox "Vous devez choisir une date de début pour la nouvelle période."
- Me.NvelleDate.BackColor = 33023
- Exit Sub
-End If
-NvelleDate = CDate(Me.NvelleDate)
-copie = Nz(Me.CopieAnc.Column(0), 1)
-
-
-NvPeriode = NvellePeriode("tbl_PeriodeBareme", NomBareme, NvelleDate)
-If NvPeriode = 0 Then Exit Sub
-
-
-Call VerrouMAJbareme(0)
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_baremes WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & Me.PeriodeValidite & ";")
-If rs.RecordCount = 0 Then copie = 0
-rs.MoveLast
-rs.MoveFirst
-
-ReDim ACopier(rs.Fields.Count - 1, rs.RecordCount)
-k = rs.RecordCount
-Do Until rs.EOF = True
-
- For i = 0 To rs.Fields.Count - 1
-  'on copie de toute façon le nom et le commentaire
-  If rs.Fields(i).Name = "NomBareme" Or rs.Fields(i).Name = "Commentaire" Then
-   ACopier(i, rs.AbsolutePosition) = rs.Fields(i)
-  ElseIf rs.Fields(i).Name = "PeriodeValidite" Then
-   ACopier(i, rs.AbsolutePosition) = NvPeriode
-  Else
-   If copie = 1 Then
-    ACopier(i, rs.AbsolutePosition) = rs.Fields(i)
-   Else
-    ACopier(i, rs.AbsolutePosition) = Null
-   End If
-  End If
- Next i
-rs.MoveNext
-Loop
-
-Set rs = Nothing
-
-'création d'une ou plusieurs nouvelle(s) ligne(s) dans la table tbl_baremes
-Set rs = CurrentDb.OpenRecordset("tbl_baremes")
-
-For j = 0 To k - 1
- rs.AddNew
- For i = 0 To rs.Fields.Count - 1
-   rs.Fields(i) = ACopier(i, j)
- Next i
- rs.Update
-Next j
-
-
-'on place l'enregistrement du formulaire sur ce nouvel enregistrement
-Me.FilterOn = False
-Me.Filter = "[NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & NvPeriode
-Me.FilterOn = True
-
-Call CreerMsg(11, , NomBareme, NvPeriode)
-Me.Refresh
-
-Call VerrouMAJbareme(2)
-
-End Sub
-
-Private Sub Form_AfterUpdate()
-Me.Requery
-Me.Refresh
-
-Me.DateInf = DLookup("[DateInf]", "[tbl_periodebareme]", "[NomBareme]='" & Me.NomBareme & "' AND [CodePeriode]=" & Me.PeriodeValidite)
-
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Me.NvelleDate = "01/" & Format(Month(Now()), "00") & "/" & Year(Now())
-Me.CopieAnc = 1
-Me.DateInf = DLookup("[DateInf]", "[tbl_periodebareme]", "[NomBareme]='" & Me.NomBareme & "' AND [CodePeriode]=" & Me.PeriodeValidite)
-
-Call VerrouMAJbareme(1)
-End Sub
-
-Private Sub InserLigne_Click()
-Dim NomBareme, UniteBornes, UniteValeur, commentaire As String
-Dim PeriodeValidite As Integer
-Dim BorneInf, Valeur As Double
-Dim rs As DAO.Recordset
-
-If IsNull(NomBareme) Or IsNull(PeriodeValidite) Or IsNull(Valeur) Then
-MsgBox "Erreur: certains paramètres sont manquants"
-Exit Sub
-End If
-
-NomBareme = Me.NomBareme
-PeriodeValidite = Me.PeriodeValidite
-UniteBornes = Nz(Me.UniteBornes, "")
-UniteValeur = Nz(Me.UniteValeur, "")
-BorneInf = Nz(Me.BorneInf, 0)
-Valeur = Nz(Me.Valeur, 0)
-commentaire = Nz(DLookup("Commentaire", "tbl_baremes", "[NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite), "")
-
-Set rs = CurrentDb.OpenRecordset("tbl_baremes")
-rs.AddNew
-rs![NomBareme] = NomBareme
-rs![PeriodeValidite] = PeriodeValidite
-rs![UniteBornes] = UniteBornes
-rs![UniteValeur] = UniteValeur
-rs![BorneInf] = BorneInf
-rs![BorneSup] = BorneInf
-rs![Valeur] = Valeur
-rs![commentaire] = commentaire
-rs.Update
-
-Me.Requery
-Me.Refresh
-
-End Sub
-
-
-Private Sub SupprLigne_Click()
-Dim NomBareme, sql As String
-Dim PeriodeValidite, compte, avertissement As Integer
-Dim BorneInf, Valeur As Double
-
-NomBareme = Me.NomBareme
-PeriodeValidite = Me.PeriodeValidite
-BorneInf = Nz(Me.BorneInf, -1)
-BorneSup = Nz(Me.BorneSup, -1)
-Valeur = Nz(Me.Valeur, 0)
-
-compte = Nz(DCount("NomBareme", "tbl_baremes", "[NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite), 0)
-Select Case compte
-Case 0
- MsgBox "Erreur: aucune ligne trouvée"
- Exit Sub
-Case 1
- MsgBox "Vous ne pouvez supprimer une ligne d'un barème que si celui-ci présente plusieurs lignes."
- Exit Sub
-Case Is > 1
-
- avertissement = DLookup("[valeur]", "tbl_parametre", "[parametre]='avertSQL'")
-
- If avertissement = 0 Then DoCmd.SetWarnings False
- If BorneInf = -1 And BorneSup = -1 Then
-  sql = "DELETE * FROM tbl_Baremes WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite & " AND [Valeur] = " & Valeur & ";"
- ElseIf BorneInf >= 0 And BorneSup = -1 Then
-  sql = "DELETE * FROM tbl_Baremes WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite & " AND [Valeur] = " & Valeur & " AND [BorneInf]=" & BorneInf & ";"
- ElseIf BorneInf >= 0 And BorneSup >= 0 Then
-  sql = "DELETE * FROM tbl_Baremes WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite & " AND [Valeur] = " & Valeur & " AND [BorneInf]=" & BorneInf & " AND [BorneSup]=" & BorneSup & ";"
- End If
-
- DoCmd.RunSQL sql
-
- DoCmd.SetWarnings True
- 
-Me.Refresh
- 
-End Select
-
-
- 
- 
- 
- 
-End Sub

test/source/forms/frm_Menu.bas

@@ -1,3619 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    RecordSelectors = NotDefault
-    NavigationButtons = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =14740
-    DatasheetFontHeight =11
-    ItemSuffix =111
-    Right =19725
-    Bottom =7920
-    DatasheetGridlinesColor =14806254
-    Filter ="[Valide]=True AND [CodeAgent]='T6' AND [MoisRH]=1 AND [AnneeRH]=2015"
-    RecSrcDt = Begin
-        0x4fc29a9f1133e440
-    End
-    RecordSource ="tbl_SuiviRH"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Rectangle
-            SpecialEffect =3
-            BackStyle =0
-            BorderLineStyle =0
-            Width =850
-            Height =850
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            BackStyle =0
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            ForeColor =-1
-            FontName ="Calibri"
-            ForeThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackColor =-12151049
-            BackThemeColorIndex =9
-            BorderLineStyle =0
-            BorderColor =-1
-            BorderThemeColorIndex =1
-            ThemeFontIndex =1
-            HoverColor =-12151049
-            HoverThemeColorIndex =9
-            HoverTint =80.0
-            PressedColor =-12151049
-            PressedThemeColorIndex =9
-            PressedShade =80.0
-            HoverForeColor =-1
-            HoverForeThemeColorIndex =1
-            PressedForeColor =-1
-            PressedForeThemeColorIndex =1
-        End
-        Begin CheckBox
-            BorderLineStyle =0
-            LabelX =230
-            LabelY =-30
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin OptionGroup
-            SpecialEffect =3
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BorderThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BorderShade =65.0
-            ShowPageHeaderAndPageFooter =1
-        End
-        Begin FormHeader
-            Height =7880
-            BackColor =14211288
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =93
-                    Left =8787
-                    Top =3060
-                    Width =3000
-                    Height =285
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="etiq_nodata"
-                    Caption ="Pas de données importées"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8787
-                    LayoutCachedTop =3060
-                    LayoutCachedWidth =11787
-                    LayoutCachedHeight =3345
-                End
-                Begin Label
-                    OverlapFlags =93
-                    TextAlign =2
-                    Left =4762
-                    Width =6315
-                    Height =630
-                    FontSize =16
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="AGRHum"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4762
-                    LayoutCachedWidth =11077
-                    LayoutCachedHeight =630
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =226
-                    Top =113
-                    Width =2162
-                    Height =338
-                    ForeColor =0
-                    Name ="Commande1"
-                    Caption ="Données importées"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =226
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =2388
-                    LayoutCachedHeight =451
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin OptionGroup
-                    OverlapFlags =223
-                    Left =623
-                    Top =1189
-                    Width =11169
-                    Height =5957
-                    ColumnOrder =14
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="Cadre4"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =1189
-                    LayoutCachedWidth =11792
-                    LayoutCachedHeight =7146
-                    Begin
-                        Begin Label
-                            FontUnderline = NotDefault
-                            BackStyle =1
-                            OverlapFlags =215
-                            Left =850
-                            Top =974
-                            Width =1530
-                            Height =360
-                            FontSize =13
-                            BackColor =14211288
-                            BorderColor =8355711
-                            Name ="Étiquette5"
-                            Caption ="Mois/Année:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =850
-                            LayoutCachedTop =974
-                            LayoutCachedWidth =2380
-                            LayoutCachedHeight =1334
-                            BackThemeColorIndex =-1
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin ComboBox
-                    LimitToList = NotDefault
-                    OverlapFlags =223
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =3402
-                    Left =1512
-                    Top =3004
-                    Width =3581
-                    Height =405
-                    ColumnOrder =15
-                    FontSize =13
-                    TabIndex =2
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="lst_agent"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.[CodeAgent] FROM tbl_Age"
-                        "nts GROUP BY tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.[CodeAgent] HAVING"
-                        " (((tbl_Agents.[CodeAgent]) In (SELECT [CodeAgent] FROM tbl_ImportRH;))) ORDER B"
-                        "Y tbl_Agents.Nom; "
-                    ColumnWidths ="0;3402"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1512
-                    LayoutCachedTop =3004
-                    LayoutCachedWidth =5093
-                    LayoutCachedHeight =3409
-                    BorderThemeColorIndex =3
-                    BorderShade =90.0
-                End
-                Begin ComboBox
-                    LimitToList = NotDefault
-                    RowSourceTypeInt =1
-                    OverlapFlags =223
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =2880
-                    Left =2834
-                    Top =975
-                    Width =2554
-                    Height =360
-                    ColumnOrder =16
-                    FontSize =13
-                    FontWeight =700
-                    TabIndex =3
-                    BorderColor =12835293
-                    Name ="lst_mois"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
-                        "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
-                    ColumnWidths ="0;2268"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-                    AllowValueListEdits =0
-
-                    LayoutCachedLeft =2834
-                    LayoutCachedTop =975
-                    LayoutCachedWidth =5388
-                    LayoutCachedHeight =1335
-                    BorderThemeColorIndex =3
-                    BorderShade =90.0
-                    ForeThemeColorIndex =0
-                    ForeShade =100.0
-                End
-                Begin ComboBox
-                    OverlapFlags =223
-                    IMESentenceMode =3
-                    Left =6859
-                    Top =974
-                    Width =1581
-                    Height =360
-                    ColumnOrder =17
-                    FontSize =13
-                    FontWeight =700
-                    TabIndex =4
-                    BorderColor =12835293
-                    ColumnInfo ="\"\";\"\";\"3\";\"2\""
-                    Name ="lst_annee"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
-                        "(((Year([DateRH]))>=2012)) ORDER BY Year([DateRH]) DESC; "
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6859
-                    LayoutCachedTop =974
-                    LayoutCachedWidth =8440
-                    LayoutCachedHeight =1334
-                    BorderThemeColorIndex =3
-                    BorderShade =90.0
-                    ForeThemeColorIndex =0
-                    ForeShade =100.0
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =223
-                    TextAlign =1
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =1644
-                    Top =6802
-                    Width =3532
-                    Height =255
-                    ColumnOrder =13
-                    FontSize =9
-                    FontWeight =700
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =2366701
-                    Name ="Texte15"
-                    ControlSource ="IDSuivi"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1644
-                    LayoutCachedTop =6802
-                    LayoutCachedWidth =5176
-                    LayoutCachedHeight =7057
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            OverlapFlags =223
-                            Left =680
-                            Top =6802
-                            Width =1050
-                            Height =255
-                            FontSize =9
-                            FontWeight =700
-                            BorderColor =8355711
-                            ForeColor =2366701
-                            Name ="Étiquette16"
-                            Caption ="ID Suivi"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =680
-                            LayoutCachedTop =6802
-                            LayoutCachedWidth =1730
-                            LayoutCachedHeight =7057
-                            ForeThemeColorIndex =-1
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =3345
-                    Top =4591
-                    Width =973
-                    Height =854
-                    TabIndex =6
-                    ForeColor =0
-                    Name ="FDep_Ouvrir"
-                    Caption ="Ouvrir"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
-                        0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
-                        0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
-                        0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
-                        0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
-                        0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
-                        0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
-                        0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
-                        0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
-                        0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
-                        0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
-                        0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
-                        0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
-                        0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
-                        0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
-                        0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
-                        0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
-                        0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
-                        0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
-                        0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000080808000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =3345
-                    LayoutCachedTop =4591
-                    LayoutCachedWidth =4318
-                    LayoutCachedHeight =5445
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =2
-                    WebImagePaddingBottom =2
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =223
-                    Left =8675
-                    Top =3854
-                    Width =2656
-                    Height =397
-                    TabIndex =7
-                    ForeColor =16777215
-                    Name ="CreerForm"
-                    Caption ="Créer / Maj les formulaires"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8675
-                    LayoutCachedTop =3854
-                    LayoutCachedWidth =11331
-                    LayoutCachedHeight =4251
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin Label
-                    OverlapFlags =223
-                    TextAlign =2
-                    Left =3061
-                    Top =3854
-                    Width =1425
-                    Height =675
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette24"
-                    Caption ="Formulaire Déplacements"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3061
-                    LayoutCachedTop =3854
-                    LayoutCachedWidth =4486
-                    LayoutCachedHeight =4529
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =223
-                    TextAlign =2
-                    Left =6067
-                    Top =3860
-                    Width =2340
-                    Height =690
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette25"
-                    Caption ="Etat de frais de dep. + Tableau Récapitulatif"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6067
-                    LayoutCachedTop =3860
-                    LayoutCachedWidth =8407
-                    LayoutCachedHeight =4550
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =223
-                    TextAlign =2
-                    Left =4819
-                    Top =3854
-                    Width =1185
-                    Height =735
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette26"
-                    Caption ="Formulaire Heures Sup"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4819
-                    LayoutCachedTop =3854
-                    LayoutCachedWidth =6004
-                    LayoutCachedHeight =4589
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =6633
-                    Top =4591
-                    Width =958
-                    Height =854
-                    TabIndex =8
-                    ForeColor =16777215
-                    Name ="EFD_Ouvrir"
-                    Caption ="Ouvrir"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
-                        0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
-                        0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
-                        0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
-                        0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
-                        0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
-                        0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
-                        0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
-                        0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
-                        0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
-                        0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
-                        0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
-                        0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
-                        0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
-                        0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
-                        0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
-                        0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
-                        0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
-                        0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
-                        0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000080808000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =4591
-                    LayoutCachedWidth =7591
-                    LayoutCachedHeight =5445
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =16777215
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    Shadow =-1
-                    QuickStyle =21
-                    QuickStyleMask =-1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =4989
-                    Top =4591
-                    Width =973
-                    Height =854
-                    TabIndex =9
-                    ForeColor =16777215
-                    Name ="FHS_Ouvrir"
-                    Caption ="Ouvrir"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
-                        0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
-                        0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
-                        0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
-                        0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
-                        0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
-                        0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
-                        0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
-                        0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
-                        0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
-                        0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
-                        0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
-                        0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
-                        0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
-                        0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
-                        0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
-                        0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
-                        0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
-                        0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
-                        0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
-                        0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
-                        0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000080808000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =4989
-                    LayoutCachedTop =4591
-                    LayoutCachedWidth =5962
-                    LayoutCachedHeight =5445
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =16777215
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    Shadow =-1
-                    QuickStyle =21
-                    QuickStyleMask =-1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =907
-                    Top =6122
-                    Width =2721
-                    Height =340
-                    TabIndex =10
-                    ForeColor =16777215
-                    Name ="EnregPDF"
-                    Caption ="Enregistrer au format PDF"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =907
-                    LayoutCachedTop =6122
-                    LayoutCachedWidth =3628
-                    LayoutCachedHeight =6462
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =907
-                    Top =5611
-                    Width =1911
-                    Height =340
-                    TabIndex =11
-                    ForeColor =16777215
-                    Name ="CmdImpr"
-                    Caption ="Imprimer"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =907
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =2818
-                    LayoutCachedHeight =5951
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderWidth =1
-                    OverlapFlags =223
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =3743
-                    Top =5611
-                    Width =462
-                    Height =315
-                    ColumnOrder =9
-                    TabIndex =12
-                    BackColor =15066597
-                    BorderColor =10066329
-                    ForeColor =4210752
-                    Name ="NbImprFDep"
-                    DefaultValue ="1"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3743
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =4205
-                    LayoutCachedHeight =5926
-                    BackShade =90.0
-                    BorderShade =60.0
-                    Begin
-                        Begin Label
-                            OverlapFlags =223
-                            Left =3459
-                            Top =5611
-                            Width =225
-                            Height =315
-                            BorderColor =8355711
-                            ForeColor =8355711
-                            Name ="Étiquette32"
-                            Caption ="x"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3459
-                            LayoutCachedTop =5611
-                            LayoutCachedWidth =3684
-                            LayoutCachedHeight =5926
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderWidth =1
-                    OverlapFlags =223
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =5386
-                    Top =5611
-                    Width =462
-                    Height =315
-                    ColumnOrder =10
-                    TabIndex =13
-                    BackColor =15066597
-                    BorderColor =10066329
-                    ForeColor =4210752
-                    Name ="NbImprFHS"
-                    DefaultValue ="3"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5386
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =5848
-                    LayoutCachedHeight =5926
-                    BackShade =90.0
-                    BorderShade =60.0
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderWidth =1
-                    OverlapFlags =223
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =6973
-                    Top =5611
-                    Width =462
-                    Height =315
-                    ColumnOrder =11
-                    TabIndex =14
-                    BackColor =15066597
-                    BorderColor =10066329
-                    ForeColor =4210752
-                    Name ="NbImprEFD"
-                    DefaultValue ="3"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6973
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =7435
-                    LayoutCachedHeight =5926
-                    BackShade =90.0
-                    BorderShade =60.0
-                End
-                Begin Label
-                    OverlapFlags =223
-                    Left =5103
-                    Top =5611
-                    Width =225
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette37"
-                    Caption ="x"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5103
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =5328
-                    LayoutCachedHeight =5926
-                End
-                Begin Label
-                    OverlapFlags =223
-                    Left =6690
-                    Top =5611
-                    Width =225
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette38"
-                    Caption ="x"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6690
-                    LayoutCachedTop =5611
-                    LayoutCachedWidth =6915
-                    LayoutCachedHeight =5926
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OldBorderStyle =4
-                    BorderWidth =1
-                    OverlapFlags =223
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =4479
-                    Top =6122
-                    Width =4756
-                    Height =315
-                    ColumnOrder =12
-                    TabIndex =15
-                    BackColor =15066597
-                    BorderColor =10066329
-                    ForeColor =4210752
-                    Name ="txt_RepPDF"
-                    OnDblClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4479
-                    LayoutCachedTop =6122
-                    LayoutCachedWidth =9235
-                    LayoutCachedHeight =6437
-                    BackShade =90.0
-                    BorderShade =60.0
-                End
-                Begin Label
-                    OverlapFlags =255
-                    Left =3742
-                    Top =6122
-                    Width =908
-                    Height =283
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette41"
-                    Caption ="dans: "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3742
-                    LayoutCachedTop =6122
-                    LayoutCachedWidth =4650
-                    LayoutCachedHeight =6405
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =8675
-                    Top =4364
-                    Width =2646
-                    Height =400
-                    FontWeight =700
-                    TabIndex =16
-                    ForeColor =16777215
-                    Name ="ValidForm"
-                    Caption ="Valider ces formulaires"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8675
-                    LayoutCachedTop =4364
-                    LayoutCachedWidth =11321
-                    LayoutCachedHeight =4764
-                    Gradient =25
-                    BackColor =5066944
-                    BackThemeColorIndex =5
-                    BorderColor =5066944
-                    BorderThemeColorIndex =5
-                    HoverColor =7435213
-                    HoverThemeColorIndex =5
-                    PressedColor =3685279
-                    PressedThemeColorIndex =5
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    Shadow =-1
-                    QuickStyle =31
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =623
-                    Top =7327
-                    Width =2267
-                    Height =487
-                    TabIndex =17
-                    ForeColor =0
-                    Name ="Commande44"
-                    Caption ="Liste des agents"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =7327
-                    LayoutCachedWidth =2890
-                    LayoutCachedHeight =7814
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =9523
-                    Top =7327
-                    Width =2267
-                    Height =487
-                    TabIndex =18
-                    ForeColor =0
-                    Name ="Commande45"
-                    Caption ="Mes Paramètres"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9523
-                    LayoutCachedTop =7327
-                    LayoutCachedWidth =11790
-                    LayoutCachedHeight =7814
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =93
-                    Left =13266
-                    Top =170
-                    Width =576
-                    Height =336
-                    TabIndex =19
-                    ForeColor =0
-                    Name ="Commande46"
-                    Caption ="Commande46"
-                    ControlTipText ="Quitter application"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Quit"
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande46\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"QuitAccess\"><Argument Name=\"Options\">Prompt</"
-                                "Argument></Action></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000030b0200030a080 ,
-                        0x1030a0d01030a0f01028a0f01028a0d01028a0801028a0200000000000000000 ,
-                        0x00000000000000000000000000000000000000000030b0600030b0f00038c0ff ,
-                        0x0038c0ff0040d0ff0040c0ff0038c0ff0038b0ff1028a0f01028a06000000000 ,
-                        0x0000000000000000000000000038b0000030b0b00038c0ff0040d0ff0040d0ff ,
-                        0x0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0038c0ff0030b0ff1028a0b0 ,
-                        0x1028a00000000000000000000038b0900038c0ff0040e0ff0040e0ff0040d0ff ,
-                        0x0040d0ff0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0040c0ff0030b0ff ,
-                        0x1028a090000000000038c0200038c0ff0040e0ff0040e0ff3068e0ffc0d0f0ff ,
-                        0x2050e0ff0040d0ff0040d0ff2050d0ffd0d8f0ff3060d0ff0040c0ff0040c0ff ,
-                        0x1028a0ff1028a0200038c0800040d0ff0040e0ff0040e0ffc0d0f0fff0f8f0ff ,
-                        0xc0d0f0ff2050e0ff2050d0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040c0ff ,
-                        0x0038b0ff1028a0800038c0d00040e0ff0040e0ff0040e0ff2050e0ffc0d0f0ff ,
-                        0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff ,
-                        0x0038c0ff1028a0e00038c0ff0048f0ff0048e0ff0040e0ff0040e0ff2050e0ff ,
-                        0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff0040d0ff ,
-                        0x0040d0ff1028a0ff0038c0ff0048f0ff0048f0ff0048e0ff0040e0ff2050e0ff ,
-                        0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff0040d0ff ,
-                        0x0040d0ff1030a0f00038c0e00048e0ff0048f0ff0048f0ff2058f0ffc0d0f0ff ,
-                        0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff ,
-                        0x0040c0ff1030a0d00040c0900040e0ff0048f0ff0048f0ffc0d0f0fff0f8f0ff ,
-                        0xc0d0f0ff2050e0ff2050e0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040d0ff ,
-                        0x0038c0ff0030a0900040c0300040c0ff0048f0ff0048f0ff3068f0ffc0d0f0ff ,
-                        0x2058f0ff0040e0ff0040e0ff2050e0ffc0d0f0ff3068e0ff0040e0ff0040d0ff ,
-                        0x0030b0ff0030b030000000000040c0a00040d0ff0048f0ff0048f0ff0048f0ff ,
-                        0x0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0040e0ff0040e0ff0038c0ff ,
-                        0x0030b09000000000000000000040d0000040c0c00040d0ff0048f0ff0048f0ff ,
-                        0x0048f0ff0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0038c0ff0030b0c0 ,
-                        0x0030b0000000000000000000000000000040d0000040c0900040d0ff0040e0ff ,
-                        0x0048e0ff0048f0ff0048f0ff0040e0ff0040d0ff0038c0ff0038b0900030b000 ,
-                        0x0000000000000000000000000000000000000000000000000040c0300040c090 ,
-                        0x0038c0e00038c0ff0038c0ff0038c0e00038c0900038c0300000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =13266
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =13842
-                    LayoutCachedHeight =506
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =2
-                    WebImagePaddingBottom =2
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =1417
-                    Top =1530
-                    Width =2376
-                    Height =340
-                    TabIndex =20
-                    ForeColor =16777215
-                    Name ="BordHS"
-                    Caption ="Bordereau Heures Sup."
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1417
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =3793
-                    LayoutCachedHeight =1870
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =1417
-                    Top =2040
-                    Width =2391
-                    Height =340
-                    TabIndex =21
-                    ForeColor =16777215
-                    Name ="BordEFD"
-                    Caption ="Bordereau Etat de Frais"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1417
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =3808
-                    LayoutCachedHeight =2380
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin Label
-                    OverlapFlags =223
-                    Left =7313
-                    Top =3060
-                    Width =1500
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Etat du suivi:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7313
-                    LayoutCachedTop =3060
-                    LayoutCachedWidth =8813
-                    LayoutCachedHeight =3375
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OverlapFlags =223
-                    IMESentenceMode =3
-                    Left =8787
-                    Top =3060
-                    Width =2591
-                    Height =315
-                    ColumnOrder =8
-                    TabIndex =22
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_donnee"
-                    ControlSource ="Etat"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8787
-                    LayoutCachedTop =3060
-                    LayoutCachedWidth =11378
-                    LayoutCachedHeight =3375
-                End
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =223
-                    Left =4478
-                    Top =6462
-                    Width =6120
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette57"
-                    Caption ="(double-cliquer pour ouvrir le répertoire)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4478
-                    LayoutCachedTop =6462
-                    LayoutCachedWidth =10598
-                    LayoutCachedHeight =6747
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =223
-                    Left =8675
-                    Top =5157
-                    Width =2646
-                    Height =400
-                    FontWeight =700
-                    TabIndex =23
-                    ForeColor =0
-                    Name ="InvalidForm"
-                    Caption ="Invalider (admin)"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8675
-                    LayoutCachedTop =5157
-                    LayoutCachedWidth =11321
-                    LayoutCachedHeight =5557
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =2
-                    WebImagePaddingBottom =2
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =8673
-                    Top =1643
-                    Width =2432
-                    Height =623
-                    TabIndex =24
-                    ForeColor =0
-                    Name ="DonneesAgentValide"
-                    Caption ="Données de l'agent pour cette période"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8673
-                    LayoutCachedTop =1643
-                    LayoutCachedWidth =11105
-                    LayoutCachedHeight =2266
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =5555
-                    Top =1643
-                    Width =2432
-                    Height =623
-                    TabIndex =25
-                    ForeColor =0
-                    Name ="BaremeValide"
-                    Caption ="Barèmes à cette période"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5555
-                    LayoutCachedTop =1643
-                    LayoutCachedWidth =7987
-                    LayoutCachedHeight =2266
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =3060
-                    Top =7327
-                    Width =2267
-                    Height =487
-                    TabIndex =26
-                    ForeColor =0
-                    Name ="Commande61"
-                    Caption ="Barèmes"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3060
-                    LayoutCachedTop =7327
-                    LayoutCachedWidth =5327
-                    LayoutCachedHeight =7814
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =10374
-                    Top =963
-                    Width =453
-                    Height =315
-                    ColumnOrder =6
-                    TabIndex =27
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="mois"
-                    ControlSource ="=Cint([lst_mois])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10374
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =10827
-                    LayoutCachedHeight =1278
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =10941
-                    Top =963
-                    Width =850
-                    Height =315
-                    ColumnOrder =7
-                    TabIndex =28
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Annee"
-                    ControlSource ="=CInt([lst_annee])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10941
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =11791
-                    LayoutCachedHeight =1278
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =5498
-                    Top =7327
-                    Width =2267
-                    Height =487
-                    TabIndex =29
-                    ForeColor =0
-                    Name ="Administration"
-                    Caption ="Administration"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5498
-                    LayoutCachedTop =7327
-                    LayoutCachedWidth =7765
-                    LayoutCachedHeight =7814
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =223
-                    Left =5442
-                    Top =1076
-                    Width =217
-                    Height =231
-                    FontWeight =700
-                    TabIndex =30
-                    ForeColor =0
-                    Name ="Commande68"
-                    Caption ="-"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement précédent"
-                    Picture ="viewmag--icone-7668-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
-                        0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000001 ,
-                        0xa84944415438cb95913d4b42611886dffa0d41bbbf208220228a9c2aa4a90f87 ,
-                        0xa072e89b484d30a1e15844520d35d8aa35a887928ac8cad0b42fc9a2840a4aa2 ,
-                        0xa024a351d1f1cefb0ce220721aaee9b9aee73cbc47f40c0c54757677d7b4e974 ,
-                        0x9a96f6764d4b4747650a0e5d366c45975edfdf3734746db4d9de6725491574d9 ,
-                        0xb015bd8383297977175fe934be7f7f5541970d5b3169b1e02999c45b2a85e4e7 ,
-                        0xa72ae8b2612ba6ac565c271278787dc5fdcb8b2ae8b2612b260a5b22f1386e9f ,
-                        0x9fff051bb6627c6606a1580c378f8f70f97cb04a1266edf6b27046872e1bb662 ,
-                        0xcc6c46f0f25239696e71110dadad68d46acbc2191dba6cd88a519309814804e7 ,
-                        0x7777b016be52d7d484fae6e6b27046872e1bb662c468c44128a49cc4f3e69797 ,
-                        0xb1b0b25216cee8d065c35659b0170ce2e4e202a75757cab01274e8b251160c4f ,
-                        0x4f632710c0e1d9d9bf60c3567903972cc37f7404fff1b13a0a2e1be52f480e47 ,
-                        0x7a696d0dab4e2756373654e3585fe7bbfc8860386cf0f9fd71b7d7fbe1f278de ,
-                        0xdda578bd45364bd892e58fedfdfddb50346a1000aa73b95c6d2693d12864b345 ,
-                        0xb215c8e7f3b56cff003151c69b603e524a0000002574455874646174653a6372 ,
-                        0x6561746500323030392d30392d31355431303a33373a31352b30323a3030be77 ,
-                        0x07ef0000002574455874646174653a6d6f6469667900323030392d30392d3135 ,
-                        0x5431303a33373a31352b30323a3030cf2abf530000001974455874536f667477 ,
-                        0x617265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44 ,
-                        0xae426082
-                    End
-
-                    LayoutCachedLeft =5442
-                    LayoutCachedTop =1076
-                    LayoutCachedWidth =5659
-                    LayoutCachedHeight =1307
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =5781
-                    Top =1076
-                    Width =218
-                    Height =231
-                    TabIndex =31
-                    ForeColor =0
-                    Name ="Commande69"
-                    Caption ="+"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement suivant"
-                    Picture ="ajouter-bouton-plus-icone-9620-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
-                        0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
-                        0x3c4944415438cb8d91dd4b936118c69ffa1b02cf77506731fb80253a690a69ac ,
-                        0x40b0e641a293e863653837610a1b4c521394d0405190b4c8ad91d3a4f263b8b9 ,
-                        0xa54e9a5282137484828d26ead1c63cbc7aafa778798fa4831f5cdcf7f57bb979 ,
-                        0x5e71a7aeeecccdeaea73d7cd669db1a24267acac3c1da5c32e1dbae2764dcd3d ,
-                        0x8bd51ab7b7b5edb67abdff05bb74e88abbf5f5e9c0d4147e6532f87d78a87270 ,
-                        0x748483e3e3bf2859bb63970e5df1b4a505c9540a3fd369a4f6f755e66331bc9b ,
-                        0x9890306b77ecd2a12b9eb95c886f6ce0c7ce0ebe6f6fabb8bbba70a3aa4ac2ac ,
-                        0xddb14b87ae78a27c259a48606d6b0b896452a5b5bd1d26b359c2acddb14b87ae ,
-                        0xb0399d08afaee2dbe626467c3e38dc6e383d1e54d7d6427971093367dcb1c32e ,
-                        0x1dbae2b1c381d0f2b23c89a75e2d2d85c164c2b5b2321495974b9839e38e1d76 ,
-                        0xe9d0158f9a9b31138de2ebfa3a5ccaa9faa2225c2a2ec6e592125c311a25cc9c ,
-                        0x71c70ebb74e88a87763b3e85c3f2a491f171b83b3ae0e9ecc42d8b05170d0609 ,
-                        0x3367dcb1c32e1dbaf2031f4321cc2f2dc9b316e2712cacace07e63232e14164a ,
-                        0x9839e38e1d76e9c80f3c686ac2c4cc0cbe2c2eaa7c8e4460b5d9705eaf973073 ,
-                        0xa6edd0a12bdf60341040707616c1b939c9a4c26be5b55f0d0f4b9827ffed244a ,
-                        0x978efc0bdeeeeecc8bbe3ef40e0ca0777050e5e5d010fa1499306b77a4bbbf1f ,
-                        0xcf7b7a0e44281269781f0c26c6fcfebd519f6f774c8bdfaff246c3db4060efc3 ,
-                        0xf4f45a38166b1000cee6f3f9826c36ab93e4722ab95338393929a0fb073e15a8 ,
-                        0x39e04636e10000002574455874646174653a63726561746500323030392d3039 ,
-                        0x2d31355431303a33353a32312b30323a3030c042f42200000025744558746461 ,
-                        0x74653a6d6f6469667900323030392d30392d31355431303a33353a32312b3032 ,
-                        0x3a3030b11f4c9e0000001974455874536f667477617265007777772e696e6b73 ,
-                        0x636170652e6f72679bee3c1a0000000049454e44ae426082
-                    End
-
-                    LayoutCachedLeft =5781
-                    LayoutCachedTop =1076
-                    LayoutCachedWidth =5999
-                    LayoutCachedHeight =1307
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =223
-                    Left =5272
-                    Top =3060
-                    Width =218
-                    Height =231
-                    TabIndex =32
-                    ForeColor =0
-                    Name ="Commande70"
-                    Caption ="Commande68"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement précédent"
-                    Picture ="fleche-vers-bas-icone-7872-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
-                        0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
-                        0x3c4944415438cb8d92df4b93511cc64ffd0d81f7bbec2282462cc9613386c64c ,
-                        0x2f6c1945ba892dd7089d0e7478237891a0174ae9cd06fe005db38649347539b7 ,
-                        0xe99ad3818ab40b472ad868a2778e79f9749e138d11215e7c781fcef7f99cf770 ,
-                        0xde573c6a6abaf2a0a1e1da3d9349a3afaed6e86b6a2e4676d8a543573c6c6c7c ,
-                        0xf6d8624974b8dd073d7d7d97825d3a7485b9b939eb9f9bc3cf5c0ebf4e4e14c7 ,
-                        0xa7a7ffe5ef9c5d3a7485c3e5c2f74c063fb259648e8e90dedfc7d4ec2cde7a3c ,
-                        0x78e7f52a9827fd7e3563875d3a74c5ebee6e247676b0bdb7a7f8b6bd0dabc381 ,
-                        0xfb757530d6d72b982d763be25b5bc51e1dbae295dc25bab989543aad88a55268 ,
-                        0x6a6b83c16442556dad82f9b9cd8658498f0e5d61efea42787d1dc9dd5d05074f ,
-                        0x5b5b71d76884bc7105f39396164436368a3d3a74455b672742f1b83a7a5416bc ,
-                        0xd3d390b70b9dc1803b55550ae65ab3191e3963875d3a74c54ba713c16854bd39 ,
-                        0x924ca2b7bf1fb72b2b71aba2025abd5ec1cc35ced861970e5d61ebe8c0e77018 ,
-                        0xcb89843ad6b2dcd9d5db8b9be5e5b8a1d32998b9c699eac82e1dba6a834fa110 ,
-                        0x96d6d6b0b8baaa9e2c76baddb8aed52a98b956daa1a33678d1de8e8fc120be44 ,
-                        0x224578bcafb2e4ece9513073adb44387aeba8371f99304161610585cfc83cc73 ,
-                        0x4b4b08c9b711e67fe774d457e81b18c8bd191ec6d0e82886c6c62ecdc0c808fa ,
-                        0x07078f456865c5fa3e10d89cf0f90ec767660e264af1f98a4c9630e5f71f7e98 ,
-                        0x9f4f856331ab0070b55028949d9d9d6914f97c91fc059c9f9f97d1fd0d6749ad ,
-                        0xba0844a4ab0000002574455874646174653a63726561746500323030392d3039 ,
-                        0x2d31355431303a33363a31322b30323a30309412525f00000025744558746461 ,
-                        0x74653a6d6f6469667900323030392d30392d31355431303a33363a31322b3032 ,
-                        0x3a3030e54feae30000001974455874536f667477617265007777772e696e6b73 ,
-                        0x636170652e6f72679bee3c1a0000000049454e44ae426082
-                    End
-
-                    LayoutCachedLeft =5272
-                    LayoutCachedTop =3060
-                    LayoutCachedWidth =5490
-                    LayoutCachedHeight =3291
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =223
-                    Left =5612
-                    Top =3060
-                    Width =218
-                    Height =231
-                    TabIndex =33
-                    ForeColor =0
-                    Name ="Commande71"
-                    Caption ="Commande69"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement suivant"
-                    Picture ="2uparrow-icone-9048-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
-                        0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000002 ,
-                        0x474944415438cb8d91db4bda611cc67fdbdf30e85ed8e162ac70100e2c28a9e5 ,
-                        0x320b6aae8b410776ded0ec00adbb60170beac2064514cb3622956a2ed64949b3 ,
-                        0x521b2653c2a2c328a898a3ee14bd7cf67bde4d37bb885d7ce0cbf7793eafafef ,
-                        0x4fbadfd070e95e5ddd95129d4e515c51a128d66a2f46eeb04b87aea4afaf7ff8 ,
-                        0xa0a92968eeea3a78ddddfd5fb04b87ae64686c3c71389d388ec7f1e3f43487f8 ,
-                        0xd999e0fc9e5d3a74a5571d1d88edede1fbc909f68e8eb2ec1f1fc31f0e0b38ff ,
-                        0x9bb14b87ae64ecec44301a45647717df767604513974adaee291d128e0cc5d26 ,
-                        0x67970e5de9a57c8a2f14c2c6d61642b118c2dbdb70adade1b1c98492ca4a0167 ,
-                        0xee98b1c32e1dbad28bf67678d6d7f1757353c0e2939616a8cbcb21bfb8803377 ,
-                        0xcc323d3a74a5e76d6d70fbfd084422580a046092af7547a381aab43407ee98b1 ,
-                        0xc32e1dbad2b3d656ccfb7ce24a9e601063763be46f0ca55a8ddb454502cedada ,
-                        0x5a91b1c32e1dbad253b3195f3c1e2cc901af35ebf5426730e06661216ea95402 ,
-                        0xce3c943d76d8e54c571cf0d9ed16ff8f385d2edcada9c1b58202dc502a059ccb ,
-                        0xaaabf1697131dba3230ee0e34ccdcf636e79593035378732bd1e57f3f3715d16 ,
-                        0x09674d5515266767fff66487ae7803abc381e98505f10b0cde8f8f6368741443 ,
-                        0x56eb6fe4993b66ecb04b477c85ee9e9ef85b8b057d0303e81b1c14588687f16e ,
-                        0x642407ee3239e9e9efc79bdede9f92dbeb6db64f4f87c66cb643ebc4c4c1d879 ,
-                        0x6cb62c1ffef0d1e1389c9c99d9f0acac344b002ea752a9bc4422a11024935992 ,
-                        0x17904ea7f3e8fe02fbcdab54424a9c890000002574455874646174653a637265 ,
-                        0x61746500323030392d30392d31355431303a33353a31392b30323a30307d22bd ,
-                        0xa60000002574455874646174653a6d6f6469667900323030392d30392d313554 ,
-                        0x31303a33353a31392b30323a30300c7f051a0000001974455874536f66747761 ,
-                        0x7265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44ae ,
-                        0x426082
-                    End
-
-                    LayoutCachedLeft =5612
-                    LayoutCachedTop =3060
-                    LayoutCachedWidth =5830
-                    LayoutCachedHeight =3291
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =8503
-                    Top =1076
-                    Width =218
-                    Height =231
-                    TabIndex =34
-                    ForeColor =0
-                    Name ="Commande72"
-                    Caption ="Commande68"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement précédent"
-                    Picture ="viewmag--icone-7668-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
-                        0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000001 ,
-                        0xa84944415438cb95913d4b42611886dffa0d41bbbf208220228a9c2aa4a90f87 ,
-                        0xa072e89b484d30a1e15844520d35d8aa35a887928ac8cad0b42fc9a2840a4aa2 ,
-                        0xa024a351d1f1cefb0ce220721aaee9b9aee73cbc47f40c0c54757677d7b4e974 ,
-                        0x9a96f6764d4b4747650a0e5d366c45975edfdf3734746db4d9de6725491574d9 ,
-                        0xb015bd8383297977175fe934be7f7f5541970d5b3169b1e02999c45b2a85e4e7 ,
-                        0xa72ae8b2612ba6ac565c271278787dc5fdcb8b2ae8b2612b260a5b22f1386e9f ,
-                        0x9fff051bb6627c6606a1580c378f8f70f97cb04a1266edf6b27046872e1bb662 ,
-                        0xcc6c46f0f25239696e71110dadad68d46acbc2191dba6cd88a519309814804e7 ,
-                        0x7777b016be52d7d484fae6e6b27046872e1bb662c468c44128a49cc4f3e69797 ,
-                        0xb1b0b25216cee8d065c35659b0170ce2e4e202a75757cab01274e8b251160c4f ,
-                        0x4f632710c0e1d9d9bf60c3567903972cc37f7404fff1b13a0a2e1be52f480e47 ,
-                        0x7a696d0dab4e2756373654e3585fe7bbfc8860386cf0f9fd71b7d7fbe1f278de ,
-                        0xdda578bd45364bd892e58fedfdfddb50346a1000aa73b95c6d2693d12864b345 ,
-                        0xb215c8e7f3b56cff003151c69b603e524a0000002574455874646174653a6372 ,
-                        0x6561746500323030392d30392d31355431303a33373a31352b30323a3030be77 ,
-                        0x07ef0000002574455874646174653a6d6f6469667900323030392d30392d3135 ,
-                        0x5431303a33373a31352b30323a3030cf2abf530000001974455874536f667477 ,
-                        0x617265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44 ,
-                        0xae426082
-                    End
-
-                    LayoutCachedLeft =8503
-                    LayoutCachedTop =1076
-                    LayoutCachedWidth =8721
-                    LayoutCachedHeight =1307
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =8843
-                    Top =1076
-                    Width =218
-                    Height =231
-                    TabIndex =35
-                    ForeColor =0
-                    Name ="Commande73"
-                    Caption ="Commande69"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Enregistrement suivant"
-                    Picture ="ajouter-bouton-plus-icone-9620-16.png"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
-                        0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
-                        0x3c4944415438cb8d91dd4b936118c69ffa1b02cf77506731fb80253a690a69ac ,
-                        0x40b0e641a293e863653837610a1b4c521394d0405190b4c8ad91d3a4f263b8b9 ,
-                        0xa54e9a5282137484828d26ead1c63cbc7aafa778798fa4831f5cdcf7f57bb979 ,
-                        0x5e71a7aeeecccdeaea73d7cd669db1a24267acac3c1da5c32e1dbae2764dcd3d ,
-                        0x8bd51ab7b7b5edb67abdff05bb74e88abbf5f5e9c0d4147e6532f87d78a87270 ,
-                        0x748483e3e3bf2859bb63970e5df1b4a505c9540a3fd369a4f6f755e66331bc9b ,
-                        0x9890306b77ecd2a12b9eb95c886f6ce0c7ce0ebe6f6fabb8bbba70a3aa4ac2ac ,
-                        0xddb14b87ae78a27c259a48606d6b0b896452a5b5bd1d26b359c2acddb14b87ae ,
-                        0xb0399d08afaee2dbe626467c3e38dc6e383d1e54d7d6427971093367dcb1c32e ,
-                        0x1dbae2b1c381d0f2b23c89a75e2d2d85c164c2b5b2321495974b9839e38e1d76 ,
-                        0xe9d0158f9a9b31138de2ebfa3a5ccaa9faa2225c2a2ec6e592125c311a25cc9c ,
-                        0x71c70ebb74e88a87763b3e85c3f2a491f171b83b3ae0e9ecc42d8b05170d0609 ,
-                        0x3367dcb1c32e1dbaf2031f4321cc2f2dc9b316e2712cacace07e63232e14164a ,
-                        0x9839e38e1d76e9c80f3c686ac2c4cc0cbe2c2eaa7c8e4460b5d9705eaf973073 ,
-                        0xa6edd0a12bdf60341040707616c1b939c9a4c26be5b55f0d0f4b9827ffed244a ,
-                        0x978efc0bdeeeeecc8bbe3ef40e0ca0777050e5e5d010fa1499306b77a4bbbf1f ,
-                        0xcf7b7a0e44281269781f0c26c6fcfebd519f6f774c8bdfaff246c3db4060efc3 ,
-                        0xf4f45a38166b1000cee6f3f9826c36ab93e4722ab95338393929a0fb073e15a8 ,
-                        0x39e04636e10000002574455874646174653a63726561746500323030392d3039 ,
-                        0x2d31355431303a33353a32312b30323a3030c042f42200000025744558746461 ,
-                        0x74653a6d6f6469667900323030392d30392d31355431303a33353a32312b3032 ,
-                        0x3a3030b11f4c9e0000001974455874536f667477617265007777772e696e6b73 ,
-                        0x636170652e6f72679bee3c1a0000000049454e44ae426082
-                    End
-
-                    LayoutCachedLeft =8843
-                    LayoutCachedTop =1076
-                    LayoutCachedWidth =9061
-                    LayoutCachedHeight =1307
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CheckBox
-                    OverlapFlags =85
-                    Left =11225
-                    Top =200
-                    Width =226
-                    Height =227
-                    ColumnOrder =5
-                    TabIndex =36
-                    BorderColor =10921638
-                    Name ="case_test"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11225
-                    LayoutCachedTop =200
-                    LayoutCachedWidth =11451
-                    LayoutCachedHeight =427
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =11455
-                            Top =170
-                            Width =930
-                            Height =315
-                            BorderColor =8355711
-                            ForeColor =8355711
-                            Name ="txt_mode"
-                            Caption ="Local"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =11455
-                            LayoutCachedTop =170
-                            LayoutCachedWidth =12385
-                            LayoutCachedHeight =485
-                        End
-                    End
-                End
-                Begin OptionGroup
-                    OverlapFlags =255
-                    Left =623
-                    Top =2775
-                    Width =11169
-                    Height =4382
-                    ColumnOrder =4
-                    TabIndex =37
-                    BorderColor =10921638
-                    Name ="Cadre76"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =2775
-                    LayoutCachedWidth =11792
-                    LayoutCachedHeight =7157
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    BackStyle =1
-                    OverlapFlags =247
-                    Left =850
-                    Top =2532
-                    Width =960
-                    Height =390
-                    FontSize =13
-                    BackColor =14211288
-                    BorderColor =8355711
-                    Name ="Étiquette78"
-                    Caption ="Agent:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =850
-                    LayoutCachedTop =2532
-                    LayoutCachedWidth =1810
-                    LayoutCachedHeight =2922
-                    BackThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =3968
-                    Top =1530
-                    Width =561
-                    Height =336
-                    TabIndex =38
-                    ForeColor =16777215
-                    Name ="BordHSImpr"
-                    Caption ="Commande79"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Imprimer état"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x00000000000000000000000000000000000000000000000000000000a08870ff ,
-                        0x907860ff807060ff807060ff807060ff807060ff000000000000000000000000 ,
-                        0x00000000000000000000000000000000000000000000000000000000a09080ff ,
-                        0xfffffffffffffffffff8fffffff8ffff807060ff000000000000000000000000 ,
-                        0x0000000000000000a098a090908890ff706060ff504850ff505050ffa09080ff ,
-                        0xfffffffff0d8b0fff0d8b0fff0d8b0ff807060ff505050ff504850ff706060ff ,
-                        0x706860ff707070b0909090ff909890ffa0a0a0ff403840ff403840ffa09080ff ,
-                        0xffffffffffe8d0ffe07850fff0d8b0ff807060ff403840ff403840ff909090ff ,
-                        0x909090ff706860ff909090ffa0a0a0ff909890ff403840ff403840ff908870ff ,
-                        0xe0e8e0fff0e0b0fff0d8b0fff0d8b0ff807060ff403840ff403840ffa0a0a0ff ,
-                        0xa0a0a0ff706860ff908890ff908890ff908890ff707070ff707070ff707070ff ,
-                        0x707070ff707070ff707070ff707070ff707070ff707070ff707070ff908890ff ,
-                        0x908080ff706860ff908890ffc0b8c0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
-                        0xb0a8b0ffb0a8b0ffb0b0b0ffb0b0b0ffb0b0b0ffb0b0b0ff807880ffc0c8c0ff ,
-                        0xb0b0b0ff706860ff909090ffd0d0d0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
-                        0xb0a8b0ffb0a8b0ffffa860ffffa860ffffa860ffb0b0b0ff807880ffc0c8c0ff ,
-                        0xc0c0c0ff706860ff909090fff0f8f0fff0f0f0ffa0a0a0ffd0d0d0ffd0d0d0ff ,
-                        0xd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ff909890fff0f0f0ff ,
-                        0xf0e8f0ff706860ffa098a0ffffffffffffffffff909090ffe0d8e0ffe0d8e0ff ,
-                        0xe0d8e0ffe0d8e0ffe0d8e0ffc0d0d0ff80a090ff406850ff205030ffa0b0a0ff ,
-                        0xe0e8e0ff706860ffb0b0b070b0b0b0ffb0b0b0ff909090ff909090ff909090ff ,
-                        0x909090ff909090ff908890ff507060ff307840ff60b080ff50b070ff307840ff ,
-                        0x507060ff80888080000000000000000000000000505050a0706870ffb09080ff ,
-                        0xfffffffffffffffffff8ffff407850ffa0d0b0fff0ffffffc0e0d0ff40b070ff ,
-                        0x004010c00000000000000000000000000000000050505080505850ffb09080ff ,
-                        0xfffffffffffffffffff8ffff508050ffffffffff50b870fffff8ffff90c890ff ,
-                        0x004020c0000000000000000000000000000000000000000000000000b09080ff ,
-                        0xffffffffffffffffffffffffa0b0a0ff308040ff40b070ff40a850ffffffffff ,
-                        0x509860b0000000000000000000000000000000000000000000000000b09080ff ,
-                        0xfffffffffffffffffffffffff0f0f0ff506040ff004010c0004010c060a060b0 ,
-                        0xa0d8a090000000000000000000000000000000000000000000000000b09080ff ,
-                        0xb09080ffb09080ffb09080ffb09080ffb09080ff000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =4529
-                    LayoutCachedHeight =1866
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =3968
-                    Top =2040
-                    Width =561
-                    Height =336
-                    TabIndex =39
-                    ForeColor =16777215
-                    Name ="BordEFDImpr"
-                    Caption ="Commande79"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Imprimer état"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x00000000000000000000000000000000000000000000000000000000a08870ff ,
-                        0x907860ff807060ff807060ff807060ff807060ff000000000000000000000000 ,
-                        0x00000000000000000000000000000000000000000000000000000000a09080ff ,
-                        0xfffffffffffffffffff8fffffff8ffff807060ff000000000000000000000000 ,
-                        0x0000000000000000a098a090908890ff706060ff504850ff505050ffa09080ff ,
-                        0xfffffffff0d8b0fff0d8b0fff0d8b0ff807060ff505050ff504850ff706060ff ,
-                        0x706860ff707070b0909090ff909890ffa0a0a0ff403840ff403840ffa09080ff ,
-                        0xffffffffffe8d0ffe07850fff0d8b0ff807060ff403840ff403840ff909090ff ,
-                        0x909090ff706860ff909090ffa0a0a0ff909890ff403840ff403840ff908870ff ,
-                        0xe0e8e0fff0e0b0fff0d8b0fff0d8b0ff807060ff403840ff403840ffa0a0a0ff ,
-                        0xa0a0a0ff706860ff908890ff908890ff908890ff707070ff707070ff707070ff ,
-                        0x707070ff707070ff707070ff707070ff707070ff707070ff707070ff908890ff ,
-                        0x908080ff706860ff908890ffc0b8c0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
-                        0xb0a8b0ffb0a8b0ffb0b0b0ffb0b0b0ffb0b0b0ffb0b0b0ff807880ffc0c8c0ff ,
-                        0xb0b0b0ff706860ff909090ffd0d0d0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
-                        0xb0a8b0ffb0a8b0ffffa860ffffa860ffffa860ffb0b0b0ff807880ffc0c8c0ff ,
-                        0xc0c0c0ff706860ff909090fff0f8f0fff0f0f0ffa0a0a0ffd0d0d0ffd0d0d0ff ,
-                        0xd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ff909890fff0f0f0ff ,
-                        0xf0e8f0ff706860ffa098a0ffffffffffffffffff909090ffe0d8e0ffe0d8e0ff ,
-                        0xe0d8e0ffe0d8e0ffe0d8e0ffc0d0d0ff80a090ff406850ff205030ffa0b0a0ff ,
-                        0xe0e8e0ff706860ffb0b0b070b0b0b0ffb0b0b0ff909090ff909090ff909090ff ,
-                        0x909090ff909090ff908890ff507060ff307840ff60b080ff50b070ff307840ff ,
-                        0x507060ff80888080000000000000000000000000505050a0706870ffb09080ff ,
-                        0xfffffffffffffffffff8ffff407850ffa0d0b0fff0ffffffc0e0d0ff40b070ff ,
-                        0x004010c00000000000000000000000000000000050505080505850ffb09080ff ,
-                        0xfffffffffffffffffff8ffff508050ffffffffff50b870fffff8ffff90c890ff ,
-                        0x004020c0000000000000000000000000000000000000000000000000b09080ff ,
-                        0xffffffffffffffffffffffffa0b0a0ff308040ff40b070ff40a850ffffffffff ,
-                        0x509860b0000000000000000000000000000000000000000000000000b09080ff ,
-                        0xfffffffffffffffffffffffff0f0f0ff506040ff004010c0004010c060a060b0 ,
-                        0xa0d8a090000000000000000000000000000000000000000000000000b09080ff ,
-                        0xb09080ffb09080ffb09080ffb09080ffb09080ff000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =4529
-                    LayoutCachedHeight =2376
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =95
-                    TextAlign =2
-                    Left =4762
-                    Top =623
-                    Width =6296
-                    Height =281
-                    FontSize =10
-                    BorderColor =8355711
-                    ForeColor =5026082
-                    Name ="txt_msg"
-                    Caption ="."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4762
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =11058
-                    LayoutCachedHeight =904
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =4648
-                    Top =1530
-                    Width =561
-                    Height =336
-                    TabIndex =40
-                    ForeColor =16777215
-                    Name ="BordHSpdf"
-                    Caption ="Commande79"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Imprimer état"
-                    Picture ="logo_pdf.png"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
-                        0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000003 ,
-                        0x3e4944415438cb6dd36d6c53551cc7f13b88098ec01b13fb667d5c5b27094f43 ,
-                        0x24ca864e6648b6d4f8c218e2255902890b5323b8809117be300b44311870b323 ,
-                        0xd1056656b628264e038b3568581db076cc9b96325861bd6d6fdb7bcf39f7f691 ,
-                        0xa50ef979862c9d0f27f9e69e37e7939b7fce11865c4faff459ec8f7f63b6d57e ,
-                        0x6fb5d75ee08df2c6ac8edacb16476da4cdb38ac6eed468b331e17fd7a0ab61e7 ,
-                        0xa0d97671d86cf39fb7d8fd3ff2266d4e7fc4eef2872d0e7fa4b3eb6286e95db4 ,
-                        0x7c6fb59a2ffc1738eb6a10cf9a6d9573661bbeb5d871c9eac08cc38d59deb4d9 ,
-                        0x8ef0bb079165ec8f8c6e1ca7a5f22aad50fc17e0ac02a31c08db5d88f1c312ff ,
-                        0x06ea6c881eec06d17564292dab8cbd91a44c2819fa32a0fe29f14c9db5e2abb3 ,
-                        0xe2178b03619b13d3bcc5fdaf1c0db6b43e44c26fbd835b9dfbbfc6fbdd35c9c3 ,
-                        0x87abc00fbdfd62a0cf5b99f2f6637ab12ffa31c5bbd6e7c5d55e2f264ef521f0 ,
-                        0xd9e7f88d37d3e7f5e1e7b115c9af06aac0e53411e34cafb07c1e5a2e07c53020 ,
-                        0x330331aae3266190548a6086e05a4643c2c8fb00ac28cccf5781402a2bc63552 ,
-                        0x618c81f234caa0100a59a3985509a2590d525ac575258b14d3871e02e57215b8 ,
-                        0xa2a8a2bc0ca07c608452a82905a9441277e309dc9c9311be1b476a4e1ed19e6b ,
-                        0x5ac3eaddab8b2d9ec7f296b582309956c5c412c00fd3b939b0931f21d723423f ,
-                        0xba07e45807b23d7b903eda01ed8847cb756d1d2feedf1c28885b0673ed2deb85 ,
-                        0xa98c262609fd1be033a04367c0b6bb413c2eb09e7dc87fd78bfcf99360be4fc1 ,
-                        0x4e7f80c2f009d0bd4dd05b1b60ec68f409bf3f02e823809d3a0ebab91ef27a07 ,
-                        0x940f8f401919817c6e18a1ee4350c7c6a00d7c09f9f9469046178c171aaf08e1 ,
-                        0x2c1153cb003ad00fc681d40607e21dbb71bd6d17a4ce3731fbc9c79879ef0062 ,
-                        0xafbf0a79a313f41937ff834da3425425a2b2042c0e301a41eaed7d88ef6a46f4 ,
-                        0xe5667e919a30d1b203133b5f44a869dbfced2debd29967d729faf60d57f36dcd ,
-                        0xadc26dc2da65c24269a64b2a8f1839292927a41bc1a014990c4a3726437c1f92 ,
-                        0xa2a1a9c8adf1f1d3e9d7daddb9575e7216777b9e58f8e9428d90e10f4429949e ,
-                        0xcc164b26bd543615caf74c0b0bf74d0f00d39fbc07ff6c2dbf07c2624beb2f1b ,
-                        0x9a7a4cf790bc810000002574455874646174653a63726561746500323030392d ,
-                        0x30392d31335431343a32393a30332b30323a30305d62de4a0000002574455874 ,
-                        0x646174653a6d6f6469667900323030392d30392d31335431343a32393a30332b ,
-                        0x30323a30302c3f66f60000000049454e44ae426082
-                    End
-
-                    LayoutCachedLeft =4648
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =5209
-                    LayoutCachedHeight =1866
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =4648
-                    Top =2040
-                    Width =561
-                    Height =336
-                    TabIndex =41
-                    ForeColor =16777215
-                    Name ="BordEFDpdf"
-                    Caption ="Commande79"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Imprimer état"
-                    Picture ="logo_pdf.png"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
-                        0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
-                        0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000003 ,
-                        0x3e4944415438cb6dd36d6c53551cc7f13b88098ec01b13fb667d5c5b27094f43 ,
-                        0x24ca864e6648b6d4f8c218e2255902890b5323b8809117be300b44311870b323 ,
-                        0xd1056656b628264e038b3568581db076cc9b96325861bd6d6fdb7bcf39f7f691 ,
-                        0xa50ef979862c9d0f27f9e69e37e7939b7fce11865c4faff459ec8f7f63b6d57e ,
-                        0x6fb5d75ee08df2c6ac8edacb16476da4cdb38ac6eed468b331e17fd7a0ab61e7 ,
-                        0xa0d97671d86cf39fb7d8fd3ff2266d4e7fc4eef2872d0e7fa4b3eb6286e95db4 ,
-                        0x7c6fb59a2ffc1738eb6a10cf9a6d9573661bbeb5d871c9eac08cc38d59deb4d9 ,
-                        0x8ef0bb079165ec8f8c6e1ca7a5f22aad50fc17e0ac02a31c08db5d88f1c312ff ,
-                        0x06ea6c881eec06d17564292dab8cbd91a44c2819fa32a0fe29f14c9db5e2abb3 ,
-                        0xe2178b03619b13d3bcc5fdaf1c0db6b43e44c26fbd835b9dfbbfc6fbdd35c9c3 ,
-                        0x87abc00fbdfd62a0cf5b99f2f6637ab12ffa31c5bbd6e7c5d55e2f264ef521f0 ,
-                        0xd9e7f88d37d3e7f5e1e7b115c9af06aac0e53411e34cafb07c1e5a2e07c53020 ,
-                        0x330331aae3266190548a6086e05a4643c2c8fb00ac28cccf5781402a2bc63552 ,
-                        0x618c81f234caa0100a59a3985509a2590d525ac575258b14d3871e02e57215b8 ,
-                        0xa2a8a2bc0ca07c608452a82905a9441277e309dc9c9311be1b476a4e1ed19e6b ,
-                        0x5ac3eaddab8b2d9ec7f296b582309956c5c412c00fd3b939b0931f21d723423f ,
-                        0xba07e45807b23d7b903eda01ed8847cb756d1d2feedf1c28885b0673ed2deb85 ,
-                        0xa98c262609fd1be033a04367c0b6bb413c2eb09e7dc87fd78bfcf99360be4fc1 ,
-                        0x4e7f80c2f009d0bd4dd05b1b60ec68f409bf3f02e823809d3a0ebab91ef27a07 ,
-                        0x940f8f401919817c6e18a1ee4350c7c6a00d7c09f9f9469046178c171aaf08e1 ,
-                        0x2c1153cb003ad00fc681d40607e21dbb71bd6d17a4ce3731fbc9c79879ef0062 ,
-                        0xafbf0a79a313f41937ff834da3425425a2b2042c0e301a41eaed7d88ef6a46f4 ,
-                        0xe5667e919a30d1b203133b5f44a869dbfced2debd29967d729faf60d57f36dcd ,
-                        0xadc26dc2da65c24269a64b2a8f1839292927a41bc1a014990c4a3726437c1f92 ,
-                        0xa2a1a9c8adf1f1d3e9d7daddb9575e7216777b9e58f8e9428d90e10f4429949e ,
-                        0xcc164b26bd543615caf74c0b0bf74d0f00d39fbc07ff6c2dbf07c2624beb2f1b ,
-                        0x9a7a4cf790bc810000002574455874646174653a63726561746500323030392d ,
-                        0x30392d31335431343a32393a30332b30323a30305d62de4a0000002574455874 ,
-                        0x646174653a6d6f6469667900323030392d30392d31335431343a32393a30332b ,
-                        0x30323a30302c3f66f60000000049454e44ae426082
-                    End
-
-                    LayoutCachedLeft =4648
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =5209
-                    LayoutCachedHeight =2376
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =255
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =9637
-                    Top =6122
-                    Width =1981
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =42
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_RepPDF2"
-                    ControlSource ="=[lst_annee] & \"-\" & Format([lst_mois],'00') & \"\\\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9637
-                    LayoutCachedTop =6122
-                    LayoutCachedWidth =11618
-                    LayoutCachedHeight =6437
-                End
-                Begin Label
-                    OverlapFlags =247
-                    Left =9240
-                    Top =6122
-                    Width =397
-                    Height =284
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Étiquette88"
-                    Caption ="..."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9240
-                    LayoutCachedTop =6122
-                    LayoutCachedWidth =9637
-                    LayoutCachedHeight =6406
-                    BorderThemeColorIndex =1
-                    BorderTint =100.0
-                    BorderShade =65.0
-                    ForeTint =75.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    Left =850
-                    Top =3004
-                    Width =612
-                    Height =405
-                    ColumnOrder =2
-                    FontSize =13
-                    TabIndex =43
-                    BackColor =15921906
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =850
-                    LayoutCachedTop =3004
-                    LayoutCachedWidth =1462
-                    LayoutCachedHeight =3409
-                    BackShade =95.0
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =247
-                    Left =7313
-                    Top =3400
-                    Width =4082
-                    Height =284
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =2366701
-                    Name ="Edition"
-                    Caption ="."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7313
-                    LayoutCachedTop =3400
-                    LayoutCachedWidth =11395
-                    LayoutCachedHeight =3684
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin ListBox
-                    OverlapFlags =85
-                    OldBorderStyle =0
-                    IMESentenceMode =3
-                    ColumnCount =5
-                    Left =11905
-                    Top =1523
-                    Width =2835
-                    Height =5409
-                    ColumnOrder =1
-                    TabIndex =44
-                    BackColor =14211288
-                    ForeColor =4210752
-                    BorderColor =10921638
-                    Name ="lst_FichiersNonTraites"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_SuiviRH.IDSuivi, tbl_SuiviRH.AnneeRH, Left(UCase(MonthName([MoisRH]))"
-                        ",3) AS Mois, NomAgentAbrege(DFirst(\"Nom\",\"tbl_Agents\",\"[CodeAgent]='\" & [C"
-                        "odeAgent] & \"'\")) AS NomAgent, tbl_SuiviRH.Edite, tbl_SuiviRH.Etat, tbl_SuiviR"
-                        "H.AnneeRH FROM tbl_SuiviRH WHERE (((tbl_SuiviRH.Edite)=False) AND ((tbl_SuiviRH."
-                        "AnneeRH)>2013 And (tbl_SuiviRH.AnneeRH)=[Formulaires]![frm_Menu].[lst_annee])) O"
-                        "R (((tbl_SuiviRH.Edite)=False) AND ((tbl_SuiviRH.AnneeRH)>=2013) AND ((tbl_Suivi"
-                        "RH.MoisRH)>6)) ORDER BY tbl_SuiviRH.AnneeRH DESC , tbl_SuiviRH.MoisRH DESC; "
-                    ColumnWidths ="0;567;567;1701;0"
-                    OnDblClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11905
-                    LayoutCachedTop =1523
-                    LayoutCachedWidth =14740
-                    LayoutCachedHeight =6932
-                    BackThemeColorIndex =-1
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =11905
-                            Top =1133
-                            Width =1935
-                            Height =330
-                            FontWeight =700
-                            BorderColor =8355711
-                            ForeColor =2366701
-                            Name ="CodeAgent_Étiquette"
-                            Caption ="Fichiers Non-Edités"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =11905
-                            LayoutCachedTop =1133
-                            LayoutCachedWidth =13840
-                            LayoutCachedHeight =1463
-                            ForeThemeColorIndex =-1
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =85
-                    Left =11905
-                    Top =6972
-                    Width =2835
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette98"
-                    Caption ="Double-cliquer pour un accès rapide..."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11905
-                    LayoutCachedTop =6972
-                    LayoutCachedWidth =14740
-                    LayoutCachedHeight =7257
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =223
-                    TextAlign =2
-                    Left =4762
-                    Top =340
-                    Width =6315
-                    Height =285
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette99"
-                    Caption ="Application de Gestion des Ressources Humaines"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4762
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =11077
-                    LayoutCachedHeight =625
-                End
-                Begin TextBox
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =247
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =1530
-                    Top =3401
-                    Width =3515
-                    Height =255
-                    ColumnOrder =0
-                    FontSize =9
-                    TabIndex =45
-                    BorderColor =10921638
-                    ForeColor =255
-                    Name ="verif"
-                    ControlSource ="=VerifImport(Nz([lst_agent],\"\"),Nz([lst_mois],0),Nz([lst_annee],0))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1530
-                    LayoutCachedTop =3401
-                    LayoutCachedWidth =5045
-                    LayoutCachedHeight =3656
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =87
-                    Left =12585
-                    Top =170
-                    Width =567
-                    Height =340
-                    TabIndex =46
-                    ForeColor =0
-                    Name ="cmdNotice"
-                    Caption ="?"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12585
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =13152
-                    LayoutCachedHeight =510
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =87
-                    Left =2557
-                    Top =113
-                    Width =2147
-                    Height =338
-                    TabIndex =47
-                    ForeColor =0
-                    Name ="Commande103"
-                    Caption ="MAJ les données"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2557
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =4704
-                    LayoutCachedHeight =451
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =12248
-                    Top =7313
-                    Width =2492
-                    Height =502
-                    FontSize =9
-                    TabIndex =48
-                    ForeColor =0
-                    Name ="Commande107"
-                    Caption ="Accéder à l'historique des opérations"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12248
-                    LayoutCachedTop =7313
-                    LayoutCachedWidth =14740
-                    LayoutCachedHeight =7815
-                    ForeThemeColorIndex =0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    HoverForeColor =0
-                    HoverForeThemeColorIndex =0
-                    PressedForeColor =0
-                    PressedForeThemeColorIndex =0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                End
-                Begin CommandButton
-                    Enabled = NotDefault
-                    OverlapFlags =247
-                    Left =1360
-                    Top =4592
-                    Width =778
-                    Height =614
-                    TabIndex =49
-                    ForeColor =16777215
-                    Name ="exportPeriple"
-                    Caption ="Ouvrir"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =90
-                    TopPadding =45
-                    RightPadding =105
-                    BottomPadding =150
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000c0a8a0ff807060ff807060ff807060ff807060ff807060ff ,
-                        0x807060ff807060ff807060ff807060ff807060ff807060ff0000000000000000 ,
-                        0x0000000000000000c0b0a0fffff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff ,
-                        0xfff8f0fffff8f0fffff0f0fffff0f0fffff0f0ff807060ff0000000000000000 ,
-                        0x0000000000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
-                        0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff807060ff0000000000000000 ,
-                        0x0000000000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
-                        0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffb0a090ffffffff50ffffff20 ,
-                        0xffffff0000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
-                        0xfff8f0fffff8f0fffff0f0fffff0f0fffff8f0ffd0d0c0ff805030ffe0c0b090 ,
-                        0xffffff1000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
-                        0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0ff905830ff905840ff ,
-                        0xe0c8c0a000000000c0b0a0fffffffffffff8fffffff8f0fffff8f0fffff8f0ff ,
-                        0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ffe0e0e0ffb06030ffc06830ff ,
-                        0x905840ffc0907040c0b8a0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
-                        0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0fff0a880ffe08050ff ,
-                        0xc06030ff905840ffc0b8a0fffffffffffffffffffffffffffff8fffffff8ffff ,
-                        0xfff8f0fffff8f0fffff8f0fffff8f0fffff8ffffe0e0e0ffffa880ffffb890ff ,
-                        0xa07050ffc0907020d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
-                        0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8fffff0e8e0ffc08060ffb07860ff ,
-                        0xf0e0e09000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
-                        0xfff8fffffff8fffffff8f0fffff8f0fffff8ffffd0d0d0ffc09070fff0d8d080 ,
-                        0xffffff2000000000d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
-                        0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8ffffb0a8a0ffffffff60ffffff20 ,
-                        0x0000000000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
-                        0xfffffffffffffffffff8fffffff8fffffff8ffff908870ffffffff30ffffff10 ,
-                        0x0000000000000000d0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ff ,
-                        0xd0b8a0ffd0b8a0ffc0b8a0ffc0b8a0ffc0b0a0ffc0b0a0ff0000000000000000 ,
-                        0x0000000000000000909090ffe0e0e0ff909090ffffffffff707070e0ffffffff ,
-                        0x808080ffffffffff808080ffffffffff707070ffd0c8c0ff0000000000000000 ,
-                        0x0000000000000000d0c8d0ff505050ffb0b8b0ff202820ff30283050202820ff ,
-                        0x30283040202820ff40404080202820ff40383060202820ff0000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =1360
-                    LayoutCachedTop =4592
-                    LayoutCachedWidth =2138
-                    LayoutCachedHeight =5206
-                    Gradient =0
-                    BackColor =4626167
-                    BorderColor =16777215
-                    HoverColor =7056377
-                    PressedColor =750835
-                    HoverForeColor =16777215
-                    PressedForeColor =16777215
-                    Shadow =-1
-                    QuickStyle =21
-                    QuickStyleMask =-1
-                    Overlaps =1
-                End
-                Begin Label
-                    OverlapFlags =247
-                    TextAlign =2
-                    Left =1360
-                    Top =3855
-                    Width =795
-                    Height =675
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette110"
-                    Caption ="Export PERIPLE"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1360
-                    LayoutCachedTop =3855
-                    LayoutCachedWidth =2155
-                    LayoutCachedHeight =4530
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =5499
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Subform
-                    Enabled = NotDefault
-                    Locked = NotDefault
-                    OverlapFlags =85
-                    OldBorderStyle =0
-                    Left =628
-                    Top =56
-                    Width =11169
-                    Height =5269
-                    BorderColor =10921638
-                    Name ="Fille89"
-                    SourceObject ="Form.sfrm_msg"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =628
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11797
-                    LayoutCachedHeight =5325
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =5330263
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Administration_Click()
-DoCmd.OpenForm "frm_Admin"
-End Sub
-
-Private Sub BaremeValide_Click()
-DoCmd.OpenForm "frm_BaremesValide"
-End Sub
-
-Private Sub BordEFD_Click()
-Dim moisRH, anneeRH As Integer
-
-moisRH = Me.mois
-anneeRH = Me.Annee
-
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_BordEFD", acViewPreview, , critere
-End Sub
-
-Private Sub BordEFDImpr_Click()
-Dim imprimante As String
-Dim NumIMP, NombreImp As Integer
-Dim ImpCherche
-Dim critere As String
-Dim moisRH, anneeRH As Integer
-
-'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
-imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
-If imprimante = "" Then
- MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
- Exit Sub
-End If
-
-NumIMP = 0
-NombreImp = Application.Printers.Count
-For Each ImpCherche In Application.Printers
- If ImpCherche.DeviceName = imprimante Then
-  Set Application.Printer = Application.Printers(NumIMP)
-  Exit For
- Else
-  NumIMP = NumIMP + 1
- End If
-Next ImpCherche
-
-'définition du critère mois/année
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-Call ImprEtats("Et_BordEFD", 1, critere)
-
-
-
-End Sub
-
-Private Sub BordEFDpdf_Click()
-'Dim moisRH, anneeRH As Integer
-Dim moisRH, anneeRH As Integer
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-Call ExportBordereau("Et_BordEFD", moisRH, anneeRH)
-
-End Sub
-
-Private Sub BordHS_Click()
-Dim critere As String
-
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_BordHS", acViewPreview, , critere
-End Sub
-
-Private Sub BordHSImpr_Click()
-Dim imprimante As String
-Dim NumIMP, NombreImp As Integer
-Dim ImpCherche
-Dim critere As String
-
-'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
-imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
-If imprimante = "" Then
- MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
- Exit Sub
-End If
-
-NumIMP = 0
-NombreImp = Application.Printers.Count
-For Each ImpCherche In Application.Printers
- If ImpCherche.DeviceName = imprimante Then
-  Set Application.Printer = Application.Printers(NumIMP)
-  Exit For
- Else
-  NumIMP = NumIMP + 1
- End If
-Next ImpCherche
-
-'définition du critère mois/année
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-Call ImprEtats("Et_BordHS", 1, critere)
-
-
-
-End Sub
-
-Private Sub BordHSpdf_Click()
-Dim moisRH, anneeRH As Integer
-
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-Call ExportBordereau("Et_BordHS", moisRH, anneeRH)
-
-End Sub
-
-Private Sub case_test_AfterUpdate()
-
-Dim rs As DAO.Recordset
-Dim Valeur As String
-Dim valeur2 As String
-Dim param As String
-Dim lg As Integer
-
-Set rs = CurrentDb.OpenRecordset("tbl_parametre")
-rs.MoveFirst
-
-If Me.case_test.Value = True Then
-Me.txt_mode.Caption = "Local"
-  Do Until rs.EOF = True
-   Valeur = Nz(rs.Fields("Valeur"), "")
-   valeur2 = Nz(rs.Fields("Valeur2"), "")
-   param = Nz(rs.Fields("Parametre"), "")
-   If valeur2 = "mdb_loc" Then
-        Do Until Not Right(param, 1) = "-"
-          lg = Len(param)
-          lg = lg - 1
-          param = Left(param, lg)
-        Loop
-   End If
-     
-   If valeur2 = "mdb_res" Then
-        param = param & "-"
-   End If
-   
-   rs.Edit
-    rs.Fields("Valeur") = Valeur
-    rs.Fields("Valeur2") = valeur2
-    rs.Fields("Parametre") = param
-   rs.Update
-
-   rs.MoveNext
-   Loop
-   
-Controler_Liens
-MsgBox "Mode local activé"
-
-Else
-
-Me.txt_mode.Caption = "Réseau"
-  Do Until rs.EOF = True
-   Valeur = Nz(rs.Fields("Valeur"), "")
-   valeur2 = Nz(rs.Fields("Valeur2"), "")
-   param = Nz(rs.Fields("Parametre"), "")
-
-   If valeur2 = "mdb_loc" Then
-     param = param & "-"
-   End If
-     
-   If valeur2 = "mdb_res" Then
-     Do Until Not Right(param, 1) = "-"
-       lg = Len(param)
-       lg = lg - 1
-       param = Left(param, lg)
-     Loop
-   End If
-   
-   rs.Edit
-    rs.Fields("Valeur") = Valeur
-    rs.Fields("Valeur2") = valeur2
-    rs.Fields("Parametre") = param
-   rs.Update
-
-   rs.MoveNext
-   Loop
-
-Controler_Liens
-MsgBox "Mode réseau activé"
-End If
-End Sub
-
-Private Sub CmdImpr_Click()
-Dim Etat, critere, sql As String
-Dim NbCopies As Integer
-Dim imprimante As String
-Dim NumIMP, NombreImp As Integer
-Dim ImpCherche
-Dim IDSuivi As Double
-Dim avertissement As Integer
-Dim TotalCopies As Integer
-Dim rs As DAO.Recordset
-
-NbCopies = 0
-TotalCopies = 0
-
-'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
-imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
-If imprimante = "" Then
- MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
- Exit Sub
-End If
-
-NumIMP = 0
-NombreImp = Application.Printers.Count
-For Each ImpCherche In Application.Printers
- If ImpCherche.DeviceName = imprimante Then
-  Set Application.Printer = Application.Printers(NumIMP)
-  Exit For
- Else
-  NumIMP = NumIMP + 1
- End If
-Next ImpCherche
-
-'définition du critère agent/mois/année
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-'impressions
-'form Déplacements:
-Etat = "Et_FormDep"
-NbCopies = Nz(Me.NbImprFDep, 0)
-If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
-TotalCopies = TotalCopies + NbCopies
-
-'form Heures Sup:
-Etat = "Et_FormHS"
-NbCopies = Nz(Me.NbImprFHS, 0)
-If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
-TotalCopies = TotalCopies + NbCopies
-
-'form Etat de frais:
-Etat = "Et_EtFraisDep"
-NbCopies = Nz(Me.NbImprEFD, 0)
-If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
-Etat = "Et_RecapEFD"
-NbCopies = Nz(Me.NbImprEFD, 0)
-If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
-TotalCopies = TotalCopies + NbCopies
-
-Set Application.Printer = Nothing
-
-'l'état du suivi devient "Edité"
-
-If TotalCopies > 0 Then
- avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
-
- Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE " & critere & ";")
- sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Edite = True, tbl_SuiviRH.DateEdition = Date() " & _
-       "WHERE (" & critere & ");"
-      
- IDSuivi = Nz(DLookup("IDSuivi", "tbl_SuiviRH", critere), 0)
- Call CreerMsg(4, IDSuivi)
-
- If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord  'pour éviter les conflits d'écriture
-        
- If avertissement = 0 Then DoCmd.SetWarnings False
- DoCmd.RunSQL sql
- DoCmd.SetWarnings True
-
- MAJ_etat
-End If
-
-End Sub
-
-Private Sub CodeAgent_AfterUpdate()
-'maj de la liste
-
-If IsNull(DLookup("CodeAgent", "tbl_Agents", "[CodeAgent]='" & Nz(Me.CodeAgent, "") & "'")) Then Exit Sub
-Me.lst_agent = Me.CodeAgent
-
-End Sub
-
-Private Sub Commande1_Click()
-DoCmd.OpenForm "frm_donneesRH"
-End Sub
-
-Private Sub cmdNotice_Click()
-Dim chemin As String
-Dim nomdoc As String
-Dim appwd As Word.Application
-
-chemin = parametre("CheminNotice")
-nomdoc = ExtraitNomFichier(chemin)
-
-If MsgBox("Vous vous apprêtez à ouvrir le document " & nomdoc & " - Continuer?", vbYesNo) = vbNo Then Exit Sub
-  
-Set appwd = CreateObject("Word.Application")
-With appwd
-      .Visible = True
-      .Documents.Open chemin
-      .Activate
-End With
-
-End Sub
-
-Private Sub Commande103_Click()
- Call Chargement
- MAJ_etat
-End Sub
-
-Private Sub Commande106_Click()
-Dim t0 As Single
-Dim i As Integer
-
-For i = 1 To 6
-  t0 = Timer
-  Call BordEFD_Click
-  Debug.Print i, Timer - t0
-  DoCmd.Close acReport, "Et_BordEFD"
-  DoEvents
-Next i
-End Sub
-
-Private Sub Commande107_Click()
-  DoCmd.OpenTable "tbl_msg"
-End Sub
-
-Private Sub Commande44_Click()
-DoCmd.OpenForm "frm_lstAgents"
-End Sub
-
-Private Sub Commande45_Click()
-Dim filtre As String
-filtre = "[user]='" & CurrentUser & "'"
-DoCmd.OpenForm "frm_ParamUtil", , , filtre
-End Sub
-
-Private Sub Commande61_Click()
-DoCmd.OpenForm "frm_lstBaremes"
-End Sub
-
-Private Sub Commande68_Click()
-Dim NvelleAnnee As Integer
-
-'ligne précédente liste mois
-If Me.lst_mois.ListIndex > 0 Then                   'si pas la première ligne sélectionnée
-  Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListIndex - 1)
-Else
-  'on vérifie si l'année précédente existe dans la liste, sinon on ne fait rien
-  NvelleAnnee = Me.lst_annee - 1
-  If VerifListeAnnee(NvelleAnnee) = True Then
-   Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListCount - 1)
-   Me.lst_annee = Me.lst_annee - 1 'on passe de janvier à décembre, on passe donc à l'année précédente
-  Else
-   Exit Sub
-  End If
-End If
-MAJ_etat
-End Sub
-
-Private Sub Commande69_Click()
-Dim NvelleAnnee As Integer
-
-'ligne suivante liste mois
-If Me.lst_mois.ListIndex < Me.lst_mois.ListCount - 1 Then  'si pas la dernière ligne sélectionnée
-  Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListIndex + 1)
-Else
-  'on vérifie si l'année suivante existe dans la liste, sinon on ne fait rien
-  NvelleAnnee = Me.lst_annee + 1
-  If VerifListeAnnee(NvelleAnnee) = True Then
-   Me.lst_mois = Me.lst_mois.ItemData(0)
-   Me.lst_annee = Me.lst_annee + 1 'on passe de décembre à janvier , on passe donc à l'année suivante
-  Else
-   Exit Sub
-  End If
-End If
-MAJ_etat
-End Sub
-Private Sub Commande70_Click()
-'ligne précédente liste agents
-If Me.lst_agent.ListIndex > 0 Then                   'si pas la première ligne sélectionnée
-  Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListIndex - 1)
-Else
-  Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListCount - 1)
-End If
-MAJ_etat
-End Sub
-
-Private Sub Commande71_Click()
-'ligne suivante liste agents
-If Me.lst_agent.ListIndex < Me.lst_agent.ListCount - 1 Then  'si pas la dernière ligne sélectionnée
-  Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListIndex + 1)
-Else
-  Me.lst_agent = Me.lst_agent.ItemData(0)
-End If
-MAJ_etat
-End Sub
-
-Private Sub Commande72_Click()
-'ligne précédente liste annees
-If Me.lst_annee.ListIndex > 0 Then                   'si pas la première ligne sélectionnée
-  Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListIndex - 1)
-Else
-  Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListCount - 1)
-End If
-MAJ_etat
-End Sub
-
-Private Sub Commande73_Click()
-'ligne suivante liste annees
-If Me.lst_annee.ListIndex < Me.lst_annee.ListCount - 1 Then  'si pas la dernière ligne sélectionnée
-  Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListIndex + 1)
-Else
-  Me.lst_annee = Me.lst_annee.ItemData(0)
-End If
-MAJ_etat
-End Sub
-
-Private Sub CreerForm_Click()
-Dim CodeAgent, msg As String
-Dim moisRH, anneeRH As Integer
-Dim IDSuivi As Double
-Dim resultat As Integer
-Dim avertissement As Integer
-
-IDSuivi = Nz(Me.IDSuivi, 0)
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If IDSuivi <= 0 Or CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-VerrouMenu (0)
-msg = "Traitement des données" & vbNewLine & "Veuillez patienter"
-Me.txt_msg.Caption = msg
-
-Call CreerMsg(3, IDSuivi)
-
-avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
-resultat = AnalyseDonnees(IDSuivi, CodeAgent, moisRH, anneeRH, avertissement)
-
-If resultat = 1 Then
- msg = "Les données importées ont été traitées."
-ElseIf resultat = 0 Then
- msg = "Attention: Le nombre de lignes aprés traitement parait ne pas correspondre au nombre de lignes importé."
-ElseIf resultat = -1 Then
- msg = "ATTENTION: Erreur inconnue. Veuillez vérifier les paramètres d'entrée."
-Else
- msg = "ATTENTION: Erreur inconnue. Veuillez vérifier les paramètres d'entrée."
-End If
-
-Me.txt_msg.Caption = msg
-MAJ_etat
-
-End Sub
-
-Private Sub DonneesAgentValide_Click()
-DoCmd.OpenForm "frm_AgentValide", , , , acFormReadOnly
-End Sub
-
-Private Sub EFD_Ouvrir_Click()
-Dim CodeAgent, critere, sql As String
-Dim JourRH, moisRH, anneeRH As Integer
-
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_EtFraisDep", acViewPreview, , critere
-DoCmd.OpenReport "Et_RecapEFD", acViewPreview, , critere
-
-End Sub
-
-
-
-Private Sub EnregPDF_Click()
-Dim repPDF, msg As String
-Dim CodeAgent, NomAgent, NomMois As String
-Dim moisRH, anneeRH As Integer
-Dim OuvAutoPdf As Boolean
-
-
-Me.txt_msg.Visible = True
-CodeAgent = Me.lst_agent.Column(0)
-
-moisRH = Me.lst_mois.Column(0)
-If moisRH > 0 And moisRH < 13 Then
- NomMois = Left(UCase(MonthName(moisRH)), 4)
-Else
- MsgBox "Erreur: la valeur 'Mois' est incohérente."
- Exit Sub
-End If
-
-anneeRH = Me.lst_annee.Column(0)
-If anneeRH > 1901 And anneeRH < 3000 Then
- 'ok
-Else
- MsgBox "Erreur: la valeur 'Année' est incohérente."
- Exit Sub
-End If
-
-msg = "Création des pdf..."
-Me.txt_msg.Caption = msg
-
-Call ExportEtatPDF("Et_EtFraisDep", CodeAgent, moisRH, anneeRH)
-Call ExportEtatPDF("Et_RecapEFD", CodeAgent, moisRH, anneeRH)
-Call ExportEtatPDF("Et_FormDep", CodeAgent, moisRH, anneeRH)
-Call ExportEtatPDF("Et_FormHS", CodeAgent, moisRH, anneeRH)
-
-msg = "PDF enregistrés."
-Me.txt_msg.Caption = msg
-Call Attendre(2000)
-Me.txt_msg.Visible = False
-
-End Sub
-
-Private Sub exportPeriple_Click()
-On Error GoTo err
-DoCmd.Hourglass True
-If VerifDonneesExport(Me.CodeAgent, Me.moisRH, Me.anneeRH) = True Then
-  Call Periple_MajTableTampon(Me.CodeAgent, Me.moisRH, Me.anneeRH)
-Else
-  MsgBox "Vous devez corriger les erreurs détectées dans les données pour pouvoir les exporter." & vbNewLine & _
-         "Opération annulée"
-End If
-fin:
-  DoCmd.Hourglass False
-  Exit Sub
-err:
-  MsgBox "Erreur " & err.Description
-  GoTo fin
-End Sub
-
-Private Sub FDep_Ouvrir_Click()
-Dim CodeAgent, critere, sql As String
-Dim JourRH, moisRH, anneeRH As Integer
-
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_FormDep", acViewPreview, , critere
-End Sub
-
-
-
-Private Sub FHS_Ouvrir_Click()
-Dim CodeAgent, critere, sql As String
-Dim JourRH, moisRH, anneeRH As Integer
-
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_FormHS", acViewPreview, , critere
-
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Dim dat, mm, aaaa As Integer
-
-
-Me.lst_agent = ""
-
-dat = DMax("DateRH", "tbl_ImportRH", "")
-mm = Month(dat)
-aaaa = Year(dat)
-Me.lst_annee = aaaa
-Me.lst_mois = mm
-
-If (DCount("valeur", "tbl_Parametre", "valeur='admin' AND valeur2='" & CurrentUser & "'") > 0) Then
-Me.case_test.Visible = True
-Me.txt_mode.Visible = True
-    If Right(DLookup("parametre", "tbl_parametre", "valeur2='mdb_loc'"), 1) = "-" Then
-     Me.txt_mode.Caption = "Réseau"
-     Me.case_test = False
-    Else
-     Me.txt_mode.Caption = "Local"
-     Me.case_test = True
-     MsgBox "Attention: le mode local est activé"
-    End If
-Else
-  Me.case_test.Visible = False
-  Me.txt_mode.Visible = False
-End If
-
-MAJ_etat
-
-End Sub
-
-Private Sub InvalidForm_Click()
-Dim CodeAgent, critere, sql As String
-Dim moisRH, anneeRH, avertissement As Integer
-
- CodeAgent = Me.lst_agent.Column(0)
- moisRH = Me.lst_mois.Column(0)
- anneeRH = Me.lst_annee.Column(0)
- avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
-
-If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
-
-critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-If DLookup("Edite", "tbl_SuiviRH", critere) = True Then
- If MsgBox("AVERTSSEMENT: Les formulaires ont été édités le " & DLookup("DateEdition", "tbl_SuiviRH", critere) & vbNewLine & "Voulez vous continuer malgré tout?", vbYesNo) = vbNo Then Exit Sub
-End If
-
-sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Etat ='Invalidé', tbl_SuiviRH.Edite = False " & _
-      "WHERE (" & critere & ");"
-
-If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord  'pour éviter les conflits d'écriture
-
-If avertissement = 0 Then DoCmd.SetWarnings False
-DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-MAJ_etat
-
-Else
-MsgBox "Erreur inconnue: vérifier les paramètres d'entrée."
-End If
-End Sub
-
-Private Sub lst_agent_AfterUpdate()
-MAJ_etat
-End Sub
-
-Public Sub MAJ_etat()
-Dim CodeAgent, critere As String
-Dim moisRH, anneeRH As Integer
-
-'desactiver la maj de l'affichage le temps de l'execution
-Application.Echo False
-
- CodeAgent = Me.lst_agent.Column(0)
- moisRH = Me.mois
- anneeRH = Me.Annee
-
-
-'maj case:
-Me.CodeAgent = CodeAgent
-
-If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
- critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
- If Me.Filter <> critere Then Me.Filter = critere
- Me.FilterOn = True
-End If
-
-'MAJ du chemin d'enregistrement des PDF
-Me.txt_RepPDF.Locked = False
-Me.txt_RepPDF = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='repPDF' AND [user]='" & CurrentUser & "'"), "Pas de répertoire par défaut défini (cf. tbl_parametre)")
-Me.txt_RepPDF.Locked = True
-
-Call ControleMenu
-Application.Echo True
-Me.Refresh
-
-
-End Sub
-
-Private Sub lst_annee_AfterUpdate()
-MAJ_etat
-End Sub
-
-Private Sub lst_FichiersNonTraites_DblClick(Cancel As Integer)
-Dim IDSuivi As Double
-Dim critere As String
-
-'acces rapide depuis la liste des fichiers non-edités
-If Not Nz(Me.lst_FichiersNonTraites.Column(0), 0) > 0 Then Exit Sub
-
-IDSuivi = Me.lst_FichiersNonTraites.Column(0)
-critere = "[IDSuivi]=" & IDSuivi
-
-Me.lst_agent = Nz(DLookup("CodeAgent", "tbl_SuiviRH", critere), "")
-Me.lst_annee = Nz(DLookup("AnneeRH", "tbl_SuiviRH", critere), Year(Now()))
-Me.lst_mois = Nz(DLookup("MoisRH", "tbl_SuiviRH", critere), Month(Now()))
-
-MAJ_etat
-End Sub
-
-Private Sub lst_mois_AfterUpdate()
-MAJ_etat
-End Sub
-
-Private Sub txt_RepPDF_DblClick_old(Cancel As Integer)
-'fonction changée pour une simple ouverture du dossier; cette fonction est désormais accessible via le formulaire paramètres
-
-'ouverture d'une fenêtre de sélection de dossier; on récupère le chemin d'accès du répertoire et on le stocke dans tbl_parametre
-Dim chemin, sql As String
-
-chemin = SelectFolder("Sélectionnez un répertoire:", Me.hwnd)
-If chemin = "" Then Exit Sub
-If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
-
-sql = "UPDATE tbl_parametre SET tbl_parametre.valeur ='" & chemin & "' " & _
-      "WHERE ([parametre]='repPDF');"
-
-If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord  'pour éviter les conflits d'écriture
-DoCmd.SetWarnings False
-DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-Me.txt_RepPDF.Locked = False
-Me.txt_RepPDF = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='repPDF'"), "Pas de répertoire par défaut défini (cf. tbl_parametre)")
-Me.txt_RepPDF.Locked = True
-
-Me.Refresh
-
-End Sub
-
-Private Sub TabRecap_Ouvrir_Click()
-Dim CodeAgent, critere, sql As String
-Dim JourRH, moisRH, anneeRH As Integer
-
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport "Et_RecapEFD", acViewPreview, , critere
-End Sub
-
-Private Sub txt_RepPDF_DblClick(Cancel As Integer)
-Dim chemin As String
-chemin = Me.txt_RepPDF & Me.txt_RepPDF2
-If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
-
-If dir(chemin, 16) = "" Then MkDir (chemin)
-
-Call OuvrirRepertoire(chemin)
-End Sub
-
-Private Sub ValidForm_Click()
-'cette procédure permet de confirmer l'exactitude des données traitées
-'les données en question sont alors verrouillées et les formulaires peuvent être imprimés/exportés
-'les données peuvent être invalidées par un administrateur
-
-Dim CodeAgent, critere, sql As String
-Dim moisRH, anneeRH, avertissement As Integer
-Dim IDSuivi As Double
-
- CodeAgent = Me.lst_agent.Column(0)
- moisRH = Me.lst_mois.Column(0)
- anneeRH = Me.lst_annee.Column(0)
- avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
-
-If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Etat ='Validé' " & _
-      "WHERE (" & critere & ");"
-      
-IDSuivi = Nz(DLookup("IDSuivi", "tbl_SuiviRH", critere), 0)
-Call CreerMsg(2, IDSuivi)
-
-If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord  'pour éviter les conflits d'écriture
-If avertissement = 0 Then DoCmd.SetWarnings False
-DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-MAJ_etat
-
-Else
-MsgBox "Erreur inconnue: vérifier les paramètres d'entrée."
-End If
-
-End Sub
-
-
-Private Function VerifListeAnnee(Valeur As Integer) As Boolean
-Dim i As Integer
-For i = 0 To Me.lst_annee.ListCount - 1
-  If Me.lst_annee.ItemData(i) = Valeur Then
-      VerifListeAnnee = True
-      Exit Function
-  End If
-Next i
-VerifListeAnnee = False
-End Function

test/source/forms/frm_ModifBareme.bas

@@ -1,555 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    FilterOn = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =11515
-    DatasheetFontHeight =11
-    ItemSuffix =10
-    Right =17265
-    Bottom =7890
-    DatasheetGridlinesColor =14806254
-    Filter ="[NomBareme]='Frais Kilométriques (13)' AND [PeriodeValidite]=1"
-    RecSrcDt = Begin
-        0x986c77e99436e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.PeriodeValidite, tbl_baremes.BorneInf,"
-        " tbl_baremes.BorneSup, tbl_baremes.UniteBornes, tbl_baremes.Valeur, tbl_baremes."
-        "UniteValeur FROM tbl_baremes ORDER BY tbl_baremes.BorneInf; "
-    OnCurrent ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1052
-            BackColor =10855845
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =737
-                    Top =56
-                    Width =3005
-                    Height =397
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Mise à jour du barème:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3742
-                    LayoutCachedHeight =453
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =113
-                    Top =56
-                    Width =516
-                    Height =396
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
-                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
-                                "ccessservices/2009/11/forms\"><"
-                        End
-                        Begin
-                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =629
-                    LayoutCachedHeight =452
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3345
-                    Top =56
-                    Width =3576
-                    Height =390
-                    ColumnWidth =2790
-                    ColumnOrder =1
-                    FontSize =13
-                    FontWeight =700
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3345
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6921
-                    LayoutCachedHeight =446
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4251
-                    Top =510
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =2
-                    BorderColor =10921638
-                    Name ="DateInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4251
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =5952
-                    LayoutCachedHeight =825
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            FontItalic = NotDefault
-                            OverlapFlags =93
-                            Left =1530
-                            Top =510
-                            Width =2820
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="En cours de validité depuis le "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =1530
-                            LayoutCachedTop =510
-                            LayoutCachedWidth =4350
-                            LayoutCachedHeight =825
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =6689
-                    Top =510
-                    Width =411
-                    Height =315
-                    ColumnOrder =0
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PeriodeValidite"
-                    ControlSource ="PeriodeValidite"
-                    StatusBarText ="cf. tbl_PeriodeBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6689
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =7100
-                    LayoutCachedHeight =825
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =7143
-                    Top =510
-                    Width =1984
-                    Height =340
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="Commande9"
-                    Caption ="Créer un nouveau barème"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7143
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =9127
-                    LayoutCachedHeight =850
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =340
-            BackColor =14211288
-            Name ="Détail"
-            AutoHeight =255
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =93
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =961
-                    Width =1416
-                    Height =315
-                    BorderColor =10921638
-                    Name ="BorneInf"
-                    ControlSource ="BorneInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =961
-                    LayoutCachedWidth =2377
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2775
-                    Width =1476
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="BorneSup"
-                    ControlSource ="BorneSup"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2775
-                    LayoutCachedWidth =4251
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4362
-                    Width =801
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    Name ="UniteBornes"
-                    ControlSource ="UniteBornes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4362
-                    LayoutCachedWidth =5163
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6172
-                    Width =1656
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    Name ="Valeur"
-                    ControlSource ="Valeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6172
-                    LayoutCachedWidth =7828
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7877
-                    Width =621
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    Name ="UniteValeur"
-                    ControlSource ="UniteValeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7877
-                    LayoutCachedWidth =8498
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =2435
-                    Width =227
-                    Height =284
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="à"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2435
-                    LayoutCachedWidth =2662
-                    LayoutCachedHeight =284
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =247
-                    Left =623
-                    Top =4
-                    Width =390
-                    Height =285
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette13"
-                    Caption ="De:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =4
-                    LayoutCachedWidth =1013
-                    LayoutCachedHeight =289
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5383
-                    Width =567
-                    Height =284
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette14"
-                    Caption ="->"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5383
-                    LayoutCachedWidth =5950
-                    LayoutCachedHeight =284
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin FormFooter
-            Height =623
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =7143
-                    Top =170
-                    Width =1984
-                    Height =340
-                    ForeColor =4210752
-                    Name ="Commande5"
-                    Caption ="Enregistrer"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7143
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =9127
-                    LayoutCachedHeight =510
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =60
-                    Top =165
-                    Width =3990
-                    Height =285
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="Ce barême sera pris en compte à partir du:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =60
-                    LayoutCachedTop =165
-                    LayoutCachedWidth =4050
-                    LayoutCachedHeight =450
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Form_Current()
-Dim NomBareme As String
-Dim periode As Integer
-Dim rs As DAO.Recordset
-
-NomBareme = Me.NomBareme
-periode = Me.PeriodeValidite
-
-
-
-
-
-
-
-End Sub

test/source/forms/frm_NouvelAgent.bas

@@ -1,1138 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =12703
-    DatasheetFontHeight =11
-    ItemSuffix =56
-    Right =15330
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[CodeAgent]='AAA' AND [PeriodeValidite]=1"
-    RecSrcDt = Begin
-        0x76711b6daf39e440
-    End
-    RecordSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.PeriodeValidite, tbl_Age"
-        "nts.Grade, tbl_Agents.Catégorie, tbl_Agents.RémunérationBase, tbl_Agents.Groupe,"
-        " tbl_Agents.ResidenceAdmin, tbl_Agents.ResidenceFamiliale, tbl_Agents.Telephone,"
-        " tbl_Agents.Matricule, tbl_Agents.TypeVehicule, tbl_Agents.DateAutorisationVP, t"
-        "bl_Agents.PuissanceFiscVP, tbl_Agents.NbKmAutorisesVP, tbl_Agents.TypeVirement F"
-        "ROM tbl_Agents; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =510
-            BackColor =15849926
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =2
-            BackTint =20.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =170
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette20"
-                    Caption ="Création d'un nouvel agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4156
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =8787
-            BackColor =14270637
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =917
-                    Top =1530
-                    Width =3066
-                    Height =315
-                    ColumnWidth =3225
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =917
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =3983
-                    LayoutCachedHeight =1845
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =175
-                            Top =1530
-                            Width =585
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette1"
-                            Caption ="Nom:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =175
-                            LayoutCachedTop =1530
-                            LayoutCachedWidth =760
-                            LayoutCachedHeight =1845
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2561
-                    Top =2040
-                    Width =1431
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Grade"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2561
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =3992
-                    LayoutCachedHeight =2355
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =2040
-                            Width =890
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Grade:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =2040
-                            LayoutCachedWidth =1070
-                            LayoutCachedHeight =2355
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2561
-                    Top =2437
-                    Width =1431
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Catégorie"
-                    ControlSource ="Catégorie"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2561
-                    LayoutCachedTop =2437
-                    LayoutCachedWidth =3992
-                    LayoutCachedHeight =2752
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =2437
-                            Width =1080
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette3"
-                            Caption ="Catégorie:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =2437
-                            LayoutCachedWidth =1260
-                            LayoutCachedHeight =2752
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2561
-                    Top =2834
-                    Width =1431
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="RémunérationBase"
-                    ControlSource ="RémunérationBase"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2561
-                    LayoutCachedTop =2834
-                    LayoutCachedWidth =3992
-                    LayoutCachedHeight =3149
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =2834
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="Rémunération de base:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =2834
-                            LayoutCachedWidth =2490
-                            LayoutCachedHeight =3149
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2578
-                    Top =3231
-                    Width =1401
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Groupe"
-                    ControlSource ="Groupe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2578
-                    LayoutCachedTop =3231
-                    LayoutCachedWidth =3979
-                    LayoutCachedHeight =3546
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =3231
-                            Width =795
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette5"
-                            Caption ="Groupe"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =3231
-                            LayoutCachedWidth =975
-                            LayoutCachedHeight =3546
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7606
-                    Top =1530
-                    Width =4191
-                    Height =750
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceAdmin"
-                    ControlSource ="ResidenceAdmin"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7606
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =11797
-                    LayoutCachedHeight =2280
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =5005
-                            Top =1530
-                            Width =2490
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette6"
-                            Caption ="Résidence administrative:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =5005
-                            LayoutCachedTop =1530
-                            LayoutCachedWidth =7495
-                            LayoutCachedHeight =1845
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7606
-                    Top =2380
-                    Width =4191
-                    Height =780
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ResidenceFamiliale"
-                    ControlSource ="ResidenceFamiliale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7606
-                    LayoutCachedTop =2380
-                    LayoutCachedWidth =11797
-                    LayoutCachedHeight =3160
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4998
-                            Top =2380
-                            Width =2040
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette7"
-                            Caption ="Résidence familiale:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4998
-                            LayoutCachedTop =2380
-                            LayoutCachedWidth =7038
-                            LayoutCachedHeight =2695
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7606
-                    Top =3344
-                    Width =3411
-                    Height =315
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Telephone"
-                    ControlSource ="Telephone"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7606
-                    LayoutCachedTop =3344
-                    LayoutCachedWidth =11017
-                    LayoutCachedHeight =3659
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =5005
-                            Top =3340
-                            Width =1140
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette9"
-                            Caption ="Téléphone:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =5005
-                            LayoutCachedTop =3340
-                            LayoutCachedWidth =6145
-                            LayoutCachedHeight =3655
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2560
-                    Top =3627
-                    Width =1431
-                    Height =315
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2560
-                    LayoutCachedTop =3627
-                    LayoutCachedWidth =3991
-                    LayoutCachedHeight =3942
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =3628
-                            Width =960
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette10"
-                            Caption ="Matricule"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =3628
-                            LayoutCachedWidth =1140
-                            LayoutCachedHeight =3943
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3984
-                    Top =5102
-                    Width =1641
-                    Height =315
-                    TabIndex =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateAutorisationVP"
-                    ControlSource ="DateAutorisationVP"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3984
-                    LayoutCachedTop =5102
-                    LayoutCachedWidth =5625
-                    LayoutCachedHeight =5417
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =5101
-                            Width =3630
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette12"
-                            Caption ="Date de l'autorisation de circuler:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =5101
-                            LayoutCachedWidth =3810
-                            LayoutCachedHeight =5416
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3978
-                    Top =5499
-                    Width =1641
-                    Height =315
-                    ColumnWidth =2640
-                    TabIndex =10
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="PuissanceFiscVP"
-                    ControlSource ="PuissanceFiscVP"
-                    StatusBarText ="Puissance Fiscale Réelle du VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3978
-                    LayoutCachedTop =5499
-                    LayoutCachedWidth =5619
-                    LayoutCachedHeight =5814
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =175
-                            Top =5500
-                            Width =2430
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette13"
-                            Caption ="Puissance fiscale (en CV):"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =175
-                            LayoutCachedTop =5500
-                            LayoutCachedWidth =2605
-                            LayoutCachedHeight =5815
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3978
-                    Top =5895
-                    Width =1641
-                    Height =315
-                    TabIndex =11
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NbKmAutorisesVP"
-                    ControlSource ="NbKmAutorisesVP"
-                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3978
-                    LayoutCachedTop =5895
-                    LayoutCachedWidth =5619
-                    LayoutCachedHeight =6210
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =175
-                            Top =5890
-                            Width =2310
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette14"
-                            Caption ="Nombr de Km autorisés:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =175
-                            LayoutCachedTop =5890
-                            LayoutCachedWidth =2485
-                            LayoutCachedHeight =6205
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7606
-                    Top =3798
-                    Width =3411
-                    Height =315
-                    TabIndex =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="TypeVirement"
-                    ControlSource ="TypeVirement"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7606
-                    LayoutCachedTop =3798
-                    LayoutCachedWidth =11017
-                    LayoutCachedHeight =4113
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =5005
-                            Top =3805
-                            Width =1770
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette15"
-                            Caption ="Type de virement:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =5005
-                            LayoutCachedTop =3805
-                            LayoutCachedWidth =6775
-                            LayoutCachedHeight =4120
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =2334
-                    Top =4648
-                    Width =3288
-                    Height =315
-                    TabIndex =14
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="TypeVehicule"
-                    ControlSource ="TypeVehicule"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Listes.CodeChoix, tbl_Listes.LibelleChoix, tbl_Listes.TableListe, tbl"
-                        "_Listes.ChampListe FROM tbl_Listes WHERE (((tbl_Listes.TableListe)='tbl_Agents')"
-                        " AND ((tbl_Listes.ChampListe)='TypeVehicule')); "
-                    ColumnWidths ="0;2835"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2334
-                    LayoutCachedTop =4648
-                    LayoutCachedWidth =5622
-                    LayoutCachedHeight =4963
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =180
-                            Top =4648
-                            Width =1710
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette22"
-                            Caption ="Type de véhicule:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =180
-                            LayoutCachedTop =4648
-                            LayoutCachedWidth =1890
-                            LayoutCachedHeight =4963
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =180
-                    Top =1133
-                    Width =789
-                    Height =340
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="Poste:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =180
-                    LayoutCachedTop =1133
-                    LayoutCachedWidth =969
-                    LayoutCachedHeight =1473
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =5005
-                    Top =1135
-                    Width =1485
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette24"
-                    Caption ="Coordonnées:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5005
-                    LayoutCachedTop =1135
-                    LayoutCachedWidth =6490
-                    LayoutCachedHeight =1480
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =4308
-                    Top =510
-                    Width =1819
-                    Height =300
-                    ColumnOrder =3
-                    FontWeight =700
-                    TabIndex =12
-                    BorderColor =10921638
-                    Name ="NvelleDate"
-                    Format ="Short Date"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4308
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =6127
-                    LayoutCachedHeight =810
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =180
-                    Top =4195
-                    Width =2085
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette25"
-                    Caption ="Véhicule personnel:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =180
-                    LayoutCachedTop =4195
-                    LayoutCachedWidth =2265
-                    LayoutCachedHeight =4540
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =165
-                    Top =510
-                    Width =4035
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette47"
-                    Caption ="Ces données seront valides à partir du:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =165
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =4200
-                    LayoutCachedHeight =855
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2097
-                    Top =113
-                    Width =1086
-                    Height =315
-                    FontWeight =700
-                    TabIndex =15
-                    BorderColor =10921638
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2097
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =3183
-                    LayoutCachedHeight =428
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            FontUnderline = NotDefault
-                            OverlapFlags =85
-                            Left =165
-                            Top =120
-                            Width =1815
-                            Height =315
-                            FontSize =12
-                            FontWeight =700
-                            BorderColor =8355711
-                            Name ="Étiquette0"
-                            Caption ="Code de l'agent:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =165
-                            LayoutCachedTop =120
-                            LayoutCachedWidth =1980
-                            LayoutCachedHeight =435
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =170
-                    Top =6836
-                    Width =7365
-                    Height =585
-                    BorderColor =8355711
-                    Name ="Étiquette50"
-                    Caption ="Si l'agent a déja parcouru des kilomètres avec son véhicule personnel lors de la"
-                        " création, veuillez en saisir la quantité ici:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =6836
-                    LayoutCachedWidth =7535
-                    LayoutCachedHeight =7421
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =223
-                    IMESentenceMode =3
-                    Left =3973
-                    Top =7086
-                    Width =1294
-                    Height =315
-                    TabIndex =16
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="KmSuppl"
-                    DefaultValue ="0"
-                    GridlineColor =10921638
-                    ShowDatePicker =0
-
-                    LayoutCachedLeft =3973
-                    LayoutCachedTop =7086
-                    LayoutCachedWidth =5267
-                    LayoutCachedHeight =7401
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =6387
-                    Width =2250
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette52"
-                    Caption ="Kilomètres initiaux:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =6387
-                    LayoutCachedWidth =2420
-                    LayoutCachedHeight =6732
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =231
-                    Top =7879
-                    Width =5222
-                    Height =585
-                    TabIndex =17
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MotifKmSuppl"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =231
-                    LayoutCachedTop =7879
-                    LayoutCachedWidth =5453
-                    LayoutCachedHeight =8464
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =175
-                            Top =7541
-                            Width =5490
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette54"
-                            Caption ="(Optionnel)Raison d'être des kilomètres supplémentaires:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =175
-                            LayoutCachedTop =7541
-                            LayoutCachedWidth =5665
-                            LayoutCachedHeight =7856
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =5272
-                    Top =7086
-                    Width =510
-                    Height =284
-                    BorderColor =8355711
-                    Name ="Étiquette55"
-                    Caption ="Km"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5272
-                    LayoutCachedTop =7086
-                    LayoutCachedWidth =5782
-                    LayoutCachedHeight =7370
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin FormFooter
-            Height =623
-            BackColor =14270637
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =7993
-                    Top =113
-                    Width =1647
-                    Height =403
-                    ForeColor =4210752
-                    Name ="CmdOK"
-                    Caption ="Créer"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7993
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =9640
-                    LayoutCachedHeight =516
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =9977
-                    Top =113
-                    Width =1647
-                    Height =403
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="Annuler"
-                    Caption ="Annuler"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9977
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =11624
-                    LayoutCachedHeight =516
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Annuler_Click()
-Dim avertissement As Integer
-Dim sql, CodeAgent As String
-
-
-If MsgBox("Attention, les données saisies seront perdues. Voulez-vous continuer?", vbYesNo) = vbNo Then Exit Sub
-
-CodeAgent = Me.CodeAgent
-
-If DCount("JourRH", "tbl_formDep", "[CodeAgent]='" & CodeAgent & "'") > 0 Or DCount("JourRH", "tbl_formHS", "[CodeAgent]='" & CodeAgent & "'") > 0 Then
-  MsgBox "Des données RH ont été importées pour cet agent, l'opération de suppression est annulée"
-  Exit Sub
-End If
-
-avertissement = Nz(parametre("AvertSQL"), 1)
-
-If avertissement = 0 Then DoCmd.SetWarnings False
-
-sql = "DELETE * FROM tbl_Agents WHERE [CodeAgent]='" & CodeAgent & "';"
-DoCmd.RunSQL sql
-
-sql = "DELETE * FROM tbl_PeriodeAgent WHERE [CodeAgent]='" & CodeAgent & "';"
-DoCmd.RunSQL sql
-
-sql = "DELETE * FROM tbl_KmSuppl WHERE [CodeAgent]='" & CodeAgent & "';"
-DoCmd.RunSQL sql
-
-DoCmd.SetWarnings True
-
-DoCmd.Close
-
-End Sub
-
-
-Private Sub Form_Open(Cancel As Integer)
-Dim rs As DAO.Recordset
-Dim CodeAgent As String
-
-'l'ajout d'un nouvel agent implique l'ajout d'une ligne à la table agent, ainsi que d'une ligne à la table tbl_PeriodeAgent.
-'La création de cette ligne implique de connaitre la date à partir de laquelle ce nouvel agent est opérationnel
-'si cette date n'est pas en janvier, une ligne doit être ajoutée aux tables tbl_FormDep et tbl_FormHS qui servira de conditions initiales
-
-
-Me.NvelleDate = "01/" & Format(Month(Now()), "00") & "/" & Year(Now())
-
-CodeAgent = Nz(InputBox("Veuillez saisir le code de l'agent à ajouter:"), "")
-
-If CodeAgent = "" Then
- MsgBox "Opération Annulée"
- DoCmd.Close
- Exit Sub
-End If
-
-
-'Création d'une nouvelle ligne dans tbl_Agents
-
-Set rs = CurrentDb.OpenRecordset("tbl_Agents")
-
-rs.AddNew
-rs![CodeAgent] = CodeAgent
-rs![PeriodeValidite] = 1
-rs.Update
-
-'on place l'enregistrement du formulaire sur ce nouvel enregistrement
-Me.FilterOn = False
-Me.Filter = "[CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=1"
-Me.FilterOn = True
-
-Me.Refresh
-
-
-End Sub
-
-
-Private Sub CmdOK_Click()
-Dim rs As DAO.Recordset
-Dim NvelleDate As Date
-Dim CodeAgent As String
-
-CodeAgent = Me.CodeAgent
-NvelleDate = CDate(Me.NvelleDate)
-
-If IsNull(NvelleDate) Then
- Me.NvelleDate.BackColor = 12566463
- Exit Sub
-End If
-
-NvPeriode = NvellePeriode("tbl_PeriodeAgent", CodeAgent, NvelleDate)
-If NvPeriode = 0 Then
- MsgBox "Erreur lors de la création de la nouvelle période de validité."
- Exit Sub
-End If
-
-If Nz(Me.KmSuppl, 0) <> 0 Then
-Set rs = CurrentDb.OpenRecordset("tbl_KmSuppl")
- rs.AddNew
- rs![CodeAgent] = CodeAgent
- rs![anneeRH] = Year(NvelleDate)
- rs![KmSuppl] = Me.KmSuppl
- rs![Motif] = Nz(Me.MotifKmSuppl, "")
- rs.Update
-End If
-
-Call CreerMsg(13, , CodeAgent)
-MsgBox "L'agent " & CodeAgent & " a été créé."
-DoCmd.Close
-
-End Sub

test/source/forms/frm_ParamUtil.bas

@@ -1,444 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =20807
-    DatasheetFontHeight =11
-    ItemSuffix =8
-    Right =13590
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    Filter ="[user]='olivier'"
-    RecSrcDt = Begin
-        0xb6942d1f1538e440
-    End
-    RecordSource ="SELECT tbl_ParamUtil.Parametre, tbl_ParamUtil.Valeur, tbl_ParamUtil.Valeur2, tbl"
-        "_ParamUtil.Description, tbl_ParamUtil.User FROM tbl_ParamUtil ORDER BY tbl_Param"
-        "Util.User; "
-    OnCurrent ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1057
-            BackColor =14211288
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =623
-                    Top =56
-                    Width =3402
-                    Height =397
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Gestion des Paramètres"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4025
-                    LayoutCachedHeight =453
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =516
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
-                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
-                                "ccessservices/2009/11/forms\"><"
-                        End
-                        Begin
-                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =572
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =7880
-                    Top =742
-                    Width =690
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="Valeur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7880
-                    LayoutCachedTop =742
-                    LayoutCachedWidth =8570
-                    LayoutCachedHeight =1057
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =12925
-                    Top =680
-                    Width =2280
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Valeur complémentaire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12925
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =15205
-                    LayoutCachedHeight =995
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =113
-                    Top =742
-                    Width =2640
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="Commentaire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =742
-                    LayoutCachedWidth =2753
-                    LayoutCachedHeight =1057
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5835
-                    Top =737
-                    Width =1905
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette2"
-                    Caption =" Code du paramètre"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5835
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =7740
-                    LayoutCachedHeight =1052
-                End
-                Begin Label
-                    FontItalic = NotDefault
-                    OverlapFlags =215
-                    Left =623
-                    Top =340
-                    Width =11115
-                    Height =285
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="(Le cas échéant, un double clic sur la case 'valeur' ouvrira la fenêtre de sélec"
-                        "tion correspondante)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =11738
-                    LayoutCachedHeight =625
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =15987
-                    Top =680
-                    Width =495
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="etiq_user"
-                    Caption ="User"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =15987
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =16482
-                    LayoutCachedHeight =995
-                End
-            End
-        End
-        Begin Section
-            Height =340
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7880
-                    Width =4986
-                    Height =315
-                    ColumnWidth =7920
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="valeur"
-                    ControlSource ="valeur"
-                    OnDblClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7880
-                    LayoutCachedWidth =12866
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =12925
-                    Width =3006
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="valeur2"
-                    ControlSource ="valeur2"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12925
-                    LayoutCachedWidth =15931
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    EnterKeyBehavior = NotDefault
-                    ScrollBars =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =114
-                    Width =5610
-                    Height =333
-                    ColumnWidth =7725
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="commentaire"
-                    ControlSource ="Description"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =114
-                    LayoutCachedWidth =5724
-                    LayoutCachedHeight =333
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =5839
-                    Width =1866
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="parametre"
-                    ControlSource ="parametre"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5839
-                    LayoutCachedWidth =7705
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =15987
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="User"
-                    ControlSource ="User"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15987
-                    LayoutCachedWidth =17688
-                    LayoutCachedHeight =315
-                End
-            End
-        End
-        Begin FormFooter
-            Height =453
-            BackColor =14211288
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-
-Private Sub Form_Current()
-'on affiche le nom de l'utilisateur seulement lorsque l'affichage n'est pas filtré par utilisateur
-If Me.Filter <> "" And Me.FilterOn = True Then
- Me.User.Visible = False
- Me.etiq_user.Visible = False
-End If
-End Sub
-
-Private Sub valeur_DblClick(Cancel As Integer)
-Dim nouv As String
-
-
-If Me.parametre = "imprimante" Then
- nouv = NomImpr()
-ElseIf Me.parametre = "repPDF" Then
- nouv = Nz(SelectFolder("Selectionnez un dossier...", Me.hwnd), "")
-End If
-
- If nouv = "" Then Exit Sub
- Me.Valeur = nouv
- 
-End Sub

test/source/forms/frm_SuiviVersions.bas

@@ -1,754 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    AllowDeletions = NotDefault
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =18481
-    DatasheetFontHeight =11
-    ItemSuffix =17
-    Right =16665
-    Bottom =7890
-    DatasheetGridlinesColor =15062992
-    RecSrcDt = Begin
-        0xc8ae16b46f22e440
-    End
-    RecordSource ="SELECT ztblVersion.VERSION, ztblVersion.VERSION_lb, ztblVersion.Modifie_par, ztb"
-        "lVersion.Valide_par, ztblVersion.Valide_le, ztblVersion.Modifications FROM ztblV"
-        "ersion ORDER BY ztblVersion.VERSION DESC; "
-    OnCurrent ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    DatasheetBackColor12 =-2147483643
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =16053492
-    DatasheetGridlinesColor12 =15062992
-    FitToScreen =1
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            ForeThemeColorIndex =2
-            ForeTint =60.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BackColor =-2147483633
-            BorderLineStyle =0
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-        End
-        Begin TextBox
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =963
-            BackColor =12566463
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =226
-                    Top =566
-                    Width =960
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette0"
-                    Caption ="VERSION:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =226
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =1186
-                    LayoutCachedHeight =881
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =2380
-                    Top =623
-                    Width =1215
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette2"
-                    Caption ="Modifié par:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2380
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =3595
-                    LayoutCachedHeight =938
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =4421
-                    Top =623
-                    Width =1080
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette4"
-                    Caption ="Validé par:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4421
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =5501
-                    LayoutCachedHeight =938
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =6179
-                    Top =623
-                    Width =960
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette5"
-                    Caption ="Validé le:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6179
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =7139
-                    LayoutCachedHeight =938
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =7653
-                    Top =623
-                    Width =1410
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette6"
-                    Caption ="Modifications:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7653
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =9063
-                    LayoutCachedHeight =938
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =623
-                    Top =56
-                    Width =5216
-                    Height =340
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =16777215
-                    Name ="Étiquette7"
-                    Caption ="Suivi des versions"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5839
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =5499
-                    Top =56
-                    Width =1424
-                    Height =343
-                    ForeColor =4138256
-                    Name ="cmd_ajout"
-                    Caption ="Ajouter"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5499
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6923
-                    LayoutCachedHeight =399
-                    BackColor =10855845
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =215
-                    Left =3798
-                    Top =56
-                    Width =1424
-                    Height =343
-                    TabIndex =1
-                    ForeColor =4138256
-                    Name ="cmd_actu"
-                    Caption ="Actualiser"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3798
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5222
-                    LayoutCachedHeight =399
-                    BackColor =10855845
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =501
-                    Height =336
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
-                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
-                                "ccessservices/2009/11/forms\"><"
-                        End
-                        Begin
-                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =557
-                    LayoutCachedHeight =392
-                    ForeThemeColorIndex =0
-                    ForeTint =75.0
-                    ForeShade =100.0
-                    UseTheme =1
-                    Shape =1
-                    BackColor =16183539
-                    BorderColor =12029087
-                    BorderThemeColorIndex =-1
-                    BorderShade =100.0
-                    HoverColor =15060409
-                    HoverThemeColorIndex =4
-                    HoverTint =40.0
-                    PressedColor =9592887
-                    PressedThemeColorIndex =4
-                    PressedShade =75.0
-                    HoverForeColor =4210752
-                    HoverForeThemeColorIndex =0
-                    HoverForeTint =75.0
-                    PressedForeColor =4210752
-                    PressedForeThemeColorIndex =0
-                    PressedForeTint =75.0
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin Section
-            Height =510
-            BackColor =15527148
-            Name ="Détail"
-            AlternateBackColor =12566463
-            Begin
-                Begin TextBox
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =226
-                    Top =56
-                    Width =1266
-                    Height =315
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="VERSION"
-                    ControlSource ="VERSION"
-                    Format ="Short Date"
-                    StatusBarText ="Date de la version (JJ/MM/AAAA)"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =226
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =1492
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =1587
-                    Top =56
-                    Width =681
-                    Height =315
-                    TabIndex =5
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="VERSION_lb"
-                    ControlSource ="VERSION_lb"
-                    StatusBarText ="Libellé de la version"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1587
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2268
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =2437
-                    Top =56
-                    Height =315
-                    TabIndex =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Modifie_par"
-                    ControlSource ="Modifie_par"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2437
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4138
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =4478
-                    Top =56
-                    Height =315
-                    TabIndex =2
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Valide_par"
-                    ControlSource ="Valide_par"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4478
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6179
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =6235
-                    Top =56
-                    Width =1251
-                    Height =315
-                    TabIndex =3
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Valide_le"
-                    ControlSource ="Valide_le"
-                    Format ="Short Date"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6235
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7486
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    EnterKeyBehavior = NotDefault
-                    ScrollBars =2
-                    BorderWidth =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =56
-                    Width =7485
-                    Height =333
-                    ColumnWidth =7215
-                    TabIndex =4
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Modifications"
-                    ControlSource ="Modifications"
-                    StatusBarText ="Modifications apportées par la nouvelle version"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =15195
-                    LayoutCachedHeight =389
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =15363
-                    Top =56
-                    Width =1134
-                    Height =340
-                    TabIndex =6
-                    ForeColor =4138256
-                    Name ="cmd_valider"
-                    Caption ="Valider"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15363
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =16497
-                    LayoutCachedHeight =396
-                    BackColor =10855845
-                    BorderColor =16777215
-                    BorderThemeColorIndex =-1
-                    BorderShade =100.0
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =16781
-                    Top =56
-                    Width =1314
-                    Height =340
-                    TabIndex =7
-                    ForeColor =4138256
-                    Name ="cmd_suppr"
-                    Caption ="Supprimer"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =16781
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =18095
-                    LayoutCachedHeight =396
-                    BackColor =10855845
-                    BorderColor =16777215
-                    BorderThemeColorIndex =-1
-                    BorderShade =100.0
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin FormFooter
-            Height =453
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =93
-                    Left =113
-                    Top =56
-                    Width =5783
-                    Height =284
-                    BorderColor =16777215
-                    Name ="txt_npo"
-                    Caption ="NPO: Mettre à jour la table tbl_parametre"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5896
-                    LayoutCachedHeight =340
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    Left =4422
-                    Top =56
-                    Width =1417
-                    Height =329
-                    ForeColor =4138256
-                    Name ="cmd_acces"
-                    Caption ="Accès"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4422
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5839
-                    LayoutCachedHeight =385
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub cmd_acces_Click()
-DoCmd.OpenTable "tbl_parametre"
-End Sub
-
-Private Sub cmd_actu_Click()
-
-Me.Requery
-Me.Refresh
-
-End Sub
-
-Private Sub cmd_suppr_Click()
-Dim k1, k2 As Integer
-Dim rs As DAO.Recordset
-
-Me.AllowDeletions = True
-Me.Refresh
-DoCmd.RunCommand acCmdDeleteRecord
-Me.AllowDeletions = False
-
-Call MAJ_Local(DLast("[VERSION_lb]", "ztblVersion", ""), DLast("[VERSION]", "ztblVersion", ""))
-
-Me.Refresh
-End Sub
-
-Private Sub cmd_valider_Click()
-Dim rs As DAO.Recordset
-
-Me.Valide_le = Date
-Me.Valide_par = Environ("USERNAME")
-Me.Refresh
-End Sub
-
-Private Sub cmd_ajout_Click()
-Dim rs As DAO.Recordset
-Dim k1, k2 As Integer
-
-Set rs = CurrentDb.OpenRecordset("ztblVersion")
-rs.AddNew
-rs![VERSION] = Date
-rs![VERSION_lb] = DLast("[VERSION_lb]", "ztblVersion", "")
-rs![Modifie_par] = Environ("USERNAME")
-rs![Modifications] = Nz(InputBox("Modifications apportées:"), "")
-rs.Update
-
-rs.Close
-Set rs = Nothing
-
-Call MAJ_Local(DLast("[VERSION_lb]", "ztblVersion", ""), Date)
-
-Me.Requery
-Me.Refresh
-
-End Sub
-
-
-
-Private Sub Commande14_Click()
-On Error GoTo Err_Commande14_Click
-
-
-    If Me.Dirty Then Me.Dirty = False
-    DoCmd.Close
-
-Exit_Commande14_Click:
-    Exit Sub
-
-Err_Commande14_Click:
-    MsgBox err.Description
-    Resume Exit_Commande14_Click
-    
-End Sub
-
-Private Sub Form_Current()
-If Not DCount("valeur", "tbl_parametre", "valeur='admin' AND valeur2='" & CurrentUser & "'") > 0 Then
- Me.cmd_ajout.Visible = False
- Me.cmd_suppr.Visible = False
- Me.cmd_valider.Visible = False
- Me.cmd_acces.Visible = False
- Me.txt_npo.Visible = False
-
- Me.VERSION.Locked = True
- Me.VERSION_lb.Locked = True
- Me.Modifie_par.Locked = True
- Me.Valide_le.Locked = True
- Me.Valide_par.Locked = True
- Me.Modifications.Locked = True
-End If
-End Sub
-
-
-Private Sub VERSION_AfterUpdate()
- Me.Requery
- Call MAJ_Local("", Me.VERSION)
-End Sub
-
-Private Sub VERSION_lb_AfterUpdate()
- Me.Requery
- Call MAJ_Local(Me.VERSION_lb)
-End Sub
-
-Sub MAJ_Local(VERSION_lb As String, Optional VERSION As String)
-Dim rs As DAO.Recordset
-Dim k1, k2 As Integer
-
-k1 = 0
-k2 = 0
-
-If Not Len(VERSION_lb) > 0 Then k2 = 1
-'If VERSION > #1/1/1990# Then k1 = 1
-If Not Len(VERSION) > 0 Then k1 = 1
-
-If k1 = 1 And k2 = 1 Then Exit Sub
-If MsgBox("Mettre à jour la table tbl_parametre (local)?", vbYesNo) = vbNo Then Exit Sub
-
-'mise à jour des champs s'il existent
-Set rs = CurrentDb.OpenRecordset("tbl_parametre")
-rs.MoveFirst
-Do Until rs.EOF = True
- If k1 = 0 And rs![parametre] = "VERSION" Then
-  rs.Edit
-  rs![Valeur] = VERSION
-  rs.Update
-  k1 = 1
- End If
- If k2 = 0 And rs![parametre] = "VERSION_lb" Then
-  rs.Edit
-  rs![Valeur] = VERSION_lb
-  rs.Update
-  k2 = 1
- End If
-rs.MoveNext
-Loop
-
-'création s'ils sont manquants
-If k1 = 0 Then
- rs.AddNew
- rs![parametre] = "VERSION"
- rs![Valeur] = VERSION
- rs.Update
-End If
-If k2 = 0 Then
- rs.AddNew
- rs![parametre] = "VERSION_lb"
- rs![Valeur] = VERSION_lb
- rs.Update
-End If
-rs.Close
-
-'message "nouvelle version"
-Call CreerMsg(21)
-
-End Sub

test/source/forms/frm_TablesAttachees.bas

@@ -1,123 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =6994
-    DatasheetFontHeight =11
-    ItemSuffix =2
-    Right =9375
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x881907e45239e440
-    End
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =5952
-            BackColor =15527148
-            Name ="Détail"
-            AutoHeight =1
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Width =2700
-                    Height =240
-                    FontSize =8
-                    FontWeight =700
-                    Name ="Étiquette2"
-                    Caption ="Mise à jour des liens: "
-                    FontName ="Tahoma"
-                    LayoutCachedWidth =2700
-                    LayoutCachedHeight =240
-                    ThemeFontIndex =-1
-                    BackThemeColorIndex =-1
-                    BorderThemeColorIndex =-1
-                    BorderTint =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    GridlineThemeColorIndex =-1
-                    GridlineShade =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =113
-                    Top =340
-                    Width =6690
-                    Height =5445
-                    FontSize =8
-                    FontWeight =700
-                    Name ="tbMessage"
-                    FontName ="Tahoma"
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =6803
-                    LayoutCachedHeight =5785
-                    BackThemeColorIndex =-1
-                    BorderThemeColorIndex =-1
-                    BorderShade =100.0
-                    ThemeFontIndex =-1
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    GridlineThemeColorIndex =-1
-                    GridlineShade =100.0
-                End
-            End
-        End
-    End
-End

test/source/forms/frm_ValidationDonneesPeriple.bas

@@ -1,641 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =18792
-    DatasheetFontHeight =11
-    ItemSuffix =17
-    Right =17115
-    Bottom =7890
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xdc7c9924d288e440
-    End
-    RecordSource ="PDE_PERIPLE"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1190
-            BackColor =15527148
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =907
-                    Top =113
-                    Width =7830
-                    Height =405
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="Validation des données avant export vers PERIPLE"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =907
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =8737
-                    LayoutCachedHeight =518
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Top =850
-                    Width =1110
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="IDF_AGENT"
-                    GridlineColor =10921638
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =1110
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =1360
-                    Top =850
-                    Width =1605
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="DATE_DEMANDE"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1360
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =2965
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =3118
-                    Top =850
-                    Width =2130
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="MOTIF_DEPLACEMENT"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3118
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =5248
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =5385
-                    Top =850
-                    Width =2490
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="ITINERAIRE"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5385
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =7875
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =7942
-                    Top =850
-                    Width =945
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="CP_DEP"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7942
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =8887
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =8957
-                    Top =850
-                    Width =1890
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="DATE_DEPART"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8957
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =10847
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =10929
-                    Top =850
-                    Width =1890
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="DATE_RETOUR"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10929
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =12819
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =12870
-                    Top =850
-                    Width =2040
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="MOYEN_TRANSPORT"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12870
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =14910
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =14966
-                    Top =850
-                    Width =1995
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="NB_KM_PARCOURUS"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =14966
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =16961
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =17007
-                    Top =850
-                    Width =1785
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette11"
-                    Caption ="NBR_REPAS_PLEIN"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =17007
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =18792
-                    LayoutCachedHeight =1165
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =396
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    DecimalPlaces =0
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Width =1146
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="IDF_AGENT"
-                    ControlSource ="IDF_AGENT"
-                    GridlineColor =10921638
-
-                    LayoutCachedWidth =1146
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =1360
-                    Width =1596
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DATE_DEMANDE"
-                    ControlSource ="DATE_DEMANDE"
-                    Format ="dd/mm/yyyy"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1360
-                    LayoutCachedWidth =2956
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3118
-                    Width =2106
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MOTIF_DEPLACEMENT"
-                    ControlSource ="MOTIF_DEPLACEMENT"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3118
-                    LayoutCachedWidth =5224
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5385
-                    Width =2496
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="ITINERAIRE"
-                    ControlSource ="ITINERAIRE"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5385
-                    LayoutCachedWidth =7881
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7933
-                    Width =966
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CP_DEP"
-                    ControlSource ="CP_DEP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7933
-                    LayoutCachedWidth =8899
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =8957
-                    Width =1866
-                    Height =315
-                    ColumnWidth =1725
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DATE_DEPART"
-                    ControlSource ="DATE_DEPART"
-                    Format ="dd/mm/yyyy hh:nn"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8957
-                    LayoutCachedWidth =10823
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10928
-                    Width =1911
-                    Height =315
-                    ColumnWidth =1740
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DATE_RETOUR"
-                    ControlSource ="DATE_RETOUR"
-                    Format ="dd/mm/yyyy hh:nn"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10928
-                    LayoutCachedWidth =12839
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =14966
-                    Width =1986
-                    Height =315
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NB_KM_PARCOURUS"
-                    ControlSource ="NB_KM_PARCOURUS"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =14966
-                    LayoutCachedWidth =16952
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =17007
-                    Height =315
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NBR_REPAS_PLEIN"
-                    ControlSource ="NBR_REPAS_PLEIN"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =17007
-                    LayoutCachedWidth =18708
-                    LayoutCachedHeight =315
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =12869
-                    Width =2041
-                    Height =315
-                    TabIndex =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MOYEN_TRANSPORT"
-                    ControlSource ="MOYEN_TRANSPORT"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12869
-                    LayoutCachedWidth =14910
-                    LayoutCachedHeight =315
-                End
-            End
-        End
-        Begin FormFooter
-            Height =737
-            BackColor =15527148
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =15250
-                    Top =59
-                    Width =2829
-                    Height =510
-                    ForeColor =16777215
-                    Name ="Commande14"
-                    Caption ="Créer et envoyer le XML"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15250
-                    LayoutCachedTop =59
-                    LayoutCachedWidth =18079
-                    LayoutCachedHeight =569
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    Gradient =0
-                    BackColor =4626167
-                    BackThemeColorIndex =9
-                    BackTint =100.0
-                    BorderColor =4626167
-                    BorderThemeColorIndex =9
-                    BorderTint =100.0
-                    HoverColor =7056377
-                    HoverThemeColorIndex =9
-                    HoverTint =80.0
-                    PressedColor =750835
-                    PressedThemeColorIndex =9
-                    PressedShade =80.0
-                    HoverForeThemeColorIndex =1
-                    HoverForeTint =100.0
-                    PressedForeThemeColorIndex =1
-                    PressedForeTint =100.0
-                    QuickStyle =14
-                    QuickStyleMask =-1
-                    WebImagePaddingLeft =1
-                    WebImagePaddingTop =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =12982
-                    Top =56
-                    Height =513
-                    TabIndex =1
-                    Name ="Commande15"
-                    Caption ="Annuler"
-                    OnClick ="[Event Procedure]"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12982
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =14683
-                    LayoutCachedHeight =569
-                    ForeTint =100.0
-                    BackColor =0
-                    BackThemeColorIndex =0
-                    BackTint =100.0
-                    BorderColor =0
-                    BorderThemeColorIndex =0
-                    BorderTint =100.0
-                    HoverColor =3355443
-                    HoverThemeColorIndex =0
-                    HoverTint =80.0
-                    PressedColor =0
-                    PressedThemeColorIndex =0
-                    PressedShade =80.0
-                    HoverForeColor =0
-                    HoverForeTint =100.0
-                    PressedForeColor =0
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-1
-                    WebImagePaddingTop =1
-                End
-                Begin Label
-                    Visible = NotDefault
-                    FontItalic = NotDefault
-                    OverlapFlags =85
-                    Left =170
-                    Top =170
-                    Width =4308
-                    Height =340
-                    FontSize =10
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =683236
-                    Name ="txt_msgConnexion"
-                    Caption ="Connexion: tentative  1 sur 3"
-                    FontName ="Verdana"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =4478
-                    LayoutCachedHeight =510
-                    ThemeFontIndex =-1
-                    ForeThemeColorIndex =9
-                    ForeTint =100.0
-                    ForeShade =75.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Commande14_Click()
-  Call Periple_ExportXML(False)
-  DoCmd.Close acForm, Me.Name
-End Sub
-
-Private Sub Commande15_Click()
-  DoCmd.Close acForm, Me.Name
-End Sub

test/source/forms/frm_acces.bas

@@ -1,342 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =10771
-    DatasheetFontHeight =11
-    ItemSuffix =16
-    Right =11325
-    Bottom =7920
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xeb69d50b1638e440
-    End
-    RecordSource ="SELECT tbl_parametre.valeur2 AS Utilisateur, tbl_parametre.commentaire AS Accès,"
-        " tbl_parametre.valeur AS CodeAcces, tbl_parametre.parametre FROM tbl_parametre W"
-        "HERE (((tbl_parametre.parametre)='acces')) ORDER BY tbl_parametre.valeur2; "
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1077
-            BackColor =13611711
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =623
-                    Top =56
-                    Width =2834
-                    Height =333
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Gestion des droits d'accès"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3457
-                    LayoutCachedHeight =389
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =516
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    OnClick ="[Event Procedure]"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =572
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =623
-                    Top =737
-                    Width =1050
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="Utilisateur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =1673
-                    LayoutCachedHeight =1052
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3004
-                    Top =737
-                    Width =600
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="Accès"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3004
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =3604
-                    LayoutCachedHeight =1052
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5385
-                    Top =737
-                    Width =1080
-                    Height =315
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="CodeAcces"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5385
-                    LayoutCachedTop =737
-                    LayoutCachedWidth =6465
-                    LayoutCachedHeight =1052
-                End
-            End
-        End
-        Begin Section
-            Height =566
-            BackColor =13611711
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =623
-                    Top =56
-                    Width =2271
-                    Height =390
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Utilisateur"
-                    ControlSource ="Utilisateur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2894
-                    LayoutCachedHeight =446
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =5385
-                    Top =56
-                    Height =390
-                    ColumnWidth =7920
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAcces"
-                    ControlSource ="CodeAcces"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5385
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7086
-                    LayoutCachedHeight =446
-                End
-                Begin TextBox
-                    EnterKeyBehavior = NotDefault
-                    ScrollBars =2
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3061
-                    Top =56
-                    Width =2160
-                    Height =393
-                    ColumnWidth =7725
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Accès"
-                    ControlSource ="Accès"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3061
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5221
-                    LayoutCachedHeight =449
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Commande1_Click()
-DoCmd.Close
-End Sub

test/source/forms/frm_baremes.bas

@@ -1,592 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    RecordLocks =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15193
-    DatasheetFontHeight =11
-    ItemSuffix =19
-    Right =11430
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x062bc44f4f36e440
-    End
-    RecordSource ="r_baremes"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =907
-            BackColor =12566463
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =56
-                    Top =566
-                    Width =1245
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="NomBareme"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =1301
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3401
-                    Top =566
-                    Width =885
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="BorneInf"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3401
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =4286
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5272
-                    Top =566
-                    Width =975
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="BorneSup"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5272
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =6247
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =6746
-                    Top =566
-                    Width =1230
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="UniteBornes"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6746
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =7976
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =8782
-                    Top =566
-                    Width =1545
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Valeur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8782
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =10327
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =10374
-                    Top =566
-                    Width =1200
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="UniteValeur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10374
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =11574
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =11682
-                    Top =566
-                    Width =2820
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="Commentaire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11682
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =14502
-                    LayoutCachedHeight =881
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =737
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Barèmes utilisés pour le mois de"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4723
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4422
-                    Top =56
-                    Width =1418
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte8"
-                    ControlSource ="=UCase(MonthName([Forms]![frm_Menu]![Mois]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4422
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5840
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =5953
-                    Top =56
-                    Width =1247
-                    Height =315
-                    ColumnOrder =1
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte10"
-                    ControlSource ="=[Forms]![frm_Menu]![Annee]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5953
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7200
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =576
-                    Height =351
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="Commande16"
-                    Caption ="Commande16"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande16\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =632
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin Section
-            Height =453
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =93
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =56
-                    Top =56
-                    Width =3066
-                    Height =315
-                    ColumnWidth =2790
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3122
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3458
-                    Top =56
-                    Width =1416
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="BorneInf"
-                    ControlSource ="BorneInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4874
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =5272
-                    Top =56
-                    Width =1476
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="BorneSup"
-                    ControlSource ="BorneSup"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5272
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6748
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6859
-                    Top =56
-                    Width =801
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="UniteBornes"
-                    ControlSource ="UniteBornes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6859
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7660
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8669
-                    Top =56
-                    Width =1656
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Valeur"
-                    ControlSource ="Valeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8669
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10325
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =10374
-                    Top =56
-                    Width =621
-                    Height =315
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="UniteValeur"
-                    ControlSource ="UniteValeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10374
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10995
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =11682
-                    Top =56
-                    Width =3171
-                    Height =315
-                    ColumnWidth =2775
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Commentaire"
-                    ControlSource ="Commentaire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11682
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =14853
-                    LayoutCachedHeight =371
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =4932
-                    Top =56
-                    Width =227
-                    Height =284
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="à"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4932
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5159
-                    LayoutCachedHeight =340
-                End
-                Begin Label
-                    OverlapFlags =247
-                    Left =3120
-                    Top =60
-                    Width =390
-                    Height =285
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette13"
-                    Caption ="De:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3120
-                    LayoutCachedTop =60
-                    LayoutCachedWidth =3510
-                    LayoutCachedHeight =345
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =7880
-                    Top =56
-                    Width =567
-                    Height =284
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="Étiquette14"
-                    Caption ="->"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7880
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8447
-                    LayoutCachedHeight =340
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End

test/source/forms/frm_chargement.bas

@@ -1,241 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    AllowFilters = NotDefault
-    PopUp = NotDefault
-    RecordSelectors = NotDefault
-    MaxButton = NotDefault
-    MinButton = NotDefault
-    NavigationButtons = NotDefault
-    CloseButton = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    ScrollBars =0
-    BorderStyle =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =8674
-    DatasheetFontHeight =11
-    ItemSuffix =15
-    Top =2415
-    Right =20235
-    Bottom =10335
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x3a4d656cd264e440
-    End
-    Caption ="Chargement de l'application..."
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    OnKeyDown ="[Event Procedure]"
-    FilterOnLoad =0
-    OrderByOnLoad =0
-    OrderByOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CheckBox
-            BorderLineStyle =0
-            LabelX =230
-            LabelY =-30
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin UnboundObjectFrame
-            SpecialEffect =2
-            OldBorderStyle =1
-            Width =4536
-            Height =2835
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =6633
-            BackColor =12566463
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =283
-                    Top =446
-                    Width =7876
-                    Height =3974
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =8079968
-                    Name ="txt_msg"
-                    Caption ="Veuillez patienter"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =446
-                    LayoutCachedWidth =8159
-                    LayoutCachedHeight =4420
-                    ForeThemeColorIndex =7
-                    ForeTint =100.0
-                    ForeShade =75.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =1984
-                    Top =5787
-                    Width =4369
-                    Height =453
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Continuer"
-                    Caption ="APPUYER SUR UNE TOUCHE POUR CONTINUER"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1984
-                    LayoutCachedTop =5787
-                    LayoutCachedWidth =6353
-                    LayoutCachedHeight =6240
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =215
-                    TextAlign =2
-                    Left =2041
-                    Top =5787
-                    Width =4369
-                    Height =453
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =255
-                    Name ="Quitter"
-                    Caption ="APPUYER SUR UNE TOUCHE POUR QUITTER"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2041
-                    LayoutCachedTop =5787
-                    LayoutCachedWidth =6410
-                    LayoutCachedHeight =6240
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin CheckBox
-                    Visible = NotDefault
-                    OverlapFlags =85
-                    Left =7030
-                    Top =5844
-                    Width =284
-                    Height =227
-                    BorderColor =10921638
-                    Name ="Bloque"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7030
-                    LayoutCachedTop =5844
-                    LayoutCachedWidth =7314
-                    LayoutCachedHeight =6071
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    Locked = NotDefault
-                    ScrollBars =2
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =283
-                    Top =4478
-                    Width =7884
-                    Height =1125
-                    FontSize =12
-                    FontWeight =700
-                    TabIndex =1
-                    BorderColor =8355711
-                    ForeColor =255
-                    Name ="erreurs"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =4478
-                    LayoutCachedWidth =8167
-                    LayoutCachedHeight =5603
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
-Me.SetFocus
-
-If Me.Bloque = False Then
-  If CurrentProject.AllForms("frm_Menu").IsLoaded = False Then DoCmd.OpenForm "frm_menu"
-  DoCmd.Close acForm, "frm_chargement"
-Else
-  Application.Quit
-End If
-
-End Sub

test/source/forms/frm_donneesRH.bas

@@ -1,1575 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    FilterOn = NotDefault
-    OrderByOn = NotDefault
-    AllowDesignChanges = NotDefault
-    AllowUpdating =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =18136
-    DatasheetFontHeight =11
-    ItemSuffix =118
-    Right =12765
-    Bottom =7920
-    DatasheetGridlinesColor =15062992
-    Filter ="[CodeAgent]='T5' AND [MoisRH]=1 AND [AnneeRH]=2015"
-    OrderBy ="[DateRH]"
-    RecSrcDt = Begin
-        0x007988d4ae8de440
-    End
-    RecordSource ="SELECT tbl_ImportRH.IdImportRH, tbl_ImportRH.CodeLigne, tbl_ImportRH.CodeAgent, "
-        "tbl_ImportRH.DateRH, tbl_ImportRH.Depart, tbl_ImportRH.CodeLocalisation, tbl_Imp"
-        "ortRH.Localisation, tbl_ImportRH.strCategorieInterventionId, tbl_ImportRH.HeureS"
-        "up1, tbl_ImportRH.HeureSup2, tbl_ImportRH.HeureSupDimanche, tbl_ImportRH.Repas, "
-        "tbl_ImportRH.DistanceTranche1, tbl_ImportRH.VehiculePersoTranche1, tbl_ImportRH."
-        "DistanceTranche2, tbl_ImportRH.VehiculePersoTranche2, tbl_ImportRH.FichierXML, t"
-        "bl_ImportRH.DateImport, tbl_ImportRH.ResponsableImport, Month([DateRH]) AS MoisR"
-        "H, Year([DateRH]) AS AnneeRH, Not ((CInt([Repas])>0 Or (IIf([VehiculePersoTranch"
-        "e1]='True',CLng([DistanceTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng(["
-        "DistanceTranche2]),0)>0)) And (Nz([Localisation],'')=Nz(DFirst(\"[ResidenceAdmin"
-        "]\",\"[tbl_Agents]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\"),''))) AS valide FR"
-        "OM tbl_ImportRH; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    DatasheetBackColor12 =-2147483643
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =16053492
-    DatasheetGridlinesColor12 =15062992
-    FitToScreen =1
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            ForeThemeColorIndex =2
-            ForeTint =60.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Rectangle
-            SpecialEffect =3
-            BackStyle =0
-            BorderLineStyle =0
-            Width =850
-            Height =850
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BackColor =-2147483633
-            BorderLineStyle =0
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-        End
-        Begin CheckBox
-            BorderLineStyle =0
-            LabelX =230
-            LabelY =-30
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin BoundObjectFrame
-            AddColon = NotDefault
-            SizeMode =3
-            SpecialEffect =2
-            BorderLineStyle =0
-            Width =4536
-            Height =2835
-            LabelX =-1701
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin UnboundObjectFrame
-            SpecialEffect =2
-            OldBorderStyle =1
-            Width =4536
-            Height =2835
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ToggleButton
-            Width =283
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BackColor =15790320
-            BackThemeColorIndex =6
-            BackTint =30.0
-            BorderLineStyle =0
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-        End
-        Begin FormHeader
-            Height =1927
-            BackColor =15527148
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =93
-                    Left =120
-                    Top =60
-                    Width =2595
-                    Height =330
-                    FontWeight =700
-                    BorderColor =16777215
-                    Name ="Étiquette0"
-                    Caption ="Données RH importées"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =120
-                    LayoutCachedTop =60
-                    LayoutCachedWidth =2715
-                    LayoutCachedHeight =390
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =2551
-                    Top =1474
-                    Width =1455
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette1"
-                    Caption ="Départ:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =4006
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =4195
-                    Top =1474
-                    Width =1290
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette2"
-                    Caption ="Localisation:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4195
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =5485
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =1077
-                    Top =1474
-                    Width =840
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette3"
-                    Caption ="Date:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1077
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =1917
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    Left =15759
-                    Top =1077
-                    Width =1170
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette4"
-                    Caption ="Fichier Xml:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =15759
-                    LayoutCachedTop =1077
-                    LayoutCachedWidth =16929
-                    LayoutCachedHeight =1392
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =8447
-                    Top =1483
-                    Width =675
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette5"
-                    Caption ="Type 1"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8447
-                    LayoutCachedTop =1483
-                    LayoutCachedWidth =9122
-                    LayoutCachedHeight =1798
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    Left =8676
-                    Top =1080
-                    Width =1860
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette6"
-                    Caption ="Heures Sup:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8676
-                    LayoutCachedTop =1080
-                    LayoutCachedWidth =10536
-                    LayoutCachedHeight =1395
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =9978
-                    Top =1474
-                    Width =615
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette7"
-                    Caption ="Dim"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9978
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =10593
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    Left =10827
-                    Top =1080
-                    Width =690
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette8"
-                    Caption ="Repas:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10827
-                    LayoutCachedTop =1080
-                    LayoutCachedWidth =11517
-                    LayoutCachedHeight =1395
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    TextAlign =2
-                    Left =11663
-                    Top =1080
-                    Width =3885
-                    Height =390
-                    BorderColor =16777215
-                    Name ="Étiquette9"
-                    Caption ="Distance parcourue (VP Oui/Non):"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11663
-                    LayoutCachedTop =1080
-                    LayoutCachedWidth =15548
-                    LayoutCachedHeight =1470
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =11791
-                    Top =1530
-                    Width =1020
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette10"
-                    Caption ="Tranche 1"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11791
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =12811
-                    LayoutCachedHeight =1845
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =13435
-                    Top =1530
-                    Width =1080
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette11"
-                    Caption ="Tranche 2"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =13435
-                    LayoutCachedTop =1530
-                    LayoutCachedWidth =14515
-                    LayoutCachedHeight =1845
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =113
-                    Top =1474
-                    Width =675
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette14"
-                    Caption ="Agent:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =788
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =4648
-                    Top =56
-                    Width =3116
-                    Height =315
-                    ColumnOrder =4
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
-                    Name ="lst_agent"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, DCount(\"[CodeLigne]\",\"[tbl_Impor"
-                        "tRH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\") AS donnee_rh FROM tbl_Agents GRO"
-                        "UP BY tbl_Agents.CodeAgent, tbl_Agents.Nom, DCount(\"[CodeLigne]\",\"[tbl_Import"
-                        "RH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\") HAVING (((DCount(\"[CodeLigne]\","
-                        "\"[tbl_ImportRH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\"))>0)) ORDER BY tbl_Ag"
-                        "ents.Nom; "
-                    ColumnWidths ="0;3402"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4648
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7764
-                    LayoutCachedHeight =371
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3741
-                    Top =56
-                    Width =804
-                    Height =340
-                    BorderColor =16777215
-                    Name ="Étiquette17"
-                    Caption ="Agent:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3741
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4545
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =7937
-                    Top =56
-                    Width =1644
-                    Height =340
-                    BorderColor =16777215
-                    Name ="Étiquette18"
-                    Caption ="pour le mois de:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7937
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =9581
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =2880
-                    Left =9524
-                    Top =56
-                    Width =1984
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="lst_mois"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
-                        "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
-                    ColumnWidths ="0;2268"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9524
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11508
-                    LayoutCachedHeight =371
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =11962
-                    Top =56
-                    Width =1644
-                    Height =340
-                    BorderColor =16777215
-                    Name ="Étiquette21"
-                    Caption ="de l'année:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11962
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =13606
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =13266
-                    Top =56
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =2
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"3\";\"2\""
-                    Name ="lst_annee"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
-                        "(((Year([DateRH]))>=2013)) ORDER BY Year([DateRH]) DESC; "
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13266
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =14967
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =15590
-                    Top =56
-                    Width =621
-                    Height =396
-                    TabIndex =3
-                    ForeColor =4138256
-                    Name ="Commande24"
-                    Caption ="Commande24"
-                    OnClick ="[Event Procedure]"
-                    PictureData = Begin
-                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
-                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
-                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
-                        0xffff0000ffffff00ddddd0dddddddddddddd00ddddddddddddd030dddddddddd ,
-                        0xdd0330dddddddddd0033300000000dddd03330ff0dddddddd03300ff0dddd4dd ,
-                        0xd03330ff0ddd44ddd03330ff0dd44444d03330ff0d444444d03330ff0dd44444 ,
-                        0xd0330fff0ddd44ddd030ffff0dddd4ddd00fffff0dddddddd00000000ddddddd ,
-                        0xdddddddddddddddd000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-                    ObjectPalette = Begin
-                        0x000301000000000000000000
-                    End
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15590
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =16211
-                    LayoutCachedHeight =452
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =9184
-                    Top =1476
-                    Width =675
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette25"
-                    Caption ="Type 2"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9184
-                    LayoutCachedTop =1476
-                    LayoutCachedWidth =9859
-                    LayoutCachedHeight =1791
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =8329
-                    Top =963
-                    Width =2385
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte26"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8329
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =10714
-                    LayoutCachedHeight =1909
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =10714
-                    Top =963
-                    Width =900
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte27"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10714
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =11614
-                    LayoutCachedHeight =1909
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =11621
-                    Top =963
-                    Width =4035
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte28"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11621
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15656
-                    LayoutCachedHeight =1909
-                End
-                Begin Rectangle
-                    OverlapFlags =215
-                    Left =15646
-                    Top =963
-                    Width =2490
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte29"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =15646
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =18136
-                    LayoutCachedHeight =1909
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =60
-                    Top =963
-                    Width =8276
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte30"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =60
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =8336
-                    LayoutCachedHeight =1909
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =113
-                    Top =566
-                    Width =3013
-                    Height =340
-                    TabIndex =4
-                    ForeColor =4138256
-                    Name ="Commande71"
-                    Caption ="Afficher la vue synthétique"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =3126
-                    LayoutCachedHeight =906
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6916
-                    Top =510
-                    Width =2551
-                    Height =315
-                    ColumnOrder =1
-                    FontWeight =700
-                    TabIndex =5
-                    BorderColor =12835293
-                    ForeColor =2366701
-                    Name ="txt_etat"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6916
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =9467
-                    LayoutCachedHeight =825
-                    ForeThemeColorIndex =-1
-                    ForeShade =100.0
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =5215
-                            Top =510
-                            Width =870
-                            Height =315
-                            FontWeight =700
-                            BorderColor =16777215
-                            ForeColor =2366701
-                            Name ="txt_libetat"
-                            Caption ="Etat:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =5215
-                            LayoutCachedTop =510
-                            LayoutCachedWidth =6085
-                            LayoutCachedHeight =825
-                            ForeThemeColorIndex =-1
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =113
-                    Top =283
-                    Width =3515
-                    Height =255
-                    ColumnOrder =0
-                    FontSize =9
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =255
-                    Name ="verif"
-                    ControlSource ="=VerifImport(Nz([lst_agent],\"\"),Nz([lst_mois],0),Nz([lst_annee],0))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =3628
-                    LayoutCachedHeight =538
-                    BorderThemeColorIndex =1
-                    BorderShade =65.0
-                    ForeThemeColorIndex =-1
-                    ForeShade =100.0
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =6683
-                    Top =1474
-                    Width =1080
-                    Height =317
-                    BorderColor =16777215
-                    Name ="Étiquette103"
-                    Caption ="Type Int :"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6683
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =7763
-                    LayoutCachedHeight =1791
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            Height =510
-            BackColor =15527148
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =5159
-                    Top =170
-                    Width =561
-                    Height =315
-                    TabIndex =18
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Localisation"
-                    ControlSource ="Localisation"
-                    ConditionalFormat = Begin
-                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
-                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x5b0056006500720069006600440072006f00690074005d003d00300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5159
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =5720
-                    LayoutCachedHeight =485
-                    ConditionalFormat14 = Begin
-                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
-                        0x56006500720069006600440072006f00690074005d003d003000000000000000 ,
-                        0x000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =2551
-                    Top =56
-                    Width =1521
-                    Height =315
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="CodeChantier"
-                    ControlSource ="Depart"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2551
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4072
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =1077
-                    Top =56
-                    Width =1416
-                    Height =315
-                    TabIndex =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="DateRH"
-                    ControlSource ="DateRH"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1077
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2493
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =15759
-                    Top =56
-                    Width =2226
-                    Height =315
-                    ColumnWidth =3225
-                    TabIndex =2
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="FichierXml"
-                    ControlSource ="FichierXml"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15759
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =17985
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =8508
-                    Top =56
-                    Width =561
-                    Height =315
-                    TabIndex =3
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="HeureSup1"
-                    ControlSource ="HeureSup1"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8508
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =9069
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =9297
-                    Top =56
-                    Width =561
-                    Height =315
-                    TabIndex =4
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="HeureSup2"
-                    ControlSource ="HeureSup2"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9297
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =9858
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =9977
-                    Top =56
-                    Width =561
-                    Height =315
-                    TabIndex =5
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="HeureSupDimanche"
-                    ControlSource ="HeureSupDimanche"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9977
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10538
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =10884
-                    Top =56
-                    Width =561
-                    Height =315
-                    TabIndex =6
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Repas"
-                    ControlSource ="Repas"
-                    ConditionalFormat = Begin
-                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
-                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x5b0056006500720069006600520065007000610073005d003d00300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10884
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11445
-                    LayoutCachedHeight =371
-                    ConditionalFormat14 = Begin
-                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
-                        0x56006500720069006600520065007000610073005d003d003000000000000000 ,
-                        0x000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =11734
-                    Top =56
-                    Width =681
-                    Height =315
-                    TabIndex =7
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="DistanceTranche1"
-                    ControlSource ="DistanceTranche1"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11734
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12415
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =13321
-                    Top =56
-                    Width =666
-                    Height =315
-                    TabIndex =8
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="DistanceTranche2"
-                    ControlSource ="DistanceTranche2"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13321
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =13987
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    Locked = NotDefault
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =113
-                    Top =56
-                    Width =516
-                    Height =315
-                    ColumnWidth =1785
-                    TabIndex =9
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="strEquipesLibelle"
-                    ControlSource ="CodeAgent"
-                    StatusBarText ="Libelle de l'équipe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =629
-                    LayoutCachedHeight =371
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =60
-                    Width =8280
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte31"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =60
-                    LayoutCachedWidth =8340
-                    LayoutCachedHeight =451
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =8329
-                    Width =2385
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte32"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8329
-                    LayoutCachedWidth =10714
-                    LayoutCachedHeight =451
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =10714
-                    Width =900
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte33"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10714
-                    LayoutCachedWidth =11614
-                    LayoutCachedHeight =451
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =11621
-                    Width =4035
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte34"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11621
-                    LayoutCachedWidth =15656
-                    LayoutCachedHeight =451
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =15646
-                    Width =2490
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte35"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =15646
-                    LayoutCachedWidth =18136
-                    LayoutCachedHeight =451
-                End
-                Begin CommandButton
-                    OverlapFlags =255
-                    Left =14966
-                    Top =56
-                    Width =453
-                    Height =265
-                    TabIndex =10
-                    ForeColor =4138256
-                    Name ="Distance"
-                    Caption ="Commande94"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000009070603090706080 ,
-                        0x906850c0806850f0806050f0805840c070584080705040300000000000000000 ,
-                        0x0000000000000000000000000000000000000000a0786060907060e0907050ff ,
-                        0x706840ff906840ffb06840ff906040ff805040ff705040e07050406000000000 ,
-                        0x00000000000000000000000000000000a0806060a07860f0c08060ff807830ff ,
-                        0x607820ff506040ff906040ffc06840ffb06040ff905840ff705040f070504060 ,
-                        0x000000000000000000000000b0807030a07860e0d08860fff08860ffd08040ff ,
-                        0x608820ff308820ff606830ff706840ffb06840ffb06040ff905840ff705040e0 ,
-                        0x705040300000000000000000b0807080c08870fff09860fff09060ffc08860ff ,
-                        0x508040ff409820ff408830ff707040ffb06840ff806040ff606040ff605840ff ,
-                        0x705840800000000000000000b08070c0e09870ffffa070ffe09070ff707850ff ,
-                        0x50a840ff50a830ff809830ffd07850ff707040ff506840ff307810ff606830ff ,
-                        0x805840c00000000000000000b08870f0f0b890fff0a880ff607860ff609850ff ,
-                        0x60b040ff90a040ffe08860ffd08050ff507050ff408830ff309010ff408020ff ,
-                        0x806050f00000000000000000b08870f0ffb8a0ffa09880ff40a850ff60b850ff ,
-                        0x909860ffe09870ffe09060ffe08860ff60a030ff40a020ff409820ff408820ff ,
-                        0x806850f00000000000000000b08870c0e0b8a0ff90b880ff50c870ff50c870ff ,
-                        0x80a070ffc0a070ffd09870ffe09060ffa09840ff50a830ff40a020ff508830ff ,
-                        0x906850c00000000000000000b0907080b0a080ff90d0a0ff70e090ff90e0a0ff ,
-                        0x80e8a0ffa0d090ffb0a870fff09870ffe09060ff50a830ff50a830ff708840ff ,
-                        0x907060800000000000000000b0907030b09080e090c8a0ffa0e8b0ffd0f0c0ff ,
-                        0xd0f8d0fff0f8d0ffb0e8b0ff809860ffd09840ffb09040ff609840ff907050e0 ,
-                        0x90706030000000000000000000000000b0908070b0a080f0b0d8b0ffd0f0d0ff ,
-                        0xe0f8d0ff80b070ff80d890ff50b070ff908840ffd08860ffa07860f0a0786060 ,
-                        0x0000000000000000000000000000000000000000b0908070b09080e0c0c0a0ff ,
-                        0xd0e0c0ffb0e8b0ff80e0a0ff60b870ffa08850ffa07860e0a080606000000000 ,
-                        0x000000000000000000000000000000000000000000000000b0908030b0908080 ,
-                        0xb09080c0b09080f0c09880f0b09080c0b0807080b08070300000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =14966
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =15419
-                    LayoutCachedHeight =321
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    Left =11451
-                    Top =56
-                    Width =272
-                    Height =285
-                    TabIndex =11
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="VerifRepas"
-                    ControlSource ="=VerifRepas([CodeAgent],[DateRH])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11451
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11723
-                    LayoutCachedHeight =341
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    Left =8277
-                    Top =56
-                    Width =230
-                    Height =315
-                    TabIndex =12
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="VerifDroit"
-                    ControlSource ="valide"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8277
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8507
-                    LayoutCachedHeight =371
-                End
-                Begin ComboBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =12472
-                    Top =56
-                    Width =752
-                    Height =315
-                    TabIndex =13
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ConditionalFormat = Begin
-                        0x010000007a000000010000000100000000000000000000000c00000001010000 ,
-                        0xed1c2400ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x5b0056006500720069006600560050005d003d00300000000000
-                    End
-                    Name ="VehiculePersoTranche1"
-                    ControlSource ="VehiculePersoTranche1"
-                    RowSourceType ="Value List"
-                    RowSource ="\"True\";\"Oui\";\"False\";\"Non\""
-                    ColumnWidths ="0;794"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12472
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =13224
-                    LayoutCachedHeight =371
-                    ConditionalFormat14 = Begin
-                        0x010001000000010000000000000001010000ed1c2400ffffff000b0000005b00 ,
-                        0x56006500720069006600560050005d003d003000000000000000000000000000 ,
-                        0x000000000000000000
-                    End
-                End
-                Begin ComboBox
-                    LimitToList = NotDefault
-                    RowSourceTypeInt =1
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =14059
-                    Top =56
-                    Width =752
-                    Height =315
-                    TabIndex =14
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ConditionalFormat = Begin
-                        0x010000007a000000010000000100000000000000000000000c00000001010000 ,
-                        0xed1c2400ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x5b0056006500720069006600560050005d003d00300000000000
-                    End
-                    Name ="VehiculePersoTranche2"
-                    ControlSource ="VehiculePersoTranche2"
-                    RowSourceType ="Value List"
-                    RowSource ="\"True\";\"Oui\";\"False\";\"Non\""
-                    ColumnWidths ="0;795"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =14059
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =14811
-                    LayoutCachedHeight =371
-                    ConditionalFormat14 = Begin
-                        0x010001000000010000000000000001010000ed1c2400ffffff000b0000005b00 ,
-                        0x56006500720069006600560050005d003d003000000000000000000000000000 ,
-                        0x000000000000000000
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    Left =15419
-                    Top =56
-                    Width =230
-                    Height =315
-                    TabIndex =15
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="VerifVP"
-                    ControlSource ="=VerifVP([CodeAgent],[DateRH])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15419
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =15649
-                    LayoutCachedHeight =371
-                End
-                Begin ComboBox
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =5670
-                    Left =6074
-                    Top =56
-                    Width =2146
-                    Height =315
-                    TabIndex =16
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"100\""
-                    Name ="strCategorieInterventionId"
-                    ControlSource ="strCategorieInterventionId"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT pdaNatInterv.strCategorieInterventioinId, pdaNatInterv.strCategorieInterv"
-                        "entioinLibelle FROM pdaNatInterv; "
-                    ColumnWidths ="0;2268"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6074
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8220
-                    LayoutCachedHeight =371
-                End
-                Begin ComboBox
-                    OverlapFlags =247
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =3402
-                    Left =4138
-                    Top =56
-                    Width =1883
-                    Height =315
-                    TabIndex =17
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"80\""
-                    ConditionalFormat = Begin
-                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
-                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x5b0056006500720069006600440072006f00690074005d003d00300000000000
-                    End
-                    Name ="CodeLocalisation"
-                    ControlSource ="CodeLocalisation"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT pdalocalisation.lngTiersId, pdalocalisation.strTiersMnemo FROM pdalocalis"
-                        "ation ORDER BY pdalocalisation.strTiersMnemo; "
-                    ColumnWidths ="0;3402"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4138
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6021
-                    LayoutCachedHeight =371
-                    ConditionalFormat14 = Begin
-                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
-                        0x56006500720069006600440072006f00690074005d003d003000000000000000 ,
-                        0x000000000000000000000000000000
-                    End
-                End
-            End
-        End
-        Begin FormFooter
-            Height =680
-            BackColor =14211288
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =85
-                    Left =113
-                    Top =170
-                    Width =6130
-                    Height =396
-                    BorderColor =16777215
-                    ForeColor =2366701
-                    Name ="txt_msg"
-                    Caption ="."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =6243
-                    LayoutCachedHeight =566
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-Private Sub cmdValider_Click()
-Dim CodeAgent As String
-Dim moisRH, anneeRH As Integer
-
-
-'verif de l'agent, du mois, de l'annee
-
-CodeAgent = Me.lst_agent.Column(0)
-moisRH = Me.lst_mois.Column(0)
-anneeRH = Me.lst_annee.Column(0)
-
-If IsNull(CodeAgent) Or CodeAgent = "" Then
-MsgBox "Selectionner un agent"
-Exit Sub
-End If
-
-If Not moisRH > 0 And Not moisRH < 13 Then
-MsgBox "Choisir un mois valide"
-Exit Sub
-End If
-
-If Not anneeRH > 1900 Then
-MsgBox "Choisir une année valide"
-Exit Sub
-End If
-
-
-'un test de l'existence d'une ligne de suivi est effectué sur mise à jour de l'affichage
-  
-'verification de l'état actuel
- filtre = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
- Etat = Nz(DLookup("Etat", "tbl_SuiviRH", filtre), "")
-
-If Etat = "Importé" Then
-
-ElseIf Etat = "" Then
- MsgBox "Erreur: Données manquantes dans la table de suivi, contacter un administrateur"
- Exit Sub
-Else
- MsgBox "Erreur: Ces données on déja été validées"
- Exit Sub
-End If
-
-'lancement de la procédure de traitement des données
-
-'Call validation(CodeAgent, moisRH, agentRH)
-
-
-End Sub
-
-Private Sub CodeLocalisation_AfterUpdate()
-  Me.Localisation = Me.CodeLocalisation.Column(1)
-End Sub
-
-Private Sub Commande71_Click()
-DoCmd.OpenForm "frm_SyntheseRH"
-End Sub
-
-
-Private Sub DateRH_AfterUpdate()
-
-If Not IsDate(Me.DateRH) Then
-  MsgBox "Vous devez entrer une date valide"
-  Me.DateRH = Me.DateRH.OldValue
-Else
-  If Month(Me.DateRH) <> Month(Me.DateRH.OldValue) Or Year(Me.DateRH) <> Year(Me.DateRH.OldValue) Then
-    MsgBox ("Vous ne pouvez pas modifier le mois ou l'année d'une date, veuillez supprimer la ligne et la recréer au mois désiré")
-    Me.DateRH = Me.DateRH.OldValue
-  End If
-End If
-
-
-End Sub
-
-Private Sub Distance_Click()
-Dim Depart, arrivee As String
-
-Depart = Nz(DLookup("ResidenceFamiliale", "tbl_Agents", "[CodeAgent]='" & Me.CodeAgent & "' AND [PeriodeValidite]=" & PeriodeAgent(Me.CodeAgent, Me.moisRH, Me.anneeRH)), "Erstein")
-arrivee = Me.Localisation
-Call DistanceInternet(Depart, arrivee)
-
-End Sub
-
-
-
-Private Sub Form_Open(Cancel As Integer)
-
-'ouverture d'un formulaire 'vierge'
-Me.Détail.Visible = False
-Me.txt_etat.Visible = False
-Me.txt_libetat.Visible = False
-Me.lst_agent = ""
-Me.lst_annee = Year(DMax("DateRH", "tbl_ImportRH", ""))
-Me.lst_mois = Month(Now()) - 1
-Me.Refresh
-
-End Sub
-
-
-
-Private Sub lst_agent_AfterUpdate()
-filtreRH
-End Sub
-
-Private Sub lst_annee_AfterUpdate()
-filtreRH
-End Sub
-
-Private Sub lst_mois_AfterUpdate()
-filtreRH
-End Sub
-
-Public Sub filtreRH()
-Dim CodeAgent As String
-Dim moisRH, anneeRH As Integer
-Dim filtre, Etat As String
-
-If Me.lst_agent <> "" And Me.lst_annee > 2000 And Me.lst_mois <= 12 And Me.lst_mois > 0 Then
- CodeAgent = Me.lst_agent.Column(0)
- moisRH = Me.lst_mois.Column(0)
- anneeRH = Me.lst_annee.Column(0)
- 
- 
- 'MAJ du filtre
- filtre = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
- Me.Filter = filtre
- Me.FilterOn = True
- Me.OrderBy = "[DateRH]"
-
- 
- 'test du fichier de suivi
- Etat = Nz(DLookup("Etat", "tbl_SuiviRH", filtre), "")
- Select Case Etat
-  Case ""
-   Me.txt_msg.Caption = "Le fichier n'a pas été détecté comme importé à l'ouverture de l'application, veuillez en faire part à un administrateur"
-   Exit Sub
-  Case "Importé"
-   Call VerrouDonneesImport(0)
-  Case "Validé"
-   Call VerrouDonneesImport(1)
-  Case "Edité"
-   Call VerrouDonneesImport(1)
-  Case "Invalidé"
-   Call VerrouDonneesImport(0)
- End Select
- Me.txt_etat = Etat
- Me.Détail.Visible = True
- Me.txt_etat.Visible = True
- Me.txt_libetat.Visible = True
- Me.txt_etat.Locked = True
-End If
-End Sub
-
-
-
-Private Sub Commande24_Click()
-On Error GoTo Err_Commande24_Click
-
-
-    If Me.Dirty Then Me.Dirty = False
-    DoCmd.Close
-
-Exit_Commande24_Click:
-    Exit Sub
-
-Err_Commande24_Click:
-    MsgBox err.Description
-    Resume Exit_Commande24_Click
-    
-End Sub

test/source/forms/frm_lstAgents.bas

@@ -1,642 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =13096
-    DatasheetFontHeight =11
-    ItemSuffix =14
-    Right =11265
-    Bottom =7920
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x42bd411baf39e440
-    End
-    RecordSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom FROM tbl_Agents GROUP BY tbl_Agents."
-        "CodeAgent, tbl_Agents.Nom ORDER BY tbl_Agents.Nom; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =1530
-            BackColor =14602694
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =623
-                    Top =113
-                    Width =3799
-                    Height =453
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Liste des agents"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =4422
-                    LayoutCachedHeight =566
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =113
-                    Width =516
-                    Height =396
-                    ForeColor =4210752
-                    Name ="Commande1"
-                    Caption ="Commande1"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande1\" xmlns=\"http://schemas.microsoft.com/office/acce"
-                                "ssservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/a"
-                                "ccessservices/2009/11/forms\"><"
-                        End
-                        Begin
-                            Comment ="_AXL:Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro>"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =572
-                    LayoutCachedHeight =509
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3571
-                    Top =1133
-                    Width =1245
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="Code Agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3571
-                    LayoutCachedTop =1133
-                    LayoutCachedWidth =4816
-                    LayoutCachedHeight =1448
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =170
-                    Top =1133
-                    Width =525
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="Nom"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =1133
-                    LayoutCachedWidth =695
-                    LayoutCachedHeight =1448
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5100
-                    Top =1140
-                    Width =2430
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Etat du suivi pour ce mois"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5100
-                    LayoutCachedTop =1140
-                    LayoutCachedWidth =7530
-                    LayoutCachedHeight =1455
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    Left =6237
-                    Top =56
-                    Width =2098
-                    Height =315
-                    ColumnOrder =0
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    Name ="lst_mois"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
-                        "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
-                    ColumnWidths ="0;2835"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6237
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8335
-                    LayoutCachedHeight =371
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4535
-                            Top =60
-                            Width =1575
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette10"
-                            Caption ="Pour le mois de:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4535
-                            LayoutCachedTop =60
-                            LayoutCachedWidth =6110
-                            LayoutCachedHeight =375
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin ComboBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =6236
-                    Top =453
-                    Width =2097
-                    Height =315
-                    ColumnOrder =1
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"3\";\"2\""
-                    Name ="lst_annee"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
-                        "(((Year([DateRH]))>=2013)) ORDER BY Year([DateRH]) DESC; "
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6236
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =8333
-                    LayoutCachedHeight =768
-                    Begin
-                        Begin Label
-                            OverlapFlags =85
-                            Left =4535
-                            Top =453
-                            Width =1305
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette12"
-                            Caption ="De l'année:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =4535
-                            LayoutCachedTop =453
-                            LayoutCachedWidth =5840
-                            LayoutCachedHeight =768
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =10825
-                    Top =56
-                    Width =1874
-                    Height =340
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="cmd_NvelAgent"
-                    Caption ="Nouveau"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10825
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12699
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin Section
-            Height =453
-            BackColor =15590879
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =3571
-                    Top =56
-                    Width =1251
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="tbl_Agents.CodeAgent"
-                    ControlSource ="CodeAgent"
-                    EventProcPrefix ="tbl_Agents_CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3571
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4822
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =170
-                    Top =56
-                    Width =3336
-                    Height =315
-                    ColumnWidth =3225
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3506
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    IMESentenceMode =3
-                    Left =5102
-                    Top =56
-                    Width =2426
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte5"
-                    ControlSource ="=EtatSuivi([CodeAgent],[lst_mois],[lst_annee])"
-                    ConditionalFormat = Begin
-                        0x01000000ae000000030000000000000002000000000000001100000001000000 ,
-                        0x72727200ffffff000000000002000000120000001c0000000101000022b14c00 ,
-                        0xffffff0000000000020000001d00000026000000010100002f369900ffffff00 ,
-                        0x2200500061007300200064006500200064006f006e006e00e900650073002200 ,
-                        0x00000000220049006d0070006f0072007400e900220000000000220056006100 ,
-                        0x6c0069006400e900220000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5102
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7528
-                    LayoutCachedHeight =371
-                    ConditionalFormat14 = Begin
-                        0x01000500000000000000020000000100000072727200ffffff00100000002200 ,
-                        0x500061007300200064006500200064006f006e006e00e9006500730022000000 ,
-                        0x0000000000000000000000000000000000000000000000020000000101000022 ,
-                        0xb14c00ffffff0009000000220049006d0070006f0072007400e9002200000000 ,
-                        0x0000000000000000000000000000000000000000000002000000010100002f36 ,
-                        0x9900ffffff00080000002200560061006c0069006400e9002200000000000000 ,
-                        0x0000000000000000000000000000000000000002000000010100006f319800ff ,
-                        0xffff000700000022004500640069007400e90022000000000000000000000000 ,
-                        0x00000000000000000000000000000200000001010000ba141900ffffff000a00 ,
-                        0x0000220049006e00760061006c0069006400e900220000000000000000000000 ,
-                        0x0000000000000000000000
-                    End
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =7993
-                    Top =56
-                    Width =2492
-                    Height =340
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="Commande7"
-                    Caption ="Historique des données"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7993
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10485
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =10828
-                    Top =56
-                    Width =1858
-                    Height =340
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="MAJ"
-                    Caption ="Mettre à jour"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10828
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12686
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =15527148
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-
-Private Sub cmd_NvelAgent_Click()
-
-'l'ajout d'un nouvel agent implique l'ajout d'une ligne à la table agent, ainsi que d'une ligne à la table tbl_PeriodeAgent.
-'La création de cette ligne implique de connaitre la date à partir de laquelle ce nouvel agent est opérationnel
-'si cette date n'est pas en janvier, une ligne doit être ajoutée aux tables tbl_FormDep et tbl_FormHS qui servira de conditions initiales
-
-DoCmd.OpenForm "frm_NouvelAgent"
-
-
-End Sub
-
-Private Sub Commande7_Click()
-Dim CodeAgent, critere As String
-
-
-CodeAgent = Me.CodeAgent
-If Not IsNull(CodeAgent) Then
-
-critere = "[CodeAgent]='" & CodeAgent & "'"
-
-DoCmd.OpenForm "frm_HistoAgent", , , critere
-End If
-
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Me.lst_mois = Month(Now()) - 1
-Me.lst_annee = Year(Now())
-Me.Requery
-Me.Refresh
-
-End Sub
-
-Private Sub lst_annee_AfterUpdate()
-Me.Requery
-Me.Refresh
-
-End Sub
-
-Private Sub lst_mois_AfterUpdate()
-Me.Requery
-Me.Refresh
-
-End Sub
-
-
-
-Private Sub MAJ_Click()
-Dim CodeAgent, critere As String
-CodeAgent = Me.CodeAgent
-Dim periode As Integer
-
-If Not IsNull(CodeAgent) Then
-'cherche la période la plus récente pour cet agent (attention au format des dates, les fonctions de domaine utilisent le format anglosaxon (mm/jj/aaaa)
- periode = Nz(DLookup("[CodePeriode]", "tbl_PeriodeAgent", "[codeAgent]='" & CodeAgent & "' AND [DateInf]=#" & Format(DMax("[DateInf]", "tbl_PeriodeAgent", "[codeAgent]='" & CodeAgent & "'"), "mm/dd/yyyy") & "#"), 0)
-
- If periode = 0 Then Exit Sub
- critere = "[CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & periode
- DoCmd.OpenForm "frm_MAJAgent", , , critere
-End If
-
-
-End Sub

test/source/forms/frm_lstBaremes.bas

@@ -1,549 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    RecordLocks =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15193
-    DatasheetFontHeight =11
-    ItemSuffix =33
-    Right =10725
-    Bottom =12345
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x89b1c2c135d1e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.Commentaire, Max(tbl_PeriodeBareme.Dat"
-        "eInf) AS MaxDeDateInf FROM tbl_baremes INNER JOIN tbl_PeriodeBareme ON (tbl_bare"
-        "mes.PeriodeValidite = tbl_PeriodeBareme.CodePeriode) AND (tbl_baremes.NomBareme "
-        "= tbl_PeriodeBareme.NomBareme) GROUP BY tbl_baremes.NomBareme, tbl_baremes.Comme"
-        "ntaire; "
-    OnCurrent ="[Event Procedure]"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            UseTheme =1
-            Shape =1
-            Gradient =12
-            BackThemeColorIndex =4
-            BackTint =60.0
-            BorderLineStyle =0
-            BorderColor =16777215
-            BorderThemeColorIndex =4
-            BorderTint =60.0
-            ThemeFontIndex =1
-            HoverThemeColorIndex =4
-            HoverTint =40.0
-            PressedThemeColorIndex =4
-            PressedShade =75.0
-            HoverForeThemeColorIndex =0
-            HoverForeTint =75.0
-            PressedForeThemeColorIndex =0
-            PressedForeTint =75.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            AddColon = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            BorderThemeColorIndex =1
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BorderShade =65.0
-            ShowPageHeaderAndPageFooter =1
-        End
-        Begin FormHeader
-            Height =1133
-            BackColor =12566463
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =566
-                    Top =793
-                    Width =1245
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="NomBareme"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =1811
-                    LayoutCachedHeight =1108
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =3231
-                    Top =793
-                    Width =2820
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="Commentaire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3231
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =6051
-                    LayoutCachedHeight =1108
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =680
-                    Top =56
-                    Width =3986
-                    Height =334
-                    FontSize =13
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Gestion des barèmes"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =4666
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =56
-                    Top =56
-                    Width =576
-                    Height =351
-                    ForeColor =4210752
-                    Name ="Commande16"
-                    Caption ="Commande16"
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-                    OnClickEmMacro = Begin
-                        Version =196611
-                        ColumnsShown =8
-                        Begin
-                            Action ="Close"
-                            Argument ="-1"
-                            Argument =""
-                            Argument ="0"
-                        End
-                        Begin
-                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
-                                "nterfaceMacro For=\"Commande16\" xmlns=\"http://schemas.microsoft.com/office/acc"
-                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
-                                "accessservices/2009/11/forms\">"
-                        End
-                        Begin
-                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
-                                ">"
-                        End
-                    End
-                    ImageData = Begin
-                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
-                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
-                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
-                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
-                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
-                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
-                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
-                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
-                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
-                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
-                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
-                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
-                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
-                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
-                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
-                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
-                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
-                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
-                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
-                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =632
-                    LayoutCachedHeight =407
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =6525
-                    Top =795
-                    Width =1575
-                    Height =315
-                    BorderColor =8355711
-                    Name ="Étiquette20"
-                    Caption ="Valide depuis le"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6525
-                    LayoutCachedTop =795
-                    LayoutCachedWidth =8100
-                    LayoutCachedHeight =1110
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =453
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =566
-                    Top =56
-                    Width =2556
-                    Height =315
-                    ColumnWidth =2790
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =3122
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3231
-                    Top =56
-                    Width =3171
-                    Height =315
-                    ColumnWidth =2775
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Commentaire"
-                    ControlSource ="Commentaire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3231
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6402
-                    LayoutCachedHeight =371
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6519
-                    Top =56
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="DateInf"
-                    ControlSource ="MaxDeDateInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6519
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8220
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =8447
-                    Top =56
-                    Width =2494
-                    Height =340
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="Commande29"
-                    Caption ="Historique des versions"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8447
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10941
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =11168
-                    Top =56
-                    Width =2494
-                    Height =340
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="cmdMAJ"
-                    Caption ="Mettre à jour"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11168
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =13662
-                    LayoutCachedHeight =396
-                    Gradient =0
-                    BackColor =15921906
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =95.0
-                    BorderColor =14136213
-                    HoverColor =15060409
-                    PressedColor =9592887
-                    HoverForeColor =4210752
-                    PressedForeColor =4210752
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin FormFooter
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =2324
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Subform
-                    CanGrow = NotDefault
-                    OverlapFlags =85
-                    BorderWidth =2
-                    Left =510
-                    Top =170
-                    Width =12075
-                    Height =1635
-                    BorderColor =16777215
-                    Name ="sfrm_detailbareme"
-                    SourceObject ="Form.sfrm_detailbareme"
-                    LinkChildFields ="NomBareme"
-                    LinkMasterFields ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =510
-                    LayoutCachedTop =170
-                    LayoutCachedWidth =12585
-                    LayoutCachedHeight =1805
-                    BorderShade =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub cmdMAJ_Click()
-Dim critere, NomBareme As String
-Dim periode As Integer
-
-NomBareme = Nz(Me.NomBareme, "")
-
-'cherche la période la plus récente pour cet agent (attention au format des dates, les fonctions de domaine utilisent le format anglosaxon (mm/jj/aaaa)
- periode = Nz(DLookup("[CodePeriode]", "tbl_PeriodeBareme", "[NomBareme]='" & NomBareme & "' AND [DateInf]=#" & Format(DMax("[DateInf]", "tbl_PeriodeBareme", "[NomBareme]='" & NomBareme & "'"), "mm/dd/yyyy") & "#"), 0)
-
- If periode = 0 Then Exit Sub
-
-If NomBareme = "" Or periode = 0 Then Exit Sub
-
-critere = "[NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & periode
-
-DoCmd.OpenForm "frm_MAJBareme", , , critere
-End Sub
-
-Private Sub Commande29_Click()
-Dim critere, NomBareme As String
-
-NomBareme = Nz(Me.NomBareme, "")
-
-critere = "[NomBareme]='" & NomBareme & "'"
-
-DoCmd.OpenForm "frm_HistoBaremes", , , critere
-
-
-End Sub
-
-Sub AffichageSfrm()
-
-Dim niv As Integer
-Dim hauteur As Double
-
-niv = 0
-
-If IsNull(Me![sfrm_detailbareme].Form.BorneInf) Then
-'coeff simple
-niv = 1
-Else
-'barême
-niv = 2
-End If
-
-
-Call VerrouSfrmDetailBareme(forms![frm_lstBaremes], niv)
-
-'hauteur auto
-hauteur = Me.[sfrm_detailbareme].Form.EntêteFormulaire.Height _
-     + Me.[sfrm_detailbareme].Form.PiedFormulaire.Height _
-     + Me.[sfrm_detailbareme].Form.Détail.Height _
-         * (Me.[sfrm_detailbareme].Form.RecordsetClone.RecordCount) _
-     + 110
-
-Me.[sfrm_detailbareme].Form.InsideHeight = hauteur
-Me.[sfrm_detailbareme].Height = hauteur
-
-Me.Refresh
-
-End Sub
-
-Private Sub Form_Current()
-AffichageSfrm
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-'hauteur pied de form auto
-Dim compte As Integer
-Dim rst As DAO.Recordset
- 
-Set rst = Me.RecordsetClone
-If rst.RecordCount = 0 Then Exit Sub
-rst.MoveLast
-compte = rst.RecordCount
-
-Me.PiedFormulaire.Height = Me.Form.InsideHeight - (Me.EntêteFormulaire.Height + compte * Me.Détail.Height)
-
-
-End Sub

test/source/forms/frm_syntheseRH.bas

@@ -1,879 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    OrderByOn = NotDefault
-    AllowDesignChanges = NotDefault
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =17348
-    DatasheetFontHeight =11
-    ItemSuffix =72
-    Right =20835
-    Bottom =10455
-    DatasheetGridlinesColor =15062992
-    Filter ="[MoisRH]=1 AND [AnneeRH]=2015"
-    OrderBy ="frm_syntheseRH.Name"
-    RecSrcDt = Begin
-        0xefb5dcc035d1e440
-    End
-    RecordSource ="SELECT r_SyntheseRH_inter.anneeRH, r_SyntheseRH_inter.moisRH, r_SyntheseRH_inter"
-        ".CodeAgent, r_SyntheseRH_inter.Nom, r_SyntheseRH_inter.SommeDeHeureSup1, r_Synth"
-        "eseRH_inter.SommeDeHeureSup2, r_SyntheseRH_inter.SommeDeHeureSupDimanche, r_Synt"
-        "heseRH_inter.SommeDeRepas, r_SyntheseRH_DisTr1.[True] AS DisTr1AVP, r_SyntheseRH"
-        "_DisTr1.[False] AS DisTr1SVP, r_SynteseRH_DisTr2.[True] AS DisTr2AVP, r_SynteseR"
-        "H_DisTr2.[False] AS DisTr2SVP FROM r_SynteseRH_DisTr2 INNER JOIN (r_SyntheseRH_D"
-        "isTr1 INNER JOIN r_SyntheseRH_inter ON (r_SyntheseRH_DisTr1.anneeRH = r_Synthese"
-        "RH_inter.anneeRH) AND (r_SyntheseRH_DisTr1.moisRH = r_SyntheseRH_inter.moisRH) A"
-        "ND (r_SyntheseRH_DisTr1.CodeAgent = r_SyntheseRH_inter.CodeAgent)) ON (r_Syntese"
-        "RH_DisTr2.CodeAgent = r_SyntheseRH_inter.CodeAgent) AND (r_SynteseRH_DisTr2.Mois"
-        "RH = r_SyntheseRH_inter.moisRH) AND (r_SynteseRH_DisTr2.AnneeRH = r_SyntheseRH_i"
-        "nter.anneeRH) ORDER BY r_SyntheseRH_inter.anneeRH, r_SyntheseRH_inter.moisRH; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    DatasheetBackColor12 =-2147483643
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =16053492
-    DatasheetGridlinesColor12 =15062992
-    FitToScreen =1
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            ForeThemeColorIndex =2
-            ForeTint =60.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Rectangle
-            SpecialEffect =3
-            BackStyle =0
-            BorderLineStyle =0
-            Width =850
-            Height =850
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin CommandButton
-            Width =1701
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BackColor =-2147483633
-            BorderLineStyle =0
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-        End
-        Begin TextBox
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ComboBox
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ToggleButton
-            Width =283
-            Height =283
-            FontSize =11
-            FontWeight =400
-            FontName ="Calibri"
-            ForeThemeColorIndex =2
-            ForeShade =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-            BackColor =15790320
-            BackThemeColorIndex =6
-            BackTint =30.0
-            BorderLineStyle =0
-            BorderThemeColorIndex =3
-            BorderShade =90.0
-            ThemeFontIndex =1
-        End
-        Begin FormHeader
-            Height =1927
-            BackColor =15527148
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =120
-                    Top =60
-                    Width =4170
-                    Height =330
-                    FontWeight =700
-                    BorderColor =16777215
-                    Name ="Étiquette0"
-                    Caption ="Vue Synthétique des données RH importées"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =120
-                    LayoutCachedTop =60
-                    LayoutCachedWidth =4290
-                    LayoutCachedHeight =390
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =4365
-                    Top =56
-                    Width =1644
-                    Height =340
-                    BorderColor =16777215
-                    Name ="Étiquette18"
-                    Caption ="pour le mois de:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4365
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6009
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    RowSourceTypeInt =1
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    ColumnCount =2
-                    ListWidth =2880
-                    Left =5952
-                    Top =56
-                    Width =1984
-                    Height =315
-                    ColumnOrder =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="lst_mois"
-                    RowSourceType ="Value List"
-                    RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
-                        "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
-                    ColumnWidths ="0;2268"
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5952
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7936
-                    LayoutCachedHeight =371
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =8050
-                    Top =56
-                    Width =1644
-                    Height =340
-                    BorderColor =16777215
-                    Name ="Étiquette21"
-                    Caption ="de l'année:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8050
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =9694
-                    LayoutCachedHeight =396
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin ComboBox
-                    OverlapFlags =215
-                    IMESentenceMode =3
-                    Left =9354
-                    Top =56
-                    Height =315
-                    ColumnOrder =0
-                    TabIndex =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    ColumnInfo ="\"\";\"\";\"3\";\"2\""
-                    Name ="lst_annee"
-                    RowSourceType ="Table/Query"
-                    RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
-                        "(((Year([DateRH]))>=2013)) ORDER BY Year([DateRH]) DESC; "
-                    AfterUpdate ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9354
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =11055
-                    LayoutCachedHeight =371
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =15590
-                    Top =56
-                    Width =621
-                    Height =396
-                    TabIndex =2
-                    ForeColor =4138256
-                    Name ="Commande24"
-                    Caption ="Commande24"
-                    OnClick ="[Event Procedure]"
-                    PictureData = Begin
-                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
-                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
-                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
-                        0xffff0000ffffff00ddddd0dddddddddddddd00ddddddddddddd030dddddddddd ,
-                        0xdd0330dddddddddd0033300000000dddd03330ff0dddddddd03300ff0dddd4dd ,
-                        0xd03330ff0ddd44ddd03330ff0dd44444d03330ff0d444444d03330ff0dd44444 ,
-                        0xd0330fff0ddd44ddd030ffff0dddd4ddd00fffff0dddddddd00000000ddddddd ,
-                        0xdddddddddddddddd000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000
-                    End
-                    ObjectPalette = Begin
-                        0x000301000000000000000000
-                    End
-                    ControlTipText ="Fermer formulaire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15590
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =16211
-                    LayoutCachedHeight =452
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                    Overlaps =1
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    Left =2892
-                    Top =1043
-                    Width =3315
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette39"
-                    Caption ="Total des Heures Supplémentaires:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2892
-                    LayoutCachedTop =1043
-                    LayoutCachedWidth =6207
-                    LayoutCachedHeight =1358
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =4876
-                    Top =1429
-                    Width =1020
-                    Height =315
-                    BorderColor =16777215
-                    Name ="SÉtiquette40"
-                    Caption ="Dimanche"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4876
-                    LayoutCachedTop =1429
-                    LayoutCachedWidth =5896
-                    LayoutCachedHeight =1744
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    Left =6577
-                    Top =1032
-                    Width =1575
-                    Height =315
-                    BorderColor =16777215
-                    Name ="SÉtiquette41"
-                    Caption ="Total des Repas:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6577
-                    LayoutCachedTop =1032
-                    LayoutCachedWidth =8152
-                    LayoutCachedHeight =1347
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    FontUnderline = NotDefault
-                    OverlapFlags =93
-                    TextAlign =2
-                    Left =10148
-                    Top =1021
-                    Width =5445
-                    Height =390
-                    BorderColor =16777215
-                    Name ="SÉtiquette42"
-                    Caption ="Distance totale parcourue (avec/sans véhicule personnel):"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10148
-                    LayoutCachedTop =1021
-                    LayoutCachedWidth =15593
-                    LayoutCachedHeight =1411
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =8730
-                    Top =1477
-                    Width =1875
-                    Height =315
-                    BorderColor =16777215
-                    Name ="SÉtiquette43"
-                    Caption ="Tranche 1 (avec VP)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8730
-                    LayoutCachedTop =1477
-                    LayoutCachedWidth =10605
-                    LayoutCachedHeight =1792
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =4080
-                    Top =1440
-                    Width =675
-                    Height =315
-                    BorderColor =16777215
-                    Name ="SÉtiquette44"
-                    Caption ="Type 2"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4080
-                    LayoutCachedTop =1440
-                    LayoutCachedWidth =4755
-                    LayoutCachedHeight =1755
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =2381
-                    Top =908
-                    Width =4080
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte45"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2381
-                    LayoutCachedTop =908
-                    LayoutCachedWidth =6461
-                    LayoutCachedHeight =1854
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =6459
-                    Top =907
-                    Width =1875
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte46"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6459
-                    LayoutCachedTop =907
-                    LayoutCachedWidth =8334
-                    LayoutCachedHeight =1853
-                End
-                Begin Rectangle
-                    OverlapFlags =223
-                    Left =8334
-                    Top =907
-                    Width =8670
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte47"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8334
-                    LayoutCachedTop =907
-                    LayoutCachedWidth =17004
-                    LayoutCachedHeight =1853
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =3289
-                    Top =1440
-                    Width =675
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette48"
-                    Caption ="Type 1"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3289
-                    LayoutCachedTop =1440
-                    LayoutCachedWidth =3964
-                    LayoutCachedHeight =1755
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =93
-                    Left =340
-                    Top =1021
-                    Width =840
-                    Height =315
-                    BorderColor =16777215
-                    Name ="Étiquette50"
-                    Caption ="Agent:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =340
-                    LayoutCachedTop =1021
-                    LayoutCachedWidth =1180
-                    LayoutCachedHeight =1336
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Rectangle
-                    OverlapFlags =215
-                    Left =56
-                    Top =907
-                    Width =2336
-                    Height =946
-                    BorderColor =12835293
-                    Name ="Boîte51"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =907
-                    LayoutCachedWidth =2392
-                    LayoutCachedHeight =1853
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =10710
-                    Top =1477
-                    Width =1860
-                    Height =345
-                    BorderColor =16777215
-                    Name ="SÉtiquette68"
-                    Caption ="Tranche 1 (sans VP)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10710
-                    LayoutCachedTop =1477
-                    LayoutCachedWidth =12570
-                    LayoutCachedHeight =1822
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =12867
-                    Top =1474
-                    Width =1875
-                    Height =315
-                    BorderColor =16777215
-                    Name ="SÉtiquette69"
-                    Caption ="Tranche 2 (avec VP)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12867
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =14742
-                    LayoutCachedHeight =1789
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =215
-                    Left =14847
-                    Top =1474
-                    Width =1860
-                    Height =345
-                    BorderColor =16777215
-                    Name ="Étiquette70"
-                    Caption ="Tranche 2 (sans VP)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =14847
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =16707
-                    LayoutCachedHeight =1819
-                    ForeThemeColorIndex =0
-                    ForeTint =100.0
-                End
-                Begin CommandButton
-                    OverlapFlags =85
-                    Left =113
-                    Top =453
-                    Width =3167
-                    Height =343
-                    TabIndex =3
-                    ForeColor =4138256
-                    Name ="Commande71"
-                    Caption ="Revenir à l'affichage standard"
-                    OnClick ="[Event Procedure]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =3280
-                    LayoutCachedHeight =796
-                    BorderColor =12835293
-                    WebImagePaddingLeft =2
-                    WebImagePaddingTop =2
-                    WebImagePaddingRight =1
-                    WebImagePaddingBottom =1
-                End
-            End
-        End
-        Begin Section
-            Height =566
-            BackColor =15527148
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =3284
-                    Top =117
-                    Width =561
-                    Height =315
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte55"
-                    ControlSource ="SommeDeHeureSup1"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3284
-                    LayoutCachedTop =117
-                    LayoutCachedWidth =3845
-                    LayoutCachedHeight =432
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =4134
-                    Top =117
-                    Width =561
-                    Height =315
-                    TabIndex =1
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte56"
-                    ControlSource ="SommeDeHeureSup2"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4134
-                    LayoutCachedTop =117
-                    LayoutCachedWidth =4695
-                    LayoutCachedHeight =432
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =4985
-                    Top =117
-                    Width =561
-                    Height =315
-                    TabIndex =2
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte57"
-                    ControlSource ="SommeDeHeureSupDimanche"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4985
-                    LayoutCachedTop =117
-                    LayoutCachedWidth =5546
-                    LayoutCachedHeight =432
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =6932
-                    Top =112
-                    Width =876
-                    Height =315
-                    TabIndex =3
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte58"
-                    ControlSource ="SommeDeRepas"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6932
-                    LayoutCachedTop =112
-                    LayoutCachedWidth =7808
-                    LayoutCachedHeight =427
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =9236
-                    Top =113
-                    Width =861
-                    Height =315
-                    TabIndex =4
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte59"
-                    ControlSource ="DisTr1AVP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9236
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =10097
-                    LayoutCachedHeight =428
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =11218
-                    Top =112
-                    Width =966
-                    Height =315
-                    TabIndex =5
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte60"
-                    ControlSource ="DisTr1SVP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11218
-                    LayoutCachedTop =112
-                    LayoutCachedWidth =12184
-                    LayoutCachedHeight =427
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =13088
-                    Top =112
-                    Width =921
-                    Height =315
-                    TabIndex =6
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte61"
-                    ControlSource ="DisTr2AVP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13088
-                    LayoutCachedTop =112
-                    LayoutCachedWidth =14009
-                    LayoutCachedHeight =427
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =15460
-                    Top =112
-                    Width =906
-                    Height =315
-                    TabIndex =7
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte62"
-                    ControlSource ="DisTr2SVP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =15460
-                    LayoutCachedTop =112
-                    LayoutCachedWidth =16366
-                    LayoutCachedHeight =427
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    IMESentenceMode =3
-                    Left =109
-                    Top =117
-                    Width =2106
-                    Height =315
-                    TabIndex =8
-                    BorderColor =12835293
-                    ForeColor =4138256
-                    Name ="Texte63"
-                    ControlSource ="Nom"
-                    StatusBarText ="Libelle de l'équipe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =109
-                    LayoutCachedTop =117
-                    LayoutCachedWidth =2215
-                    LayoutCachedHeight =432
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =56
-                    Top =61
-                    Width =2265
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte64"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =61
-                    LayoutCachedWidth =2321
-                    LayoutCachedHeight =512
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =2319
-                    Top =56
-                    Width =4140
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte65"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2319
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =6459
-                    LayoutCachedHeight =507
-                End
-                Begin Rectangle
-                    OverlapFlags =255
-                    Left =6462
-                    Top =56
-                    Width =1860
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte66"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6462
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8322
-                    LayoutCachedHeight =507
-                End
-                Begin Rectangle
-                    OverlapFlags =247
-                    Left =8329
-                    Top =56
-                    Width =8670
-                    Height =451
-                    BorderColor =12835293
-                    Name ="Boîte67"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8329
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =16999
-                    LayoutCachedHeight =507
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-
-Private Sub Commande71_Click()
-
-DoCmd.Close acForm, "frm_syntheseRH"
-
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Me.lst_annee = forms![frm_donneesRH].lst_annee.Column(0)
-Me.lst_mois = forms![frm_donneesRH].lst_mois.Column(0)
-filtreRH
-Me.Refresh
-End Sub
-
-
-
-Private Sub lst_annee_AfterUpdate()
-filtreRH
-End Sub
-
-Private Sub lst_mois_AfterUpdate()
-filtreRH
-End Sub
-
-Public Sub filtreRH()
-Dim filtre As String
-If Me.lst_annee > 2000 And Me.lst_mois <= 12 And Me.lst_mois > 0 Then
- filtre = "[MoisRH]=" & Me.lst_mois.Column(0) & " AND [AnneeRH]=" & Me.lst_annee.Column(0)
- Me.Filter = filtre
- Me.FilterOn = True
-End If
-End Sub
-
-
-Private Sub Commande24_Click()
-On Error GoTo Err_Commande24_Click
-
-    DoCmd.Close acForm, "frm_DonneesRH"
-    If Me.Dirty Then Me.Dirty = False
-    DoCmd.Close
-
-Exit_Commande24_Click:
-    Exit Sub
-
-Err_Commande24_Click:
-    MsgBox err.Description
-    Resume Exit_Commande24_Click
-    
-End Sub

test/source/forms/msg_traitement.bas

@@ -1,152 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    PopUp = NotDefault
-    Modal = NotDefault
-    RecordSelectors = NotDefault
-    MaxButton = NotDefault
-    MinButton = NotDefault
-    NavigationButtons = NotDefault
-    CloseButton = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    ScrollBars =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =5499
-    DatasheetFontHeight =11
-    ItemSuffix =4
-    Left =3615
-    Top =2415
-    Right =14865
-    Bottom =10335
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xbc09486fd364e440
-    End
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Rectangle
-            SpecialEffect =3
-            BackStyle =0
-            BorderLineStyle =0
-            Width =850
-            Height =850
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =2040
-            BackColor =10079487
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =172
-                    Top =113
-                    Width =5158
-                    Height =397
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="txt_titre"
-                    Caption ="..."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =172
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =5330
-                    LayoutCachedHeight =510
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    TextAlign =2
-                    Left =172
-                    Top =630
-                    Width =5158
-                    Height =742
-                    BorderColor =8355711
-                    Name ="txt_msg"
-                    Caption ="..."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =172
-                    LayoutCachedTop =630
-                    LayoutCachedWidth =5330
-                    LayoutCachedHeight =1372
-                    ForeTint =100.0
-                End
-                Begin Rectangle
-                    SpecialEffect =0
-                    BorderWidth =2
-                    OverlapFlags =93
-                    Left =170
-                    Top =1474
-                    Width =5159
-                    Height =340
-                    BorderColor =477336
-                    Name ="Boîte2"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =1474
-                    LayoutCachedWidth =5329
-                    LayoutCachedHeight =1814
-                    BorderThemeColorIndex =9
-                    BorderShade =50.0
-                End
-                Begin Rectangle
-                    SpecialEffect =0
-                    BackStyle =1
-                    OldBorderStyle =0
-                    OverlapFlags =215
-                    Left =176
-                    Top =1480
-                    Width =5137
-                    Height =318
-                    BackColor =683236
-                    BorderColor =10921638
-                    Name ="prog"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =176
-                    LayoutCachedTop =1480
-                    LayoutCachedWidth =5313
-                    LayoutCachedHeight =1798
-                    BackThemeColorIndex =9
-                    BackShade =75.0
-                End
-            End
-        End
-    End
-End

test/source/forms/sfrm_detailbareme.bas

@@ -1,285 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    AllowFilters = NotDefault
-    AutoResize = NotDefault
-    RecordSelectors = NotDefault
-    NavigationButtons = NotDefault
-    AllowDeletions = NotDefault
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    AllowEdits = NotDefault
-    AllowDesignChanges = NotDefault
-    ScrollBars =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =11515
-    DatasheetFontHeight =11
-    ItemSuffix =5
-    Left =870
-    Top =2910
-    Right =12645
-    Bottom =4245
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x5af0c9bd35d1e440
-    End
-    RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.BorneInf, tbl_baremes.BorneSup, tbl_ba"
-        "remes.UniteBornes, tbl_baremes.Valeur, tbl_baremes.UniteValeur, Max(tbl_PeriodeB"
-        "areme.DateInf) AS MaxDeDateInf FROM tbl_PeriodeBareme INNER JOIN tbl_baremes ON "
-        "(tbl_PeriodeBareme.CodePeriode = tbl_baremes.PeriodeValidite) AND (tbl_PeriodeBa"
-        "reme.NomBareme = tbl_baremes.NomBareme) GROUP BY tbl_baremes.NomBareme, tbl_bare"
-        "mes.BorneInf, tbl_baremes.BorneSup, tbl_baremes.UniteBornes, tbl_baremes.Valeur,"
-        " tbl_baremes.UniteValeur ORDER BY tbl_baremes.BorneInf; "
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            Height =453
-            BackColor =10855845
-            Name ="EntêteFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin TextBox
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =566
-                    Top =56
-                    Width =7476
-                    Height =315
-                    ColumnWidth =2790
-                    FontWeight =700
-                    BorderColor =8355711
-                    ForeColor =16777215
-                    Name ="NomBareme"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =566
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =8042
-                    LayoutCachedHeight =371
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =340
-            BackColor =14277081
-            Name ="Détail"
-            AutoHeight =255
-            AlternateBackColor =12566463
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =75.0
-            BackThemeColorIndex =1
-            BackShade =85.0
-            Begin
-                Begin TextBox
-                    OverlapFlags =93
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3966
-                    Width =1416
-                    Height =315
-                    BorderColor =10921638
-                    Name ="BorneInf"
-                    ControlSource ="BorneInf"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3966
-                    LayoutCachedWidth =5382
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =93
-                    TextAlign =2
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =5780
-                    Width =1476
-                    Height =315
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="BorneSup"
-                    ControlSource ="BorneSup"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5780
-                    LayoutCachedWidth =7256
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7367
-                    Width =801
-                    Height =315
-                    TabIndex =2
-                    BorderColor =10921638
-                    Name ="UniteBornes"
-                    ControlSource ="UniteBornes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7367
-                    LayoutCachedWidth =8168
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    TextAlign =1
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =623
-                    Width =1581
-                    Height =315
-                    TabIndex =3
-                    BorderColor =10921638
-                    Name ="Valeur"
-                    ControlSource ="Valeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedWidth =2204
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2328
-                    Width =801
-                    Height =315
-                    TabIndex =4
-                    BorderColor =10921638
-                    Name ="UniteValeur"
-                    ControlSource ="UniteValeur"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2328
-                    LayoutCachedWidth =3129
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =85
-                    Left =5440
-                    Width =227
-                    Height =284
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="A"
-                    Caption ="à"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5440
-                    LayoutCachedWidth =5667
-                    LayoutCachedHeight =284
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OverlapFlags =247
-                    Left =3628
-                    Top =4
-                    Width =390
-                    Height =285
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="De"
-                    Caption ="de:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3628
-                    LayoutCachedTop =4
-                    LayoutCachedWidth =4018
-                    LayoutCachedHeight =289
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Visible = NotDefault
-                    OverlapFlags =247
-                    Left =6859
-                    Width =390
-                    Height =285
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="par"
-                    Caption ="par"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6859
-                    LayoutCachedWidth =7249
-                    LayoutCachedHeight =285
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin FormFooter
-            Height =0
-            BackColor =10855845
-            Name ="PiedFormulaire"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database

test/source/forms/sfrm_msg.bas

@@ -1,128 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    AllowFilters = NotDefault
-    AutoResize = NotDefault
-    RecordSelectors = NotDefault
-    MaxButton = NotDefault
-    MinButton = NotDefault
-    ControlBox = NotDefault
-    NavigationButtons = NotDefault
-    AllowDeletions = NotDefault
-    CloseButton = NotDefault
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    AllowEdits = NotDefault
-    AllowDesignChanges = NotDefault
-    ScrollBars =2
-    BorderStyle =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =9581
-    DatasheetFontHeight =11
-    ItemSuffix =2
-    Left =1125
-    Top =8925
-    Right =12030
-    Bottom =13935
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xf12900a6cd39e440
-    End
-    RecordSource ="SELECT tbl_msg.DateMsg, tbl_msg.Msg FROM tbl_msg ORDER BY tbl_msg.DateMsg DESC; "
-    DatasheetFontName ="Calibri"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =340
-            BackColor =14211288
-            Name ="Détail"
-            AlternateBackColor =14211288
-            Begin
-                Begin TextBox
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =113
-                    Width =1926
-                    Height =315
-                    ColumnWidth =1995
-                    BorderColor =10921638
-                    Name ="DateMsg"
-                    ControlSource ="DateMsg"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedWidth =2039
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    OverlapFlags =85
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2140
-                    Width =7221
-                    Height =315
-                    ColumnWidth =7545
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="Msg"
-                    ControlSource ="Msg"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2140
-                    LayoutCachedWidth =9361
-                    LayoutCachedHeight =315
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End

test/source/forms/test.bas

@@ -1,100 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Form
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DefaultView =0
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =6994
-    DatasheetFontHeight =11
-    ItemSuffix =1
-    Right =11325
-    Bottom =7920
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xf51a6df01156e440
-    End
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    OnLoad ="[Event Procedure]"
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Section
-            Height =5952
-            Name ="Détail"
-            AutoHeight =1
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    OverlapFlags =85
-                    Left =1644
-                    Top =396
-                    Width =2891
-                    Height =397
-                    BorderColor =8355711
-                    ForeColor =8355711
-                    Name ="txt"
-                    Caption ="."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1644
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =4535
-                    LayoutCachedHeight =793
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Form_Load()
-'MsgBox "test"
-End Sub
-
-Private Sub Form_Open(Cancel As Integer)
-Dim i As Integer
-
-Call ttt
-
-End Sub
-
-Sub ttt()
-For i = 1 To 3
- Me.txt.Caption = i
- Call Attendre(2000)
-Next i
-End Sub

test/source/modules/ChargementAppli.bas

@@ -1,232 +0,0 @@
-Option Compare Database
-'
-
-Public Function Chargement()
-
-Dim frm As Form
-Dim sql, msg1, msg2, msg3, msg3tmp, erreurs, resultat, critere, agent As String
-Dim i, co, compte, avertissement As Integer
-Dim db As DAO.Database
-Dim rsS, rsC As DAO.Recordset 'pour rs Source et rs Cible
-Set db = CurrentDb
-Dim verifversion, VersionPDA As Integer
-Dim pause As Integer  'si égal à 1 à la fin, pas de fermeture auto
-Dim IDSuivi As Double
-Dim Bloque As Integer
-Dim errImport As Boolean
-
-pause = 0
-Bloque = 0
-avertissement = 0 'pas d'avertissement pour le chargement
-
-SysCmd acSysCmdSetStatus, "Chargement de l'application - veuillez patienter"
-
-'vérif utilisateur
-co = connexion
-
-'intialisation formulaire
-DoCmd.OpenForm "frm_chargement"
-
-Set frm = Application.forms("frm_chargement")
-
-With frm
-    .Bloque = False
-    .Continuer.Visible = False
-    .Quitter.Visible = False
-     If Right(DLookup("parametre", "tbl_parametre", "valeur2='mdb_loc'"), 1) = "-" Then
-      'verif de la version  de l'application (uniquement si on fonctionne en réseau
-      verifversion = VerificationVersion()
-      If verifversion > 0 Then
-       msg1 = "Version à jour"
-      Else
-       msg1 = "(!) VOTRE VERSION DE L'APPLICATION N'EST PAS A JOUR (!)"
-       pause = 1
-       Bloque = 1
-       Call Mail_Maj
-      End If
-     Else
-      msg1 = "Appli en local"
-     End If
-     .txt_msg.Caption = msg1
-      'verif de la version  de l'application PDA
-      'VersionPDA = VerifVersionPDA()
-      'If VersionPDA > 0 Then
-      ' msg2 = "Version PDA à jour"
-      'Else
-      ' msg2 = "Votre version de PDA n'est pas à jour."
-      'End If
-      '.txt_msg.Caption = msg1 & vbNewLine & vbNewLine & msg2
-      msg2 = ""
-    
-      'si appli à jour, on continue. sinon, on quitte. si administrateur, on continue, mais pas d'analyses des données
-      If Bloque = 0 Then
-       msg3tmp = "Actualisation des données... Veuillez patienter."
-       .txt_msg.Caption = msg1 & vbNewLine & vbNewLine & msg2 & vbNewLine & vbNewLine & msg3tmp
-       'recherche d'éventuelles données à importer
-       sql = "SELECT r_LstImports.CodeAgent, r_LstImports.MoisRH, r_LstImports.anneerh " & _
-             "FROM tbl_SuiviRH RIGHT JOIN r_LstImports ON (tbl_SuiviRH.AnneeRH = r_LstImports.anneerh) AND (tbl_SuiviRH.MoisRH = r_LstImports.MoisRH) AND (tbl_SuiviRH.CodeAgent = r_LstImports.CodeAgent) " & _
-             "WHERE (((tbl_SuiviRH.CodeAgent) Is Null)) AND (((tbl_SuiviRH.MoisRH) Is Null)) AND (((tbl_SuiviRH.AnneeRH) Is Null));"
-       Debug.Print sql
-       Set rsS = db.OpenRecordset(sql)
-    
-       If Not rsS.RecordCount > 0 Then
-       'rien de neuf à importer
-         msg3 = "Données à jour"
-         .txt_msg.Caption = msg1 & vbNewLine & vbNewLine & msg2
-     
-       Else
-         
-         rsS.MoveLast
-         rsS.MoveFirst
-         compte = rsS.RecordCount
-         If compte > 0 Then pause = 1
-    
-          'maj des données
-          Do Until rsS.EOF = True
-           errImport = False
-           If Not Len(Nz(rsS![CodeAgent], "")) > 0 Or Not rsS![anneeRH] > 2000 Or Not rsS![moisRH] <= 12 Or Not rsS![moisRH] > 0 Then
-            erreurs = erreurs & "; " & "Import Annulé: le fichier " & nomFichier & " est peut-être corrompu..."
-            pause = 1
-           Else
-            'création d'une nouvelle ligne dans tbl_SuiviRH
-            IDSuivi = ajoutSuivi(rsS![CodeAgent], rsS![moisRH], rsS![anneeRH])
-    
-            'les champs mois et annee seront utilisés par les fonctions PeriodeAgent et PeriodeBareme au cours du chargement
-            '.mois = rsS![r_LstImports.MoisRH]
-            '.Annee = rsS![r_LstImports.AnneeRH]
-            'analyse des données (desactivé pour cause de lenteur)
-            'resultat = AnalyseDonnees(IDSuivi, rsS![r_LstImports.CodeAgent], rsS![r_LstImports.MoisRH], rsS![r_LstImports.AnneeRH], avertissement)
-            
-            If IDSuivi > 0 Then
-              agent = Nz(DLookup("[Nom]", "[r_Agents]", "[CodeAgent]='" & rsS![CodeAgent] & "'"), rsS![CodeAgent]) & " (" & rsS![CodeAgent] & ")"
-              msg3 = msg3 & vbNewLine & "Importé: " & agent & ", " & rsS![moisRH] & "/" & rsS![anneeRH] & VerifImport(rsS![CodeAgent], rsS![moisRH], rsS![anneeRH])
-              Call CreerMsg(1, IDSuivi)
-            Else
-              Debug.Print rsS![CodeAgent], rsS![moisRH], rsS![anneeRH]
-              errImport = True
-            End If
-           End If
-           rsS.MoveNext
-          Loop
-         If errImport = True Then erreurs = erreurs & "; " & "Possibles erreurs de traitement des données"
-          'on met une pause avant fermeture si des donénes ont été importées
-         pause = 1
-       End If
-       .txt_msg.Caption = msg1 & vbNewLine & msg2 & vbNewLine & vbNewLine & msg3
-    
-       If Left(erreurs, 2) = "; " Then erreurs = Right(erreurs, Len(erreurs) - 2)
-    
-       If erreurs <> "" Then erreurs = erreurs & vbNewLine
-       erreurs = VerificationComplete & erreurs
-    
-       If Len(erreurs) > 0 Then
-        pause = 1
-        .erreurs.Visible = True
-        .erreurs.Locked = False
-        .erreurs = erreurs
-        .erreurs.Locked = True
-        .Refresh
-       End If
-    
-      End If
-    
-     'fin du chargement
-     If pause = 0 And Bloque = 0 Then
-      ' RAS: on passe à la suite
-      Call Attendre(200)
-      DoCmd.Close acForm, frm.Name
-      If CurrentProject.AllForms("frm_Menu").IsLoaded = False Then DoCmd.OpenForm "frm_menu"
-      DoEvents
-     ElseIf pause = 1 And Bloque = 0 Then
-      'infos: il faut appuyer sur une touche pour continuer
-      .Continuer.Visible = True
-      If CurrentProject.AllForms("frm_Menu").IsLoaded = True Then forms![frm_menu].Refresh
-     Else
-      'erreur, on quitte si ce n'est pas un admin
-      If acces(CurrentUser) <> 2 Then
-       .Bloque = True
-       .Quitter.Visible = True
-      Else
-       .Bloque = False
-       .Continuer.Visible = True
-      End If
-     End If
-End With
-
-'SysCmd acSysCmdSetStatus, "AGRHum"
-
-Call SysCmd(5)
-
-End Function
-
-Public Function VerificationVersion()
-
-'Verification de la version installée
-'la fonction compare la date de version stockée dans tbl_parametre (locale) et celle stockée dans ztblVersion (réseau)
-    Dim version_locale As String
-    Dim version_reseau As String
-    
-    version_locale = DLookup("Valeur", "[tbl_parametre]", "[Parametre]='VERSION'")
-    version_reseau = DMax("VERSION", "[ztblVersion]", "")
-    
-    If version_locale <> version_reseau Then
-     If (DCount("valeur", "tbl_parametre", "parametre='ADMIN' AND valeur='" & CurrentUser & "'") > 0) Then
-      VerificationVersion = -1
-      'MsgBox "Attention, l'application n'est peut-être pas à jour (cf. [tbl_parametre] et [ztblVersion])"
-     Else
-      'MsgBox "Attention, votre version de l'application n'est pas à jour. Veuillez contacter Jacky Klein ou Olivier Massot."
-      VerificationVersion = -1
-      'Application.Quit
-     End If
-     Exit Function
-    End If
-    
-    VerificationVersion = 1
-    
-End Function
-
-Public Function VerifVersionPDA()
-'Verification de la version PDA installée
-'la fonction compare le numéro de version stocké dans tbl_parametre (locale) et celle stockée dans VerifVersionPDA_RH (réseau)
-    Dim version_locale As String
-    Dim version_reseau As String
-    
-    version_locale = DLookup("Valeur", "[tbl_parametre]", "[Parametre]='VersionPDA'")
-    version_reseau = DMax("VerifVersion", "[VerifVersionPDA_RH]", "")
-
-    If version_locale > version_reseau Then
-     If (DCount("valeur", "tbl_parametre", "parametre='ADMIN' AND valeur='" & CurrentUser & "'") > 0) Then
-      VerifVersionPDA = -1
-      'MsgBox "Attention, l'application PDA n'est peut-être pas à jour (cf. [tbl_parametre] et [ztblVersion])"
-     Else
-      'MsgBox "Attention, votre version de l'application PDA n'est pas à jour. Veuillez contacter Jacky Klein ou Olivier Massot."
-      VerifVersionPDA = -1
-     End If
-     Exit Function
-    End If
-    
-    VerifVersionPDA = 1
-
-End Function
-
-Public Function ajoutSuivi(ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer) As Integer
-'On Error GoTo err
-Dim sql As String
-
-'creation de la nouvelle ligne de suivi
-sql = "INSERT INTO tbl_SuiviRH ( CodeAgent, MoisRH, AnneeRH, Etat, Valide ) " & _
-      "SELECT '" & CodeAgent & "' AS Expr1, " & moisRH & " AS Expr2, " & anneeRH & " AS Expr3, 'Importé' AS Expr4, True AS Expr5;"
-
-DoCmd.SetWarnings False
-  DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-DoEvents
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-ajoutSuivi = Nz(DLookup("IDSuivi", "tbl_SuiviRH", critere), -1)
-
-Exit Function
-err:
-ajoutSuivi = -1
-End Function

test/source/modules/CtrlLiens.bas

@@ -1,184 +0,0 @@
-Option Compare Database
-
-'Option Explicit
-Dim i As Long
-Dim db As DAO.Database
-Dim rs As DAO.Recordset
-Dim Tbl As TableDef
-Dim chemin As String
-Dim Connection(20), ConnectionGood(20) As String
-Dim iMax As Byte
-
-Public strFiltre As String
-Public strFile As String
-Public strNomFile As String
-Public RetVal As Long
-
-Public Function Controler_Liens() 'Fonction de contrôle des liens
-Dim ConnectOK As Boolean
-Dim Phrase, nomFichier As String
-Dim j As Byte
-iMax = 0
-DoCmd.OpenForm "frm_TablesAttachees", acNormal, , , , acWindowNormal
-On Error Resume Next
- Set db = CurrentDb()
- For i = 0 To db.TableDefs.Count - 1
-  Set Tbl = db.TableDefs(i)
-  If (Left(Tbl.Name, 4) <> "Msys") And (Tbl.Attributes = dbAttachedTable) Then
-   Message "Table : " & Tbl.Name & "..."
-   Set rs = db.OpenRecordset(Tbl.Name)
-   DoEvents
-     err.Clear
-     j = 0
-     ConnectOK = False
-     'Cherche le nom de la base à connecter
-     nomFichier = ExtraitNomFichier(ExtraitNomDb(Tbl.Connect))
-     If IsNull(DLookup("valeur", "tbl_parametre", "parametre='" & nomFichier & "'")) Then
-        MsgBox "Attention, Problème de définition des paramètres pour la base " & nomFichier & ", Vérifier tbl_parametre et recommencez"
-        Sclose
-        DoCmd.Close acForm, "TablesAttachees"
-        Exit Function
-    End If
-    'Cherche l'adresse de la base dans les parametres
-     nomFichier = DLookup("valeur", "tbl_parametre", "parametre='" & nomFichier & "'") & nomFichier
-     'Lie à cette base
-     If TestExisteFichier(nomFichier) Then
-        nomFichier = ";DATABASE=" & nomFichier & ";UID="""";PWD="""""
-        Rafraichir_Liens Tbl.Name, nomFichier
-        ConnectOK = True
-     End If
-     'Sinon recherche manuellement
-     If Not ConnectOK Then
-        Phrase = "La table " & Tbl.Name & " ne peut plus être liée à la base " & ExtraitNomDb(Tbl.Connect) & vbNewLine _
-            & "La manipulation est stoppée, Vérifiez vos paramètres et recommencez..."
-       MsgBox Phrase, , "Tables attachée en erreur"
-       Sclose
-        DoCmd.Close acForm, "frm_TablesAttachees"
-        Exit Function
-     End If
-   End If
-  rs.Close
- ' End If
- Next i
- Sclose
- DoCmd.Close acForm, "frm_TablesAttachees"
-End Function
-
-Private Sub Sclose()
- db.Close
- Set rs = Nothing
- Set Tbl = Nothing
- Set db = Nothing
-End Sub
-
-Private Sub Rafraichir_Liens(TableName As String, CheminConnu As String, Optional AncienChemin As String)  'Sub pour rétablir les liens des tables entre les 2 bases
-Dim i2 As Long
-On Error GoTo Err_Rafraichir_Liens
- If CheminConnu = "" Then
-    chemin = OpenFile("Recherche de la base " & ExtraitNomFichier(ExtraitNomDb(AncienChemin)), , True)
-    ConnectionGood(iMax - 1) = ";DATABASE=" & chemin & ";UID="""";PWD="""""
- Else
-    chemin = CheminConnu
- End If
- 
- For i2 = 0 To db.TableDefs.Count - 1
-  Set Tbl = db.TableDefs(i2)
-   If Tbl.Name = TableName Then
-    If CheminConnu = "" Then
-        Tbl.Connect = ";DATABASE=" & chemin & ";UID="""";PWD="""""
-    Else
-        Tbl.Connect = CheminConnu
-    End If
-    Tbl.RefreshLink
-   End If
- Next i2
- Message "Lien de la table " & TableName & " réparé."
- Exit Sub
-Err_Rafraichir_Liens:
- MsgBox "La Table " & Tbl.Name & " liée à votre base principale " & _
-         ExtraitNomDb(chemin) & " ne peut pas être réparée.", vbCritical
- Message "La Table " & Tbl.Name & " -> " & ExtraitNomDb(AncienChemin) & " n'est pas plus attachée."
- err.Clear
-End Sub
-Private Sub Message(texte As String)
-forms("frm_TablesAttachees").tbMessage = forms("frm_TablesAttachees").tbMessage & texte & vbNewLine
-End Sub
-
-
-Public Function TestExisteFichier(Path As String) As Boolean
- If dir(Path) = "" Then
-     TestExisteFichier = False
- Else
-     TestExisteFichier = True
- End If
-End Function
-
-
-
-Function ExtraitNomDb(strNomConnect As String) As String
-Dim i As Long
-i = InStr(11, strNomConnect, ";")
-ExtraitNomDb = Mid(strNomConnect, 11, Len(strNomConnect) - i + 12)
-End Function
-
-'Renvoi le nom du répertoire de la base de données
-Function fCurrentDBDir() As String
-
-Dim strDBPath As String
-Dim strDBFile As String
-
-strDBPath = CurrentDb.Name
-strDBFile = dir(strDBPath)
-fCurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
-
-End Function
-
-
-Public Function OpenFile(Optional strTitle As Variant, _
-                         Optional strInitialDir As Variant, _
-                         Optional MultiSelect As Boolean = False) As String
-
-If IsMissing(strTitle) Then
-strTitle = "Ouvrir..."
-End If
-
-If IsMissing(strInitialDir) Then
-    strInitialDir = CurDir
-End If
-
-OpenFile = ""
-strFiltre = "Fichiers Access" & Chr$(0) & "*.mdb"
-
-With Dialogue
-    .lStructSize = Len(Dialogue)
-    .lpstrFilter = strFiltre
-    .lpstrFile = Space(254)
-    .nMaxFile = 255
-    .lpstrFileTitle = Space(254)
-    .nMaxFileTitle = 255
-    .lpstrInitialDir = strInitialDir
-    .lpstrTitle = strTitle
-  If MultiSelect = False Then
-    .flags = OFN_FileMustExist + _
-             OFN_HideReadOnly + _
-             OFN_PathMustExist
-  Else
-    .flags = OFN_FileMustExist + _
-             OFN_HideReadOnly + _
-             OFN_PathMustExist + _
-             OFN_AllowMultiSelect + _
-             OFN_LongNames + _
-             OFN_EXPLORER
-  End If
-End With
-
-'RetVal = GetOpenFileName(Dialogue)
-
-'If RetVal >= 1 Then
-'    OpenFile = fMultiSelect(Dialogue.lpstrFile)
-'Else
-'    OpenFile = ""
-'    Exit Function
-'End If
-
-End Function

test/source/modules/FctContrôle.bas

@@ -1,647 +0,0 @@
-Option Compare Database
-'fonctions de contrôle du bon fonctionnement de l'appli
-
-
-Public Function connexion()
-'connexion de l'utilisateur
-Dim val As Integer
-Dim login, sql, VERSION As String
-
-login = CurrentUser
-val = acces(login)
-VERSION = parametre("VERSION")
-
-'maj des infos dans ztblUtilisateur, et dans tbl_paramutil si besoin
-If val > 0 Then
-  'utilisateur reconnu: on met à jour ses infos
-  sql = "UPDATE ztblUtilisateurs SET ztblUtilisateurs.VersionAppli = '" & VERSION & "', ztblUtilisateurs.DerniereConnexion = '" & Date & "' " & _
-        "WHERE (((ztblUtilisateurs.login)='" & login & "'));"
-  connexion = 1
-Else
-  'nouvel utilisateur
-  sql = "INSERT INTO ztblUtilisateurs ( login, acces, VersionAppli, DerniereConnexion ) " & _
-        "SELECT '" & login & "' AS Expr1, 'consult' AS Expr2, '" & VERSION & "' AS Expr3, '" & Date & "' AS Expr4;"
-  Call PremCo(login)
-  connexion = 0
-End If
-
-DoCmd.SetWarnings False
- DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-End Function
-
-Sub PremCo(ByVal login As String)
-Dim sql, impr As String
- DoCmd.SetWarnings False
-'ajout des lignes dans paramètres utilisateur
- sql = "INSERT INTO tbl_ParamUtil ( Parametre, Description, [User] ) " & _
-     "SELECT tbl_ParamUtil.Parametre, First(tbl_ParamUtil.Description) AS PremierDeDescription, '" & login & "' AS Expr1 " & _
-     "From tbl_ParamUtil " & _
-     "GROUP BY tbl_ParamUtil.Parametre;"
-  DoCmd.RunSQL sql
-  
-'choix de l'imprimante
- impr = NomImpr(True)
- sql = "UPDATE tbl_ParamUtil SET tbl_ParamUtil.Valeur = '" & impr & "' " & _
-       "WHERE (((tbl_ParamUtil.Parametre)='Imprimante') AND ((tbl_ParamUtil.User)='" & login & "'));"
- DoCmd.RunSQL sql
- 
- DoCmd.SetWarnings True
-
-End Sub
-
-
-
-Public Function VerifEtat(Tbl As String, ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer, avertissement As Integer)
-Dim critere, msg As String
-'vérification des données stockées davant la création d'un formulaire
-'si données non validées, suppression, sinon, invalidation
-
-'avertissement: si 0, pas de message d'vartissement avant execution des requêtes; si 1: avertissement
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-VerifEtat = 0
-
-If Nz(DCount("[IDSuivi]", Tbl, critere), 0) >= 1 Then
-  If DLookup("[Etat]", "tbl_SuiviRH", critere) = "Importé" Then
-   'msg = "Voulez vous mettre à jour les données déjà enregistrées dans la table [" & Tbl & "]?"
-  Else
-   If acces(CurrentUser) = 2 Then
-    msg = "[ADMIN] Ce formulaire a déja été validé/édité. Voulez vous vraiment recréer les formulaires?"
-   Else
-    MsgBox "Ces données ont déja été validées. Veuillez contacter un administrateur."
-    VerifEtat = -1
-    Exit Function
-   End If
-  End If
-  
-  If Len(msg) > 0 Then
-    If MsgBox(msg, vbYesNo, Tbl) = vbNo Then
-     VerifEtat = -1
-     Exit Function
-    End If
-  End If
-  Call suppression(Tbl, CodeAgent, moisRH, anneeRH, avertissement)
-End If
-
-
-End Function
-
-
-Public Sub ControleMenu()
-Dim critere As String
-'contrôle l'affichage du menu en fonction de l'état des données
-
-CodeAgent = forms![frm_menu].lst_agent.Column(0)
-moisRH = forms![frm_menu].lst_mois.Column(0)
-anneeRH = forms![frm_menu].lst_annee.Column(0)
-
-If anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
-
- critere = "[Valide]=True AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
- If Not Nz(DCount("[IDSuivi]", "tbl_SuiviRH", critere), 0) >= 1 Then
-  VerrouMenu (1)
- End If
-
-  If CodeAgent <> "" Then
-   critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-    If Nz(DCount("[IDSuivi]", "tbl_SuiviRH", critere), 0) = 1 Then
-      'fichier importé
-      If DLookup("[Etat]", "tbl_SuiviRH", critere) = "Importé" Or DLookup("[Etat]", "tbl_SuiviRH", critere) = "Invalidé" Then
-       If DCount("[IDSuivi]", "tbl_FormHS", critere) > 0 And DCount("[IDSuivi]", "tbl_FormDep", critere) > 0 Then
-       'données importées et analysées
-        'vérif:
-        If VerifCompteLignes(CodeAgent, moisRH, anneeRH) = 1 Then
-        'apparemment pas d'erreur d'analyse
-         VerrouMenu (3)
-        Else
-         MsgBox "Attention: il est possible que des erreurs se soient produites lors de l'analyse des données. Il est conseillé de remettre à jour les données."
-         VerrouMenu (3)
-        End If
-       Else
-        'données importées pas analysées
-         VerrouMenu (2)
-       End If
-     
-      ElseIf DLookup("[Etat]", "tbl_SuiviRH", critere) = "Validé" Then
-      'validé ou edité
-       VerrouMenu (4)
-        If DLookup("[Edite]", "tbl_SuiviRH", critere) = True Then
-         forms![frm_menu].Edition.Caption = "Edité le " & DLookup("[DateEdition]", "tbl_SuiviRH", critere)
-         forms![frm_menu].Edition.Visible = True
-        End If
-      End If
-     ElseIf Nz(DCount("[IDSuivi]", "tbl_SuiviRH", critere), 0) > 1 Then
-      'erreur de suivi
-      MsgBox "Attention: plusieurs lignes sont considérées comme valides dans la table de suivi pour cet agent et cette période."
-      VerrouMenu (1)
-     Else
-      'les données n'ont pas été importées
-      VerrouMenu (1)
-     End If
-  Else
-     If Nz(DCount("[IDSuivi]", "tbl_SuiviRH", critere), 0) >= 1 Then
-      VerrouMenu (6)
-     Else
-      VerrouMenu (5)
-     End If
-  End If
-Else
- VerrouMenu (0)
-End If
-
-End Sub
-
-Public Function VerifCompteLignes(ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-Dim critere As String
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-If DCount("[DateRH]", "r_NbJoursImport", critere) = DCount("[IDSuivi]", "tbl_FormHS", critere) And DCount("[DateRH]", "r_NbJoursImport", critere) = DCount("[IDSuivi]", "tbl_FormDep", critere) Then
-VerifCompteLignes = 1 'ok
-Else
-VerifCompteLignes = 0  'erreur
-End If
-
-End Function
-
-Public Function PeriodeAgent(CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-'retourne le code de la période de validité correspondante à l'agent pour le mois et l'année indiqués
-'renvoie 0 si code non trouvé
-
-
-'Si le mois et/ou l'année entrés en paramètres sont à 0, on prend les valeurs du formulaire menu
-
-Dim rs As DAO.Recordset
-Dim critere As String
-Dim DateRH As Date
-
-If CurrentProject.AllForms("frm_Menu").IsLoaded Then
-  If moisRH = 0 Then moisRH = CInt(forms![frm_menu].[mois])
-  If anneeRH = 0 Then anneeRH = CInt(forms![frm_menu].[Annee])
-'ElseIf CurrentProject.AllForms("frm_chargement").IsLoaded Then
-'  If moisRH = 0 Then moisRH = CInt(Forms![frm_chargement].[mois])
-'  If anneeRH = 0 Then anneeRH = CInt(Forms![frm_chargement].[Annee])
-Else
-  PeriodeAgent = 0
-  Exit Function
-End If
-
-critere = "[CodeAgent]='" & CodeAgent & "'"
-DateRH = CDate("15/" & moisRH & "/" & anneeRH)
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_PeriodeAgent WHERE " & critere & ";")
-'Debug.Print "SELECT * FROM tbl_PeriodeAgent WHERE " & critere & ";"
-If Not rs.RecordCount > 0 Then
- PeriodeAgent = 0
- Exit Function
-End If
-
-rs.MoveFirst
-Do Until DateRH >= rs![DateInf] And (DateRH <= rs![DateSup] Or IsNull(rs![DateSup]))
-rs.MoveNext
- If rs.EOF = True Then
-  PeriodeAgent = 0
-  Exit Function
- End If
-Loop
-
-PeriodeAgent = CInt(rs![CodePeriode])
-
-End Function
-
-Public Function PeriodeBareme(NomBareme As String, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-'retourne le code de la période de validité correspondante au barême pour le mois et l'année indiqués
-'renvoie 0 si code non trouvé
-'si le mois et l'année entrés en paramètres sont égaux à 0, on prend ceux du menu
-
-Dim rs As DAO.Recordset
-Dim critere As String
-Dim DateRH As Date
-
-If CurrentProject.AllForms("frm_Menu").IsLoaded Then
-  If moisRH = 0 Then moisRH = CInt(forms![frm_menu].[mois])
-  If anneeRH = 0 Then anneeRH = CInt(forms![frm_menu].[Annee])
-ElseIf CurrentProject.AllForms("frm_chargement").IsLoaded Then
-  If moisRH = 0 Then moisRH = CInt(forms![frm_chargement].[mois])
-  If anneeRH = 0 Then anneeRH = CInt(forms![frm_chargement].[Annee])
-Else
-  PeriodeBareme = 0
-  Exit Function
-End If
-
-'MsgBox "periode bareme: " & moisRH & "/" & anneeRH
-
-critere = "[NomBareme]='" & NomBareme & "'"
-DateRH = CDate("15/" & moisRH & "/" & anneeRH)
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_PeriodeBareme WHERE " & critere & ";")
-
-
-If Not rs.RecordCount > 0 Then
- PeriodeBareme = 0
- Exit Function
-End If
-
-rs.MoveFirst
-Do Until DateRH >= rs![DateInf] And (DateRH <= rs![DateSup] Or IsNull(rs![DateSup]))
-rs.MoveNext
- If rs.EOF = True Then
-  PeriodeBareme = 0
-  Exit Function
- End If
-Loop
-
-PeriodeBareme = rs![CodePeriode]
-
-End Function
-
-Public Function CtrlValidite(ByVal table As String, ByVal Champ1_valeur As String, ByVal NvelleDateInf As Date)
-'cette fonction vérifie que la nouvelle période n'entre pas en conflit avec une autre période
-'elle est utilisée au sein de la fonction NvellePeriode
-Dim rs As DAO.Recordset
-Dim sql, champ1_nom As String
-
-Set rs = CurrentDb.OpenRecordset(table)
-champ1_nom = rs.Fields(0).Name
-Set rs = Nothing
-
-sql = "SELECT * FROM " & table & " WHERE [" & table & "].[" & champ1_nom & "]='" & Champ1_valeur & "' ORDER BY [DateInf];"
-Set rs = CurrentDb.OpenRecordset(sql)
-
-'si pas d'autres périodes
-If rs.RecordCount = 0 Then Exit Function
-
-
-rs.MoveFirst
-Do Until rs.EOF = True
-  If Not IsNull(rs![DateSup]) = True Then
-    If NvelleDateInf <= rs![DateSup] And NvelleDateInf >= rs![DateInf] Then
-      ' la nouvelle date est comprise dans une période déja existante, la fonction renvoie le code de cette période
-      CtrlValidite = rs![CodePeriode]
-      Exit Function
-    End If
-  End If
-rs.MoveNext
-Loop
-
-'la nouvelle date n'est pas comprise dans une période existante, mais elle peut être antérieure
-' à une période existante, auquelle cas la date de fin devra être automatiquement remplie
-
-rs.MoveFirst
-Do Until rs.EOF = True
-  If Not IsNull(rs![DateSup]) = True Then
-    If NvelleDateInf <= rs![DateInf] Then
-      'la fonction renvoie le code de cette période en négatif
-      CtrlValidite = -1 * rs![CodePeriode]
-      Exit Function
-    End If
-  End If
-rs.MoveNext
-Loop
-
-
-CtrlValidite = 0
-End Function
-
-Function CtrlBareme(NomBareme As String, PeriodeValidite As Integer)
-Dim rs As DAO.Recordset
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Periodebareme WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite)
-
-End Function
-
-Public Function VerifPeriodeAgent(CodeAgent As String)
-'cette fonction vérifie la cohérence des périodes affectées aux données de l'agent
-'elle renvoie une chaine de caractères constituée du code de l'agent et de chaque date manquante dans la table des périodes
-
-Dim rs As DAO.Recordset
-Dim sql As String
-Dim pbm As String
-Dim dat As Date
-Dim i, k As Integer
-
-sql = "SELECT tbl_PeriodeAgent.CodeAgent, tbl_PeriodeAgent.DateInf, tbl_PeriodeAgent.DateSup, tbl_PeriodeAgent.CodePeriode " & _
-      "FROM tbl_PeriodeAgent " & _
-      "WHERE (((tbl_PeriodeAgent.CodeAgent)='" & CodeAgent & "')) " & _
-      "ORDER BY tbl_PeriodeAgent.DateInf;"
-
-Set rs = CurrentDb.OpenRecordset(sql)
-If Not rs.RecordCount > 0 Then
-VerifPeriodeAgent = CodeAgent & ";" & "Tout"
-Exit Function
-End If
-
-dat = #1/1/2013# 'attention: format mois/jour/annee
-pbm = ""
-
-Do Until dat >= Date
-Ok = 0
- rs.MoveFirst
- Do Until rs.EOF = True
-   If dat <= Nz(rs![DateSup], Date) And dat >= rs![DateInf] Then Ok = 1
-  rs.MoveNext
- Loop
-
- If Ok = 0 Then
- k = 0
-  For i = 0 To UBound(Split(pbm, ";"))
-   If Split(pbm, ";")(i) = Month(dat) & "/" & Year(dat) Then k = 1
-  Next i
- If k = 0 Then pbm = pbm & Month(dat) & "/" & Year(dat) & ";"   'on évite les doublons
- End If
-dat = dat + 1
-Loop
-
-If pbm <> "" Then
-pbm = CodeAgent & ";" & pbm
-pbm = Left(pbm, Len(pbm) - 1)
-End If
-rs.Close
-Set rs = Nothing
-VerifPeriodeAgent = pbm
-
-End Function
-
-Public Function VerifPeriodeBareme(NomBareme As String)
-'cette fonction vérifie la cohérence des périodes affectées aux baremes
-'elle renvoie une chaine de caractères constituée du nom du bareme et de chaque date manquante dans la table des périodes
-
-Dim rs As DAO.Recordset
-Dim sql As String
-Dim pbm As String
-Dim dat As Date
-Dim i, k As Integer
-
-sql = "SELECT tbl_PeriodeBareme.NomBareme, tbl_PeriodeBareme.DateInf, tbl_PeriodeBareme.DateSup " & _
-      "FROM tbl_PeriodeBareme " & _
-      "WHERE (((tbl_PeriodeBareme.NomBareme)='" & NomBareme & "')) " & _
-      "ORDER BY tbl_PeriodeBareme.DateInf;"
-
-Set rs = CurrentDb.OpenRecordset(sql)
-
-If Not rs.RecordCount > 0 Then
-VerifPeriodeBareme = NomBareme & ";" & "Tout"
-Exit Function
-End If
-
-dat = #1/1/2013# 'attention: format mois/jour/annee
-pbm = ""
-
-Do Until dat >= Date
-Ok = 0
- rs.MoveFirst
- Do Until rs.EOF = True
-   If dat <= Nz(rs![DateSup], Date) And dat >= rs![DateInf] Then Ok = 1
-  rs.MoveNext
- Loop
-
- If Ok = 0 Then
- k = 0
-  For i = 0 To UBound(Split(pbm, ";"))
-   If Split(pbm, ";")(i) = Month(dat) & "/" & Year(dat) Then k = 1
-  Next i
- If k = 0 Then pbm = pbm & Month(dat) & "/" & Year(dat) & ";"   'on évite les doublons
- End If
- 
-dat = dat + 1
-Loop
-
-If pbm <> "" Then
-pbm = NomBareme & ";" & pbm
-pbm = Left(pbm, Len(pbm) - 1)
-End If
-rs.Close
-Set rs = Nothing
-VerifPeriodeBareme = pbm
-
-End Function
-
-Public Function VerificationComplete()
-'lance les différentes fonctions de vérification et remplit éventuellement la table tmp_problemes
-Dim rs1, rs_pbm As DAO.Recordset
-Dim tmp, ErreurPeriode, ErreurDonnees As String
-Dim i As Integer
-
-'vidage de la table tmp_problemes
-DoCmd.SetWarnings False
-DoCmd.RunSQL "DELETE * FROM tmp_problemes;"
-DoCmd.SetWarnings True
-
-ErreurPeriode = ""
-ErreurDonnees = ""
-Set rs_pbm = CurrentDb.OpenRecordset("tmp_problemes")
-
-
-'Verification des périodes:
-
-Set rs1 = CurrentDb.OpenRecordset("SELECT tbl_Agents.CodeAgent FROM tbl_Agents GROUP BY tbl_Agents.CodeAgent;")
-rs1.MoveFirst
-Do Until rs1.EOF = True
-tmp = VerifPeriodeAgent(rs1![CodeAgent])
- If tmp <> "" Then
-  For i = 1 To UBound(Split(tmp, ";"))
-   rs_pbm.AddNew
-    rs_pbm![ObjetConcerne] = Split(tmp, ";")(0)
-    rs_pbm![erreur] = "Date(s) Manquantes(s) pour la gestion des périodes des données agent"
-    rs_pbm![Detail] = Split(tmp, ";")(i)
-   rs_pbm.Update
-  Next i
- ErreurPeriode = "Erreurs détectées dans le paramétrage des périodes (cf. tmp_problemes)"
- End If
- rs1.MoveNext
-Loop
-rs1.Close
-
-Set rs1 = CurrentDb.OpenRecordset("SELECT tbl_baremes.NomBareme FROM tbl_baremes GROUP BY tbl_baremes.NomBareme;")
-rs1.MoveFirst
-Do Until rs1.EOF = True
-tmp = VerifPeriodeBareme(rs1![NomBareme])
- If tmp <> "" Then
-  For i = 1 To UBound(Split(tmp, ";"))
-   rs_pbm.AddNew
-    rs_pbm![ObjetConcerne] = Split(tmp, ";")(0)
-    rs_pbm![erreur] = "Date(s) Manquantes(s) pour la gestion des périodes du bareme"
-    rs_pbm![Detail] = Split(tmp, ";")(i)
-   rs_pbm.Update
-  Next i
- ErreurPeriode = "Erreurs détectées dans le paramétrage des périodes (cf. tmp_problemes)"
- End If
- rs1.MoveNext
-Loop
-rs1.Close
-
-
-'vérification de la cohérence des données des tables
-
- tmp = VerifTables()
-  If tmp <> "" Then
-   For i = 1 To UBound(Split(tmp, ";"))
-    rs_pbm.AddNew
-     rs_pbm![ObjetConcerne] = Split(tmp, ";")(0)
-     rs_pbm![erreur] = "Données incohérentes/manquantes"
-     rs_pbm![Detail] = Split(tmp, ";")(i)
-    rs_pbm.Update
-   Next i
-  ErreurDonnees = "Erreurs détectées dans la cohérence des données des tables (cf. tmp_problemes)"
-  End If
-
-
-
-If rs_pbm.RecordCount > 0 Then
-End If
-
-If Len(ErreurPeriode) > 0 Or Len(ErreurDonnees) > 0 Then
- VerificationComplete = ErreurPeriode & vbNewLine & ErreurDonnees
-Else
- VerificationComplete = ""
-End If
-
-End Function
-
-Public Function VerifTables()
-'vérification de la cohérence des données des tables
-Dim pbm As String
-Dim rs As DAO.Recordset
-Dim i As Integer
-
-pbm = ""
-
-'tbl_agents
-
-Set rs = CurrentDb.OpenRecordset("SELECT tbl_Agents.CodeAgent, tbl_Agents.TypeVehicule, tbl_Agents.DateAutorisationVP, tbl_Agents.PuissanceFiscVP, tbl_Agents.NbKmAutorisesVP " & _
-                                 "FROM tbl_Agents " & _
-                                 "WHERE ((tbl_Agents.TypeVehicule)<>'4') AND ((((tbl_Agents.TypeVehicule) Is Not Null)) OR (((tbl_Agents.DateAutorisationVP) Is Not Null)) OR (((tbl_Agents.PuissanceFiscVP) Is Not Null)) OR (((tbl_Agents.NbKmAutorisesVP) Is Not Null)));")
-rs.MoveFirst
-Do Until rs.EOF = True
- 'verif des données véhicules
- For i = 1 To rs.Fields.Count - 1
-  If IsNull(rs.Fields(i).Value) Then pbm = pbm & ";Agent " & rs![CodeAgent] & ": champ manquant [" & rs.Fields(i).Name & "]"
- Next
-rs.MoveNext
-Loop
-
-If Left(pbm, 1) = ";" Then pbm = Right(pbm, Len(pbm) - 1)
-If pbm <> "" Then pbm = "tbl_Agents;" & pbm
-VerifTables = pbm
-
-End Function
-
-Public Function VerifRepas(CodeAgent As String, DateRH As Date)
- 'vérification des données à l'import: un agent n'a le droit qu'à un repas par jour
-  '0 -> ok ; -1 -> non
- VerifRepas = -1
- If Nz(DSum("repas", "tbl_ImportRH", "[CodeAgent]='" & CodeAgent & "' and [DateRH]=#" & Format(DateRH, "mm-dd-yyyy") & "#"), 0) > 1 Then VerifRepas = 0
-
-End Function
-
-Public Function VerifDroit(ByVal IdImportRH As Long)
- 'vérification des données à l'import: un agent n'a le droit à des frais que s'il s'est rendu ailleurs que sur sa residence admin
-  '1 -> a le droit ; 0 -> pas le droit, mais pas de données ; -1 pas le droit et des données
- Dim ResAdm As String
- Dim rs As DAO.Recordset
- Dim sortie As Integer
- 'attention aux périodes de validité des données
-
- ResAdm = Nz(DLookup("ResidenceAdmin", "tbl_Agents", "[CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & PeriodeAgent(CodeAgent, Month(DateRH), Year(DateRH))), "")
- VerifDroit = 0
- If Len(ResAdm) = 0 Then Exit Function
-
- sortie = 0
-
- Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_ImportRH WHERE [CodeAgent]='" & CodeAgent & "' AND [DateRH]=#" & Format(DateRH, "mm-dd-yyyy") & "#;")
- 'Debug.Print "SELECT * FROM tbl_ImportRH WHERE [CodeAgent]='" & CodeAgent & "' AND [DateRH]=#" & Format(DateRH, "mm-dd-yyyy") & "#;"
- If Not rs.RecordCount > 0 Then Exit Function
- rs.MoveFirst
- Do Until rs.EOF = True
-  If Not rs![Localisation] Like ResAdm Then sortie = sortie + 1
- rs.MoveNext
- Loop
- 
- If sortie = 0 Then
-   VerifDroit = 0
-   rs.MoveFirst
-   Do Until rs.EOF = True
-    If rs![Repas] > 0 Or rs![DistanceTranche1] > 0 Or rs![DistanceTranche2] > 0 Then VerifDroit = 0
-   rs.MoveNext
-   Loop
- End If
-
-End Function
-
-Public Function VerifVP(CodeAgent As String, DateRH As Date)
-'On Error GoTo fin
-Dim sql As String
-
- VerifVP = -1
-
- sql = "SELECT tbl_ImportRH.IdImportRH, tbl_ImportRH.CodeAgent, tbl_ImportRH.DateRH, tbl_ImportRH.VehiculePersoTranche1, tbl_ImportRH.VehiculePersoTranche2, " & _
-       "tbl_Agents.TypeVehicule " & _
-       "FROM tbl_ImportRH INNER JOIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.CodeAgent " & _
-       "WHERE (tbl_ImportRH.CodeAgent='" & CodeAgent & "' AND tbl_ImportRH.DateRH=#" & Format(DateRH, "mm-dd-yyyy") & "#) AND " & _
-       "(tbl_ImportRH.VehiculePersoTranche1='True' OR tbl_ImportRH.VehiculePersoTranche2='True') AND tbl_Agents.TypeVehicule='4';"
- 'Debug.Print sql
- Set rs = CurrentDb.OpenRecordset(sql)
- If rs.RecordCount > 0 Then VerifVP = 0
-
-fin:
-On Error Resume Next
-rs.Close
-End Function
-
-Public Function VerifImport(CodeAgent As String, moisRH As Integer, anneeRH As Integer)
-On Error GoTo err
-'procède à l'examen des données brutes lors de l'import
-Dim rs As DAO.Recordset
-
-VerifImport = ""
-If Len(CodeAgent) = 0 Or Not moisRH > 0 Or Not moisRH < 13 Or Not anneeRH > 2000 Then Exit Function
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM r_DonneesImport WHERE [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH & ";")
-If Not rs.RecordCount > 0 Then Exit Function
-
-rs.MoveFirst
-Do Until rs.EOF = True
- If rs![FraisValide] = False Then
-  VerifImport = " -> DONNEES A VERIFIER"
-  Exit Function
- End If
-rs.MoveNext
-Loop
-rs.Close
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM r_DonneesImport2 WHERE [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH & ";")
-If Not rs.RecordCount > 0 Then Exit Function
-
-rs.MoveFirst
-Do Until rs.EOF = True
- 'If VerifDroit(CodeAgent, rs![DateRH]) = -1 Or VerifRepas(CodeAgent, rs![DateRH]) = -1 Or VerifVP(CodeAgent, rs![DateRH]) = -1 Then
- If VerifRepas(CodeAgent, rs![DateRH]) = 0 Or VerifVP(CodeAgent, rs![DateRH]) = 0 Then
-  VerifImport = " -> DONNEES A VERIFIER"
-  Exit Function
- End If
-rs.MoveNext
-Loop
-rs.Close
-
-Exit Function
-err:
-VerifImport = "Impossible de vérifier les données"
-End Function
-
-Public Function VerifDonneesExport(ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer) As Boolean
-'procède à l'examen des données lors de l'export vers PERIPLE
-On Error GoTo fin
-VerifDonneesExport = True
-If Len(VerifImport(CodeAgent, moisRH, anneeRH)) > 0 Then VerifDonneesExport = False
-
-fin:
-On Error Resume Next
-Exit Function
-err:
-MsgBox "Des erreurs se sont produites lors de la vérification des données, veuillez contacter un administrateur"
-VerifDonneesExport = False
-GoTo fin
-End Function

test/source/modules/Internet.bas

@@ -1,25 +0,0 @@
-Option Compare Database
-
-Public Declare Function ShellExecute Lib "shell32.dll" _
-    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
-    ByVal lpFile As String, ByVal lpParameters As String, _
-    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
-
-Sub Internet(Adresse As String)
-    ShellExecute 0, "", Adresse, "", "", 0
-End Sub
-
-Public Function DistanceInternet(ByVal Depart As String, ByVal arrivee As String)
-Dim lien As String
-
-Depart = UCase(Left(Depart, 1)) & LCase(Right(Depart, Len(Depart) - 1))
-arrivee = UCase(Left(arrivee, 1)) & LCase(Right(arrivee, Len(arrivee) - 1))
-
-'lien = "http://fr.distancevilles.net/distance-" & depart & "-et-" & arrivee
-
-lien = "http://maps.google.fr/maps?saddr=" & Depart & "&daddr=" & arrivee
-
-Call Internet(lien)
-
-
-End Function

test/source/modules/Liens.bas

@@ -1,54 +0,0 @@
-Option Compare Database
-
-Public Function get_lien(ByVal Nom As String, Optional mode As String = "*") As String
-On Error GoTo err_lien
-Dim filtre As String
- 
-    filtre = "[nom]='" & Nom & "' AND [mode] like '" & mode & "'"
-    'If Len(mode) > 0 Then filtre = filtre & " AND [mode] like '" & mode & "'"
-    
-    get_lien = DFirst("lien", "ztbl_liens", filtre)
-
-
-fin:
-    Exit Function
-err_lien:
-    If err.Number = 94 Then
-        MsgBox "Le lien vers '" & Nom & "' (mode '" & mode & "') n'existe pas dans ztbl_liens", vbCritical
-    Else
-        MsgBox "Impossible de trouver le lien '" & Nom & "' (mode '" & mode & "'):" & vbNewLine & err.Description, vbCritical
-    End If
-End Function
-
-
-'temp: pour trouver les logos
-Sub list_images()
-Dim str As String
-
-forms:
-For Each frm In Application.CurrentProject.AllForms
-    DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
-    str = ""
-    For Each ctl In forms(frm.Name).Controls
-        If ctl.ControlType = acImage Then
-            str = str & ctl.Name & ",   "
-        End If
-    Next ctl
-    If Len(str) > 0 Then Debug.Print frm.Name, str
-    DoCmd.Close acForm, frm.Name, acSaveNo
-Next frm
-
-etats:
-For Each rpt In Application.CurrentProject.AllReports
-    DoCmd.OpenReport rpt.Name, acViewDesign, , , acHidden
-    str = ""
-    For Each ctl In Reports(rpt.Name).Controls
-        If ctl.ControlType = acImage Then
-            str = str & ctl.Name & ",   "
-        End If
-    Next ctl
-    If Len(str) > 0 Then Debug.Print rpt.Name, str
-    DoCmd.Close acReport, rpt.Name, acSaveNo
-Next rpt
-
-End Sub

test/source/modules/Mail.bas

@@ -1,115 +0,0 @@
-Option Compare Database
-
-Public Sub Mail_Maj()
-Dim VERSION, modif, lien As String
-Dim DateVersion As Date
-Dim sujet, str As String
-
-'avertissement
-lien = parametre("Lien_MAJ")
-If Not Len(lien) > 0 Then Exit Sub
-
-If MsgBox("ATTENTION:  Votre version de l'application n'est pas à jour. Voulez-vous qu'un mail de mise à jour vous soit envoyé?", vbYesNo) = vbNo Then Exit Sub
-
-sujet = "AUTOMATIQUE - Mise à jour " & CurrentDb.Properties("AppTitle")
-
-str = "<html>" & vbCrLf & _
-          "<body>" & vbCrLf & _
-             "Bonjour, <br><br>" & vbCrLf
-
-'version:
-DateVersion = DMax("Version", "ztblVersion", "")
-If DateVersion > #1/1/1990# Then VERSION = " en version: <b>" & Nz(DLookup("Version_Lb", "ztblVersion", "[Version]=#" & Format(DateVersion, "mm/dd/yyyy") & "#"), "") & " (" & DateVersion & ")</b><br>"
-If Not Len(VERSION) > 0 Then VERSION = " dans une nouvelle version."
-
-str = str & " L'application <b>" & CurrentDb.Properties("AppTitle") & "</b> est disponible " & VERSION & vbCrLf
-
-'modifs
-If DateVersion > #1/1/1990# Then modif = Nz(DLookup("Modifications", "ztblVersion", "[Version]=#" & Format(DateVersion, "mm/dd/yyyy") & "#"), "")
-If Len(modif) > 0 Then
- str = str & _
-       " Les modifications suivantes ont été apportées: <br><br>" & vbCrLf & _
-       "  " & modif & "<br><br>" & vbCrLf
-End If
-
-'fin du message
-lien = "<a href='" & lien & "'>ici</a><br>"
-
-str = str & _
-             " Pour mettre à jour, cliquez " & lien & "<br>" & vbCrLf & _
-             "Bonne journée!" & vbCrLf & _
-          "</body>" & vbCrLf & _
-      "</html>"
-
-Call EnvoiMail(sujet, str, , True)
-'l'absence de destinataire défini enverra le mail à l'utilisateur (il se l'envoie à lui-même)
-
-MsgBox "Le mail a été envoyé, vous devriez le recevoir d'ici quelques instants."
-
-End Sub
-
-Public Sub EnvoiMail(ByVal sujet As String, ByVal texte As String, Optional dest As String, Optional EnvoiAuto As Boolean)
-'si le destinataire n'est pas precisé, le mail est envoyé à soi-même (pour un mail de MAJ par exemple)
-Dim olApp As Outlook.Application
-Dim objMail As Outlook.MailItem
-Dim oAccount As Outlook.Account
-
-Set olApp = GetObject("", "Outlook.Application")
-Dim olExplorer As Outlook.Explorer
-Dim html As Integer
-html = 0
-If Left(texte, 6) = "<html>" Then html = 1
-' Créons un objet Mail qui va nous servir de base pour définir les paramètres et le contenu de notre mail
-
-Set objMail = olApp.CreateItem(olMailItem)
-
-'Maintenant nous allons créer un object nous permettant de nous déplacer dans les dossiers d’outlook.
-Dim mpf As Outlook.MAPIFolder
-
-'Dans quel format voulons nous notre Mail Texte Brut ou Texte Enrichi
-If html = 1 Then
-objMail.BodyFormat = olFormatHTML
-Else
-objMail.BodyFormat = olFormatRichText
-End If
-
-'Affiche le mail dans Outlook
-'Sans cette ligne la fenêtre n’est pas visible
-If Nz(EnvoiAuto, False) = False Then objMail.Display
-
-'Affectation du sujet du mail
-'Idéalement, vous utiliserez dans votre propre code une variable ou un paramètre via l’appel de cette procédure
-objMail.Subject = sujet
-
-'Affectation du corps du message, le Body…
-
-If html = 1 Then
-objMail.HTMLBody = texte
-Else
-objMail.Body = texte
-End If
-
-'Affectation du destinataire du message
-
-If Not Len(dest) > 0 Then
- For Each oAccount In olApp.Session.Accounts
-  dest = oAccount.SmtpAddress
- Next
-End If
-
-objMail.To = dest
-
-'Affectation des destinataires en Copie ou en copie cachée
-'objMail.Cc = "-@cg67.fr"
-'objMail.BCC= "-@cg67.fr"
-
-' Et voila, vous avez prérempli votre mail au sein d’outlook
-' Il ne vous reste plus que de compléter éventuellement votre mail à la main et de cliquer sur Envoyer
- 
-'Si vous souhaitez forcer l’envoi directement depuis le code VBA, sans laisser le temps à l’utilisateur de relire le mail
-' il vous suffit de faire appel à :
-If Nz(EnvoiAuto, False) = True Then objMail.Send
-
-Set olApp = Nothing
-Set objMail = Nothing
-End Sub

test/source/modules/Msg.bas

@@ -1,166 +0,0 @@
-Option Compare Database
-
-Sub testMSG()
-
-Call CreerMsg(12, , "T22")
-
-End Sub
-
-Public Function AfficherMsgProgression(titre As String, Optional ByVal msg As String)
-  DoCmd.Hourglass True
-  DoCmd.OpenForm "msg_traitement"
-  forms![msg_traitement].[txt_titre].Caption = titre
-  If Len(msg) > 0 Then
-    forms![msg_traitement].[txt_msg].Caption = msg
-  Else
-    forms![msg_traitement].[txt_msg].Visible = False
-  End If
-  'largeur_prog = 5137
-  forms![msg_traitement].prog.Width = 1
-End Function
-
-Public Function MajMsgProgression(prog As Integer, Total As Integer)
-  Dim taux As Single
-  If Total = 0 Then Exit Function
-  If CurrentProject.AllForms("msg_traitement").IsLoaded = False Then Exit Function
-  taux = prog / Total
-  forms![msg_traitement].prog.Width = 5137 * taux
-  If prog >= Total Then
-    DoCmd.Hourglass False
-    DoCmd.Close acForm, "msg_traitement"
-  End If
-End Function
-
-Public Function CreerMsg(code As Integer, Optional ByVal IDSuivi As Double, Optional ByVal AutreID As String, Optional ByVal val As String)
-'cette fonction renvoie les messages de suivi stockés dans la table tbl_msg
-
-'l'IDSuivi permet l'identification des lignes de tbl_SuiviRH
-'la variable AutreID représente le code d'un agent, le nom d'un barème, ou tout autre identifiant nécessaire à un message
-'la variable val fournit éventuellement une indication complémentaire
-
-Dim msg As String
-Dim rs As DAO.Recordset
-
-Select Case code
-
-Case 1
-'import
- If Nz(IDSuivi, 0) > 0 Then
-  Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE [IDSuivi]=" & IDSuivi & ";")
-  
-  If rs.RecordCount = 0 Or rs.RecordCount > 1 Then
-   msg = "Nouvelles données importées"
-  Else
-  
-   msg = "Import des données de " & DLookup("Nom", "r_agents", "[CodeAgent]='" & rs![CodeAgent] & "'") & _
-         " pour le mois de " & MonthName(rs![moisRH]) & " " & rs![anneeRH]
-  End If
- Else
-  msg = "Nouvelles données importées"
- End If
-
-Case 2
-'validation
- If Nz(IDSuivi, 0) > 0 Then
-  Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE [IDSuivi]=" & IDSuivi & ";")
-
-  If rs.RecordCount = 0 Or rs.RecordCount > 1 Then
-   msg = "Des données ont été validées"
-  Else
-  
-   msg = "Validation des données de " & DLookup("Nom", "r_agents", "[CodeAgent]='" & rs![CodeAgent] & "'") & _
-         " pour le mois de " & MonthName(rs![moisRH]) & " " & rs![anneeRH]
-  End If
- Else
-  msg = "Des données ont été validées"
- End If
-
-Case 3
-'re-traitement des données
- If Nz(IDSuivi, 0) > 0 Then
-  Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE [IDSuivi]=" & IDSuivi & ";")
-  
-  If rs.RecordCount = 0 Or rs.RecordCount > 1 Then
-   msg = "Des données ont été réanalysées"
-  Else
-  
-   msg = "Ré-analyse des données de " & DLookup("Nom", "r_agents", "[CodeAgent]='" & rs![CodeAgent] & "'") & _
-         " pour le mois de " & MonthName(rs![moisRH]) & " " & rs![anneeRH]
-  End If
- Else
-  msg = "Des données ont été réanalysées"
- End If
-
-Case 4
-'formulaires edités
- If Nz(IDSuivi, 0) > 0 Then
-  Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE [IDSuivi]=" & IDSuivi & ";")
-  
-  If rs.RecordCount = 0 Or rs.RecordCount > 1 Then
-   msg = "Formulaires edités"
-  Else
-  
-   msg = "Edition des formulaires de " & DLookup("Nom", "r_agents", "[CodeAgent]='" & rs![CodeAgent] & "'") & _
-         " pour le mois de " & MonthName(rs![moisRH]) & " " & rs![anneeRH]
-  End If
- Else
-  msg = "Formulaires edités"
- End If
-
-Case 11
-'barème mise à jour
- If Len(Nz(AutreID, "")) > 0 Then
-  If Len(Nz(val, "")) > 0 Then
-   msg = "Le barème " & AutreID & " a été mis à jour (CodePeriode " & val & ")"
-  Else
-   msg = "Le barème " & AutreID & " a été mis à jour"
-  End If
- Else
-  msg = "Un barème a été mis à jour"
- End If
-
-Case 12
-'agent mis à jour
- If Len(Nz(AutreID, "")) > 0 Then
-  If Len(Nz(val, "")) > 0 Then
-   msg = "Les données de l'agent " & DLookup("Nom", "r_agents", "[CodeAgent]='" & AutreID & "'") & " ont été mises à jour (CodePeriode " & val & ")"
-  Else
-   msg = "Les données de l'agent " & DLookup("Nom", "r_agents", "[CodeAgent]='" & AutreID & "'") & " ont été mises à jour"
-  End If
- Else
-  msg = "Les données d'un agent ont été mises à jour"
- End If
-
-Case 13
-'agent créé
- If Len(Nz(AutreID, "")) > 0 Then
-  msg = "L'agent " & DLookup("Nom", "r_agents", "[CodeAgent]='" & AutreID & "'") & " a été créé ('" & AutreID & "')"
- Else
-  msg = "Un agent a été créé"
- End If
-
-Case 21
-'mise à jour de l'appli
-msg = "L'application a été mise à jour"
-
-End Select
-
-Call NveauMsg(msg)
-CreerMsg = msg
-
-End Function
-
-Public Sub NveauMsg(msg As String)
-Dim rs As DAO.Recordset
-
-Set rs = CurrentDb.OpenRecordset("tbl_msg")
-
-rs.AddNew
-rs![msg] = msg
-rs![DateMsg] = Now()
-rs![User] = Environ("username")
-rs.Update
-
-rs.Close
-
-End Sub

test/source/modules/TraitementDonnees.bas

@@ -1,442 +0,0 @@
-Option Compare Database
-
-Public Function suppression(Tbl As String, ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer, avertissement As Integer)
-'ATTENTION: fonction à utiliser avec précaution (ajouter éventuellement une distinction entre valide et invalide)
-
-If avertissement = 0 Then DoCmd.SetWarnings False
-DoCmd.RunSQL "DELETE " & Tbl & ".*, " & Tbl & ".CodeAgent, " & Tbl & ".MoisRH, " & Tbl & ".AnneeRH " & _
-             "FROM " & Tbl & " " & _
-             "WHERE (((" & Tbl & ".CodeAgent)='" & CodeAgent & "') AND ((" & Tbl & ".MoisRH)=" & moisRH & ") AND ((" & Tbl & ".AnneeRH)=" & anneeRH & "));"
-DoCmd.SetWarnings True
-
-End Function
-
-Public Function invalidation(Tbl As String, ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer, avertissement As Integer)
-
-
-If avertissement = 0 Then DoCmd.SetWarnings False
-DoCmd.RunSQL "UPDATE " & Tbl & " SET " & Tbl & ".Valide = False " & _
-             "WHERE (((" & Tbl & ".CodeAgent)='" & CodeAgent & "') AND ((" & Tbl & ".MoisRH)=" & moisRH & ") AND ((" & Tbl & ".AnneeRH)=" & anneeRH & "));"
-DoCmd.SetWarnings True
-
-End Function
-
-
-
-Public Function CumulHS(CodeAgent As String, DateRH As Date) '!!! Obsolete
-Dim moisRH, anneeRH As Integer
-Dim rs As DAO.Recordset
-Dim TotalHS, diff As Double
-
-'total des heures sup du mois (tout compris) jusqu'à la date indiquée
-moisRH = Month(DateRH)
-anneeRH = Year(DateRH)
-TotalHS = 0
-
-Set rs = CurrentDb.OpenRecordset("SELECT tbl_ImportRH.CodeAgent, tbl_ImportRH.DateRH, Month([dateRH]) AS moisRH, Year([dateRH]) AS anneeRH, tbl_ImportRH.HeureSup1, tbl_ImportRH.HeureSup2, tbl_ImportRH.HeureSupDimanche " & _
-                                 "FROM tbl_ImportRH " & _
-                                 "WHERE (((tbl_ImportRH.codeagent) = '" & CodeAgent & "') And ((Month([dateRH])) = " & moisRH & ") And ((Year([dateRH])) = " & anneeRH & ")) " & _
-                                 "ORDER BY tbl_ImportRH.DateRH;")
-
-rs.MoveFirst
-Do Until rs.EOF = True
-  If rs![DateRH] > DateRH Then Exit Do
-  
-  TotalHS = TotalHS + rs![HeureSup1] + rs![HeureSup2] + rs![HeureSupDimanche]
-
-  If rs![DateRH] = DateRH Then Exit Do
-rs.MoveNext
-Loop
-
-CumulHS = TotalHS
-
-End Function
-
-Sub test()
-MsgBox Itineraire("r_FormDep_1", "Localisation", "T32", 2, 12, 2013)
-End Sub
-
-Public Function Itineraire(Requete, Source, ByVal CodeAgent, ByVal JourRH As Integer, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-Dim rst As DAO.Recordset
-Dim critere, strSQL As String
-
-Itineraire = ""
-critere = "[CodeAgent]='" & CodeAgent & "' AND [JourRH]=" & JourRH & " AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-strSQL = "SELECT " & Requete & ".* FROM " & Requete & " WHERE " & critere & ";"
-
-If DCount(Source, Requete, critere) = 0 Then
- Exit Function
-End If
-
-Set rst = CurrentDb.OpenRecordset(strSQL)
-
-rst.MoveFirst
-Itineraire = Nz(rst(Source), "")
-
-If rst.RecordCount > 1 Then
- rst.MoveNext
- Do Until rst.EOF
-    Itineraire = Itineraire & "-" & Nz(rst(Source), "")
-    rst.MoveNext
- Loop
-End If
-
-Set rst = Nothing
-
-End Function
-
-Public Function HSinf14(H1 As Double, CodeAgent As String, DateRH As Date)
-Dim moisRH, anneeRH As Integer
-Dim rs As DAO.Recordset
-Dim TotalHS As Double
-
-moisRH = Month(DateRH)
-anneeRH = Year(DateRH)
-JourRH = Day(DateRH)
-TotalHS = 0
-
-If JourRH = 1 Then
-  If H1 > 14 Then
-   HSinf14 = 14
-  Else
-   HSinf14 = H1
-  End If
-Else
-
-  'calcul du total des heures sup jusqu'à cette date
-  Set rs = CurrentDb.OpenRecordset("SELECT r_HeuresSup.CodeAgent, r_HeuresSup.JourRH, r_HeuresSup.moisRH, r_HeuresSup.anneeRH, r_HeuresSup.HS, r_HeuresSup.HSNuit, r_HeuresSup.HeureSupDimanche " & _
-                                 "FROM r_HeuresSup " & _
-                                 "WHERE ((r_HeuresSup.codeagent) = '" & CodeAgent & "') And ((r_HeuresSup.moisRH) = " & moisRH & ") And ((r_HeuresSup.anneeRH) = " & anneeRH & ") " & _
-                                 "ORDER BY r_HeuresSup.JourRH;")
-  rs.MoveFirst
-  Do Until rs.EOF = True
-    If rs![JourRH] > JourRH - 1 Then Exit Do
-    TotalHS = TotalHS + Nz(rs![HS], 0) + Nz(rs![HSNuit], 0) + Nz(rs![HeureSupDimanche], 0)
-    If rs![JourRH] = JourRH - 1 Then Exit Do
-  rs.MoveNext
-  Loop
-  Debug.Print JourRH, TotalHS
-  If TotalHS > 14 Then
-   HSinf14 = 0
-  ElseIf TotalHS + H1 > 14 Then
-   HSinf14 = 14 - TotalHS
-  Else
-   HSinf14 = H1
-  End If
-End If
-
-
-End Function
-
-Public Function HSsup14(H1 As Double, CodeAgent As String, DateRH As Date)
-Dim moisRH, anneeRH As Integer
-Dim rs As DAO.Recordset
-Dim TotalHS As Double
-
-moisRH = Month(DateRH)
-anneeRH = Year(DateRH)
-JourRH = Day(DateRH)
-TotalHS = 0
-
-
-If JourRH = 1 Then
-  If H1 > 14 Then
-   HSsup14 = H1 - 14
-  Else
-   HSsup14 = 0
-  End If
-Else
-
-  'calcul du total des heures sup jusqu'à cette date
-  Set rs = CurrentDb.OpenRecordset("SELECT r_HeuresSup.CodeAgent, r_HeuresSup.JourRH, r_HeuresSup.moisRH, r_HeuresSup.anneeRH, r_HeuresSup.HS, r_HeuresSup.HSNuit, r_HeuresSup.HeureSupDimanche " & _
-                                 "FROM r_HeuresSup " & _
-                                 "WHERE ((r_HeuresSup.codeagent) = '" & CodeAgent & "') And ((r_HeuresSup.moisRH) = " & moisRH & ") And ((r_HeuresSup.anneeRH) = " & anneeRH & ") " & _
-                                 "ORDER BY r_HeuresSup.JourRH;")
-  rs.MoveFirst
-  Do Until rs.EOF = True
-    If rs![JourRH] > JourRH - 1 Then Exit Do
-    TotalHS = TotalHS + Nz(rs![HS], 0) + Nz(rs![HSNuit], 0) + Nz(rs![HeureSupDimanche], 0)
-    If rs![JourRH] = JourRH - 1 Then Exit Do
-  rs.MoveNext
-  Loop
-
-  If TotalHS > 14 Then
-   HSsup14 = H1
-  ElseIf TotalHS + H1 > 14 Then
-   HSsup14 = (TotalHS + H1) - 14
-  Else
-   HSsup14 = 0
-  End If
-End If
-
-
-End Function
-
-Public Function Bareme(NomBareme As String, Valeur As Double, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-Dim rs As DAO.Recordset
-Dim PeriodeValidite As Integer
-
-
-PeriodeValidite = PeriodeBareme(NomBareme, moisRH, anneeRH)
-
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_baremes WHERE [NomBareme]='" & NomBareme & "' AND [PeriodeValidite]=" & PeriodeValidite & ";")
-If rs.RecordCount = 0 Then
-Bareme = 0
-Exit Function
-End If
-rs.MoveFirst
-
-If Nz(rs![BorneInf], "") = "" And Nz(rs![BorneSup], "") = "" Then
- Bareme = rs![Valeur]
- Exit Function
-End If
-
-Do Until rs.EOF = True
- If Valeur >= rs![BorneInf] And Valeur <= rs![BorneSup] Then
-  Bareme = rs![Valeur]
-  Exit Function
- End If
-rs.MoveNext
-Loop
-
-Bareme = -1
-
-End Function
-
-Public Function AnalyseDonnees(IDSuivi As Double, ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer, ByVal avertissement As Integer)
-
-Dim critere, sql As String
-Dim JourRH As Integer
-Dim rsS, rsC As Recordset 'recordset source, recordset cible
-
-'ATTENTION: la requête d'insertion dans tbl_formHS utilise des résultat de la table tbl_FormDep. Celle-ci doit donc impérativement être remplie en premier.
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then
- AnalyseDonnees = -1
- Exit Function
-End If
-
-Call AfficherMsgProgression("Traitement", "Analyse des données de " & CodeAgent & " (" & moisRH & "/" & anneeRH & ")")
-Call MajMsgProgression(1, 5)
-DoEvents
-
-'CREATION FORM DEPLACEMENTS
-'vérification
-If VerifEtat("tbl_FormDep", CodeAgent, moisRH, anneeRH, avertissement) = -1 Then Exit Function '4e arg=0 pour pas d'avertissement avant MAJ/Suppr
-
- 'ajout des lignes à tbl_formDep
-
- critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
- sql = "INSERT INTO tbl_FormDep ( AnneeRH, MoisRH, CodeAgent, JourRH, Distance1_perso, Distance2_perso, Distance2_service, Itineraire, HeuresDep, HeuresDepNuit, " & _
-     "Repas, IDSuivi, Valide, CreePar, CreeLe ) " & _
-     "SELECT r_FormDep2.AnneeRH, r_FormDep2.MoisRH, r_FormDep2.CodeAgent, r_FormDep2.JourRH, r_FormDep2.SommeDeDistance1_perso AS Distance1_perso, " & _
-     "r_FormDep2.SommeDeDistance2_perso AS Distance2_perso, r_FormDep2.SommeDeDistance2_service AS Distance2_service, r_FormDep2.Itineraire, " & _
-     "r_FormDep2.SommeDeHeuresDep AS HeuresDep, r_FormDep2.SommeDeHeuresDepNuit AS HeuresDepNuit, r_FormDep2.SommeDeRepas AS Repas, " & _
-     "" & IDSuivi & " AS Expr1, True AS Expr3, '" & Environ("username") & "' AS Expr4, Now() AS Expr5 " & _
-     "FROM r_FormDep2 " & _
-     "WHERE " & critere & ";"
-
- 'Debug.Print sql
- If avertissement = 0 Then DoCmd.SetWarnings False
- DoCmd.RunSQL sql
- DoCmd.SetWarnings True
- 
- Call MajMsgProgression(3, 5)
-'CREATION FORM HEURES SUP
-'vérification
-If VerifEtat("tbl_FormHS", CodeAgent, moisRH, anneeRH, avertissement) = -1 Then Exit Function '4e arg=0 pour pas d'avertissement avant MAJ/Suppr
-
- 'ajout des lignes à tbl_formHS
-
- critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
- sql = "INSERT INTO tbl_FormHS ( CodeAgent, JourRH, MoisRH, AnneeRH, HeureSup1, HeuresDep, HeuresDepNuit, " & _
-       "[HeureSup1<=14], [HeureSup1>14], HeureSupNuit, HeureSupDim, HS_VHCanal, HS_Chantier, CreePar, CreeLe, Valide, IDSuivi ) " & _
-       "SELECT r_HeuresSup2.CodeAgent, r_HeuresSup2.JourRH, r_HeuresSup2.MoisRH, r_HeuresSup2.AnneeRH, " & _
-       "r_HeuresSup2.HeureSup1, r_HeuresSup2.HeuresDep, r_HeuresSup2.HeuresDepNuit, " & _
-       "r_HeuresSup2.[H<14], r_HeuresSup2.[H>14], r_HeuresSup2.HSNuit, r_HeuresSup2.HeureSupDimanche, HS_VHCanal, HS_Chantier, " & _
-       "'" & Environ("Username") & "' AS Expr2, Now() AS Expr3, True AS Expr4, " & IDSuivi & " As Expr5 " & _
-       "FROM r_HeuresSup2 " & _
-       "WHERE " & critere & " " & _
-       "ORDER BY [JourRH];"
-       
- 'Debug.Print sql
- If avertissement = 0 Then DoCmd.SetWarnings False
- DoCmd.RunSQL sql
- DoCmd.SetWarnings True
-
-Call MajMsgProgression(4, 5)
-'AnalyseDonnees = Nz(VerifCompteLignes(CodeAgent, moisRH, anneeRH), -1)
-Call MajMsgProgression(5, 5)
-'résultat: -1 -> erreur inconnue ou mauvais paramètres d'entrée
-          ' 0 -> erreur dans le décompte des lignes
-           '1-> parait être bon
-
-End Function
-
-Public Function TypeAuto(CodeAgent As String, moisRH As Integer, anneeRH As Integer)
-Dim critere As String
-Dim DateRH, validite As Date
-Dim puissance As Double
-'dateRH = CDate("#15/" & moisRH & "/" & anneeRH & "#")
-'validite = LigneValide("tbl_Agents", dateRH, "[CodeAgent]='" & CodeAgent & "'")
-
-critere = "[CodeAgent]='" & CodeAgent & "'"
-
-If DLookup("TypeVehicule", "r_Agents", critere) = 1 Then
- puissance = Nz(DLookup("PuissanceFiscVP", "r_Agents", critere), 1)
- TypeAuto = Bareme("Puissance Fiscale", puissance, moisRH, anneeRH)
-Else
- TypeAuto = ""
-End If
-End Function
-
-Public Function DistanceAnnee(CodeAgent As String, moisRH As Integer, anneeRH As Integer)
-'cette fonction renvoie le nombre de kilomètres parcourus par l'agent depuis le début de l'année
-'jusqu'au mois indiqué NON-COMPRIS
-'Cette fonction est utilisée dans le calcul des frais kilométriques
-'Des kilomètres additionnels peuvent être ajoutés manuellement lors de la création d'un nouvel agent (cf. tbl_KmSuppl)
-
-Dim rs As DAO.Recordset
-Dim Distance As Double
-Dim KmSuppl As Double
-
-If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then
- DistanceAnnee = 0
- MsgBox "Erreur Paramètres dans l'appel de la fonction DistanceAnnee"
- Exit Function
-End If
-
-DistanceAnnee = 0
-
-'recherche d'éventuels km supplémentaires
-KmSuppl = Nz(DSum("KmSuppl", "tbl_KmSuppl", "[CodeAgent]='" & CodeAgent & "' AND [AnneeRH]=" & anneeRH), 0)
-
-DistanceAnnee = KmSuppl
-
-If moisRH = 1 Then 'cas du mois de janvier
- Exit Function
-End If
-
-Set rs = CurrentDb.OpenRecordset("SELECT tbl_FormDep.CodeAgent, tbl_FormDep.JourRH, tbl_FormDep.MoisRH, tbl_FormDep.AnneeRH, tbl_FormDep.Distance2_perso, tbl_FormDep.Distance1_perso, [Distance2_perso]+[Distance1_perso] AS DistancePerso " & _
-                                 "FROM tbl_FormDep WHERE (((tbl_FormDep.CodeAgent)='" & CodeAgent & "') AND ((tbl_FormDep.MoisRH)<" & moisRH & ") AND ((tbl_FormDep.AnneeRH)=" & anneeRH & "));")
-Distance = 0
-If rs.RecordCount > 0 Then
- rs.MoveFirst
- Do Until rs.EOF = True
-  Distance = Distance + rs![DistancePerso]
-  rs.MoveNext
- Loop
-End If
-DistanceAnnee = DistanceAnnee + Distance
-
-End Function
-
-Public Function NvellePeriode(ByVal table As String, ByVal Champ1_valeur As String, ByVal DateInf As Date)
-'cette fonction permet la création d'une nouvelle periode de validité dans la table tbl_Periodebareme ou tbl_PeriodeAgent
-'le champ1 correspond selon la table au code de l'agent ou au nom du bareme
-'la fonction attribue une date de fin à l'ancienne periode, créé la nouvelle période, et lui attribue un nouveau code et une date de début
-
-Dim rs As DAO.Recordset
-Dim champ1_nom, sql, msg As String
-Dim conflit, avertissement, CodePeriode, AnciennePeriode As Integer
-Dim dateconflit As Date
-
-Set rs = CurrentDb.OpenRecordset(table)
-champ1_nom = rs.Fields(0).Name
-
-avertissement = parametre("avertSQL")
-conflit = CtrlValidite(table, Champ1_valeur, DateInf)
-
-CodePeriode = Nz(DMax("[CodePeriode]", table, "[" & champ1_nom & "]='" & Champ1_valeur & "'"), 0) + 1
-'la fonction CtrlValidite renvoie le code de la période avec laquelle la nouvelle date entre en conflit
-'si ce code est positif, la nouvelle date est comprise dans la période en question
-'s'il est négatif, elle y est antérieure et la date de fin sera automatiquement remplie
-
-
-If conflit <> 0 Then
- Select Case conflit
-  Case Is < 0
-   dateconflit = DLookup("[DateInf]", table, "[" & champ1_nom & "]='" & Champ1_valeur & "' AND [CodePeriode]=" & -1 * conflit)
-   If IsNull(dateconflit) Then
-     msg = "Erreur: conflit avec la periode " & -1 * conflit & ". Veuillez vérifier la date de début de cette période ou contacter un administrateur."
-     NvellePeriode = 0
-     Exit Function
-   Else
-     msg = "ATTENTION: La date choisie est antérieure à une période existante (période " & -1 * conflit & ") dont la date de début est " & _
-           dateconflit & "." & vbNewLine & "Si vous continuez, la date de fin de la période en création sera automatiquement enregistrée comme étant " & dateconflit - 1 & "."
-     If MsgBox(msg, vbYesNo) = vbNo Then
-      NvellePeriode = 0
-      Exit Function
-     End If
-   End If
-  Case Is > 0
-   msg = "ATTENTION: La date choisie est comprise dans une période existante (période " & conflit & "). " & vbNewLine & "Veuillez choisir une autre date ou contacter un administrateur."
-   MsgBox msg
-   NvellePeriode = 0
-   Exit Function
- End Select
-End If
-
- msg = "Une nouvelle période va être créée qui prendra effet à compter du " & DateInf
- If MsgBox(msg, vbYesNo) = vbNo Then
-  NvellePeriode = 0
-  Exit Function
- End If
-
-If avertissement = 0 Then DoCmd.SetWarnings False
-
-Select Case conflit
-
- Case 0
-  AnciennePeriode = Nz(DLookup("[CodePeriode]", table, "[" & champ1_nom & "]='" & Champ1_valeur & "' AND [DateSup] is null"), 0)
-  'fermeture de l'ancienne periode
-  If AnciennePeriode <> 0 Then
-   sql = "UPDATE " & table & " SET " & table & ".DateSup = Format(#" & CDate(DateInf) - 1 & "#,'mm/dd/yyyy') " & _
-         "WHERE (((" & table & "." & champ1_nom & ")='" & Champ1_valeur & "') AND ((" & table & ".CodePeriode)=" & AnciennePeriode & "));"
-   DoCmd.RunSQL sql
-  End If
-  'creation de la nouvelle periode
-
-  rs.AddNew
-  rs(champ1_nom) = Champ1_valeur
-  rs![DateInf] = CDate(DateInf)
-  rs![CodePeriode] = CodePeriode
-  rs.Update
-
- Case Is < 0
-
-  'creation de la nouvelle periode avec pour date de fin la veille de la période qui suit
-
-  rs.AddNew
-  rs(champ1_nom) = Champ1_valeur
-  rs![DateInf] = DateInf
-  rs![DateSup] = dateconflit - 1
-  rs![CodePeriode] = CodePeriode
-  rs.Update
- 
- 
-End Select
-DoCmd.SetWarnings True
-
-NvellePeriode = CodePeriode
-
-End Function
-
-
-Public Function EtatSuivi(CodeAgent As String, moisRH As Integer, anneeRH As Integer)
-'renvoie l'état des données depuis tbl_SuiviRH
-Dim critere As String
-If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
- critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
- If Nz(DLookup("[Edite]", "tbl_SuiviRH", critere), False) = False Then
-  EtatSuivi = Nz(DLookup("[Etat]", "tbl_SuiviRH", critere), "Pas de données")
- Else
-  EtatSuivi = "Edité"
- End If
-Else
- EtatSuivi = "erreur"
-End If
-End Function

test/source/modules/Utilitaires.bas

@@ -1,350 +0,0 @@
-Option Compare Database
-Private Const BIF_RETURNONLYFSDIRS = 1
-Private Const BIF_DONTGOBELOWDOMAIN = 2
-Private Const BIF_NEWDIALOGSTYLE As Long = &H40
-
-Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
-Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
-    ByVal lpBuffer As String) As Long
-Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, _
-    ByVal lpString2 As String) As Long
-
-Private Type BrowseInfo
-    hwndOwner As Long
-    pIDLRoot As Long
-    pszDisplayName As Long
-    lpszTitle As Long
-     ulFlags As Long
-    lpfnCallback As Long
-    lParam As Long
-    iImage As Long
-End Type
-
-Function Environ(VarName)
-    Dim wss, env
-    Set wss = CreateObject("WScript.Shell")
-    Set env = wss.environment("process")
-    Environ = env(VarName)
-    If Environ = "" Then
-        Set env = wss.environment("system")
-        Environ = env(VarName)
-    End If
-End Function
-
-Public Sub ImprEtats(ByVal stEtat As String, ByVal itCopies As Integer, ByVal critere As String)
-'imprime un état en plusieurs exemplaires
- ' stEtat   : nom de l'état
- ' itCopies : nombre de copies
-DoCmd.OpenReport stEtat, acViewPreview, , critere
-DoCmd.PrintOut acPages, , , , itCopies
-DoCmd.Close acReport, stEtat
-End Sub
-
-Public Sub ExportBordereau(ByVal NomBord As String, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-Dim OuvAutoPdf As Boolean
-Dim NomMois, repPDF As String
-
-If MsgBox("Voulez-vous ouvrir le PDF une fois créé?", vbYesNo) = vbYes Then
- OuvAutoPdf = True
-Else
- OuvAutoPdf = False
-End If
-
-repPDF = chemin(moisRH, anneeRH)
-NomMois = Left(UCase(MonthName(moisRH)), 4)
-
-If repPDF = "" Then
- Call MsgBox("Vous devez définir un répertoire de stockage pour utiliser cette fonction.", , NomEtat)
- Exit Sub
-End If
-
-If dir(repPDF, 16) = "" Then MkDir (repPDF)
-
-critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-DoCmd.OpenReport NomBord, acViewPreview, , critere
-DoCmd.OutputTo acOutputReport, , "PDF", repPDF & NomBord & "_" & NomMois & anneeRH & ".pdf", OuvAutoPdf
-DoCmd.Close acReport, NomBord
-
-End Sub
-
-Public Sub ExportEtatPDF(ByVal NomEtat As String, ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer)
-Dim OuvAutoPdf As Boolean
-Dim NomMois, repPDF, nomFichier, NomAgent, critere, str As String
-
-OuvAutoPdf = False
-
-NomAgent = Nz(Split(DLookup("Nom", "r_Agents", "[CodeAgent]='" & CodeAgent & "'"), " ")(0), "") & "." & _
-           Left(Nz(Split(DLookup("Nom", "r_Agents", "[CodeAgent]='" & CodeAgent & "'"), " ")(1), ""), 1)
-
-If NomAgent = "" Then
-  'erreur nom
-  NomAgent = Nz(InputBox("L'application n'a pas trouvé le nom de famille de l'agent. Celui ci doit se trouver dans la table tbl_Equipe, au format 'NOM Prenom'. Vous pouvez le renseigner manuellement:"), "")
-  If NomAgent = "" Then Exit Sub
-End If
-
-repPDF = chemin(moisRH, anneeRH)
-'NomMois = Left(UCase(MonthName(moisRH)), 4)
-'NomFichier=NomAgent & "_" & NomMois & anneeRH & "_" & NomEtat & ".pdf"
-
-
-If Len(CStr(moisRH)) = 1 Then
-  NomMois = anneeRH & "0" & moisRH
-Else
-  NomMois = anneeRH & moisRH
-End If
-
-nomFichier = NomAgent & "_" & NomMois & "_" & NomEtat & ".pdf"
-
-If repPDF = "" Then
- Call MsgBox("Vous devez définir un répertoire de stockage pour utiliser cette fonction.", , NomEtat)
- Exit Sub
-End If
-
-If dir(repPDF, 16) = "" Then MkDir (repPDF)
-
-critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
-
-nomFichier = repPDF & NomAgent & "_" & NomMois & "_" & Replace(NomEtat, "Et_", "") & ".pdf"
-
-DoCmd.OpenReport NomEtat, acViewPreview, , critere
-DoCmd.OutputTo acOutputReport, , "PDF", nomFichier, OuvAutoPdf
-DoCmd.Close acReport, NomEtat
-
-End Sub
-
-
-
-
-Public Function SelectFolder(titre As String, Handle As Long) As String
-
-Dim lpIDList As Long
-Dim strBuffer As String
-Dim strTitre As String
-Dim tBrowseInfo As BrowseInfo
-
-strTitre = titre
-With tBrowseInfo
-    .hwndOwner = Handle
-    .lpszTitle = lstrcat(strTitre, "")
-    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_NEWDIALOGSTYLE
-End With
-
-lpIDList = SHBrowseForFolder(tBrowseInfo)
-
-If (lpIDList) Then
-    strBuffer = String(260, vbNullChar)
-    SHGetPathFromIDList lpIDList, strBuffer
-    SelectFolder = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
-End If
-
-End Function
-
-Public Function NomImpr(Optional PremCo As Boolean)
-'ouvre le formulaire frm_ChoixImpr et renvoie le nom de l'imprimante choisie
-
-'ouverture du formulaire
-DoCmd.OpenForm "frm_ChoixImpr"
-
-If PremCo = True Then MsgBox "VEUILLEZ TOUT D'ABORD CHOISIR L'IMPRIMANTE QUE DEVRA UTILISER VOTRE APPLICATION" & vbNewLine & "(Vous pourrez ensuite en changer à partir du menu 'parametres', accessible depuis l'écran d'accueil)"
-
-'la fonction reste en attente jusqu'à ce qu'une imprimante ait été choisie
-Do Until Nz(forms![frm_ChoixImpr].impr, "") <> ""
- DoEvents
-Loop
-
-'récupération du nom de l'imprimante
-If Not forms![frm_ChoixImpr].impr = "annuler" Then
- NomImpr = Nz(forms![frm_ChoixImpr].impr, "")
-Else
- NomImpr = ""
-End If
-'fermeture du formulaire
-DoCmd.Close acForm, "frm_ChoixImpr"
-
-End Function
-
-Public Function Attendre(tps As Double)
-'tps en ms
-Dim t0, t As Single
-
-t0 = Timer
-
-Do Until 1000 * (t - t0) >= tps
- t = Timer
- DoEvents
-Loop
-
-End Function
-
-Sub testchrono()
-MsgBox "1"
-Call Attendre(5000) '5s
-MsgBox "2"
-End Sub
-
-Public Function OuvrirRepertoire(chemin As String)
- 
-    'validité du chemin
-    If (IsNull(chemin)) Then
-        MsgBox ("Chemin d'accès non valide")
-        Exit Function
-    End If
-    
-    'existence du répertoire
-    If (dir(chemin, vbDirectory) <> "") Then
-        'Appel de l'explorateur Windows
-        Shell "explorer " & chemin, vbNormalFocus
-    Else
-        MsgBox ("Ce répertoire n'existe pas")
-    End If
- 
-End Function
-
-Public Function ChercherNomFichier()
-Dim initialFileName As Variant
-
-' Displays the Office File Open dialog to choose a file name
-' for the current employee record.
-Dim fileName As String
-Dim result As Integer
-
-
-With Application.FileDialog(3) ' 3 is a constant: msoFileDialogFilePicker
-.Title = "Selection d'un fichier à importer"
-.Filters.Add "All Files", "*.*"
-.Filters.Add "XML", "*.xml"
-.FilterIndex = 2
-.AllowMultiSelect = False
-
-
-initialFileName = DLookup("Valeur", "tbl_parametre", "Parametre = 'RepXML'")
-If dir(initialFileName) = "" Then initialFileName = DLookup("Valeur", "tbl_parametre", "Parametre = 'RepXML_defaut'")
-
-If IsNull(initialFileName) Then
-    initialFileName = fCurrentDBDir
-End If
-.initialFileName = initialFileName
-result = .Show
-If (result <> 0) Then 'result = 0 if nothing was selected
-fileName = Trim(.SelectedItems.Item(1))
-'filename contains the path you want.
-ChercherNomFichier = fileName
-
-End If
-End With
-
-End Function
-
-
-Public Sub ImportXMLPDA(ByVal strfilename As String)
-
-'déclaration file system object
-Dim FSO
-'instanciation
-Set FSO = CreateObject("Scripting.FileSystemObject")
-
-'importation des données xml
-Application.ImportXML DataSource:=strfilename, ImportOptions:=acAppendData
-    
-End Sub
-
-Public Function ExtraitNomFichier(strNomFichierCplt As String) As String
-Dim i, j As Long
-j = InStr(1, strNomFichierCplt, "\")
-Do
-i = j
-j = InStr(i + 1, strNomFichierCplt, "\")
-Loop Until j = 0
-ExtraitNomFichier = Mid(strNomFichierCplt, i + 1, Len(strNomFichierCplt) - i)
-End Function
-Public Function ExtraitNomRep(strNomFichierCplt As String) As String
-Dim i, j As Long
-j = InStr(1, strNomFichierCplt, "\")
-Do
-i = j
-j = InStr(i + 1, strNomFichierCplt, "\")
-Loop Until j = 0
-ExtraitNomRep = Mid(strNomFichierCplt, 1, i)
-End Function
-
-Function ReformateDate(InputDate As String) As Date 'change le format date importé en format intelligible ACCESS
-
-Dim DateCourte As String
-Dim y As String
-Dim m As String
-Dim d As String
-Dim DateOrdre As String
-
-DateCourte = Left(InputDate, 10)
-y = Left(DateCourte, 4)
-m = Mid(DateCourte, 6, 2)
-d = Right(DateCourte, 2)
-DateOrdre = d & "/" & m & "/" & y
-ReformateDate = CDate(DateOrdre)
-
-End Function
-
-Public Function NomAgentAbrege(Nom As String)
-
-If Not Len(Nom) > 0 Or Not UBound(Split(Nom, " ")) > 0 Then
- NomAgentAbrege = Nom
- Exit Function
-End If
-
-NomAgentAbrege = Left(Split(Nom, " ")(1), 1) & "." & Split(Nom, " ")(0)
-
-End Function
-
-Public Function parametre(ByVal param As String, Optional ByVal valeur2 As String)
-'renvoie la valeur d'un paramètre demandé depuis tbl_parametre
-Dim critere As String
-
-If Not IsNull(valeur2) And valeur2 <> "" Then
- critere = "[parametre]='" & param & "' AND [valeur2]='" & valeur2 & "'"
-Else
- critere = "[parametre]='" & param & "'"
-End If
-
-parametre = Nz(DLookup("valeur", "tbl_parametre", critere), Null)
-
-
-End Function
-
-Public Function chemin(ByVal moisRH As Integer, ByVal anneeRH As Integer)
-'renvoie la valeur du répertoire PDF de la table tbl_ParamUtil
-Dim critere, str As String
-
-critere = "[parametre]='repPDF' AND [User]='" & CurrentUser & "'"
-
-If Not moisRH > 0 Or Not moisRH <= 12 Or Not anneeRH > 2000 Then
-chemin = Nz(DLookup("valeur", "tbl_ParamUtil", critere), "")
-Exit Function
-End If
-
-'chemin = Nz(DLookup("valeur", "tbl_ParamUtil", critere), "") & "\" & Left(UCase(MonthName(moisRH)), 4) & anneeRH & "\"
-
-chemin = Nz(DLookup("valeur", "tbl_ParamUtil", critere), "")
-If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
-
-str = CStr(anneeRH) & "-"
-If Len(CStr(moisRH)) = 1 Then str = str & "0"
-str = str & moisRH
-
-chemin = Nz(DLookup("valeur", "tbl_ParamUtil", critere), "") & str & "\"
-
-End Function
-
-Public Sub MAJParametre(ByVal param As String, ByVal Valeur As Variant, Optional ByVal valeur2 As String)
-'met à jour une valeur de la table parametre
-Dim critere As String
-
-If Not Nz(valeur2, "") = "" Then
- critere = "[parametre]='" & param & "' AND [valeur2]='" & valeur2 & "'"
-Else
- critere = "[parametre]='" & param & "'"
-End If
-DoCmd.SetWarnings False
-DoCmd.RunSQL "UPDATE tbl_parametre SET tbl_parametre.valeur = '" & Valeur & "' WHERE " & critere & ";"
-DoCmd.SetWarnings True
-End Sub

test/source/modules/Verrouillages.bas

@@ -1,395 +0,0 @@
-Option Compare Database
-
-'on trouve ici les fonctions qui controlent le verrouillage, la visibilité... des différents formulaires
-
-Public Function acces(ByVal login As String) As Integer
-
-'util = parametre("acces", CurrentUser)
-Util = Nz(DLookup("[acces]", "ztblUtilisateurs", "[login]='" & login & "'"), "")
-If Util = "admin" Then
- acces = 2
-ElseIf Util = "rw" Then
- acces = 1
-Else
- acces = 0
-End If
-
-End Function
-
-Public Sub VerrouMenu(niv As Integer)
-Dim Util As String
-
-'RW/administrateur?
-
-With forms![frm_menu]
- .txt_donnee.Visible = False
- .CreerForm.Enabled = False
- .FDep_Ouvrir.Enabled = False
- .FDep_Ouvrir.QuickStyle = 22
- .FHS_Ouvrir.Enabled = False
- .FHS_Ouvrir.QuickStyle = 22
- .EFD_Ouvrir.Enabled = False
- .EFD_Ouvrir.QuickStyle = 22
- .exportPeriple.Enabled = False
- .exportPeriple.QuickStyle = 22
- .CmdImpr.Enabled = False
- .EnregPDF.Enabled = False
- .BordEFD.Enabled = False
- .BordHS.Enabled = False
- .BordHSImpr.Enabled = False
- .BordEFDImpr.Enabled = False
- .BordHSpdf.Enabled = False
- .BordEFDpdf.Enabled = False
- .ValidForm.Enabled = False
- .InvalidForm.Enabled = False
- .DonneesAgentValide.Enabled = False
- .BaremeValide.Enabled = False
- .etiq_nodata.Visible = False
- .Edition.Visible = False
- If acces(CurrentUser) < 2 Then .InvalidForm.Visible = False
- If acces(CurrentUser) < 2 Then .Administration.Visible = False
-
-  Select Case niv
-
-   Case 0
-     'verrouillage total (par exemple pendant un traitement de données)
- 
-   Case 5
-     'mois et année selectionnés, mais pas l'agent
-     .BaremeValide.Enabled = True
- 
-   Case 6
-     'pas d'agent selectionné, des données importées pour ce mois
-     .BaremeValide.Enabled = True
-     .BordEFD.Enabled = True
-     .BordHS.Enabled = True
-     .BordHSImpr.Enabled = True
-     .BordEFDImpr.Enabled = True
-     .BordHSpdf.Enabled = True
-     .BordEFDpdf.Enabled = True
-   
-   Case 1
-     'pas de données pour ce mois
-     .etiq_nodata.Visible = True
-     .DonneesAgentValide.Enabled = True
-     .BaremeValide.Enabled = True
- 
-   Case 2
-     'données importées mais pas analysées
-
-     .txt_donnee.Visible = True
-     If acces(CurrentUser) >= 1 Then forms![frm_menu].CreerForm.Enabled = True
-     .BordEFD.Enabled = True
-     .BordHS.Enabled = True
-     .DonneesAgentValide.Enabled = True
-     .BaremeValide.Enabled = True
-     .BordHSImpr.Enabled = True
-     .BordEFDImpr.Enabled = True
-     .BordHSpdf.Enabled = True
-     .BordEFDpdf.Enabled = True
-     .exportPeriple.Enabled = True
-     .exportPeriple.QuickStyle = 21
- 
-   Case 3
-     'données importées, analysées, pas validées
- 
-     .txt_donnee.Visible = True
-     If acces(CurrentUser) >= 1 Then forms![frm_menu].CreerForm.Enabled = True
-       .FDep_Ouvrir.Enabled = True
-       .FDep_Ouvrir.QuickStyle = 21
-       .FHS_Ouvrir.Enabled = True
-       .FHS_Ouvrir.QuickStyle = 21
-       .EFD_Ouvrir.Enabled = True
-       .EFD_Ouvrir.QuickStyle = 21
-       .BordEFD.Enabled = True
-       .BordHS.Enabled = True
-     If acces(CurrentUser) >= 1 Then forms![frm_menu].ValidForm.Enabled = True
-       .DonneesAgentValide.Enabled = True
-       .BaremeValide.Enabled = True
-       .BordHSImpr.Enabled = True
-       .BordEFDImpr.Enabled = True
-       .BordHSpdf.Enabled = True
-       .BordEFDpdf.Enabled = True
-     .exportPeriple.Enabled = True
-     .exportPeriple.QuickStyle = 21
-     
-   Case 4
-     'données importées, analysées, et validées
- 
-     If acces(CurrentUser) = 2 Then .InvalidForm.Visible = True
-     If acces(CurrentUser) = 2 Then .InvalidForm.Enabled = True
-     .txt_donnee.Visible = True
-     .FDep_Ouvrir.Enabled = True
-     .FDep_Ouvrir.QuickStyle = 21
-     .FHS_Ouvrir.Enabled = True
-     .FHS_Ouvrir.QuickStyle = 21
-     .EFD_Ouvrir.Enabled = True
-     .EFD_Ouvrir.QuickStyle = 21
-     If acces(CurrentUser) >= 1 Then .CmdImpr.Enabled = True
-     If acces(CurrentUser) >= 1 Then .EnregPDF.Enabled = True
-     .BordEFD.Enabled = True
-     .BordHS.Enabled = True
-     .DonneesAgentValide.Enabled = True
-     .BaremeValide.Enabled = True
-     .BordHSImpr.Enabled = True
-     .BordEFDImpr.Enabled = True
-     .BordHSpdf.Enabled = True
-     .BordEFDpdf.Enabled = True
-     .exportPeriple.Enabled = True
-     .exportPeriple.QuickStyle = 21
-  End Select
-
-End With
-
-End Sub
-
-Public Sub VerrouMAJAgent(niv As Integer)
-'gestion des verrouillages du formulaire frm_MAJAgent
-
-forms![frm_MAJAgent].DateInf.Locked = True
-forms![frm_MAJAgent].NvelleDate.Locked = True
-forms![frm_MAJAgent].CopieAnc.Locked = True
-forms![frm_MAJAgent].CodeAgent.Locked = True
-forms![frm_MAJAgent].Nom.Locked = True
-forms![frm_MAJAgent].Grade.Locked = True
-forms![frm_MAJAgent].Catégorie.Locked = True
-forms![frm_MAJAgent].RémunérationBase.Locked = True
-forms![frm_MAJAgent].Groupe.Locked = True
-forms![frm_MAJAgent].Matricule.Locked = True
-forms![frm_MAJAgent].TypeVehicule.Locked = True
-forms![frm_MAJAgent].DateAutorisationVP.Locked = True
-forms![frm_MAJAgent].PuissanceFiscVP.Locked = True
-forms![frm_MAJAgent].NbKmAutorisesVP.Locked = True
-forms![frm_MAJAgent].ResidenceAdmin.Locked = True
-forms![frm_MAJAgent].ResidenceFamiliale.Locked = True
-forms![frm_MAJAgent].Telephone.Locked = True
-forms![frm_MAJAgent].TypeVirement.Locked = True
-
-forms![frm_MAJAgent].txt_ancdate.Visible = True
-forms![frm_MAJAgent].txt_nvdate.Visible = True
-forms![frm_MAJAgent].txt_copie.Visible = True
-
-forms![frm_MAJAgent].txt_edition.Visible = False
-
-forms![frm_MAJAgent].CmdOK.Enabled = False
-
-
-Select Case niv
-
-Case 0 'mise à jour du formulaire: déverouillage total
-forms![frm_MAJAgent].DateInf.Locked = False
-forms![frm_MAJAgent].NvelleDate.Locked = False
-forms![frm_MAJAgent].CopieAnc.Locked = False
-forms![frm_MAJAgent].CodeAgent.Locked = False
-forms![frm_MAJAgent].Nom.Locked = False
-forms![frm_MAJAgent].Grade.Locked = False
-forms![frm_MAJAgent].Catégorie.Locked = False
-forms![frm_MAJAgent].RémunérationBase.Locked = False
-forms![frm_MAJAgent].Groupe.Locked = False
-forms![frm_MAJAgent].Matricule.Locked = False
-forms![frm_MAJAgent].TypeVehicule.Locked = False
-forms![frm_MAJAgent].DateAutorisationVP.Locked = False
-forms![frm_MAJAgent].PuissanceFiscVP.Locked = False
-forms![frm_MAJAgent].NbKmAutorisesVP.Locked = False
-forms![frm_MAJAgent].ResidenceAdmin.Locked = False
-forms![frm_MAJAgent].ResidenceFamiliale.Locked = False
-forms![frm_MAJAgent].Telephone.Locked = False
-forms![frm_MAJAgent].TypeVirement.Locked = False
-
-
-Case 1 'ouverture du form, tout est verrouillé sauf la date de début de la nouvelle période et l'option copie des anciennes données
- If acces(CurrentUser) >= 1 Then forms![frm_MAJAgent].NvelleDate.Locked = False
- If acces(CurrentUser) >= 1 Then forms![frm_MAJAgent].CopieAnc.Locked = False
- If acces(CurrentUser) >= 1 Then forms![frm_MAJAgent].CmdOK.Enabled = True
-
-Case 2 'renseignement des nouvelles données
-
- forms![frm_MAJAgent].txt_ancdate.Visible = False
- forms![frm_MAJAgent].txt_nvdate.Visible = False
- forms![frm_MAJAgent].txt_copie.Visible = False
- forms![frm_MAJAgent].NvelleDate.Visible = False
- forms![frm_MAJAgent].CopieAnc.Visible = False
- forms![frm_MAJAgent].CmdOK.Visible = False
-
- forms![frm_MAJAgent].txt_edition.Visible = True
-
- forms![frm_MAJAgent].Grade.Locked = False
- forms![frm_MAJAgent].Catégorie.Locked = False
- forms![frm_MAJAgent].RémunérationBase.Locked = False
- forms![frm_MAJAgent].Groupe.Locked = False
- forms![frm_MAJAgent].Matricule.Locked = False
- forms![frm_MAJAgent].TypeVehicule.Locked = False
- forms![frm_MAJAgent].DateAutorisationVP.Locked = False
- forms![frm_MAJAgent].PuissanceFiscVP.Locked = False
- forms![frm_MAJAgent].NbKmAutorisesVP.Locked = False
- forms![frm_MAJAgent].ResidenceAdmin.Locked = False
- forms![frm_MAJAgent].ResidenceFamiliale.Locked = False
- forms![frm_MAJAgent].Telephone.Locked = False
- forms![frm_MAJAgent].TypeVirement.Locked = False
-
-End Select
-
-
-End Sub
-
-
-
-Public Sub VerrouMAJbareme(niv As Integer)
-'gestion des verrouillages du formulaire frm_MAJBareme
-
-
-forms![frm_MAJBareme].DateInf.Locked = True
-forms![frm_MAJBareme].NvelleDate.Locked = True
-forms![frm_MAJBareme].CopieAnc.Locked = True
-forms![frm_MAJBareme].BorneInf.Locked = True
-forms![frm_MAJBareme].BorneSup.Locked = True
-forms![frm_MAJBareme].UniteBornes.Locked = True
-forms![frm_MAJBareme].Valeur.Locked = True
-forms![frm_MAJBareme].UniteValeur.Locked = True
-
-forms![frm_MAJBareme].txt_ancdate.Visible = True
-forms![frm_MAJBareme].txt_nvdate.Visible = True
-forms![frm_MAJBareme].txt_copie.Visible = True
-
-forms![frm_MAJBareme].txt_edition.Visible = False
-
-forms![frm_MAJBareme].CmdOK.Enabled = False
-forms![frm_MAJBareme].InserLigne.Visible = False
-forms![frm_MAJBareme].SupprLigne.Visible = False
-
-Select Case niv
-
-Case 0 'mise à jour du formulaire: déverouillage total
-forms![frm_MAJBareme].DateInf.Locked = False
-forms![frm_MAJBareme].NvelleDate.Locked = False
-forms![frm_MAJBareme].CopieAnc.Locked = False
-forms![frm_MAJBareme].BorneInf.Locked = False
-forms![frm_MAJBareme].BorneSup.Locked = False
-forms![frm_MAJBareme].UniteBornes.Locked = False
-forms![frm_MAJBareme].Valeur.Locked = False
-forms![frm_MAJBareme].UniteValeur.Locked = False
-
-
-Case 1 'ouverture du form, tout est verrouillé sauf la date de début de la nouvelle période et l'option copie des anciennes données
- If acces(CurrentUser) >= 1 Then forms![frm_MAJBareme].NvelleDate.Locked = False
- If acces(CurrentUser) >= 1 Then forms![frm_MAJBareme].CopieAnc.Locked = False
- If acces(CurrentUser) >= 1 Then forms![frm_MAJBareme].CmdOK.Enabled = True
-
-Case 2 'renseignement des nouvelles données
-
- forms![frm_MAJBareme].BorneInf.Locked = False
- forms![frm_MAJBareme].BorneSup.Locked = False
- forms![frm_MAJBareme].Valeur.Locked = False
- forms![frm_MAJBareme].UniteBornes.Locked = False
- forms![frm_MAJBareme].UniteValeur.Locked = False
-
- forms![frm_MAJBareme].txt_ancdate.Visible = False
- forms![frm_MAJBareme].txt_nvdate.Visible = False
- forms![frm_MAJBareme].txt_copie.Visible = False
- forms![frm_MAJBareme].NvelleDate.Visible = False
- forms![frm_MAJBareme].CopieAnc.Visible = False
- forms![frm_MAJBareme].CmdOK.Visible = False
-
- forms![frm_MAJBareme].InserLigne.Visible = True
- forms![frm_MAJBareme].SupprLigne.Visible = True
-
- forms![frm_MAJBareme].txt_edition.Visible = True
-
-End Select
-
-
-End Sub
-
-Public Sub VerrouSfrmDetailBareme(frm As Object, niv As Integer)
-
-
-With frm
-
- If acces(CurrentUser) = 0 Then
-  .MAJBareme.Visible = False
- End If
-
-.[sfrm_detailbareme].Form.Valeur.SetFocus 'un contrôle doit être actif, et rester visible
-
-.[sfrm_detailbareme].Form.NomBareme.Visible = False
-.[sfrm_detailbareme].Form.BorneInf.Visible = False
-.[sfrm_detailbareme].Form.BorneSup.Visible = False
-.[sfrm_detailbareme].Form.De.Visible = False
-.[sfrm_detailbareme].Form.A.Visible = False
-.[sfrm_detailbareme].Form.UniteBornes.Visible = False
-.[sfrm_detailbareme].Form.UniteValeur.Visible = False
-.[sfrm_detailbareme].Form.par.Visible = False
-Select Case niv
-
-Case 0 'pas de données
-
-
-Case 1 'le barême est un simple coefficient 'ex: tarif des repas
-.[sfrm_detailbareme].Form.par.Visible = True
-.[sfrm_detailbareme].Form.UniteBornes.Visible = True
-.[sfrm_detailbareme].Form.NomBareme.Visible = True
-.[sfrm_detailbareme].Form.UniteValeur.Visible = True
-
-Case 2 'barême (ex: frais kilométriques)
-.[sfrm_detailbareme].Form.NomBareme.Visible = True
-.[sfrm_detailbareme].Form.BorneInf.Visible = True
-.[sfrm_detailbareme].Form.BorneSup.Visible = True
-.[sfrm_detailbareme].Form.De.Visible = True
-.[sfrm_detailbareme].Form.A.Visible = True
-.[sfrm_detailbareme].Form.UniteBornes.Visible = True
-.[sfrm_detailbareme].Form.UniteValeur.Visible = True
-
-End Select
-End With
-End Sub
-
-
-Public Sub VerrouNouvelAgent()
-'gestion des verrouillages du formulaire frm_NouvelAgent
-
-End Sub
-
-Public Sub VerrouDonneesImport(niv As Integer)
-
-Select Case niv
-
-Case 0
-' pas de verouillage
-  forms![frm_donneesRH].strEquipesLibelle.Enabled = True
-  forms![frm_donneesRH].DateRH.Enabled = True
-  forms![frm_donneesRH].CodeChantier.Enabled = True
-  forms![frm_donneesRH].CodeLocalisation.Enabled = True
-  'Forms![frm_donneesRH].Localisation.Enabled = True
-  forms![frm_donneesRH].strCategorieInterventionId.Enabled = True
-  forms![frm_donneesRH].HeureSup1.Enabled = True
-  forms![frm_donneesRH].HeureSup2.Enabled = True
-  forms![frm_donneesRH].HeureSupDimanche.Enabled = True
-  forms![frm_donneesRH].Repas.Enabled = True
-  forms![frm_donneesRH].DistanceTranche1.Enabled = True
-  forms![frm_donneesRH].VehiculePersoTranche1.Enabled = True
-  forms![frm_donneesRH].DistanceTranche2.Enabled = True
-  forms![frm_donneesRH].VehiculePersoTranche2.Enabled = True
-  forms![frm_donneesRH].FichierXml.Enabled = True
-  
-Case 1
-' verrouillage
-  forms![frm_donneesRH].strEquipesLibelle.Enabled = False
-  forms![frm_donneesRH].DateRH.Enabled = False
-  forms![frm_donneesRH].CodeChantier.Enabled = False
-  forms![frm_donneesRH].CodeLocalisation.Enabled = False
-  'Forms![frm_donneesRH].Localisation.Enabled = False
-  forms![frm_donneesRH].strCategorieInterventionId.Enabled = False
-  forms![frm_donneesRH].HeureSup1.Enabled = False
-  forms![frm_donneesRH].HeureSup2.Enabled = False
-  forms![frm_donneesRH].HeureSupDimanche.Enabled = False
-  forms![frm_donneesRH].Repas.Enabled = False
-  forms![frm_donneesRH].DistanceTranche1.Enabled = False
-  forms![frm_donneesRH].VehiculePersoTranche1.Enabled = False
-  forms![frm_donneesRH].DistanceTranche2.Enabled = False
-  forms![frm_donneesRH].VehiculePersoTranche2.Enabled = False
-  forms![frm_donneesRH].FichierXml.Enabled = False
-  
-End Select
-
-
-End Sub

test/source/modules/exportDRH.bas

@@ -1,101 +0,0 @@
-Option Compare Database
-
-Public Sub Periple_MajTableTampon(ByVal CodeAgent As String, ByVal moisRH As Integer, ByVal anneeRH As Integer, Optional silencieux As Boolean = False)
-
-If IsNull(DFirst("Matricule", "tbl_Agents", "[CodeAgent]='" & CodeAgent & "'")) Then
-  MsgBox "Erreur: impossible de trouver le matricule de l'agent, impossible de créer le fichier d'export"
-  GoTo fin
-End If
-
-'vidage remplissage de la table PDE_PERIPLE
-DoCmd.SetWarnings False
-DoCmd.RunSQL "DELETE * FROM PDE_PERIPLE;"
-
-'la sous-requête (tbl_ImportRH) replace tbl_ImportRH, et filtre les lignes ne comprenant ni repas, ni kilomètres
-sql = "INSERT INTO PDE_PERIPLE ( IDF_AGENT, DATE_DEMANDE, MOTIF_DEPLACEMENT, ITINERAIRE, CP_DEP, DATE_DEPART, DATE_RETOUR, MOYEN_TRANSPORT, NB_KM_PARCOURUS, NBR_REPAS_PLEIN ) " & _
-      "SELECT tbl_Agents.Matricule AS IDF_AGENT, Date() AS DATE_DEMANDE, 'Travaux chantier' AS MOTIF_DEPLACEMENT, Last([ResidenceAdmin] & '-' & [LOCALISATION]) AS ITINERAIRE, Last(Left([CodeLocalisation],5)) AS CP_DEP, " & _
-      "CDate(CStr([DateRH]) & ' 07:30') AS DATE_DEPART, CDate(CStr([DateRH]) & ' 16:30') AS DATE_RETOUR, IIf([VehiculePersoTranche1]='True' Or [VehiculePersoTranche2]='True','Véhicule personnel','Véhicule de service') AS MOYEN_TRANSPORT,  " & _
-      "Sum((IIf([VehiculePersoTranche1]='True',CLng([DistanceTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng([DistanceTranche2]),0))) AS NB_KM_PARCOURUS, Sum(tbl_ImportRH.Repas) AS NBR_REPAS_PLEIN " & _
-      "FROM (SELECT tbl_ImportRH.* FROM tbl_ImportRH WHERE (cint([Repas])>0 or (IIf([VehiculePersoTranche1]='True',CLng([DistanceTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng([DistanceTranche2]),0))>0)) AS tbl_ImportRH " & _
-      "INNER JOIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.CodeAgent GROUP BY tbl_Agents.Matricule, Date(), 'Travaux chantier', CDate(CStr([DateRH]) & ' 07:30'), CDate(CStr([DateRH]) & ' 16:30'), " & _
-      "IIf([VehiculePersoTranche1]='True' Or [VehiculePersoTranche2]='True','Véhicule personnel','Véhicule de service'),  tbl_ImportRH.CodeAgent, Month([DateRH]), Year([daterh]) " & _
-      "HAVING (((tbl_ImportRH.CodeAgent)='" & CodeAgent & "') AND ((Month([DateRH]))=" & moisRH & ") AND ((Year([daterh]))=" & anneeRH & ")) " & _
-      "ORDER BY CDate(CStr([DateRH]) & ' 07:30');"
-
-'Debug.Print sql
-'GoTo fin
-DoCmd.RunSQL sql
-DoCmd.SetWarnings True
-
-If DCount("IDF_AGENT", "PDE_PERIPLE", "") > 0 Then
-  If silencieux Then
-    Call Periple_ExportXML(True)
-  Else
-    DoCmd.OpenForm "frm_ValidationDonneesPeriple"
-  End If
-Else
-  MsgBox "Aucune données à exporter"
-End If
-
-fin:
-End Sub
-
-Public Sub Periple_ExportXML(silencieux As Boolean)
-On Error GoTo err
-Dim rep, nomFichier As String
-Dim repHttp, lecteurVirtuel As String
-Dim essai As Integer
-
-   'création du xml
-   rep = get_lien("tmp_xml")
-   nomFichier = DFirst("IDF_AGENT", "PDE_PERIPLE", "") & "_" & Format(Month(DFirst("DATE_DEPART", "PDE_PERIPLE", "")), "00") & Year(DFirst("DATE_DEPART", "PDE_PERIPLE", "")) & ".xml"
-   
-   If dir(rep, vbDirectory) = "" Then MkDir rep
-   If dir(rep & nomFichier) <> "" Then
-     Kill rep & nomFichier
-   End If
-   
-   Application.ExportXML acExportTable, "PDE_PERIPLE", rep & nomFichier
-   Call Attendre(100)
-
-   'test de connexion au sharepoint et mappage
-   repHttp = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='repExport_xml'"), "")
-   lecteurVirtuel = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='lecteurVirtuel'"), "")
-   
-   essai = 0
-   While testConnexionLecteur(lecteurVirtuel, repHttp) = False
-      Call Attendre(500)
-      essai = essai + 1
-      If essai >= 3 Then
-        If Not silencieux Then MsgBox "Erreur: impossible de se connecter au serveur sharepoint, le fichier a été créé ici: " & vbNewLine & _
-                                      rep & nomFichier
-        GoTo fin
-      End If
-   Wend
-   
-   If dir(lecteurVirtuel & "\", vbDirectory) = "" Then 'au cas où il serait séjà mappé
-     Set objReseau = CreateObject("WScript.Network")
-     objReseau.MapNetworkdrive lecteurVirtuel, repHttp
-   End If
-   
-   If dir(lecteurVirtuel & "\" & nomFichier) <> "" Then
-     If Not silencieux Then
-       If MsgBox("Un fichier portant ce nom existe déjà sur la sharepoint, voulez-vous le remplacer?", vbYesNo) = vbNo Then GoTo fin
-     End If
-     Kill lecteurVirtuel & "\" & nomFichier
-   End If
-   
-   Call FileCopy(rep & nomFichier, lecteurVirtuel & "\" & nomFichier)
-   
-   objReseau.RemoveNetworkDrive lecteurVirtuel, True
-   Set objReseau = Nothing
-
-fin:
-  Exit Sub
-annule:
-  MsgBox "Opération annulée"
-  GoTo fin
-err:
-  MsgBox "Une erreur s'est produite, veuillez contacter un administrateur" & vbNewLine & err.Description
-  GoTo fin
-End Sub

test/source/modules/sharepoint.bas

@@ -1,42 +0,0 @@
-Option Compare Database
-Option Explicit
-
-Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
-                                           "URLDownloadToFileA" ( _
-                                           ByVal pCaller As Long, ByVal szURL As String, _
-                                           ByVal szFileName As String, _
-                                           ByVal dwReserved As Long, _
-                                           ByVal lpfnCB As Long) As Long
-
-
-Sub DownloadFileFromWeb()
-Dim i As Integer
-
-    Const strUrl As String = "http://backweb.bas-rhin.fr/perstein/parc-erstein/export/201407FISCHERAlain.xml"
-    Dim strSavePath As String
-    Dim returnValue As Long
-    
-    strSavePath = "C:\temp_\xml_2708.xml"
-    returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
-    
-End Sub
-
-Public Function testConnexionLecteur(ByVal lecteurVirtuel As String, ByVal repHttp As String) As Boolean
-On Error GoTo fin
-Dim essai As Integer
-Dim objFSO, objReseau As Object
-
-testConnexionLecteur = False
-Set objReseau = CreateObject("WScript.Network")
-If dir(lecteurVirtuel & "\", vbDirectory) <> "" Then
-  'déjà mappé
-Else
-  objReseau.MapNetworkdrive lecteurVirtuel, repHttp
-End If
-testConnexionLecteur = True
-
-objReseau.RemoveNetworkDrive lecteurVirtuel, True
-fin:
-Set objReseau = Nothing
-
-End Function

test/source/queries/a_test.bas

@@ -1,122 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="Rapport"
-End
-Begin OutputColumns
-    Expression ="Rapport.*"
-End
-Begin OrderBy
-    Expression ="Rapport.Id"
-    Flag =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="Rapport.Id"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.CodeAttelage"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.CodeChantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.Duree"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.DateDebut"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.DateFin"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.CodeNatureRealisation"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.CodeLocalisation"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.Remarque"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.HeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.HeureSup2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.HeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.DistanceTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.DistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.VehiculePersoTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Rapport.Depart"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =735
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =719
-    Bottom =544
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="Rapport"
-        Name =""
-    End
-End

test/source/queries/r_AgentValide.bas

@@ -1,58 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_Agents"
-End
-Begin OutputColumns
-    Expression ="tbl_Agents.CodeAgent"
-    Alias ="Expr1"
-    Expression ="CInt(PeriodeAgent([CodeAgent],0,0))"
-End
-Begin Groups
-    Expression ="tbl_Agents.CodeAgent"
-    GroupLevel =0
-    Expression ="CInt(PeriodeAgent([CodeAgent],0,0))"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_Agents.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1039
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1023
-    Bottom =391
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =333
-        Bottom =352
-        Top =0
-        Name ="tbl_Agents"
-        Name =""
-    End
-End

test/source/queries/r_Agents.bas

@@ -1,141 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_AgentValide"
-    Name ="tbl_Agents"
-End
-Begin OutputColumns
-    Expression ="tbl_Agents.CodeAgent"
-    Expression ="tbl_Agents.Nom"
-    Expression ="tbl_Agents.Grade"
-    Expression ="tbl_Agents.Catégorie"
-    Expression ="tbl_Agents.RémunérationBase"
-    Expression ="tbl_Agents.Groupe"
-    Expression ="tbl_Agents.ResidenceAdmin"
-    Expression ="tbl_Agents.ResidenceFamiliale"
-    Expression ="tbl_Agents.Telephone"
-    Expression ="tbl_Agents.Matricule"
-    Expression ="tbl_Agents.TypeVehicule"
-    Expression ="tbl_Agents.DateAutorisationVP"
-    Expression ="tbl_Agents.PuissanceFiscVP"
-    Expression ="tbl_Agents.NbKmAutorisesVP"
-    Expression ="tbl_Agents.TypeVirement"
-    Expression ="tbl_Agents.PeriodeValidite"
-End
-Begin Joins
-    LeftTable ="r_AgentValide"
-    RightTable ="tbl_Agents"
-    Expression ="r_AgentValide.Expr1 = tbl_Agents.PeriodeValidite"
-    Flag =1
-    LeftTable ="r_AgentValide"
-    RightTable ="tbl_Agents"
-    Expression ="r_AgentValide.CodeAgent = tbl_Agents.CodeAgent"
-    Flag =1
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_Agents.PeriodeValidite"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Nom"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Grade"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Catégorie"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.RémunérationBase"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Groupe"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.ResidenceAdmin"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.ResidenceFamiliale"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Telephone"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Matricule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.DateAutorisationVP"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.PuissanceFiscVP"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.NbKmAutorisesVP"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.TypeVirement"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1072
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1056
-    Bottom =460
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =268
-        Top =12
-        Right =412
-        Bottom =156
-        Top =0
-        Name ="r_AgentValide"
-        Name =""
-    End
-    Begin
-        Left =35
-        Top =12
-        Right =207
-        Bottom =376
-        Top =0
-        Name ="tbl_Agents"
-        Name =""
-    End
-End

test/source/queries/r_BaremeHeuresRoute.bas

@@ -1,15 +0,0 @@
-dbMemo "SQL" ="SELECT r_baremes.BorneInf, r_baremes.BorneSup, r_baremes.UniteBornes, r_baremes."
-    "Valeur, r_baremes.UniteValeur\015\012FROM r_BaremeValide INNER JOIN r_baremes ON"
-    " (r_BaremeValide.Expr1 = r_baremes.PeriodeValidite) AND (r_BaremeValide.NomBarem"
-    "e = r_baremes.NomBareme)\015\012WHERE (((r_baremes.NomBareme)=\"Heures de route\""
-    "))\015\012ORDER BY r_baremes.BorneInf;\015\012"
-dbMemo "Connect" =""
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-Begin
-End

test/source/queries/r_BaremeHeuresRouteNuit.bas

@@ -1,35 +0,0 @@
-dbMemo "SQL" ="SELECT r_baremes.BorneInf, r_baremes.BorneSup, r_baremes.UniteBornes, r_baremes."
-    "Valeur, r_baremes.UniteValeur\015\012FROM r_BaremeValide INNER JOIN r_baremes ON"
-    " (r_BaremeValide.Expr1 = r_baremes.PeriodeValidite) AND (r_BaremeValide.NomBarem"
-    "e = r_baremes.NomBareme)\015\012WHERE (((r_baremes.NomBareme)=\"Heures de route "
-    "(Nuit)\"))\015\012ORDER BY r_baremes.BorneInf;\015\012"
-dbMemo "Connect" =""
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-Begin
-    Begin
-        dbText "Name" ="r_baremes.BorneInf"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_baremes.BorneSup"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_baremes.UniteBornes"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_baremes.Valeur"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_baremes.UniteValeur"
-        dbLong "AggregateType" ="-1"
-    End
-End

test/source/queries/r_BaremeValide.bas

@@ -1,58 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_baremes"
-End
-Begin OutputColumns
-    Expression ="tbl_baremes.NomBareme"
-    Alias ="Expr1"
-    Expression ="CInt(PeriodeBareme([NomBareme],0,0))"
-End
-Begin Groups
-    Expression ="tbl_baremes.NomBareme"
-    GroupLevel =0
-    Expression ="CInt(PeriodeBareme([NomBareme],0,0))"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.NomBareme"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1039
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1023
-    Bottom =391
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =268
-        Bottom =249
-        Top =0
-        Name ="tbl_baremes"
-        Name =""
-    End
-End

test/source/queries/r_DonneesImport.bas

@@ -1,119 +0,0 @@
-dbMemo "SQL" ="SELECT tbl_ImportRH.IdImportRH, tbl_ImportRH.CodeLigne, tbl_ImportRH.CodeAgent, "
-    "tbl_ImportRH.DateRH, tbl_ImportRH.CodeChantier, tbl_ImportRH.CodeLocalisation, t"
-    "bl_ImportRH.Localisation, tbl_ImportRH.HeureSup1, tbl_ImportRH.HeureSup2, tbl_Im"
-    "portRH.HeureSupDimanche, tbl_ImportRH.Repas, tbl_ImportRH.DistanceTranche1, tbl_"
-    "ImportRH.VehiculePersoTranche1, tbl_ImportRH.DistanceTranche2, tbl_ImportRH.Vehi"
-    "culePersoTranche2, tbl_ImportRH.Remarque, Month([DateRH]) AS MoisRH, Year([dateR"
-    "H]) AS AnneeRH, Day([DateRH]) AS JourRH, IIf([strCategorieInterventionId]=\"07\""
-    ",(CSng([HeureSup1])+CSng([HeureSup2])+CSng([HeureSupDimanche])),0) AS HS_VHCanal"
-    ", tbl_ImportRH.strCategorieInterventionId, IIf([strCategorieInterventionId]=\"07"
-    "\",0,(CSng([HeureSup1])+CSng([HeureSup2])+CSng([HeureSupDimanche]))) AS HS_Chant"
-    "ier, (Not ((CInt([Repas])>0 Or (IIf([VehiculePersoTranche1]='True',CLng([Distanc"
-    "eTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng([DistanceTranche2]),0)>0)"
-    ") And (Nz([Localisation],'')=Nz([ResidenceAdmin],'')))) AS FraisValide\015\012FR"
-    "OM tbl_ImportRH INNER JOIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.Cod"
-    "eAgent\015\012ORDER BY tbl_ImportRH.IdImportRH DESC;\015\012"
-dbMemo "Connect" =""
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_ImportRH.VehiculePersoTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.HeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.HeureSup2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.HeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DistanceTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Localisation"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.IdImportRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Remarque"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeLigne"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeChantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeLocalisation"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HS_VHCanal"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.strCategorieInterventionId"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="FraisValide"
-        dbLong "AggregateType" ="-1"
-    End
-End

test/source/queries/r_Donneesimport2.bas

@@ -1,122 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_DonneesImport"
-End
-Begin OutputColumns
-    Expression ="r_DonneesImport.CodeAgent"
-    Expression ="r_DonneesImport.DateRH"
-    Expression ="r_DonneesImport.JourRH"
-    Expression ="r_DonneesImport.MoisRH"
-    Expression ="r_DonneesImport.AnneeRH"
-    Alias ="SommeDeHeureSup1"
-    Expression ="Sum(r_DonneesImport.HeureSup1)"
-    Alias ="SommeDeHeureSup2"
-    Expression ="Sum(r_DonneesImport.HeureSup2)"
-    Alias ="SommeDeHeureSupDimanche"
-    Expression ="Sum(r_DonneesImport.HeureSupDimanche)"
-    Alias ="SommeDeRepas"
-    Expression ="Sum(r_DonneesImport.Repas)"
-    Alias ="SommeDeHS_VHCanal"
-    Expression ="Sum(r_DonneesImport.HS_VHCanal)"
-    Alias ="SommeDeHS_Chantier"
-    Expression ="Sum(r_DonneesImport.HS_Chantier)"
-End
-Begin Groups
-    Expression ="r_DonneesImport.CodeAgent"
-    GroupLevel =0
-    Expression ="r_DonneesImport.DateRH"
-    GroupLevel =0
-    Expression ="r_DonneesImport.JourRH"
-    GroupLevel =0
-    Expression ="r_DonneesImport.MoisRH"
-    GroupLevel =0
-    Expression ="r_DonneesImport.AnneeRH"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_DonneesImport.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSup2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHS_VHCanal"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.HS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.FraisValide"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MaxDeFraisValide"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1072
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1056
-    Bottom =383
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =53
-        Top =-13
-        Right =307
-        Bottom =274
-        Top =0
-        Name ="r_DonneesImport"
-        Name =""
-    End
-End

test/source/queries/r_ExportPDE_PERIPLE.bas

@@ -1,112 +0,0 @@
-dbMemo "SQL" ="INSERT INTO PDE_PERIPLE ( IDF_AGENT, DATE_DEMANDE, MOTIF_DEPLACEMENT, ITINERAIRE"
-    ", CP_DEP, DATE_DEPART, DATE_RETOUR, MOYEN_TRANSPORT, NB_KM_PARCOURUS, NBR_REPAS_"
-    "PLEIN )\015\012SELECT tbl_Agents.Matricule AS IDF_AGENT, Date() AS DATE_DEMANDE,"
-    " 'Travaux chantier' AS MOTIF_DEPLACEMENT, 'ERSTEIN-' & [LOCALISATION] AS ITINERA"
-    "IRE, Left([CodeLocalisation],5) AS CP_DEP, CDate(CStr([DateRH]) & ' 07:30') AS D"
-    "ATE_DEPART, CDate(CStr([DateRH]) & ' 07:30') AS DATE_RETOUR, IIf([VehiculePersoT"
-    "ranche1]='True' or [VehiculePersoTranche2]='True','Véhicule personnel','Véhicule"
-    " de service') AS MOYEN_TRANSPORT, (IIf([VehiculePersoTranche1]='True',[DistanceT"
-    "ranche1],0)+IIf([VehiculePersoTranche2]='True',[DistanceTranche2],0)) AS NB_KM_P"
-    "ARCOURUS, tbl_ImportRH.Repas AS NBR_REPAS_PLEIN\015\012FROM tbl_ImportRH INNER J"
-    "OIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.CodeAgent;\015\012"
-dbMemo "Connect" =""
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DATE_DEMANDE"
-        dbText "Format" ="dd/mm/yyyy"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Matricule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="IDF_AGENT"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MOTIF_DEPLACEMENT"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="ITINERAIRE"
-        dbInteger "ColumnWidth" ="2970"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="CP_DEP"
-        dbInteger "ColumnWidth" ="1125"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DATE_DEPART"
-        dbInteger "ColumnWidth" ="1995"
-        dbBoolean "ColumnHidden" ="0"
-        dbText "Format" ="dd/mm/yyyy hh:nn"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MOYEN_TRANSPORT"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2325"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="NB_KM_PARCOURUS"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="NBR_REPAS_PLEIN"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DATE_RETOUR"
-        dbInteger "ColumnWidth" ="1995"
-        dbBoolean "ColumnHidden" ="0"
-        dbText "Format" ="dd/mm/yyyy hh:nn"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr2"
-        dbLong "AggregateType" ="-1"
-    End
-End

test/source/queries/r_FormDep2.bas

@@ -1,126 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FormDep_1Somme"
-End
-Begin OutputColumns
-    Expression ="r_FormDep_1Somme.AnneeRH"
-    Expression ="r_FormDep_1Somme.MoisRH"
-    Expression ="r_FormDep_1Somme.CodeAgent"
-    Expression ="r_FormDep_1Somme.JourRH"
-    Expression ="r_FormDep_1Somme.SommeDeDistance1_perso"
-    Expression ="r_FormDep_1Somme.SommeDeDistance2_perso"
-    Expression ="r_FormDep_1Somme.SommeDeDistance2_service"
-    Alias ="SommeDeHeuresDep"
-    Expression ="Bareme('Heures de route',([SommeDeDistance2_perso]+[SommeDeDistance2_service]),["
-        "moisRH],[anneeRH])"
-    Alias ="SommeDeHeuresDepNuit"
-    Expression ="Bareme('Heures de route (nuit)',([SommeDeDistance2_perso]+[SommeDeDistance2_serv"
-        "ice]),[moisRH],[anneeRH])"
-    Expression ="r_FormDep_1Somme.SommeDeRepas"
-    Expression ="r_FormDep_1Somme.Itineraire"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.Itineraire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeuresDep"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.SommeDeDistance2_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.SommeDeDistance1_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.SommeDeDistance2_service"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1Somme.SommeDeRepas"
-        dbInteger "ColumnWidth" ="1725"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeuresDepNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-    End
-    Begin
-        dbText "Name" ="JourRH"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance1_perso"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance2_perso"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance2_service"
-    End
-    Begin
-        dbText "Name" ="SommeDeRepas"
-    End
-    Begin
-        dbText "Name" ="Itineraire"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1099
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1083
-    Bottom =215
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =288
-        Bottom =286
-        Top =0
-        Name ="r_FormDep_1Somme"
-        Name =""
-    End
-End

test/source/queries/r_FormDep_1.bas

@@ -1,159 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_ImportRH"
-    Name ="r_VehiculePerso"
-End
-Begin OutputColumns
-    Expression ="tbl_ImportRH.CodeAgent"
-    Alias ="JourRH"
-    Expression ="Day([DateRH])"
-    Alias ="MoisRH"
-    Expression ="Month([DateRH])"
-    Alias ="AnneeRH"
-    Expression ="Year([DateRH])"
-    Expression ="tbl_ImportRH.Localisation"
-    Expression ="tbl_ImportRH.DistanceTranche1"
-    Expression ="tbl_ImportRH.VehiculePersoTranche1"
-    Alias ="Distance1_perso"
-    Expression ="[DistanceTranche1]*IIf([VehiculePersoTranche1]='true',1,0)"
-    Expression ="tbl_ImportRH.DistanceTranche2"
-    Expression ="tbl_ImportRH.VehiculePersoTranche2"
-    Alias ="Distance2_perso"
-    Expression ="[DistanceTranche2]*IIf([VehiculePersoTranche2]='true',1,0)"
-    Alias ="Distance2_service"
-    Expression ="[DistanceTranche2]*IIf([VehiculePersoTranche2]='true',0,1)"
-    Expression ="tbl_ImportRH.Repas"
-    Expression ="tbl_ImportRH.Remarque"
-    Expression ="r_VehiculePerso.TypeVehicule"
-End
-Begin Joins
-    LeftTable ="r_VehiculePerso"
-    RightTable ="tbl_ImportRH"
-    Expression ="r_VehiculePerso.CodeAgent = tbl_ImportRH.CodeAgent"
-    Flag =3
-End
-Begin OrderBy
-    Expression ="tbl_ImportRH.CodeAgent"
-    Flag =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="-1"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-dbMemo "OrderBy" ="[r_FormDep_1].[AnneeRH] DESC, [r_FormDep_1].[MoisRH] DESC"
-Begin
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="3015"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DistanceTranche2"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2055"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.DistanceTranche1"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2850"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Remarque"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.VehiculePersoTranche2"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2325"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Distance1_perso"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="1950"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="Distance2_perso"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2355"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="Distance2_service"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2325"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.Localisation"
-        dbInteger "ColumnWidth" ="5160"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_VehiculePerso.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1099
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =677
-    Bottom =229
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =253
-        Bottom =240
-        Top =0
-        Name ="tbl_ImportRH"
-        Name =""
-    End
-    Begin
-        Left =301
-        Top =12
-        Right =510
-        Bottom =185
-        Top =0
-        Name ="r_VehiculePerso"
-        Name =""
-    End
-End

test/source/queries/r_FormDep_1Somme.bas

@@ -1,121 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FormDep_1"
-End
-Begin OutputColumns
-    Expression ="r_FormDep_1.AnneeRH"
-    Expression ="r_FormDep_1.MoisRH"
-    Expression ="r_FormDep_1.CodeAgent"
-    Expression ="r_FormDep_1.JourRH"
-    Alias ="SommeDeDistance1_perso"
-    Expression ="Sum(r_FormDep_1.Distance1_perso)"
-    Alias ="SommeDeDistance2_perso"
-    Expression ="Sum(r_FormDep_1.Distance2_perso)"
-    Alias ="SommeDeDistance2_service"
-    Expression ="Sum(r_FormDep_1.Distance2_service)"
-    Alias ="SommeDeRepas"
-    Expression ="Sum(r_FormDep_1.Repas)"
-    Alias ="Itineraire"
-    Expression ="Itineraire('r_FormDep_1','Localisation',[CodeAgent],[JourRH],[MoisRH],[anneeRH])"
-End
-Begin OrderBy
-    Expression ="r_FormDep_1.AnneeRH"
-    Flag =0
-    Expression ="r_FormDep_1.MoisRH"
-    Flag =0
-    Expression ="r_FormDep_1.CodeAgent"
-    Flag =0
-    Expression ="r_FormDep_1.JourRH"
-    Flag =0
-End
-Begin Groups
-    Expression ="r_FormDep_1.AnneeRH"
-    GroupLevel =0
-    Expression ="r_FormDep_1.MoisRH"
-    GroupLevel =0
-    Expression ="r_FormDep_1.CodeAgent"
-    GroupLevel =0
-    Expression ="r_FormDep_1.JourRH"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-dbBoolean "UseTransaction" ="-1"
-Begin
-    Begin
-        dbText "Name" ="r_FormDep_1.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance1_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance2_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance2_service"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FormDep_1.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Itineraire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-    End
-    Begin
-        dbText "Name" ="JourRH"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1039
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1023
-    Bottom =160
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="r_FormDep_1"
-        Name =""
-    End
-End

test/source/queries/r_FormDep_SourceEtat.bas

@@ -1,147 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_FormDep"
-    Name ="r_Agents"
-End
-Begin OutputColumns
-    Expression ="tbl_FormDep.IDSuivi"
-    Expression ="tbl_FormDep.CodeAgent"
-    Expression ="r_Agents.Nom"
-    Expression ="tbl_FormDep.JourRH"
-    Expression ="tbl_FormDep.MoisRH"
-    Expression ="tbl_FormDep.AnneeRH"
-    Expression ="tbl_FormDep.Depart"
-    Expression ="tbl_FormDep.Itineraire"
-    Expression ="tbl_FormDep.Distance2_perso"
-    Expression ="tbl_FormDep.Distance2_service"
-    Expression ="tbl_FormDep.Distance1_perso"
-    Expression ="tbl_FormDep.HeuresDep"
-    Expression ="tbl_FormDep.HeuresDepNuit"
-    Expression ="tbl_FormDep.Repas"
-    Expression ="tbl_FormDep.Remarque"
-    Expression ="tbl_FormDep.Valide"
-    Expression ="tbl_FormDep.CreePar"
-    Expression ="tbl_FormDep.CreeLe"
-End
-Begin Joins
-    LeftTable ="r_Agents"
-    RightTable ="tbl_FormDep"
-    Expression ="r_Agents.CodeAgent = tbl_FormDep.CodeAgent"
-    Flag =1
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_FormDep.CreeLe"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.IDSuivi"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.HeuresDepNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.CreePar"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Itineraire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance2_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance2_service"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance1_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.HeuresDep"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Remarque"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Valide"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_Agents.Nom"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Depart"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =272
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =211
-        Bottom =284
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-    Begin
-        Left =259
-        Top =12
-        Right =403
-        Bottom =156
-        Top =0
-        Name ="r_Agents"
-        Name =""
-    End
-End

test/source/queries/r_FraisKm0.bas

@@ -1,118 +0,0 @@
-Operation =1
-Option =0
-Having ="(((tbl_FormDep.MoisRH)=[Formulaires]![frm_menu].[Mois]) AND ((tbl_FormDep.AnneeR"
-    "H)=[Formulaires]![frm_menu].[Annee]))"
-Begin InputTables
-    Name ="tbl_FormDep"
-    Name ="r_Agents"
-End
-Begin OutputColumns
-    Expression ="tbl_FormDep.CodeAgent"
-    Expression ="tbl_FormDep.MoisRH"
-    Expression ="tbl_FormDep.AnneeRH"
-    Alias ="SommeDeDistance2_perso"
-    Expression ="Sum(tbl_FormDep.Distance2_perso)"
-    Alias ="SommeDeDistance1_perso"
-    Expression ="Sum(tbl_FormDep.Distance1_perso)"
-    Alias ="DistanceMois"
-    Expression ="Sum([Distance2_perso]+[Distance1_perso])"
-    Expression ="r_Agents.TypeVehicule"
-    Expression ="r_Agents.PuissanceFiscVP"
-End
-Begin Joins
-    LeftTable ="r_Agents"
-    RightTable ="tbl_FormDep"
-    Expression ="r_Agents.CodeAgent = tbl_FormDep.CodeAgent"
-    Flag =1
-End
-Begin Groups
-    Expression ="tbl_FormDep.CodeAgent"
-    GroupLevel =0
-    Expression ="tbl_FormDep.MoisRH"
-    GroupLevel =0
-    Expression ="tbl_FormDep.AnneeRH"
-    GroupLevel =0
-    Expression ="r_Agents.TypeVehicule"
-    GroupLevel =0
-    Expression ="r_Agents.PuissanceFiscVP"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_Agents.PuissanceFiscVP"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_Agents.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2205"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="DistanceMois"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="3105"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance2_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistance1_perso"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =189
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =297
-        Bottom =353
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-    Begin
-        Left =338
-        Top =12
-        Right =582
-        Bottom =363
-        Top =0
-        Name ="r_Agents"
-        Name =""
-    End
-End

test/source/queries/r_FraisKm1.bas

@@ -1,65 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FraisKm0"
-End
-Begin OutputColumns
-    Expression ="r_FraisKm0.CodeAgent"
-    Expression ="r_FraisKm0.MoisRH"
-    Expression ="r_FraisKm0.AnneeRH"
-    Expression ="r_FraisKm0.SommeDeDistance2_perso"
-    Expression ="r_FraisKm0.SommeDeDistance1_perso"
-    Expression ="r_FraisKm0.DistanceMois"
-    Expression ="r_FraisKm0.TypeVehicule"
-    Expression ="r_FraisKm0.PuissanceFiscVP"
-    Alias ="BaremeUtilise"
-    Expression ="IIf([TypeVehicule]='1','Frais Kilométriques (' & [typevehicule] & IIf([TypeVehic"
-        "ule]='1',Bareme(\"Puissance Fiscale\",[PuissanceFiscVP],[MoisRH],[AnneeRH]),\"\""
-        ") & ')','Frais Kilométriques (11)')"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="BaremeUtilise"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm0.PuissanceFiscVP"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm0.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =334
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =341
-        Bottom =301
-        Top =0
-        Name ="r_FraisKm0"
-        Name =""
-    End
-End

test/source/queries/r_FraisKm2.bas

@@ -1,83 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FraisKm1"
-End
-Begin OutputColumns
-    Expression ="r_FraisKm1.CodeAgent"
-    Expression ="r_FraisKm1.MoisRH"
-    Expression ="r_FraisKm1.AnneeRH"
-    Expression ="r_FraisKm1.TypeVehicule"
-    Alias ="DistanceAnnee"
-    Expression ="DistanceAnnee([CodeAgent],[MoisRH],[AnneeRH])"
-    Expression ="r_FraisKm1.DistanceMois"
-    Expression ="r_FraisKm1.BaremeUtilise"
-    Alias ="PeriodeBareme"
-    Expression ="CInt(PeriodeBareme([BaremeUtilise],[MoisRH],[AnneeRH]))"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_FraisKm1.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm1.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm1.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm1.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm1.BaremeUtilise"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="PeriodeBareme"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm1.DistanceMois"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DistanceAnnee"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =43
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =297
-        Bottom =211
-        Top =0
-        Name ="r_FraisKm1"
-        Name =""
-    End
-End

test/source/queries/r_FraisKm3.bas

@@ -1,168 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FraisKm2"
-    Name ="tbl_baremes"
-End
-Begin OutputColumns
-    Expression ="r_FraisKm2.CodeAgent"
-    Expression ="r_FraisKm2.AnneeRH"
-    Expression ="r_FraisKm2.MoisRH"
-    Expression ="r_FraisKm2.TypeVehicule"
-    Expression ="tbl_baremes.Commentaire"
-    Expression ="tbl_baremes.NomBareme"
-    Expression ="r_FraisKm2.PeriodeBareme"
-    Expression ="tbl_baremes.BorneInf"
-    Expression ="tbl_baremes.BorneSup"
-    Expression ="tbl_baremes.UniteBornes"
-    Expression ="tbl_baremes.Valeur"
-    Expression ="tbl_baremes.UniteValeur"
-    Expression ="r_FraisKm2.DistanceAnnee"
-    Expression ="r_FraisKm2.DistanceMois"
-    Alias ="DistanceAnneeRepartie"
-    Expression ="IIf([DistanceAnnee]>[BorneSup],([BorneSup]-[BorneInf]),IIf([DistanceAnnee]>[Born"
-        "eInf],[DistanceAnnee]-[BorneInf],0))"
-    Alias ="DistanceMoisRepartie"
-    Expression ="IIf(([DistanceAnnee]+[DistanceMois])>[BorneSup],([BorneSup]-[BorneInf]),IIf(([Di"
-        "stanceAnnee]+[DistanceMois])>[BorneInf],([DistanceAnnee]+[DistanceMois])-[BorneI"
-        "nf],0))-[DistanceAnneeRepartie]"
-    Alias ="Montant"
-    Expression ="CCur([DistanceMoisRepartie]*[Valeur])"
-End
-Begin Joins
-    LeftTable ="r_FraisKm2"
-    RightTable ="tbl_baremes"
-    Expression ="r_FraisKm2.BaremeUtilise = tbl_baremes.NomBareme"
-    Flag =1
-    LeftTable ="r_FraisKm2"
-    RightTable ="tbl_baremes"
-    Expression ="r_FraisKm2.PeriodeBareme = tbl_baremes.PeriodeValidite"
-    Flag =1
-End
-Begin OrderBy
-    Expression ="r_FraisKm2.CodeAgent"
-    Flag =0
-    Expression ="r_FraisKm2.AnneeRH"
-    Flag =0
-    Expression ="r_FraisKm2.MoisRH"
-    Flag =0
-    Expression ="tbl_baremes.NomBareme"
-    Flag =0
-    Expression ="tbl_baremes.BorneInf"
-    Flag =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_baremes.Commentaire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.NomBareme"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.BorneInf"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.DistanceMois"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.BorneSup"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.UniteBornes"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.Valeur"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.UniteValeur"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.DistanceAnnee"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DistanceAnneeRepartie"
-        dbInteger "ColumnWidth" ="2340"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DistanceMoisRepartie"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2715"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="Montant"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.PeriodeBareme"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm2.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =53
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =207
-        Bottom =200
-        Top =0
-        Name ="r_FraisKm2"
-        Name =""
-    End
-    Begin
-        Left =372
-        Top =9
-        Right =608
-        Bottom =192
-        Top =0
-        Name ="tbl_baremes"
-        Name =""
-    End
-End

test/source/queries/r_FraisKmSynthese.bas

@@ -1,84 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_FraisKm3"
-End
-Begin OutputColumns
-    Expression ="r_FraisKm3.CodeAgent"
-    Expression ="r_FraisKm3.AnneeRH"
-    Expression ="r_FraisKm3.MoisRH"
-    Expression ="r_FraisKm3.TypeVehicule"
-    Expression ="r_FraisKm3.DistanceMois"
-    Alias ="SommeDeMontant"
-    Expression ="Sum(r_FraisKm3.Montant)"
-End
-Begin Groups
-    Expression ="r_FraisKm3.CodeAgent"
-    GroupLevel =0
-    Expression ="r_FraisKm3.AnneeRH"
-    GroupLevel =0
-    Expression ="r_FraisKm3.MoisRH"
-    GroupLevel =0
-    Expression ="r_FraisKm3.TypeVehicule"
-    GroupLevel =0
-    Expression ="r_FraisKm3.DistanceMois"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="SommeDeMontant"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.DistanceMois"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =198
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =299
-        Bottom =301
-        Top =0
-        Name ="r_FraisKm3"
-        Name =""
-    End
-End

test/source/queries/r_FraisKm_SourceEtat.bas

@@ -1,89 +0,0 @@
-Operation =1
-Option =0
-Where ="(((r_FraisKm3.CodeAgent)=[États]![Et_EtFraisDep]![CodeAgent]) AND ((r_FraisKm3.A"
-    "nneeRH)=[États]![Et_EtFraisDep]![AnneeRH]) AND ((r_FraisKm3.MoisRH)=[États]![Et_"
-    "EtFraisDep]![MoisRH]))"
-Begin InputTables
-    Name ="r_FraisKm3"
-End
-Begin OutputColumns
-    Expression ="r_FraisKm3.CodeAgent"
-    Expression ="r_FraisKm3.AnneeRH"
-    Expression ="r_FraisKm3.MoisRH"
-    Expression ="r_FraisKm3.TypeVehicule"
-    Expression ="r_FraisKm3.BorneInf"
-    Expression ="r_FraisKm3.BorneSup"
-    Expression ="r_FraisKm3.Valeur"
-    Expression ="r_FraisKm3.DistanceMoisRepartie"
-    Expression ="r_FraisKm3.Montant"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_FraisKm3.Montant"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.BorneInf"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.BorneSup"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.Valeur"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_FraisKm3.DistanceMoisRepartie"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1039
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =1023
-    Bottom =215
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =346
-        Bottom =301
-        Top =0
-        Name ="r_FraisKm3"
-        Name =""
-    End
-End

test/source/queries/r_HeuresSup.bas

@@ -1,160 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_FormDep"
-    Name ="r_DonneesImport2"
-End
-Begin OutputColumns
-    Expression ="r_DonneesImport2.CodeAgent"
-    Expression ="r_DonneesImport2.DateRH"
-    Expression ="r_DonneesImport2.JourRH"
-    Expression ="r_DonneesImport2.MoisRH"
-    Expression ="r_DonneesImport2.AnneeRH"
-    Alias ="HeureSup1"
-    Expression ="r_DonneesImport2.SommeDeHeureSup1"
-    Expression ="tbl_FormDep.HeuresDep"
-    Alias ="HeureSup2"
-    Expression ="r_DonneesImport2.SommeDeHeureSup2"
-    Expression ="tbl_FormDep.HeuresDepNuit"
-    Alias ="HS"
-    Expression ="Nz([SommeDeHeureSup1]+[HeuresDep],0)"
-    Alias ="HSNuit"
-    Expression ="Nz([SommeDeHeureSup2]+[HeuresDepNuit],0)"
-    Alias ="HeureSupDimanche"
-    Expression ="r_DonneesImport2.SommeDeHeureSupDimanche"
-    Alias ="HS_VHCanal"
-    Expression ="r_DonneesImport2.SommeDeHS_VHCanal"
-    Alias ="HS_Chantier"
-    Expression ="r_DonneesImport2.SommeDeHS_Chantier"
-End
-Begin Joins
-    LeftTable ="tbl_FormDep"
-    RightTable ="r_DonneesImport2"
-    Expression ="tbl_FormDep.CodeAgent = r_DonneesImport2.CodeAgent"
-    Flag =1
-    LeftTable ="tbl_FormDep"
-    RightTable ="r_DonneesImport2"
-    Expression ="tbl_FormDep.AnneeRH = r_DonneesImport2.AnneeRH"
-    Flag =1
-    LeftTable ="tbl_FormDep"
-    RightTable ="r_DonneesImport2"
-    Expression ="tbl_FormDep.MoisRH = r_DonneesImport2.MoisRH"
-    Flag =1
-    LeftTable ="tbl_FormDep"
-    RightTable ="r_DonneesImport2"
-    Expression ="tbl_FormDep.JourRH = r_DonneesImport2.JourRH"
-    Flag =1
-End
-Begin OrderBy
-    Expression ="r_DonneesImport2.CodeAgent"
-    Flag =0
-    Expression ="r_DonneesImport2.JourRH"
-    Flag =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="HS"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HSNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.HeuresDep"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.HeuresDepNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HeureSup2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HS_VHCanal"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport2.SommeDeHS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="HS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =797
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =781
-    Bottom =308
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =339
-        Top =12
-        Right =579
-        Bottom =344
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-    Begin
-        Left =48
-        Top =12
-        Right =262
-        Bottom =254
-        Top =0
-        Name ="r_DonneesImport2"
-        Name =""
-    End
-End

test/source/queries/r_HeuresSup2.bas

@@ -1,117 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_HeuresSup"
-End
-Begin OutputColumns
-    Expression ="r_HeuresSup.CodeAgent"
-    Expression ="r_HeuresSup.DateRH"
-    Expression ="r_HeuresSup.JourRH"
-    Expression ="r_HeuresSup.MoisRH"
-    Expression ="r_HeuresSup.AnneeRH"
-    Expression ="r_HeuresSup.HeureSup1"
-    Expression ="r_HeuresSup.HeuresDep"
-    Expression ="r_HeuresSup.HeuresDepNuit"
-    Expression ="r_HeuresSup.HSNuit"
-    Expression ="r_HeuresSup.HeureSupDimanche"
-    Alias ="H<14"
-    Expression ="HSinf14([HS],[CodeAgent],[DateRH])"
-    Alias ="H>14"
-    Expression ="HSsup14([HS],[CodeAgent],[DateRH])"
-    Expression ="r_HeuresSup.HS_VHCanal"
-    Expression ="r_HeuresSup.HS_Chantier"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="H>14"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="H<14"
-        dbInteger "ColumnWidth" ="3165"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HSNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HeuresDep"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="1455"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HeuresDepNuit"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HS_VHCanal"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_HeuresSup.HS_Chantier"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =781
-    Bottom =204
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =319
-        Bottom =160
-        Top =0
-        Name ="r_HeuresSup"
-        Name =""
-    End
-End

test/source/queries/r_IndemnJournalieres.bas

@@ -1,93 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_IndemnJournalieres0"
-    Name ="r_TarifRepas"
-End
-Begin OutputColumns
-    Expression ="r_IndemnJournalieres0.CodeAgent"
-    Expression ="r_IndemnJournalieres0.MoisRH"
-    Expression ="r_IndemnJournalieres0.AnneeRH"
-    Alias ="Repas"
-    Expression ="r_IndemnJournalieres0.SommeDeRepas"
-    Expression ="r_TarifRepas.TarifRepas"
-    Alias ="TotalRepas"
-    Expression ="[SommeDeRepas]*[TarifRepas]"
-End
-Begin Joins
-    LeftTable ="r_TarifRepas"
-    RightTable ="r_IndemnJournalieres0"
-    Expression ="r_TarifRepas.MoisRH = r_IndemnJournalieres0.MoisRH"
-    Flag =1
-    LeftTable ="r_TarifRepas"
-    RightTable ="r_IndemnJournalieres0"
-    Expression ="r_TarifRepas.AnneeRH = r_IndemnJournalieres0.AnneeRH"
-    Flag =1
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_IndemnJournalieres0.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_TarifRepas.TarifRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="TotalRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_IndemnJournalieres0.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_IndemnJournalieres0.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =259
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="r_IndemnJournalieres0"
-        Name =""
-    End
-    Begin
-        Left =240
-        Top =12
-        Right =384
-        Bottom =156
-        Top =0
-        Name ="r_TarifRepas"
-        Name =""
-    End
-End

test/source/queries/r_IndemnJournalieres0.bas

@@ -1,70 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_FormDep"
-End
-Begin OutputColumns
-    Expression ="tbl_FormDep.CodeAgent"
-    Expression ="tbl_FormDep.MoisRH"
-    Expression ="tbl_FormDep.AnneeRH"
-    Alias ="SommeDeRepas"
-    Expression ="Sum(tbl_FormDep.Repas)"
-End
-Begin Groups
-    Expression ="tbl_FormDep.CodeAgent"
-    GroupLevel =0
-    Expression ="tbl_FormDep.MoisRH"
-    GroupLevel =0
-    Expression ="tbl_FormDep.AnneeRH"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_FormDep.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeRepas"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =772
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =215
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =50
-        Top =3
-        Right =256
-        Bottom =274
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-End

test/source/queries/r_IndemnJournalieres_old.bas

@@ -1,68 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_IndemnJournalieres1"
-End
-Begin OutputColumns
-    Expression ="r_IndemnJournalieres1.CodeAgent"
-    Expression ="r_IndemnJournalieres1.MoisRH"
-    Expression ="r_IndemnJournalieres1.AnneeRH"
-    Expression ="r_IndemnJournalieres1.Repas"
-    Expression ="r_IndemnJournalieres1.TarifRepas"
-    Alias ="TotalRepas"
-    Expression ="[Repas]*[TarifRepas]"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_IndemnJournalieres1.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_IndemnJournalieres1.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_IndemnJournalieres1.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_IndemnJournalieres1.TarifRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="TotalRepas"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =1109
-    Bottom =287
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="r_IndemnJournalieres1"
-        Name =""
-    End
-End

test/source/queries/r_LstImports.bas

@@ -1,66 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_ImportRH"
-End
-Begin OutputColumns
-    Expression ="tbl_ImportRH.CodeAgent"
-    Alias ="MoisRH"
-    Expression ="Month([daterh])"
-    Alias ="AnneeRH"
-    Expression ="Year([DateRH])"
-End
-Begin Groups
-    Expression ="tbl_ImportRH.CodeAgent"
-    GroupLevel =0
-    Expression ="Month([daterh])"
-    GroupLevel =0
-    Expression ="Year([DateRH])"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="anneerh"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1259
-    Bottom =716
-    Left =-1
-    Top =-1
-    Right =973
-    Bottom =147
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =270
-        Bottom =301
-        Top =0
-        Name ="tbl_ImportRH"
-        Name =""
-    End
-End

test/source/queries/r_NbJoursImport.bas

@@ -1,79 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_ImportRH"
-End
-Begin OutputColumns
-    Expression ="tbl_ImportRH.CodeAgent"
-    Expression ="tbl_ImportRH.DateRH"
-    Alias ="CompteDeCodeLigne"
-    Expression ="Count(tbl_ImportRH.CodeLigne)"
-    Alias ="moisRH"
-    Expression ="Month([dateRH])"
-    Alias ="anneeRH"
-    Expression ="Year([dateRH])"
-End
-Begin Groups
-    Expression ="tbl_ImportRH.CodeAgent"
-    GroupLevel =0
-    Expression ="tbl_ImportRH.DateRH"
-    GroupLevel =0
-    Expression ="Month([dateRH])"
-    GroupLevel =0
-    Expression ="Year([dateRH])"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_ImportRH.DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="CompteDeCodeLigne"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="anneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_ImportRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="moisRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =687
-    Bottom =840
-    Left =-1
-    Top =-1
-    Right =671
-    Bottom =527
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =337
-        Bottom =319
-        Top =0
-        Name ="tbl_ImportRH"
-        Name =""
-    End
-End

test/source/queries/r_SynteseRH_DisTr2.bas

@@ -1,137 +0,0 @@
-Operation =6
-Option =0
-Begin InputTables
-    Name ="r_DonneesImport"
-End
-Begin OutputColumns
-    Expression ="r_DonneesImport.AnneeRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.MoisRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.CodeAgent"
-    GroupLevel =2
-    Expression ="r_DonneesImport.VehiculePersoTranche2"
-    GroupLevel =1
-    Alias ="SommeDeDistanceTranche2"
-    Expression ="Sum(r_DonneesImport.DistanceTranche2)"
-End
-Begin OrderBy
-    Expression ="r_DonneesImport.AnneeRH"
-    Flag =0
-    Expression ="r_DonneesImport.MoisRH"
-    Flag =0
-End
-Begin Groups
-    Expression ="r_DonneesImport.AnneeRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.MoisRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.CodeAgent"
-    GroupLevel =2
-    Expression ="r_DonneesImport.VehiculePersoTranche2"
-    GroupLevel =1
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbByte "RecordsetType" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.anneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.moisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="False"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="True"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeSommeDeDistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.DDebut"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Expr2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.VehiculePersoTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.[DistanceTranche2]"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="PIVOT"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistanceTranche2"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =833
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =817
-    Bottom =277
-    Left =0
-    Top =0
-    ColumnsShown =559
-    Begin
-        Left =48
-        Top =12
-        Right =247
-        Bottom =232
-        Top =0
-        Name ="r_DonneesImport"
-        Name =""
-    End
-End

test/source/queries/r_SyntheseRH_DisTr1.bas

@@ -1,146 +0,0 @@
-Operation =6
-Option =0
-Begin InputTables
-    Name ="r_DonneesImport"
-End
-Begin OutputColumns
-    Expression ="r_DonneesImport.AnneeRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.MoisRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.CodeAgent"
-    GroupLevel =2
-    Expression ="r_DonneesImport.VehiculePersoTranche1"
-    GroupLevel =1
-    Alias ="SommeDeDistanceTranche1"
-    Expression ="Sum(r_DonneesImport.DistanceTranche1)"
-End
-Begin OrderBy
-    Expression ="r_DonneesImport.AnneeRH"
-    Flag =0
-    Expression ="r_DonneesImport.MoisRH"
-    Flag =0
-End
-Begin Groups
-    Expression ="r_DonneesImport.AnneeRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.MoisRH"
-    GroupLevel =2
-    Expression ="r_DonneesImport.CodeAgent"
-    GroupLevel =2
-    Expression ="r_DonneesImport.VehiculePersoTranche1"
-    GroupLevel =1
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-Begin
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.anneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.VehiculePersoTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.moisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.SommeDeDistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_SyntheseRH_inter.SommeDeDistanceTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="PIVOT"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeSommeDeDistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="False"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="True"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeSommeDeDistanceTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.VehiculePersoTranche1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistanceTranche2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeDistanceTranche1"
-    End
-    Begin
-        dbText "Name" ="Expr1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =833
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =817
-    Bottom =203
-    Left =0
-    Top =0
-    ColumnsShown =559
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="r_DonneesImport"
-        Name =""
-    End
-End

test/source/queries/r_SyntheseRH_inter.bas

@@ -1,52 +0,0 @@
-dbMemo "SQL" ="SELECT r_DonneesImport.CodeAgent, tbl_Agents.Nom, Sum(r_DonneesImport.HeureSup1)"
-    " AS SommeDeHeureSup1, Sum(r_DonneesImport.HeureSup2) AS SommeDeHeureSup2, Sum(r_"
-    "DonneesImport.HeureSupDimanche) AS SommeDeHeureSupDimanche, Sum(r_DonneesImport."
-    "Repas) AS SommeDeRepas, r_DonneesImport.MoisRH, r_DonneesImport.AnneeRH\015\012F"
-    "ROM tbl_Agents INNER JOIN r_DonneesImport ON tbl_Agents.CodeAgent = r_DonneesImp"
-    "ort.CodeAgent\015\012GROUP BY r_DonneesImport.CodeAgent, tbl_Agents.Nom, r_Donne"
-    "esImport.MoisRH, r_DonneesImport.AnneeRH\015\012ORDER BY r_DonneesImport.CodeAge"
-    "nt;\015\012"
-dbMemo "Connect" =""
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbByte "RecordsetType" ="0"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_DonneesImport.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSup1"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSup2"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeHeureSupDimanche"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="SommeDeRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_DonneesImport.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Nom"
-        dbLong "AggregateType" ="-1"
-    End
-End

test/source/queries/r_TabRecapEFD.bas

@@ -1,135 +0,0 @@
-Operation =1
-Option =0
-Where ="(((tbl_FormDep.Distance2_perso)<>0)) OR (((tbl_FormDep.Distance2_service)<>0)) O"
-    "R (((tbl_FormDep.Distance1_perso)<>0)) OR (((tbl_FormDep.Repas)<>0))"
-Begin InputTables
-    Name ="tbl_FormDep"
-    Name ="r_Agents"
-End
-Begin OutputColumns
-    Expression ="tbl_FormDep.CodeAgent"
-    Expression ="r_Agents.Nom"
-    Expression ="tbl_FormDep.JourRH"
-    Expression ="tbl_FormDep.MoisRH"
-    Expression ="tbl_FormDep.AnneeRH"
-    Alias ="DateRH"
-    Expression ="CDate([JourRH] & \"/\" & [MoisRH] & \"/\" & [AnneeRH])"
-    Expression ="tbl_FormDep.Itineraire"
-    Expression ="tbl_FormDep.Distance2_perso"
-    Expression ="tbl_FormDep.Distance2_service"
-    Expression ="tbl_FormDep.Distance1_perso"
-    Expression ="tbl_FormDep.Repas"
-    Alias ="Vehicule"
-    Expression ="IIf(([Distance2_perso]+[Distance1_perso])>0,'VP',IIf([Distance2_service]>0,'VS',"
-        "''))"
-    Expression ="tbl_FormDep.Remarque"
-End
-Begin Joins
-    LeftTable ="r_Agents"
-    RightTable ="tbl_FormDep"
-    Expression ="r_Agents.CodeAgent = tbl_FormDep.CodeAgent"
-    Flag =1
-End
-Begin OrderBy
-    Expression ="r_Agents.Nom"
-    Flag =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_FormDep.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="DateRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.JourRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_Agents.Nom"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Remarque"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Itineraire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance2_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance2_service"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Distance1_perso"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.Repas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="Vehicule"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_Agents.Nom"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =956
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =940
-    Bottom =287
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =270
-        Top =12
-        Right =512
-        Bottom =291
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-    Begin
-        Left =52
-        Top =23
-        Right =242
-        Bottom =297
-        Top =0
-        Name ="r_Agents"
-        Name =""
-    End
-End

test/source/queries/r_TarifRepas.bas

@@ -1,63 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_SuiviRH"
-End
-Begin OutputColumns
-    Expression ="tbl_SuiviRH.MoisRH"
-    Expression ="tbl_SuiviRH.AnneeRH"
-    Alias ="TarifRepas"
-    Expression ="CCur(Bareme('Tarif Repas',0,[MoisRH],[AnneeRH]))"
-End
-Begin Groups
-    Expression ="tbl_SuiviRH.MoisRH"
-    GroupLevel =0
-    Expression ="tbl_SuiviRH.AnneeRH"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_SuiviRH.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="TarifRepas"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_SuiviRH.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =1125
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =300
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="tbl_SuiviRH"
-        Name =""
-    End
-End

test/source/queries/r_VehiculePerso.bas

@@ -1,77 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="r_Agents"
-End
-Begin OutputColumns
-    Expression ="r_Agents.CodeAgent"
-    Expression ="r_Agents.TypeVehicule"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="r_Agents.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="r_Agents.TypeVehicule"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2835"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="tbl_SuiviRH.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_SuiviRH.AnneeRH"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="BaremeUtilise"
-        dbLong "AggregateType" ="-1"
-        dbInteger "ColumnWidth" ="2385"
-        dbBoolean "ColumnHidden" ="0"
-    End
-    Begin
-        dbText "Name" ="r_Agents.PuissanceFiscVP"
-        dbInteger "ColumnWidth" ="735"
-        dbBoolean "ColumnHidden" ="0"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="PeriodeBareme"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =772
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =262
-    Left =0
-    Top =0
-    ColumnsShown =539
-    Begin
-        Left =48
-        Top =12
-        Right =283
-        Bottom =241
-        Top =0
-        Name ="r_Agents"
-        Name =""
-    End
-End

test/source/queries/r_baremes.bas

@@ -1,107 +0,0 @@
-Operation =1
-Option =0
-Begin InputTables
-    Name ="tbl_baremes"
-    Name ="r_BaremeValide"
-End
-Begin OutputColumns
-    Expression ="tbl_baremes.NomBareme"
-    Expression ="tbl_baremes.BorneInf"
-    Expression ="tbl_baremes.BorneSup"
-    Expression ="tbl_baremes.UniteBornes"
-    Expression ="tbl_baremes.Valeur"
-    Expression ="tbl_baremes.UniteValeur"
-    Expression ="tbl_baremes.Commentaire"
-    Expression ="tbl_baremes.PeriodeValidite"
-End
-Begin Joins
-    LeftTable ="r_BaremeValide"
-    RightTable ="tbl_baremes"
-    Expression ="r_BaremeValide.NomBareme = tbl_baremes.NomBareme"
-    Flag =1
-    LeftTable ="r_BaremeValide"
-    RightTable ="tbl_baremes"
-    Expression ="r_BaremeValide.Expr1 = tbl_baremes.PeriodeValidite"
-    Flag =1
-End
-Begin OrderBy
-    Expression ="tbl_baremes.NomBareme"
-    Flag =0
-End
-Begin Groups
-    Expression ="tbl_baremes.NomBareme"
-    GroupLevel =0
-    Expression ="tbl_baremes.BorneInf"
-    GroupLevel =0
-    Expression ="tbl_baremes.BorneSup"
-    GroupLevel =0
-    Expression ="tbl_baremes.UniteBornes"
-    GroupLevel =0
-    Expression ="tbl_baremes.Valeur"
-    GroupLevel =0
-    Expression ="tbl_baremes.UniteValeur"
-    GroupLevel =0
-    Expression ="tbl_baremes.Commentaire"
-    GroupLevel =0
-    Expression ="tbl_baremes.PeriodeValidite"
-    GroupLevel =0
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbByte "RecordsetType" ="0"
-dbBoolean "OrderByOn" ="0"
-dbByte "Orientation" ="0"
-dbByte "DefaultView" ="2"
-dbBoolean "FilterOnLoad" ="0"
-dbBoolean "OrderByOnLoad" ="-1"
-dbBoolean "TotalsRow" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_baremes.PeriodeValidite"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.NomBareme"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.Commentaire"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_baremes.UniteValeur"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =688
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =672
-    Bottom =459
-    Left =0
-    Top =0
-    ColumnsShown =543
-    Begin
-        Left =48
-        Top =12
-        Right =199
-        Bottom =284
-        Top =0
-        Name ="tbl_baremes"
-        Name =""
-    End
-    Begin
-        Left =247
-        Top =12
-        Right =391
-        Bottom =156
-        Top =0
-        Name ="r_BaremeValide"
-        Name =""
-    End
-End

test/source/queries/zz_SupprAgent1.bas

@@ -1,49 +0,0 @@
-Operation =5
-Option =0
-Where ="(((tbl_FormDep.CodeAgent)=\"T32\") AND ((tbl_FormDep.MoisRH)=12))"
-Begin InputTables
-    Name ="tbl_FormDep"
-End
-Begin OutputColumns
-    Expression ="tbl_FormDep.*"
-    Expression ="tbl_FormDep.CodeAgent"
-    Expression ="tbl_FormDep.MoisRH"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "UseTransaction" ="-1"
-dbBoolean "FailOnError" ="0"
-dbByte "Orientation" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_FormDep.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormDep.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =772
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =300
-    Left =0
-    Top =0
-    ColumnsShown =771
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="tbl_FormDep"
-        Name =""
-    End
-End

test/source/queries/zz_SupprAgent2.bas

@@ -1,49 +0,0 @@
-Operation =5
-Option =0
-Where ="(((tbl_FormHS.CodeAgent)=\"T32\") AND ((tbl_FormHS.MoisRH)=12))"
-Begin InputTables
-    Name ="tbl_FormHS"
-End
-Begin OutputColumns
-    Expression ="tbl_FormHS.*"
-    Expression ="tbl_FormHS.CodeAgent"
-    Expression ="tbl_FormHS.MoisRH"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "UseTransaction" ="-1"
-dbBoolean "FailOnError" ="0"
-dbByte "Orientation" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_FormHS.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_FormHS.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =772
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =300
-    Left =0
-    Top =0
-    ColumnsShown =771
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="tbl_FormHS"
-        Name =""
-    End
-End

test/source/queries/zz_SupprAgent3.bas

@@ -1,49 +0,0 @@
-Operation =5
-Option =0
-Where ="(((tbl_SuiviRH.CodeAgent)=\"T32\") AND ((tbl_SuiviRH.MoisRH)=12))"
-Begin InputTables
-    Name ="tbl_SuiviRH"
-End
-Begin OutputColumns
-    Expression ="tbl_SuiviRH.*"
-    Expression ="tbl_SuiviRH.CodeAgent"
-    Expression ="tbl_SuiviRH.MoisRH"
-End
-dbBoolean "ReturnsRecords" ="-1"
-dbInteger "ODBCTimeout" ="60"
-dbBoolean "UseTransaction" ="-1"
-dbBoolean "FailOnError" ="0"
-dbByte "Orientation" ="0"
-Begin
-    Begin
-        dbText "Name" ="tbl_SuiviRH.CodeAgent"
-        dbLong "AggregateType" ="-1"
-    End
-    Begin
-        dbText "Name" ="tbl_SuiviRH.MoisRH"
-        dbLong "AggregateType" ="-1"
-    End
-End
-Begin
-    State =0
-    Left =0
-    Top =0
-    Right =772
-    Bottom =545
-    Left =-1
-    Top =-1
-    Right =756
-    Bottom =300
-    Left =0
-    Top =0
-    ColumnsShown =771
-    Begin
-        Left =48
-        Top =12
-        Right =192
-        Bottom =156
-        Top =0
-        Name ="tbl_SuiviRH"
-        Name =""
-    End
-End

test/source/references.csv

@@ -1,6 +0,0 @@
-{00062FFF-0000-0000-C000-000000000046},9,4
-{B691E011-1797-432E-907A-4D8C69339129},6,1
-{00000300-0000-0010-8000-00AA006D2EA4},6,0
-{00020430-0000-0000-C000-000000000046},2,0
-{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28},12,0
-{00020905-0000-0000-C000-000000000046},8,5

test/source/reports/Et_BordEFD.bas

@@ -1,431 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =10828
-    DatasheetFontHeight =11
-    ItemSuffix =30
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x3538d5f3f4d2e440
-    End
-    RecordSource ="SELECT tbl_SuiviRH.CodeAgent, tbl_SuiviRH.MoisRH, tbl_SuiviRH.AnneeRH, r_Agents."
-        "Nom, r_Agents.Matricule, r_IndemnJournalieres.TotalRepas, r_FraisKmSynthese.Dist"
-        "anceMois, r_FraisKmSynthese.SommeDeMontant AS FraisKm FROM r_IndemnJournalieres "
-        "INNER JOIN (r_Agents INNER JOIN (tbl_SuiviRH INNER JOIN r_FraisKmSynthese ON (tb"
-        "l_SuiviRH.AnneeRH = r_FraisKmSynthese.AnneeRH) AND (tbl_SuiviRH.MoisRH = r_Frais"
-        "KmSynthese.MoisRH) AND (tbl_SuiviRH.CodeAgent = r_FraisKmSynthese.CodeAgent)) ON"
-        " r_Agents.CodeAgent = tbl_SuiviRH.CodeAgent) ON (r_IndemnJournalieres.AnneeRH = "
-        "tbl_SuiviRH.AnneeRH) AND (r_IndemnJournalieres.MoisRH = tbl_SuiviRH.MoisRH) AND "
-        "(r_IndemnJournalieres.CodeAgent = tbl_SuiviRH.CodeAgent) WHERE (((tbl_SuiviRH.Ed"
-        "ite)=True)); "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0xf801000038040000f801000038040000000000004c2a00003b01000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =907
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    TextAlign =2
-                    Left =585
-                    Width =8625
-                    Height =390
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="BORDEREAU MENSUEL :    ETATS DE FRAIS"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =585
-                    LayoutCachedWidth =9210
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =2777
-                    Top =453
-                    Width =2166
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txtMoisRH"
-                    ControlSource ="=UCase(MonthName([MoisRH]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2777
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =4943
-                    LayoutCachedHeight =768
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =5283
-                    Top =453
-                    Height =315
-                    ColumnOrder =1
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5283
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =6984
-                    LayoutCachedHeight =768
-                End
-            End
-        End
-        Begin PageHeader
-            Height =806
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =4028
-                    Top =56
-                    Width =1650
-                    Height =750
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Indemnités journalières"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4028
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =5678
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5678
-                    Top =56
-                    Width =1650
-                    Height =750
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="Frais de transport"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5678
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7328
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =7328
-                    Top =56
-                    Width =1680
-                    Height =750
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="Indemnités kilométriques"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7328
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =9008
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =9017
-                    Top =56
-                    Width =1605
-                    Height =750
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="Total des indemnités"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9017
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10622
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =56
-                    Top =64
-                    Width =1078
-                    Height =742
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Matricule Agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =64
-                    LayoutCachedWidth =1134
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =1133
-                    Top =64
-                    Width =2904
-                    Height =742
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="Nom"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1133
-                    LayoutCachedTop =64
-                    LayoutCachedWidth =4037
-                    LayoutCachedHeight =806
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            Height =315
-            Name ="Détail"
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =1133
-                    Width =2904
-                    Height =315
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1133
-                    LayoutCachedWidth =4037
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    IMESentenceMode =3
-                    Left =4028
-                    Width =1650
-                    Height =315
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="IndemnJr"
-                    ControlSource ="TotalRepas"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4028
-                    LayoutCachedWidth =5678
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    IMESentenceMode =3
-                    Left =5678
-                    Width =1650
-                    Height =315
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="Transport"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5678
-                    LayoutCachedWidth =7328
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    IMESentenceMode =3
-                    Left =7327
-                    Width =1680
-                    Height =315
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="FraisKm"
-                    ControlSource ="FraisKm"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7327
-                    LayoutCachedWidth =9007
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    IMESentenceMode =3
-                    Left =9017
-                    Width =1606
-                    Height =315
-                    FontWeight =700
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="Total"
-                    ControlSource ="=[IndemnJr]+[Transport]+[FraisKm]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9017
-                    LayoutCachedWidth =10623
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =56
-                    Width =1086
-                    Height =315
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =1142
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-            End
-        End
-        Begin PageFooter
-            Height =428
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7086
-                    Top =113
-                    Width =3600
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte17"
-                    ControlSource ="=\"Page \" & [Page] & \" sur \" & [Pages]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7086
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =10686
-                    LayoutCachedHeight =428
-                End
-            End
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            Height =0
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
-  Me.OrderBy = "[Nom]"
-  Me.OrderByOn = True
-End Sub

test/source/reports/Et_BordEFD.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-100

test/source/reports/Et_BordHS.bas

@@ -1,448 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    OrderByOn = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =10828
-    DatasheetFontHeight =11
-    ItemSuffix =25
-    DatasheetGridlinesColor =14806254
-    Filter ="[MoisRH]=12 AND [AnneeRH]=2013"
-    OrderBy ="[Nom]"
-    RecSrcDt = Begin
-        0x273893828c56e440
-    End
-    RecordSource ="SELECT tbl_FormHS.MoisRH, tbl_FormHS.AnneeRH, tbl_FormHS.CodeAgent, r_Agents.Nom"
-        ", Sum(tbl_FormHS.[HeureSup1<=14]) AS [SommeDeHeureSup1<=14], Sum(tbl_FormHS.[Heu"
-        "reSup1>14]) AS [SommeDeHeureSup1>14], Sum(tbl_FormHS.HeureSupNuit) AS SommeDeHeu"
-        "reSupNuit, Sum(tbl_FormHS.HeureSupDim) AS SommeDeHeureSupDim, tbl_FormHS.Valide,"
-        " tbl_SuiviRH.Edite, r_Agents.Grade, r_Agents.Matricule FROM tbl_SuiviRH INNER JO"
-        "IN (r_Agents INNER JOIN tbl_FormHS ON r_Agents.CodeAgent = tbl_FormHS.CodeAgent)"
-        " ON tbl_SuiviRH.IDSuivi = tbl_FormHS.IDSuivi GROUP BY tbl_FormHS.MoisRH, tbl_For"
-        "mHS.AnneeRH, tbl_FormHS.CodeAgent, r_Agents.Nom, tbl_FormHS.Valide, tbl_SuiviRH."
-        "Edite, r_Agents.Grade, r_Agents.Matricule HAVING (((tbl_FormHS.Valide)=True) AND"
-        " ((tbl_SuiviRH.Edite)=True) AND ((r_Agents.Grade) Not Like '*' & 'OPA' & '*')) O"
-        "RDER BY r_Agents.Nom; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0xf801000038040000f801000038040000000000004c2a00003b01000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =1077
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    TextAlign =2
-                    Left =623
-                    Width =8535
-                    Height =390
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="BORDEREAU MENSUEL: HEURES SUPPLEMENTAIRES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =623
-                    LayoutCachedWidth =9158
-                    LayoutCachedHeight =390
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =2777
-                    Top =453
-                    Width =2166
-                    Height =315
-                    ColumnOrder =0
-                    FontSize =13
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txtMoisRH"
-                    ControlSource ="=UCase(MonthName([MoisRH]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2777
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =4943
-                    LayoutCachedHeight =768
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =5283
-                    Top =453
-                    Height =315
-                    ColumnOrder =1
-                    FontSize =13
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5283
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =6984
-                    LayoutCachedHeight =768
-                End
-            End
-        End
-        Begin PageHeader
-            Height =2050
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =4028
-                    Top =685
-                    Width =1650
-                    Height =1365
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois <=14H"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4028
-                    LayoutCachedTop =685
-                    LayoutCachedWidth =5678
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5678
-                    Top =685
-                    Width =1650
-                    Height =1365
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois >14H"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5678
-                    LayoutCachedTop =685
-                    LayoutCachedWidth =7328
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =7328
-                    Top =685
-                    Width =1620
-                    Height =1365
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="Nombre d'heures accomplies de 22H à 7H"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7328
-                    LayoutCachedTop =685
-                    LayoutCachedWidth =8948
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =8957
-                    Top =685
-                    Width =1665
-                    Height =1365
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="Nombre d'heures Dimanche et jours de fête"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8957
-                    LayoutCachedTop =685
-                    LayoutCachedWidth =10622
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =4028
-                    Top =340
-                    Width =6585
-                    Height =345
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="TOTAL DES HEURES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4028
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =10613
-                    LayoutCachedHeight =685
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =56
-                    Top =1323
-                    Width =1089
-                    Height =727
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Matricule Agent"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =1323
-                    LayoutCachedWidth =1145
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =1145
-                    Top =1323
-                    Width =2883
-                    Height =727
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="Nom"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1145
-                    LayoutCachedTop =1323
-                    LayoutCachedWidth =4028
-                    LayoutCachedHeight =2050
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            Height =315
-            Name ="Détail"
-            AlternateBackColor =16777215
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =1145
-                    Width =2883
-                    Height =315
-                    ForeColor =4210752
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1145
-                    LayoutCachedWidth =4028
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    IMESentenceMode =3
-                    Left =4039
-                    Width =1650
-                    Height =315
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="SommeDeHeureSup1<=14"
-                    ControlSource ="SommeDeHeureSup1<=14"
-                    Format ="Standard"
-                    EventProcPrefix ="SommeDeHeureSup1__14"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4039
-                    LayoutCachedWidth =5689
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    IMESentenceMode =3
-                    Left =5678
-                    Width =1650
-                    Height =315
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="SommeDeHeureSup1>14"
-                    ControlSource ="SommeDeHeureSup1>14"
-                    Format ="Standard"
-                    EventProcPrefix ="SommeDeHeureSup1_14"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5678
-                    LayoutCachedWidth =7328
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    IMESentenceMode =3
-                    Left =7327
-                    Width =1621
-                    Height =315
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="SommeDeHeureSupNuit"
-                    ControlSource ="SommeDeHeureSupNuit"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7327
-                    LayoutCachedWidth =8948
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    IMESentenceMode =3
-                    Left =8957
-                    Width =1665
-                    Height =315
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="SommeDeHeureSupDim"
-                    ControlSource ="SommeDeHeureSupDim"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8957
-                    LayoutCachedWidth =10622
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =58
-                    Width =1071
-                    Height =315
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =58
-                    LayoutCachedWidth =1129
-                    LayoutCachedHeight =315
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-            End
-        End
-        Begin PageFooter
-            Height =428
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7086
-                    Top =56
-                    Width =3600
-                    Height =315
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte17"
-                    ControlSource ="=\"Page \" & [Page] & \" sur \" & [Pages]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7086
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10686
-                    LayoutCachedHeight =371
-                End
-            End
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            Height =0
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
-  Me.OrderBy = "[Nom]"
-  Me.OrderByOn = True
-End Sub

test/source/reports/Et_BordHS.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-100

test/source/reports/Et_EtFraisDep.bas

@@ -1,1427 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =11175
-    DatasheetFontHeight =11
-    ItemSuffix =76
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x9bef1c812f6ae440
-    End
-    RecordSource ="SELECT tbl_FormDep.CodeAgent, tbl_FormDep.MoisRH, tbl_FormDep.AnneeRH, tbl_FormD"
-        "ep.Itineraire, tbl_FormDep.Remarque, tbl_FormDep.Valide, r_Agents.Nom, r_Agents."
-        "Grade, r_Agents.Catégorie, r_Agents.Matricule, r_Agents.ResidenceAdmin, r_Agents"
-        ".ResidenceFamiliale, r_Agents.TypeVehicule, r_Agents.DateAutorisationVP, r_Agent"
-        "s.PuissanceFiscVP, r_Agents.NbKmAutorisesVP FROM tbl_FormDep INNER JOIN r_Agents"
-        " ON tbl_FormDep.CodeAgent = r_Agents.CodeAgent; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000a72b00000000000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Line
-            BorderLineStyle =0
-            Width =1701
-            BorderThemeColorIndex =0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin ListBox
-            BorderLineStyle =0
-            Width =1701
-            Height =1417
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AllowValueListEdits =1
-            InheritValueList =1
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin PageHeader
-            Height =13327
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =2960
-                    Top =1813
-                    Width =3441
-                    Height =225
-                    ColumnOrder =16
-                    FontSize =10
-                    TabIndex =8
-                    BorderColor =10921638
-                    Name ="txt_moisRH"
-                    ControlSource ="=UCase(MonthName([MoisRH]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2960
-                    LayoutCachedTop =1813
-                    LayoutCachedWidth =6401
-                    LayoutCachedHeight =2038
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3458
-                    Top =56
-                    Width =4309
-                    Height =339
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="REPUBLIQUE FRANCAISE"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =7767
-                    LayoutCachedHeight =395
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3458
-                    Top =283
-                    Width =4309
-                    Height =339
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="DEPARTEMENT DU BAS-RHIN"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =7767
-                    LayoutCachedHeight =622
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3458
-                    Top =680
-                    Width =4309
-                    Height =339
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="ETAT DES FRAIS DE DEPLACEMENTS"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =7767
-                    LayoutCachedHeight =1019
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3458
-                    Top =963
-                    Width =4335
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="engagés par"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =7793
-                    LayoutCachedHeight =1308
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =2951
-                    Top =1362
-                    Width =3456
-                    Height =225
-                    ColumnWidth =3225
-                    ColumnOrder =17
-                    FontSize =10
-                    BorderColor =10921638
-                    Name ="Nom"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2951
-                    LayoutCachedTop =1362
-                    LayoutCachedWidth =6407
-                    LayoutCachedHeight =1587
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =737
-                            Top =1360
-                            Width =1095
-                            Height =225
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette5"
-                            Caption ="Nom:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =737
-                            LayoutCachedTop =1360
-                            LayoutCachedWidth =1832
-                            LayoutCachedHeight =1585
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =2948
-                    Top =1588
-                    Width =3456
-                    Height =225
-                    ColumnOrder =18
-                    FontSize =10
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="Matricule"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2948
-                    LayoutCachedTop =1588
-                    LayoutCachedWidth =6404
-                    LayoutCachedHeight =1813
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =737
-                            Top =1594
-                            Width =1530
-                            Height =225
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette6"
-                            Caption ="Matricule:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =737
-                            LayoutCachedTop =1594
-                            LayoutCachedWidth =2267
-                            LayoutCachedHeight =1819
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =2948
-                    Top =2040
-                    Width =3456
-                    Height =285
-                    ColumnOrder =19
-                    FontSize =10
-                    TabIndex =2
-                    BorderColor =10921638
-                    Name ="ResidenceAdmin"
-                    ControlSource ="ResidenceAdmin"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2948
-                    LayoutCachedTop =2040
-                    LayoutCachedWidth =6404
-                    LayoutCachedHeight =2325
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =740
-                            Top =2040
-                            Width =2160
-                            Height =285
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette7"
-                            Caption ="Residence administrative"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =740
-                            LayoutCachedTop =2040
-                            LayoutCachedWidth =2900
-                            LayoutCachedHeight =2325
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =2948
-                    Top =2324
-                    Width =3456
-                    Height =405
-                    ColumnOrder =20
-                    FontSize =10
-                    TabIndex =3
-                    BorderColor =10921638
-                    Name ="ResidenceFamiliale"
-                    ControlSource ="ResidenceFamiliale"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2948
-                    LayoutCachedTop =2324
-                    LayoutCachedWidth =6404
-                    LayoutCachedHeight =2729
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =737
-                            Top =2325
-                            Width =2100
-                            Height =405
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette8"
-                            Caption ="Residence familiale"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =737
-                            LayoutCachedTop =2325
-                            LayoutCachedWidth =2837
-                            LayoutCachedHeight =2730
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =7925
-                    Top =1587
-                    Width =2166
-                    Height =735
-                    ColumnOrder =21
-                    FontSize =10
-                    TabIndex =4
-                    BorderColor =10921638
-                    Name ="Grade"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7925
-                    LayoutCachedTop =1587
-                    LayoutCachedWidth =10091
-                    LayoutCachedHeight =2322
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6914
-                            Top =1587
-                            Width =1020
-                            Height =735
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette10"
-                            Caption ="Grade"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6914
-                            LayoutCachedTop =1587
-                            LayoutCachedWidth =7934
-                            LayoutCachedHeight =2322
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =7927
-                    Top =2324
-                    Width =2166
-                    Height =285
-                    ColumnOrder =22
-                    FontSize =10
-                    TabIndex =5
-                    BorderColor =10921638
-                    Name ="Catégorie"
-                    ControlSource ="Catégorie"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7927
-                    LayoutCachedTop =2324
-                    LayoutCachedWidth =10093
-                    LayoutCachedHeight =2609
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6916
-                            Top =2324
-                            Width =1020
-                            Height =285
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette11"
-                            Caption ="Catégorie"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6916
-                            LayoutCachedTop =2324
-                            LayoutCachedWidth =7936
-                            LayoutCachedHeight =2609
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Line
-                    LineSlant = NotDefault
-                    BorderWidth =2
-                    Left =3288
-                    Top =2777
-                    Width =3744
-                    Name ="Trait12"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3288
-                    LayoutCachedTop =2777
-                    LayoutCachedWidth =7032
-                    LayoutCachedHeight =2777
-                End
-                Begin Subform
-                    Locked = NotDefault
-                    CanShrink = NotDefault
-                    OldBorderStyle =0
-                    Left =453
-                    Top =6012
-                    Width =9814
-                    Height =2273
-                    TabIndex =6
-                    Name ="SEt_EFD_IndemnJour"
-                    SourceObject ="Report.SEt_EFD_IndemnJour"
-                    LinkChildFields ="CodeAgent;MoisRH;AnneeRH"
-                    LinkMasterFields ="CodeAgent;MoisRH;AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =453
-                    LayoutCachedTop =6012
-                    LayoutCachedWidth =10267
-                    LayoutCachedHeight =8285
-                End
-                Begin Label
-                    Left =453
-                    Top =5669
-                    Width =3232
-                    Height =340
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette30"
-                    Caption ="1. INDEMNITES JOURNALIERES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =453
-                    LayoutCachedTop =5669
-                    LayoutCachedWidth =3685
-                    LayoutCachedHeight =6009
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =453
-                    Top =9694
-                    Width =5103
-                    Height =274
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette31"
-                    Caption ="3. INDEMNITES KILOMETRIQUES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =453
-                    LayoutCachedTop =9694
-                    LayoutCachedWidth =5556
-                    LayoutCachedHeight =9968
-                    ForeTint =100.0
-                End
-                Begin Line
-                    LineSlant = NotDefault
-                    BorderWidth =2
-                    Left =3344
-                    Top =5612
-                    Width =3744
-                    Name ="Trait34"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3344
-                    LayoutCachedTop =5612
-                    LayoutCachedWidth =7088
-                    LayoutCachedHeight =5612
-                End
-                Begin Label
-                    Left =737
-                    Top =3119
-                    Width =1875
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette35"
-                    Caption ="Véhicules personnels:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =3119
-                    LayoutCachedWidth =2612
-                    LayoutCachedHeight =3359
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =4443
-                    Top =2834
-                    Width =2355
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette36"
-                    Caption ="Automobile"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4443
-                    LayoutCachedTop =2834
-                    LayoutCachedWidth =6798
-                    LayoutCachedHeight =3179
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =3345
-                    Width =3075
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette37"
-                    Caption ="- Date de la décision d'autorisation:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =3345
-                    LayoutCachedWidth =3812
-                    LayoutCachedHeight =3585
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =3572
-                    Width =3255
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette38"
-                    Caption ="- Puissance fiscale réelle de la voiture:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =3572
-                    LayoutCachedWidth =3992
-                    LayoutCachedHeight =3812
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =3799
-                    Width =6150
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette39"
-                    Caption ="- Nombre de kilomètres que l'agent est autorisé à parcourir annuellement:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =3799
-                    LayoutCachedWidth =6887
-                    LayoutCachedHeight =4039
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =4026
-                    Width =9195
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette40"
-                    Caption ="- Nombre de kilomètres déjà parcourus depuis le début de l'année (non compris le"
-                        "s kilomètres du présent état):"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =4026
-                    LayoutCachedWidth =9932
-                    LayoutCachedHeight =4266
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =4240
-                    Top =4251
-                    Width =2775
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette41"
-                    Caption ="Motocyclette, vélomoteur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4240
-                    LayoutCachedTop =4251
-                    LayoutCachedWidth =7015
-                    LayoutCachedHeight =4596
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =4534
-                    Width =3075
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette42"
-                    Caption ="- Date de la décision d'autorisation:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =4534
-                    LayoutCachedWidth =3812
-                    LayoutCachedHeight =4774
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =4761
-                    Width =9195
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette43"
-                    Caption ="- Nombre de kilomètres déja parcourus depuis le début de l'année (non compris le"
-                        "s kilomètres du présent état):"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =4761
-                    LayoutCachedWidth =9932
-                    LayoutCachedHeight =5001
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =4195
-                    Top =4987
-                    Width =2805
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette44"
-                    Caption ="Transports publics"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4195
-                    LayoutCachedTop =4987
-                    LayoutCachedWidth =7000
-                    LayoutCachedHeight =5332
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =453
-                    Top =8277
-                    Width =3232
-                    Height =340
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette46"
-                    Caption ="2. FRAIS DE TRANSPORT"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =453
-                    LayoutCachedTop =8277
-                    LayoutCachedWidth =3685
-                    LayoutCachedHeight =8617
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1870
-                    Top =8561
-                    Width =3075
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette47"
-                    Caption ="Autocar, tram, métro"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1870
-                    LayoutCachedTop =8561
-                    LayoutCachedWidth =4945
-                    LayoutCachedHeight =8801
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1870
-                    Top =8845
-                    Width =3075
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette48"
-                    Caption ="Péages, parking gare ou aéroport"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1870
-                    LayoutCachedTop =8845
-                    LayoutCachedWidth =4945
-                    LayoutCachedHeight =9085
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1870
-                    Top =9128
-                    Width =3075
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette49"
-                    Caption ="Divers"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1870
-                    LayoutCachedTop =9128
-                    LayoutCachedWidth =4945
-                    LayoutCachedHeight =9368
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =8427
-                    Top =8503
-                    Width =735
-                    Height =285
-                    ColumnOrder =11
-                    FontSize =10
-                    TabIndex =9
-                    BorderColor =10921638
-                    Name ="FraisBusTram"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8427
-                    LayoutCachedTop =8503
-                    LayoutCachedWidth =9162
-                    LayoutCachedHeight =8788
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =8427
-                    Top =8787
-                    Width =735
-                    Height =285
-                    ColumnOrder =12
-                    FontSize =10
-                    TabIndex =10
-                    BorderColor =10921638
-                    Name ="FraisPeagesParking"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8427
-                    LayoutCachedTop =8787
-                    LayoutCachedWidth =9162
-                    LayoutCachedHeight =9072
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =8427
-                    Top =9070
-                    Width =735
-                    Height =285
-                    ColumnOrder =13
-                    FontSize =10
-                    TabIndex =11
-                    BorderColor =10921638
-                    Name ="FraisTransportsDivers"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8427
-                    LayoutCachedTop =9070
-                    LayoutCachedWidth =9162
-                    LayoutCachedHeight =9355
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin Label
-                    Left =5989
-                    Top =9354
-                    Width =2775
-                    Height =345
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette33"
-                    Caption ="Total des frais de transport:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5989
-                    LayoutCachedTop =9354
-                    LayoutCachedWidth =8764
-                    LayoutCachedHeight =9699
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    FontUnderline = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8824
-                    Top =9354
-                    Width =1192
-                    Height =330
-                    ColumnOrder =14
-                    FontWeight =700
-                    TabIndex =12
-                    BorderColor =8355711
-                    Name ="TotalFraisTransport"
-                    ControlSource ="=[FraisBusTram]+[FraisPeagesParking]+[FraisTransportsDivers]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8824
-                    LayoutCachedTop =9354
-                    LayoutCachedWidth =10016
-                    LayoutCachedHeight =9684
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    FontUnderline = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8844
-                    Top =12982
-                    Width =1192
-                    Height =330
-                    ColumnOrder =15
-                    FontWeight =700
-                    TabIndex =13
-                    BorderColor =8355711
-                    Name ="Texte54"
-                    ControlSource ="=SEt_EFD_IndemnJour.Report!TotalIndemnJr+[SEt_EFD_IndemnKM].Report!TotalIndemnKm"
-                        "+[TotalFraisTransport]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8844
-                    LayoutCachedTop =12982
-                    LayoutCachedWidth =10036
-                    LayoutCachedHeight =13312
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin Label
-                    Left =6916
-                    Top =12982
-                    Width =1980
-                    Height =345
-                    FontSize =12
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette55"
-                    Caption ="TOTAL GENERAL:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6916
-                    LayoutCachedTop =12982
-                    LayoutCachedWidth =8896
-                    LayoutCachedHeight =13327
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =737
-                    Top =5265
-                    Width =9195
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette56"
-                    Caption ="Je ne bénéficie pas de réduction particulière"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =737
-                    LayoutCachedTop =5265
-                    LayoutCachedWidth =9932
-                    LayoutCachedHeight =5505
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =9468
-                    Top =510
-                    Width =1011
-                    Height =315
-                    ColumnOrder =10
-                    FontWeight =700
-                    TabIndex =14
-                    BorderColor =8355711
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9468
-                    LayoutCachedTop =510
-                    LayoutCachedWidth =10479
-                    LayoutCachedHeight =825
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            TextAlign =3
-                            Left =8447
-                            Top =510
-                            Width =915
-                            Height =315
-                            FontWeight =700
-                            BorderColor =8355711
-                            Name ="Étiquette57"
-                            Caption ="Exercice"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =8447
-                            LayoutCachedTop =510
-                            LayoutCachedWidth =9362
-                            LayoutCachedHeight =825
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2607
-                    Top =3118
-                    Width =7316
-                    Height =225
-                    ColumnOrder =9
-                    FontSize =10
-                    TabIndex =15
-                    BorderColor =8355711
-                    Name ="Texte62"
-                    ControlSource ="=Nz(DLookUp(\"LibelleChoix\",\"tbl_Listes\",\"[ChampListe]='TypeVehicule' AND [C"
-                        "odeChoix]='\" & [TypeVehicule] & \"'\"),\"\")"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2607
-                    LayoutCachedTop =3118
-                    LayoutCachedWidth =9923
-                    LayoutCachedHeight =3343
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3798
-                    Top =3344
-                    Width =2031
-                    Height =225
-                    ColumnOrder =5
-                    FontSize =10
-                    TabIndex =16
-                    BorderColor =8355711
-                    Name ="DateAutorisation"
-                    ControlSource ="=IIf([TypeVehicule]='1',[DateAutorisationVP],\"\")"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3798
-                    LayoutCachedTop =3344
-                    LayoutCachedWidth =5829
-                    LayoutCachedHeight =3569
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3968
-                    Top =3571
-                    Width =2376
-                    Height =225
-                    ColumnWidth =2070
-                    ColumnOrder =6
-                    FontSize =10
-                    TabIndex =17
-                    BorderColor =8355711
-                    Name ="PuissanceFisc"
-                    ControlSource ="=IIf([TypeVehicule]='1',[PuissanceFiscVP],\"\")"
-                    StatusBarText ="Puissance Fiscale Réelle du VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3968
-                    LayoutCachedTop =3571
-                    LayoutCachedWidth =6344
-                    LayoutCachedHeight =3796
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6859
-                    Top =3798
-                    ColumnOrder =7
-                    FontSize =10
-                    TabIndex =18
-                    BorderColor =8355711
-                    Name ="NbKmAutorises"
-                    ControlSource ="=IIf([TypeVehicule]='1',[NbKmAutorisesVP],\"\")"
-                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6859
-                    LayoutCachedTop =3798
-                    LayoutCachedWidth =8560
-                    LayoutCachedHeight =4038
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8957
-                    Top =4251
-                    Width =1473
-                    ColumnOrder =8
-                    FontSize =10
-                    TabIndex =19
-                    BorderColor =8355711
-                    Name ="DistanceAnnee"
-                    ControlSource ="=IIf([TypeVehicule]='1',DistanceAnnee([CodeAgent],[MoisRH],[AnneeRH]),\"\")"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8957
-                    LayoutCachedTop =4251
-                    LayoutCachedWidth =10430
-                    LayoutCachedHeight =4491
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =3798
-                    Top =4535
-                    Width =2031
-                    Height =225
-                    ColumnOrder =3
-                    FontSize =10
-                    TabIndex =20
-                    BorderColor =8355711
-                    Name ="Texte69"
-                    ControlSource ="=IIf([TypeVehicule]>'1',[DateAutorisationVP],Null)"
-                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3798
-                    LayoutCachedTop =4535
-                    LayoutCachedWidth =5829
-                    LayoutCachedHeight =4760
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8957
-                    Top =4988
-                    Width =1473
-                    ColumnOrder =4
-                    FontSize =10
-                    TabIndex =21
-                    BorderColor =8355711
-                    Name ="Texte70"
-                    ControlSource ="=IIf([TypeVehicule]>'1',DistanceAnnee([CodeAgent],[MoisRH],[AnneeRH]),Null)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8957
-                    LayoutCachedTop =4988
-                    LayoutCachedWidth =10430
-                    LayoutCachedHeight =5228
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin Subform
-                    Locked = NotDefault
-                    CanShrink = NotDefault
-                    OldBorderStyle =0
-                    Left =453
-                    Top =9992
-                    Width =9814
-                    Height =2858
-                    TabIndex =7
-                    Name ="SEt_EFD_IndemnKM"
-                    SourceObject ="Report.SEt_EFD_IndemnKM"
-                    LinkChildFields ="CodeAgent;MoisRH;AnneeRH"
-                    LinkMasterFields ="CodeAgent;MoisRH;AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =453
-                    LayoutCachedTop =9992
-                    LayoutCachedWidth =10267
-                    LayoutCachedHeight =12850
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =10148
-                    Top =850
-                    Width =336
-                    Height =315
-                    ColumnOrder =0
-                    TabIndex =22
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10148
-                    LayoutCachedTop =850
-                    LayoutCachedWidth =10484
-                    LayoutCachedHeight =1165
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =10148
-                    Top =1190
-                    Width =336
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =23
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="moisRH"
-                    ControlSource ="MoisRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10148
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =10484
-                    LayoutCachedHeight =1505
-                End
-                Begin Image
-                    BackStyle =0
-                    PictureType =1
-                    Left =283
-                    Top =56
-                    Width =2245
-                    Height =805
-                    BorderColor =10921638
-                    Name ="imgLogo"
-                    ControlTipText ="Auto_Logo0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2528
-                    LayoutCachedHeight =861
-                    TabIndex =24
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            Height =0
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin PageFooter
-            Height =2324
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =287
-                    Top =56
-                    Width =10485
-                    Height =555
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette14"
-                    Caption ="Je soussigné, auteur du présent état, en certifie l'exactitude à tous égards et "
-                        "demande le réglement à mon profit de la somme de (en toutes lettres): "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =287
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =10772
-                    LayoutCachedHeight =611
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =283
-                    Top =506
-                    Width =6855
-                    Height =285
-                    FontSize =10
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette15"
-                    Caption ="par virement à mon compte bancaire ou postal (figurant sur ma fiche de paie)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =506
-                    LayoutCachedWidth =7138
-                    LayoutCachedHeight =791
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =283
-                    Top =1685
-                    Width =10485
-                    Height =510
-                    FontSize =10
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette16"
-                    Caption ="L'état de frais de déplacements, avec toutes les pièces justificatives, est à tr"
-                        "ansmettre pour traitement en double exemplaire au SG du PAP pour ou à la DRH/SGS"
-                        "RH pour les autres pôles."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =1685
-                    LayoutCachedWidth =10768
-                    LayoutCachedHeight =2195
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =283
-                    Top =789
-                    Width =2535
-                    Height =240
-                    FontSize =10
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette17"
-                    Caption ="Vérifié et reconnu exact"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =789
-                    LayoutCachedWidth =2818
-                    LayoutCachedHeight =1029
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =4252
-                    Top =789
-                    Width =2541
-                    Height =227
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette18"
-                    Caption ="Le Chef de Service"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4252
-                    LayoutCachedTop =789
-                    LayoutCachedWidth =6793
-                    LayoutCachedHeight =1016
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =8277
-                    Top =789
-                    Width =2595
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette19"
-                    Caption ="Signature de l'ordonnateur"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8277
-                    LayoutCachedTop =789
-                    LayoutCachedWidth =10872
-                    LayoutCachedHeight =1029
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =1
-                    Left =397
-                    Top =1073
-                    Width =1365
-                    Height =240
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="A Erstein, le"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =397
-                    LayoutCachedTop =1073
-                    LayoutCachedWidth =1762
-                    LayoutCachedHeight =1313
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =1474
-                    Top =1073
-                    Width =1470
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Texte25"
-                    ControlSource ="=Date()"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1474
-                    LayoutCachedTop =1073
-                    LayoutCachedWidth =2944
-                    LayoutCachedHeight =1313
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Private Sub Report_Open(Cancel As Integer)
- Me.imgLogo.Picture = get_lien("logo_cd67")
-End Sub

test/source/reports/Et_EtFraisDep.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-0

test/source/reports/Et_FormDep.bas

@@ -1,898 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    AutoResize = NotDefault
-    DividingLines = NotDefault
-    FilterOn = NotDefault
-    OrderByOn = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15647
-    DatasheetFontHeight =11
-    ItemSuffix =114
-    DatasheetGridlinesColor =14806254
-    Filter ="[Valide]=True AND [CodeAgent]='T8' AND [MoisRH]=8 AND [AnneeRH]=2016"
-    OrderBy ="[JourRH] ASC"
-    RecSrcDt = Begin
-        0x523180d33636e440
-    End
-    RecordSource ="r_FormDep_SourceEtat"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0xf801000038040000f801000038040000000000001f3d0000e100000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    ShowPageMargins =0
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Line
-            BorderLineStyle =0
-            Width =1701
-            BorderThemeColorIndex =0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Subform
-            BorderLineStyle =0
-            Width =1701
-            Height =1701
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin EmptyCell
-            Height =240
-            GridlineColor =12632256
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =2782
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    TextAlign =2
-                    Left =6122
-                    Top =284
-                    Width =3966
-                    Height =397
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="FORMULAIRE DEPLACEMENTS"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6122
-                    LayoutCachedTop =284
-                    LayoutCachedWidth =10088
-                    LayoutCachedHeight =681
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    IMESentenceMode =3
-                    Left =1757
-                    Top =851
-                    Width =2725
-                    Height =345
-                    ColumnOrder =0
-                    BorderColor =10921638
-                    Name ="Texte1"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1757
-                    LayoutCachedTop =851
-                    LayoutCachedWidth =4482
-                    LayoutCachedHeight =1196
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =850
-                            Top =851
-                            Width =690
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Agent:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =850
-                            LayoutCachedTop =851
-                            LayoutCachedWidth =1540
-                            LayoutCachedHeight =1166
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =14683
-                    Top =624
-                    Width =786
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =12566463
-                    Name ="IDSuivi"
-                    ControlSource ="IDSuivi"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =14683
-                    LayoutCachedTop =624
-                    LayoutCachedWidth =15469
-                    LayoutCachedHeight =939
-                    ForeThemeColorIndex =1
-                    ForeTint =100.0
-                    ForeShade =75.0
-                    Begin
-                        Begin Label
-                            Visible = NotDefault
-                            Left =13776
-                            Top =624
-                            Width =855
-                            Height =315
-                            BorderColor =8355711
-                            ForeColor =12566463
-                            Name ="Étiquette5"
-                            Caption ="IDSuivi"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =13776
-                            LayoutCachedTop =624
-                            LayoutCachedWidth =14631
-                            LayoutCachedHeight =939
-                            ForeThemeColorIndex =1
-                            ForeTint =100.0
-                            ForeShade =75.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =11281
-                    Top =284
-                    Width =291
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MoisRH"
-                    ControlSource ="[MoisRH]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11281
-                    LayoutCachedTop =284
-                    LayoutCachedWidth =11572
-                    LayoutCachedHeight =599
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =13662
-                    Top =227
-                    Width =1821
-                    Height =390
-                    ColumnOrder =4
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13662
-                    LayoutCachedTop =227
-                    LayoutCachedWidth =15483
-                    LayoutCachedHeight =617
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =11678
-                    Top =2092
-                    Width =3795
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="Remarque"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11678
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =15473
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =8674
-                    Top =2092
-                    Width =1935
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="Véhicule personnel uniquement (km)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8674
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =10609
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =3344
-                    Top =2092
-                    Width =1695
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette11"
-                    Caption ="Déplacement véhicule personnel (km)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3344
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =5039
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5045
-                    Top =2092
-                    Width =1530
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="Véhicule de service (km)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5045
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =6575
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =6576
-                    Top =2092
-                    Width =1080
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette13"
-                    Caption ="Heures de route"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6576
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =7656
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =10601
-                    Top =2092
-                    Width =1080
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette14"
-                    Caption ="Repas, Midi ou soir (Nbre)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10601
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =11681
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =56
-                    Top =2092
-                    Width =900
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette19"
-                    Caption ="Jour"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =956
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =3344
-                    Top =1417
-                    Width =3225
-                    Height =675
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette20"
-                    Caption ="Déplacement sur site, kilométrage aller-retour avant 7h30 ou aprés 17h"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3344
-                    LayoutCachedTop =1417
-                    LayoutCachedWidth =6569
-                    LayoutCachedHeight =2092
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =8674
-                    Top =1417
-                    Width =1920
-                    Height =675
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette21"
-                    Caption ="Déplacement pendant heures de travail depuis le site"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8674
-                    LayoutCachedTop =1417
-                    LayoutCachedWidth =10594
-                    LayoutCachedHeight =2092
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    IMESentenceMode =3
-                    Left =11735
-                    Top =227
-                    Width =1772
-                    Height =390
-                    ColumnOrder =5
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte62"
-                    ControlSource ="=UCase(MonthName([MoisRH]))"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11735
-                    LayoutCachedTop =227
-                    LayoutCachedWidth =13507
-                    LayoutCachedHeight =617
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =7653
-                    Top =2092
-                    Width =1020
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette69"
-                    Caption ="Heures de route (Nuit)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7653
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =8673
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =963
-                    Top =2092
-                    Width =2385
-                    Height =690
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette72"
-                    Caption ="(Départ) Itinéraire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =963
-                    LayoutCachedTop =2092
-                    LayoutCachedWidth =3348
-                    LayoutCachedHeight =2782
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Width =8503
-                    Height =227
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =4210752
-                    Name ="Étiquette57"
-                    Caption ="Parc Départemental d'Erstein - Conseil Général du Bas-Rhin"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedWidth =12188
-                    LayoutCachedHeight =227
-                    ForeTint =75.0
-                End
-                Begin Image
-                    BackStyle =0
-                    PictureType =1
-                    Left =283
-                    Width =2245
-                    Height =805
-                    BorderColor =10921638
-                    Name ="imgLogo"
-                    ControlTipText ="Auto_Logo0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedWidth =2528
-                    LayoutCachedHeight =805
-                    TabIndex =5
-                End
-            End
-        End
-        Begin PageHeader
-            Height =0
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =225
-            Name ="Détail"
-            AutoHeight =255
-            AlternateBackColor =16777215
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =11684
-                    Width =3795
-                    Height =225
-                    FontSize =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_Remarque"
-                    ControlSource ="Remarque"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11684
-                    LayoutCachedWidth =15479
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =8674
-                    Width =1936
-                    Height =225
-                    ColumnWidth =2550
-                    FontSize =9
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_Distance1_perso"
-                    ControlSource ="Distance1_perso"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8674
-                    LayoutCachedWidth =10610
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3339
-                    Height =225
-                    ColumnWidth =2295
-                    FontSize =9
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_Distance2_perso"
-                    ControlSource ="Distance2_perso"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3339
-                    LayoutCachedWidth =5040
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5034
-                    Width =1530
-                    Height =225
-                    FontSize =9
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_Distance2_service"
-                    ControlSource ="Distance2_service"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5034
-                    LayoutCachedWidth =6564
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6577
-                    Width =1071
-                    Height =225
-                    FontSize =9
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_HeuresDep"
-                    ControlSource ="HeuresDep"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6577
-                    LayoutCachedWidth =7648
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10604
-                    Width =1086
-                    Height =225
-                    FontSize =9
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="txt_Repas"
-                    ControlSource ="Repas"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10604
-                    LayoutCachedWidth =11690
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =56
-                    Width =906
-                    Height =225
-                    FontSize =9
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="JourRH"
-                    ControlSource ="JourRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =962
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7656
-                    Width =1020
-                    Height =225
-                    FontSize =9
-                    TabIndex =7
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte70"
-                    ControlSource ="HeuresDepNuit"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7656
-                    LayoutCachedWidth =8676
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =963
-                    Width =2376
-                    Height =225
-                    ColumnWidth =3345
-                    FontSize =9
-                    TabIndex =8
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Itin"
-                    ControlSource ="=IIf(Len([Depart])>0,'(' & [Depart] & ') ' & [Itineraire],[Itineraire])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =963
-                    LayoutCachedWidth =3339
-                    LayoutCachedHeight =225
-                End
-            End
-        End
-        Begin PageFooter
-            Height =1814
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =7823
-                    Top =396
-                    Width =4365
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette100"
-                    Caption ="Certifié exact: Le directeur / Le chef de service"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7823
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =12188
-                    LayoutCachedHeight =681
-                    ForeTint =100.0
-                End
-                Begin Subform
-                    CanShrink = NotDefault
-                    OldBorderStyle =0
-                    Left =56
-                    Width =4987
-                    Height =1759
-                    BorderColor =8355711
-                    Name ="sEt_BaremeHeuresdeRoute"
-                    SourceObject ="Report.sEt_BaremeHeuresdeRoute"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =5043
-                    LayoutCachedHeight =1759
-                    BorderThemeColorIndex =1
-                    BorderShade =50.0
-                End
-            End
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            Height =283
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =11684
-                    Width =3795
-                    Height =225
-                    FontSize =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte101"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11684
-                    LayoutCachedWidth =15479
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =8674
-                    Width =1936
-                    Height =225
-                    FontSize =9
-                    TabIndex =1
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte102"
-                    ControlSource ="=Sum([Distance1_perso])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8674
-                    LayoutCachedWidth =10610
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3339
-                    Height =225
-                    FontSize =9
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte103"
-                    ControlSource ="=Sum([Distance2_perso])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3339
-                    LayoutCachedWidth =5040
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5034
-                    Width =1530
-                    Height =225
-                    FontSize =9
-                    TabIndex =3
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte104"
-                    ControlSource ="=Sum([Distance2_service])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5034
-                    LayoutCachedWidth =6564
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6577
-                    Width =1071
-                    Height =225
-                    FontSize =9
-                    TabIndex =4
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte105"
-                    ControlSource ="=Sum([HeuresDep])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6577
-                    LayoutCachedWidth =7648
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10604
-                    Width =1086
-                    Height =225
-                    FontSize =9
-                    TabIndex =5
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte106"
-                    ControlSource ="=Sum([Repas])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10604
-                    LayoutCachedWidth =11690
-                    LayoutCachedHeight =225
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7656
-                    Width =1020
-                    Height =225
-                    FontSize =9
-                    TabIndex =6
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte108"
-                    ControlSource ="=Sum([HeuresDepNuit])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7656
-                    LayoutCachedWidth =8676
-                    LayoutCachedHeight =225
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =56
-                    Width =3288
-                    Height =226
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette110"
-                    Caption ="Totaux:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =3344
-                    LayoutCachedHeight =226
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
- Me.imgLogo.Picture = get_lien("logo_cd67")
-Me.OrderBy = "[JourRH] ASC"
-Me.OrderByOn = True
-End Sub

test/source/reports/Et_FormDep.pv

@@ -1,5 +0,0 @@
-2
-9
-2970
-2100
-0

test/source/reports/Et_FormHS.bas

@@ -1,1465 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15825
-    DatasheetFontHeight =11
-    ItemSuffix =79
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x041ace29306ae440
-    End
-    RecordSource ="SELECT tbl_FormHS.CodeAgent, tbl_FormHS.JourRH, tbl_FormHS.MoisRH, tbl_FormHS.An"
-        "neeRH, r_Agents.Nom, r_Agents.Grade, r_Agents.Matricule, r_Agents.Catégorie, r_A"
-        "gents.Groupe, tbl_FormHS.HeureSup1, IIf([HeuresDep]>0,[HeuresDep],'') AS HeuresD"
-        "eplacement, IIf([HeuresDepNuit]>0,[HeuresDepNuit],'') AS HeuresDeplacementNuit, "
-        "tbl_FormHS.[HeureSup1<=14], tbl_FormHS.[HeureSup1>14], tbl_FormHS.HeureSupNuit, "
-        "tbl_FormHS.HeureSupDim, tbl_FormHS.HS_VHCanal, tbl_FormHS.HS_Chantier, Nz(DLookU"
-        "p(\"[Itineraire]\",\"[tbl_FormDep]\",\"[IDSuivi]=\" & [IDSuivi] & \" AND [JourRH"
-        "]=\" & [JourRH]),\"\") AS Lieu, tbl_FormHS.Valide, CSng(Nz([HS_VHCanal],0)) AS c"
-        "anal, CSng(Nz([HS_Chantier],0)) AS chantier, CSng(Nz([HeuresDep],0)) AS dep, CSn"
-        "g(Nz([HeuresDepNuit],0)) AS dep_nuit FROM r_Agents INNER JOIN tbl_FormHS ON r_Ag"
-        "ents.CodeAgent = tbl_FormHS.CodeAgent WHERE (((tbl_FormHS.Valide)=True)); "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000d13d00001d01000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Line
-            BorderLineStyle =0
-            Width =1701
-            BorderThemeColorIndex =0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =1927
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Top =283
-                    Width =8504
-                    Height =397
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="ETAT MENSUEL DES HEURES SUPPLEMENTAIRES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =12189
-                    LayoutCachedHeight =680
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    TextAlign =2
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =2770
-                    Top =963
-                    Width =3246
-                    Height =315
-                    ColumnOrder =0
-                    BorderColor =10921638
-                    Name ="strEquipesLibelle"
-                    ControlSource ="Nom"
-                    StatusBarText ="Libelle de l'équipe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2770
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =6016
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =793
-                            Top =963
-                            Width =1605
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette1"
-                            Caption ="NOM PRENOM:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =793
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =2398
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    TextAlign =2
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =2768
-                    Top =1416
-                    Width =3231
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="txt_MoisRH"
-                    ControlSource ="=UCase(MonthName([MoisRH])) & \"   \" & [AnneeRH]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2768
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =5999
-                    LayoutCachedHeight =1731
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =793
-                            Top =1416
-                            Width =1890
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Periode concernée:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =793
-                            LayoutCachedTop =1416
-                            LayoutCachedWidth =2683
-                            LayoutCachedHeight =1731
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OldBorderStyle =4
-                    TextAlign =1
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =623
-                    Top =1303
-                    Width =216
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =1303
-                    LayoutCachedWidth =839
-                    LayoutCachedHeight =1618
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =7371
-                    Top =963
-                    Width =2106
-                    Height =315
-                    ColumnOrder =4
-                    TabIndex =3
-                    BorderColor =10921638
-                    Name ="Texte22"
-                    ControlSource ="=\"DAERE\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7371
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =9477
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6179
-                            Top =963
-                            Width =1095
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette23"
-                            Caption ="DIRECTION"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6179
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =7274
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =7371
-                    Top =1398
-                    Width =4311
-                    Height =315
-                    ColumnOrder =5
-                    TabIndex =4
-                    BorderColor =10921638
-                    Name ="Texte24"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7371
-                    LayoutCachedTop =1398
-                    LayoutCachedWidth =11682
-                    LayoutCachedHeight =1713
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6179
-                            Top =1416
-                            Width =1095
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette25"
-                            Caption ="GRADE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6179
-                            LayoutCachedTop =1416
-                            LayoutCachedWidth =7274
-                            LayoutCachedHeight =1731
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =10658
-                    Top =963
-                    Height =315
-                    ColumnOrder =6
-                    TabIndex =5
-                    BorderColor =10921638
-                    Name ="Texte26"
-                    ControlSource ="=\"Parc d'Erstein\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =12359
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =9694
-                            Top =963
-                            Width =840
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette27"
-                            Caption ="SERVICE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =9694
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =10534
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =13549
-                    Top =1398
-                    Height =315
-                    ColumnOrder =7
-                    TabIndex =6
-                    BorderColor =10921638
-                    Name ="Texte28"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13549
-                    LayoutCachedTop =1398
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =1713
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =11969
-                            Top =1403
-                            Width =1530
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette29"
-                            Caption ="INDICE BRUT (*)"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =11969
-                            LayoutCachedTop =1403
-                            LayoutCachedWidth =13499
-                            LayoutCachedHeight =1718
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =13774
-                    Top =963
-                    Width =1476
-                    Height =315
-                    ColumnOrder =8
-                    TabIndex =7
-                    BorderColor =10921638
-                    Name ="Texte42"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13774
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =12529
-                            Top =963
-                            Width =1125
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette43"
-                            Caption ="MATRICULE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =12529
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =13654
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Top =56
-                    Width =8503
-                    Height =227
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =4210752
-                    Name ="Étiquette57"
-                    Caption ="Parc Départemental d'Erstein - Conseil Général du Bas-Rhin"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12188
-                    LayoutCachedHeight =283
-                    ForeTint =75.0
-                End
-                Begin Image
-                    BackStyle =0
-                    PictureType =1
-                    Left =283
-                    Top =56
-                    Width =2245
-                    Height =805
-                    BorderColor =10921638
-                    Name ="imgLogo"
-                    ControlTipText ="Auto_Logo0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2528
-                    LayoutCachedHeight =861
-                    TabIndex =8
-                End
-            End
-        End
-        Begin PageHeader
-            Height =1474
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =680
-                    Top =964
-                    Width =1524
-                    Height =502
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Date"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =964
-                    LayoutCachedWidth =2204
-                    LayoutCachedHeight =1466
-                    ForeTint =100.0
-                End
-                Begin Label
-                    BackStyle =1
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =2211
-                    Top =349
-                    Width =1422
-                    Height =1117
-                    FontSize =10
-                    BackColor =15921906
-                    BorderColor =8355711
-                    ForeColor =4144959
-                    Name ="Étiquette5"
-                    Caption ="Route"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2211
-                    LayoutCachedTop =349
-                    LayoutCachedWidth =3633
-                    LayoutCachedHeight =1466
-                    BackShade =95.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Label
-                    BackStyle =1
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =3628
-                    Top =340
-                    Width =957
-                    Height =1117
-                    FontSize =10
-                    BackColor =15921906
-                    BorderColor =8355711
-                    ForeColor =4144959
-                    Name ="Étiquette6"
-                    Caption ="Travail effectif sur chantier"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3628
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =4585
-                    LayoutCachedHeight =1457
-                    BackShade =95.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5664
-                    Top =340
-                    Width =1695
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois <=14H (**)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5664
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =7359
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =7369
-                    Top =340
-                    Width =1650
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois >14H (***)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7369
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =9019
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =9014
-                    Top =340
-                    Width =1635
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="Nombre d'heures Dimanche et jours de fête"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9014
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =10649
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =10657
-                    Top =340
-                    Width =1650
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="Nombre d'heures accomplies de 22H à 7H (****)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10657
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =12307
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =12302
-                    Top =963
-                    Width =2955
-                    Height =510
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette11"
-                    Caption ="Observations"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12302
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15257
-                    LayoutCachedHeight =1473
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5669
-                    Width =6636
-                    Height =340
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="DECOMPTE DES HEURES SUPPL."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5669
-                    LayoutCachedWidth =12305
-                    LayoutCachedHeight =340
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =12585
-                    Width =2670
-                    Height =315
-                    FontSize =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte55"
-                    ControlSource ="=\"Page \" & [Page] & \" sur \" & [Pages]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12585
-                    LayoutCachedWidth =15255
-                    LayoutCachedHeight =315
-                End
-                Begin Label
-                    BackStyle =1
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =4592
-                    Top =348
-                    Width =1077
-                    Height =1117
-                    FontSize =10
-                    BackColor =15921906
-                    BorderColor =8355711
-                    ForeColor =4144959
-                    Name ="Étiquette61"
-                    Caption ="Interventions en cas d'astreinte"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4592
-                    LayoutCachedTop =348
-                    LayoutCachedWidth =5669
-                    LayoutCachedHeight =1465
-                    BackShade =95.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Label
-                    BackStyle =1
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =2212
-                    Width =3457
-                    Height =340
-                    FontSize =10
-                    BackColor =15921906
-                    BorderColor =8355711
-                    ForeColor =4144959
-                    Name ="Étiquette65"
-                    Caption ="VENTILATION DES HEURES SUPPL."
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2212
-                    LayoutCachedWidth =5669
-                    LayoutCachedHeight =340
-                    BackShade =95.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            Height =285
-            Name ="Détail"
-            AlternateBackColor =16777215
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =680
-                    Width =1524
-                    Height =285
-                    FontSize =10
-                    ForeColor =4210752
-                    Name ="JourRH"
-                    ControlSource ="JourRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =680
-                    LayoutCachedWidth =2204
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5665
-                    Width =1696
-                    Height =285
-                    FontSize =10
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="HeureSup1<=14"
-                    ControlSource ="HeureSup1<=14"
-                    Format ="Standard"
-                    EventProcPrefix ="HeureSup1__14"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5665
-                    LayoutCachedWidth =7361
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10658
-                    Width =1636
-                    Height =285
-                    FontSize =10
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="HeureSup2"
-                    ControlSource ="HeureSupNuit"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedWidth =12294
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9015
-                    Width =1650
-                    Height =285
-                    FontSize =10
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="HeureSupDim"
-                    ControlSource ="HeureSupDim"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9015
-                    LayoutCachedWidth =10665
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3628
-                    Width =958
-                    Height =285
-                    FontSize =10
-                    TabIndex =5
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="vHS_chantier"
-                    ControlSource ="=IIf([HS_Chantier]>0,[HS_Chantier],'')"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3628
-                    LayoutCachedWidth =4586
-                    LayoutCachedHeight =285
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7370
-                    Width =1650
-                    Height =285
-                    FontSize =10
-                    TabIndex =6
-                    ForeColor =4210752
-                    Name ="HeureSup1>14"
-                    ControlSource ="HeureSup1>14"
-                    Format ="Standard"
-                    EventProcPrefix ="HeureSup1_14"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7370
-                    LayoutCachedWidth =9020
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =12302
-                    Width =2948
-                    Height =285
-                    FontSize =8
-                    TabIndex =7
-                    ForeColor =4210752
-                    Name ="Texte58"
-                    ControlSource ="Lieu"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12302
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =4592
-                    Width =1077
-                    Height =285
-                    FontSize =10
-                    TabIndex =8
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="vHS_astreinte"
-                    ControlSource ="=IIf([HS_VHCanal]>0,[HS_VHCanal],'')"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4592
-                    LayoutCachedWidth =5669
-                    LayoutCachedHeight =285
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =2994
-                    Width =642
-                    Height =285
-                    FontSize =10
-                    TabIndex =9
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Texte69"
-                    ControlSource ="HeuresDeplacementNuit"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2994
-                    LayoutCachedWidth =3636
-                    LayoutCachedHeight =285
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =2211
-                    Width =627
-                    Height =285
-                    FontSize =10
-                    TabIndex =4
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="vHS_route"
-                    ControlSource ="HeuresDeplacement"
-                    Format ="Standard"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2211
-                    LayoutCachedWidth =2838
-                    LayoutCachedHeight =285
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Label
-                    BackStyle =1
-                    TextAlign =2
-                    Left =2834
-                    Width =170
-                    Height =283
-                    FontSize =10
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Étiquette70"
-                    Caption ="/"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2834
-                    LayoutCachedWidth =3004
-                    LayoutCachedHeight =283
-                    BackShade =95.0
-                    BorderTint =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Line
-                    Left =2834
-                    Width =170
-                    Name ="Trait73"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2834
-                    LayoutCachedWidth =3004
-                End
-            End
-        End
-        Begin PageFooter
-            Height =0
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            Height =1362
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =680
-                    Top =396
-                    Width =7080
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette30"
-                    Caption ="(*) Indice brut < IB 381 pour paiement d'heures supplémentaires (cf décret n°200"
-                        "2-60 du 14/01/2002"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =7760
-                    LayoutCachedHeight =666
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =8668
-                    Top =396
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette31"
-                    Caption ="(**) Indiquer les 14 premières heures au cours du mois (14 heures maximum)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8668
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =14158
-                    LayoutCachedHeight =666
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =680
-                    Top =673
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette32"
-                    Caption ="(***) Indiquer les heures effectuées au cours du mois à partir de la 15e heure"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedTop =673
-                    LayoutCachedWidth =6170
-                    LayoutCachedHeight =943
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =8674
-                    Top =680
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette33"
-                    Caption ="(****) Heures de nuit entre 22h et 7h (décret n°2002-60 du 14/01/2002)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8674
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =14164
-                    LayoutCachedHeight =950
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5665
-                    Width =1696
-                    Height =345
-                    FontSize =10
-                    ForeColor =4210752
-                    Name ="Texte45"
-                    ControlSource ="=Sum([HeureSup1<=14])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5665
-                    LayoutCachedWidth =7361
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10658
-                    Width =1636
-                    Height =345
-                    FontSize =10
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="Texte46"
-                    ControlSource ="=Sum([HeureSupNuit])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedWidth =12294
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9015
-                    Width =1650
-                    Height =345
-                    FontSize =10
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="Texte47"
-                    ControlSource ="=Sum([HeureSupDim])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9015
-                    LayoutCachedWidth =10665
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7370
-                    Width =1650
-                    Height =345
-                    FontSize =10
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="Texte50"
-                    ControlSource ="=Sum([HeureSup1>14])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7370
-                    LayoutCachedWidth =9020
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =680
-                    Width =1527
-                    Height =345
-                    FontSize =12
-                    BorderColor =8355711
-                    Name ="Étiquette52"
-                    Caption ="TOTAL"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =680
-                    LayoutCachedWidth =2207
-                    LayoutCachedHeight =345
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =9355
-                    Top =1077
-                    Width =4365
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette53"
-                    Caption ="Certifié exact: Le directeur / Le chef de service"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9355
-                    LayoutCachedTop =1077
-                    LayoutCachedWidth =13720
-                    LayoutCachedHeight =1362
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =12302
-                    Width =2948
-                    Height =345
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="Texte60"
-                    ControlSource ="=\"\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12302
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =2211
-                    Width =627
-                    Height =345
-                    FontSize =10
-                    TabIndex =5
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Texte66"
-                    ControlSource ="=Sum([dep])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000072000000010000000000000002000000000000000800000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x220030002000280030002900220000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2211
-                    LayoutCachedWidth =2838
-                    LayoutCachedHeight =345
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00070000002200 ,
-                        0x3000200028003000290022000000000000000000000000000000000000000000 ,
-                        0x00
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3628
-                    Width =958
-                    Height =345
-                    FontSize =10
-                    TabIndex =6
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Texte67"
-                    ControlSource ="=Sum([chantier])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3628
-                    LayoutCachedWidth =4586
-                    LayoutCachedHeight =345
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =4592
-                    Width =1077
-                    Height =345
-                    FontSize =10
-                    TabIndex =7
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Texte68"
-                    ControlSource ="=Sum([canal])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4592
-                    LayoutCachedWidth =5669
-                    LayoutCachedHeight =345
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =2994
-                    Width =642
-                    Height =345
-                    FontSize =10
-                    TabIndex =8
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Texte71"
-                    ControlSource ="=Sum([dep_nuit])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000072000000010000000000000002000000000000000800000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x220030002000280030002900220000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2994
-                    LayoutCachedWidth =3636
-                    LayoutCachedHeight =345
-                    BackShade =95.0
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00070000002200 ,
-                        0x3000200028003000290022000000000000000000000000000000000000000000 ,
-                        0x00
-                    End
-                End
-                Begin Line
-                    Left =2891
-                    Width =170
-                    Name ="Trait75"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2891
-                    LayoutCachedWidth =3061
-                End
-                Begin Line
-                    Left =2891
-                    Top =340
-                    Width =170
-                    Name ="Trait76"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2891
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =3061
-                    LayoutCachedHeight =340
-                End
-                Begin Label
-                    BackStyle =1
-                    TextAlign =2
-                    Left =2834
-                    Width =170
-                    Height =343
-                    FontSize =10
-                    BackColor =15921906
-                    ForeColor =4144959
-                    Name ="Étiquette72"
-                    Caption ="/"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2834
-                    LayoutCachedWidth =3004
-                    LayoutCachedHeight =343
-                    BackShade =95.0
-                    BorderTint =100.0
-                    ForeThemeColorIndex =-1
-                    ForeTint =100.0
-                End
-                Begin Line
-                    Left =2834
-                    Width =170
-                    Name ="Trait77"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2834
-                    LayoutCachedWidth =3004
-                End
-                Begin Line
-                    Left =2834
-                    Top =340
-                    Width =170
-                    Name ="Trait78"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2834
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =3004
-                    LayoutCachedHeight =340
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
- Me.imgLogo.Picture = get_lien("logo_cd67")
-Me.OrderBy = "[JourRH] ASC"
-Me.OrderByOn = True
-End Sub

test/source/reports/Et_FormHS.pv

@@ -1,5 +0,0 @@
-2
-9
-2970
-2100
-100

test/source/reports/Et_FormHS_original.bas

@@ -1,1103 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15825
-    DatasheetFontHeight =11
-    ItemSuffix =61
-    DatasheetGridlinesColor =14806254
-    Filter ="[Valide]=True AND [CodeAgent]='T20' AND [MoisRH]=9 AND [AnneeRH]=2013"
-    RecSrcDt = Begin
-        0x531bfe97af4ae440
-    End
-    RecordSource ="SELECT tbl_FormHS.CodeAgent, tbl_FormHS.JourRH, tbl_FormHS.MoisRH, tbl_FormHS.An"
-        "neeRH, r_Agents.Nom, r_Agents.Grade, r_Agents.Matricule, r_Agents.Catégorie, r_A"
-        "gents.Groupe, tbl_FormHS.[HeureSup1<=14], tbl_FormHS.[HeureSup1>14], tbl_FormHS."
-        "HeureSupNuit, tbl_FormHS.HeureSupDim, tbl_FormHS.Valide, Nz(DLookUp(\"[Itinerair"
-        "e]\",\"[tbl_FormDep]\",\"[IDSuivi]=\" & [IDSuivi] & \" AND [JourRH]=\" & [JourRH"
-        "]),\"\") AS Lieu FROM r_Agents INNER JOIN tbl_FormHS ON r_Agents.CodeAgent = tbl"
-        "_FormHS.CodeAgent WHERE (((tbl_FormHS.Valide)=True)); "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000d13d00001d01000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =1927
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Top =283
-                    Width =8504
-                    Height =397
-                    FontSize =14
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="ETAT MENSUEL DES HEURES SUPPLEMENTAIRES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =12189
-                    LayoutCachedHeight =680
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    TextAlign =2
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =2770
-                    Top =963
-                    Width =3246
-                    Height =315
-                    ColumnOrder =0
-                    BorderColor =10921638
-                    Name ="strEquipesLibelle"
-                    ControlSource ="Nom"
-                    StatusBarText ="Libelle de l'équipe"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2770
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =6016
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =793
-                            Top =963
-                            Width =1605
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette1"
-                            Caption ="NOM PRENOM:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =793
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =2398
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    TextAlign =2
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =2768
-                    Top =1416
-                    Width =3231
-                    Height =315
-                    ColumnOrder =2
-                    TabIndex =1
-                    BorderColor =10921638
-                    Name ="txt_MoisRH"
-                    ControlSource ="=UCase(MonthName([MoisRH])) & \"   \" & [AnneeRH]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2768
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =5999
-                    LayoutCachedHeight =1731
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =793
-                            Top =1416
-                            Width =1890
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette2"
-                            Caption ="Periode concernée:"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =793
-                            LayoutCachedTop =1416
-                            LayoutCachedWidth =2683
-                            LayoutCachedHeight =1731
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    OldBorderStyle =4
-                    TextAlign =1
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =623
-                    Top =1303
-                    Width =216
-                    Height =315
-                    ColumnOrder =3
-                    TabIndex =2
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =623
-                    LayoutCachedTop =1303
-                    LayoutCachedWidth =839
-                    LayoutCachedHeight =1618
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =7371
-                    Top =963
-                    Width =2106
-                    Height =315
-                    ColumnOrder =4
-                    TabIndex =3
-                    BorderColor =10921638
-                    Name ="Texte22"
-                    ControlSource ="=\"DAERE\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7371
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =9477
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6179
-                            Top =963
-                            Width =1095
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette23"
-                            Caption ="DIRECTION"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6179
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =7274
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =7371
-                    Top =1398
-                    Width =4311
-                    Height =315
-                    ColumnOrder =5
-                    TabIndex =4
-                    BorderColor =10921638
-                    Name ="Texte24"
-                    ControlSource ="Grade"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7371
-                    LayoutCachedTop =1398
-                    LayoutCachedWidth =11682
-                    LayoutCachedHeight =1713
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =6179
-                            Top =1416
-                            Width =1095
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette25"
-                            Caption ="GRADE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6179
-                            LayoutCachedTop =1416
-                            LayoutCachedWidth =7274
-                            LayoutCachedHeight =1731
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =10658
-                    Top =963
-                    Height =315
-                    ColumnOrder =6
-                    TabIndex =5
-                    BorderColor =10921638
-                    Name ="Texte26"
-                    ControlSource ="=\"Parc d'Erstein\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =12359
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =9694
-                            Top =963
-                            Width =840
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette27"
-                            Caption ="SERVICE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =9694
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =10534
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =13549
-                    Top =1398
-                    Height =315
-                    ColumnOrder =7
-                    TabIndex =6
-                    BorderColor =10921638
-                    Name ="Texte28"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13549
-                    LayoutCachedTop =1398
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =1713
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =11969
-                            Top =1403
-                            Width =1530
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette29"
-                            Caption ="INDICE BRUT (*)"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =11969
-                            LayoutCachedTop =1403
-                            LayoutCachedWidth =13499
-                            LayoutCachedHeight =1718
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =4
-                    BorderLineStyle =3
-                    IMESentenceMode =3
-                    Left =13774
-                    Top =963
-                    Width =1476
-                    Height =315
-                    ColumnOrder =8
-                    TabIndex =7
-                    BorderColor =10921638
-                    Name ="Texte42"
-                    ControlSource ="Matricule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13774
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =1278
-                    ForeTint =100.0
-                    Begin
-                        Begin Label
-                            Left =12529
-                            Top =963
-                            Width =1125
-                            Height =315
-                            BorderColor =8355711
-                            Name ="Étiquette43"
-                            Caption ="MATRICULE"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =12529
-                            LayoutCachedTop =963
-                            LayoutCachedWidth =13654
-                            LayoutCachedHeight =1278
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Top =56
-                    Width =8503
-                    Height =227
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =4210752
-                    Name ="Étiquette57"
-                    Caption ="Parc Départemental d'Erstein - Conseil Général du Bas-Rhin"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12188
-                    LayoutCachedHeight =283
-                    ForeTint =75.0
-                End
-                Begin Image
-                    BackStyle =0
-                    PictureType =1
-                    Left =283
-                    Top =56
-                    Width =2245
-                    Height =805
-                    BorderColor =10921638
-                    Name ="imgLogo"
-                    ControlTipText ="Auto_Logo0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2528
-                    LayoutCachedHeight =861
-                    TabIndex =8
-                End
-            End
-        End
-        Begin PageHeader
-            Height =1474
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =793
-                    Top =964
-                    Width =1644
-                    Height =502
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette4"
-                    Caption ="Date"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =964
-                    LayoutCachedWidth =2437
-                    LayoutCachedHeight =1466
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =2436
-                    Top =964
-                    Width =1644
-                    Height =502
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="Horaires Matinée"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2436
-                    LayoutCachedTop =964
-                    LayoutCachedWidth =4080
-                    LayoutCachedHeight =1466
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =4081
-                    Top =964
-                    Width =1644
-                    Height =502
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette6"
-                    Caption ="Horaires Aprés-Midi"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4081
-                    LayoutCachedTop =964
-                    LayoutCachedWidth =5725
-                    LayoutCachedHeight =1466
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5724
-                    Top =340
-                    Width =1635
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette7"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois <=14H (**)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5724
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =7359
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =7369
-                    Top =340
-                    Width =1650
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette8"
-                    Caption ="Nombre d'heures accomplies au cours d'un mois >14H (***)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7369
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =9019
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =9014
-                    Top =340
-                    Width =1650
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette9"
-                    Caption ="Nombre d'heures Dimanche et jours de fête"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9014
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =10664
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =10657
-                    Top =340
-                    Width =1635
-                    Height =1125
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="Nombre d'heures accomplies de 22H à 7H (****)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10657
-                    LayoutCachedTop =340
-                    LayoutCachedWidth =12292
-                    LayoutCachedHeight =1465
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =12302
-                    Top =963
-                    Width =2955
-                    Height =510
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette11"
-                    Caption ="Observations"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12302
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15257
-                    LayoutCachedHeight =1473
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    TextAlign =2
-                    Left =5724
-                    Width =6576
-                    Height =340
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette12"
-                    Caption ="DECOMPTE DES HEURES"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5724
-                    LayoutCachedWidth =12300
-                    LayoutCachedHeight =340
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    FontItalic = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =12585
-                    Width =2670
-                    Height =315
-                    FontSize =9
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte55"
-                    ControlSource ="=\"Page \" & [Page] & \" sur \" & [Pages]"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12585
-                    LayoutCachedWidth =15255
-                    LayoutCachedHeight =315
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            Height =285
-            Name ="Détail"
-            AlternateBackColor =16777215
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =793
-                    Width =1644
-                    Height =285
-                    FontSize =10
-                    ForeColor =4210752
-                    Name ="JourRH"
-                    ControlSource ="JourRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =793
-                    LayoutCachedWidth =2437
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5725
-                    Width =1636
-                    Height =285
-                    FontSize =10
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="HeureSup1"
-                    ControlSource ="HeureSup1<=14"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5725
-                    LayoutCachedWidth =7361
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10658
-                    Width =1636
-                    Height =285
-                    FontSize =10
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="HeureSup2"
-                    ControlSource ="HeureSupNuit"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedWidth =12294
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9015
-                    Width =1650
-                    Height =285
-                    FontSize =10
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="HeureSupDim"
-                    ControlSource ="HeureSupDim"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9015
-                    LayoutCachedWidth =10665
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =2437
-                    Width =1644
-                    Height =285
-                    FontSize =10
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="Texte17"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2437
-                    LayoutCachedWidth =4081
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =4082
-                    Width =1644
-                    Height =285
-                    FontSize =10
-                    TabIndex =5
-                    ForeColor =4210752
-                    Name ="Texte19"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4082
-                    LayoutCachedWidth =5726
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7370
-                    Width =1650
-                    Height =285
-                    FontSize =10
-                    TabIndex =6
-                    ForeColor =4210752
-                    Name ="Texte20"
-                    ControlSource ="HeureSup1>14"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7370
-                    LayoutCachedWidth =9020
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =12302
-                    Width =2948
-                    Height =285
-                    FontSize =8
-                    TabIndex =7
-                    ForeColor =4210752
-                    Name ="Texte58"
-                    ControlSource ="Lieu"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12302
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-            End
-        End
-        Begin PageFooter
-            Height =0
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            Height =1362
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =793
-                    Top =403
-                    Width =7080
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette30"
-                    Caption ="(*) Indice brut < IB 381 pour paiement d'heures supplémentaires (cf décret n°200"
-                        "2-60 du 14/01/2002"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =403
-                    LayoutCachedWidth =7873
-                    LayoutCachedHeight =673
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =8668
-                    Top =396
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette31"
-                    Caption ="(**) Indiquer les 14 premières heures au cours du mois (14 heures maximum)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8668
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =14158
-                    LayoutCachedHeight =666
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =793
-                    Top =680
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette32"
-                    Caption ="(***) Indiquer les heures effectuées au cours du mois à partir de la 15e heure"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =6283
-                    LayoutCachedHeight =950
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =8674
-                    Top =680
-                    Width =5490
-                    Height =270
-                    FontSize =8
-                    BorderColor =8355711
-                    Name ="Étiquette33"
-                    Caption ="(****) Heures de nuit entre 22h et 7h (décret n°2002-60 du 14/01/2002)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8674
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =14164
-                    LayoutCachedHeight =950
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5725
-                    Width =1636
-                    Height =345
-                    FontSize =10
-                    ForeColor =4210752
-                    Name ="Texte45"
-                    ControlSource ="=Sum([HeureSup1<=14])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5725
-                    LayoutCachedWidth =7361
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10658
-                    Width =1636
-                    Height =345
-                    FontSize =10
-                    TabIndex =1
-                    ForeColor =4210752
-                    Name ="Texte46"
-                    ControlSource ="=Sum([HeureSupNuit])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10658
-                    LayoutCachedWidth =12294
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    DecimalPlaces =2
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9015
-                    Width =1650
-                    Height =345
-                    FontSize =10
-                    TabIndex =2
-                    ForeColor =4210752
-                    Name ="Texte47"
-                    ControlSource ="=Sum([HeureSupDim])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9015
-                    LayoutCachedWidth =10665
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin TextBox
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7370
-                    Width =1650
-                    Height =345
-                    FontSize =10
-                    TabIndex =3
-                    ForeColor =4210752
-                    Name ="Texte50"
-                    ControlSource ="=Sum([HeureSup1>14])"
-                    Format ="Standard"
-                    ConditionalFormat = Begin
-                        0x0100000066000000010000000000000002000000000000000200000001000000 ,
-                        0xffffff00ffffff00000000000000000000000000000000000000000000000000 ,
-                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
-                        0x300000000000
-                    End
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7370
-                    LayoutCachedWidth =9020
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ConditionalFormat14 = Begin
-                        0x010001000000000000000200000001000000ffffff00ffffff00010000003000 ,
-                        0x000000000000000000000000000000000000000000
-                    End
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =793
-                    Width =4932
-                    Height =345
-                    FontSize =12
-                    BorderColor =8355711
-                    Name ="Étiquette52"
-                    Caption ="TOTAL"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =793
-                    LayoutCachedWidth =5725
-                    LayoutCachedHeight =345
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =9355
-                    Top =1077
-                    Width =4365
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette53"
-                    Caption ="Certifié exact: Le directeur / Le chef de service"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9355
-                    LayoutCachedTop =1077
-                    LayoutCachedWidth =13720
-                    LayoutCachedHeight =1362
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =12302
-                    Width =2948
-                    Height =345
-                    TabIndex =4
-                    ForeColor =4210752
-                    Name ="Texte60"
-                    ControlSource ="=\"\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12302
-                    LayoutCachedWidth =15250
-                    LayoutCachedHeight =345
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
- Me.imgLogo.Picture = get_lien("logo_cd67")
-Me.OrderBy = "[JourRH] ASC"
-Me.OrderByOn = True
-End Sub

test/source/reports/Et_FormHS_original.pv

@@ -1,5 +0,0 @@
-2
-9
-2970
-2100
-100

test/source/reports/Et_RecapEFD.bas

@@ -1,1383 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =15987
-    DatasheetFontHeight =11
-    ItemSuffix =102
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xa791bd802f6ae440
-    End
-    RecordSource ="r_TabRecapEFD"
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x6801000068010000680100006801000000000000733e00005401000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin Image
-            OldBorderStyle =0
-            BorderLineStyle =0
-            SizeMode =3
-            PictureAlignment =2
-            Width =1701
-            Height =1701
-            BorderColor =16777215
-            GridlineColor =16777215
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =0
-            BackColor =15849926
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =2
-            BackTint =20.0
-        End
-        Begin PageHeader
-            Height =1821
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =5725
-                    Top =396
-                    Width =2376
-                    Height =337
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette0"
-                    Caption ="Tableau récapitulatif de :"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5725
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =8101
-                    LayoutCachedHeight =733
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    IMESentenceMode =3
-                    Left =8219
-                    Top =396
-                    Width =4082
-                    Height =315
-                    ColumnOrder =0
-                    FontWeight =700
-                    BorderColor =10921638
-                    Name ="Texte1"
-                    ControlSource ="Nom"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8219
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =12301
-                    LayoutCachedHeight =711
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =3756
-                    Top =1246
-                    Width =780
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette39"
-                    Caption ="Date"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3756
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =4536
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =1262
-                    Top =963
-                    Width =2490
-                    Height =855
-                    FontSize =8
-                    Name ="Étiquette40"
-                    Caption ="Itineraire"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1262
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =3752
-                    LayoutCachedHeight =1818
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =9992
-                    Top =963
-                    Width =840
-                    Height =855
-                    FontSize =8
-                    Name ="Étiquette41"
-                    Caption ="Véhicule personnel (en km)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9992
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =10832
-                    LayoutCachedHeight =1818
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =10828
-                    Top =1416
-                    Width =960
-                    Height =405
-                    FontSize =8
-                    Name ="Étiquette42"
-                    Caption ="Repas taux plein"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10828
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =11788
-                    LayoutCachedHeight =1821
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =6633
-                    Top =963
-                    Width =735
-                    Height =855
-                    FontSize =8
-                    Name ="Étiquette43"
-                    Caption ="Moyen de transport"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =7368
-                    LayoutCachedHeight =1818
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =14868
-                    Top =963
-                    Width =1005
-                    Height =855
-                    FontSize =8
-                    Name ="Étiquette44"
-                    Caption ="Observations"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =14868
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =15873
-                    LayoutCachedHeight =1818
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =5167
-                    Top =1246
-                    Width =855
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette45"
-                    Caption ="Date"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5167
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =6022
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =56
-                    Top =963
-                    Width =1200
-                    Height =855
-                    FontSize =8
-                    Name ="Étiquette46"
-                    Caption ="Motif des déplacements"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =1256
-                    LayoutCachedHeight =1818
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =4535
-                    Top =1246
-                    Width =631
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette47"
-                    Caption ="Heure"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4535
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =5166
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =6009
-                    Top =1246
-                    Width =615
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette48"
-                    Caption ="Heure"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =6009
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =6624
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =3756
-                    Top =963
-                    Width =1408
-                    Height =286
-                    FontSize =8
-                    Name ="Étiquette49"
-                    Caption ="Depart"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3756
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =5164
-                    LayoutCachedHeight =1249
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =5167
-                    Top =963
-                    Width =1470
-                    Height =285
-                    FontSize =8
-                    Name ="Étiquette50"
-                    Caption ="Retour"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =5167
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =6637
-                    LayoutCachedHeight =1248
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =7370
-                    Top =1246
-                    Width =690
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette51"
-                    Caption ="Tram ou métro"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7370
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =8060
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =8050
-                    Top =1246
-                    Width =1410
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette52"
-                    Caption ="Péage, parking, gare ou aéroport"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =8050
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =9460
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =9467
-                    Top =1246
-                    Width =525
-                    Height =570
-                    FontSize =8
-                    Name ="Étiquette53"
-                    Caption ="Divers"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9467
-                    LayoutCachedTop =1246
-                    LayoutCachedWidth =9992
-                    LayoutCachedHeight =1816
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =12684
-                    Top =1416
-                    Width =795
-                    Height =405
-                    FontSize =8
-                    Name ="Étiquette54"
-                    Caption ="Découcher"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =12684
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =13479
-                    LayoutCachedHeight =1821
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =11792
-                    Top =1416
-                    Width =900
-                    Height =405
-                    FontSize =8
-                    Name ="Étiquette55"
-                    Caption ="Repas taux réduit"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =11792
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =12692
-                    LayoutCachedHeight =1821
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =13988
-                    Top =1416
-                    Width =870
-                    Height =405
-                    FontSize =8
-                    Name ="Étiquette56"
-                    Caption ="Découcher"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =13988
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =14858
-                    LayoutCachedHeight =1821
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =13492
-                    Top =1416
-                    Width =510
-                    Height =405
-                    FontSize =8
-                    Name ="Étiquette57"
-                    Caption ="Repas "
-                    GridlineColor =10921638
-                    LayoutCachedLeft =13492
-                    LayoutCachedTop =1416
-                    LayoutCachedWidth =14002
-                    LayoutCachedHeight =1821
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =7370
-                    Top =963
-                    Width =2625
-                    Height =285
-                    FontSize =8
-                    Name ="Étiquette58"
-                    Caption ="Frais de transport"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7370
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =9995
-                    LayoutCachedHeight =1248
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =10828
-                    Top =963
-                    Width =4035
-                    Height =225
-                    FontSize =8
-                    Name ="Étiquette59"
-                    Caption ="Nombre d'indemnités"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10828
-                    LayoutCachedTop =963
-                    LayoutCachedWidth =14863
-                    LayoutCachedHeight =1188
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =10828
-                    Top =1190
-                    Width =2655
-                    Height =225
-                    FontSize =8
-                    Name ="Étiquette60"
-                    Caption ="Mission"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =10828
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =13483
-                    LayoutCachedHeight =1415
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    TextAlign =2
-                    Left =13492
-                    Top =1190
-                    Width =1380
-                    Height =225
-                    FontSize =8
-                    Name ="Étiquette61"
-                    Caption ="Hors France"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =13492
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =14872
-                    LayoutCachedHeight =1415
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    TextAlign =2
-                    Left =3685
-                    Top =56
-                    Width =8503
-                    Height =227
-                    FontSize =9
-                    BorderColor =8355711
-                    ForeColor =4210752
-                    Name ="Étiquette101"
-                    Caption ="Parc Départemental d'Erstein - Conseil Général du Bas-Rhin"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =3685
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =12188
-                    LayoutCachedHeight =283
-                    ForeTint =75.0
-                End
-                Begin Image
-                    BackStyle =0
-                    PictureType =1
-                    Left =283
-                    Top =56
-                    Width =2245
-                    Height =805
-                    BorderColor =10921638
-                    Name ="imgLogo"
-                    ControlTipText ="Auto_Logo0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =283
-                    LayoutCachedTop =56
-                    LayoutCachedWidth =2528
-                    LayoutCachedHeight =861
-                    TabIndex =1
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            Height =340
-            Name ="Détail"
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3741
-                    Width =810
-                    Height =330
-                    FontSize =7
-                    Name ="DateRH"
-                    ControlSource ="DateRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3741
-                    LayoutCachedWidth =4551
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =1247
-                    Width =2496
-                    Height =330
-                    ColumnWidth =3345
-                    FontSize =8
-                    TabIndex =1
-                    Name ="Itineraire"
-                    ControlSource ="Itineraire"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1247
-                    LayoutCachedWidth =3743
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9977
-                    Width =846
-                    Height =330
-                    ColumnWidth =3720
-                    FontSize =8
-                    TabIndex =2
-                    Name ="Distance_perso"
-                    ControlSource ="=Nz([Distance2_perso],0)+Nz([Distance1_perso],0)"
-                    Format ="Standard"
-                    StatusBarText ="Sur site, hors heures de travail, vehicule perso"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9977
-                    LayoutCachedWidth =10823
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10828
-                    Width =966
-                    Height =330
-                    FontSize =8
-                    TabIndex =3
-                    Name ="NbRepas"
-                    ControlSource ="Repas"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10828
-                    LayoutCachedWidth =11794
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6633
-                    Width =741
-                    Height =330
-                    FontSize =8
-                    TabIndex =4
-                    Name ="Vehicule"
-                    ControlSource ="Vehicule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedWidth =7374
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =14853
-                    Width =1011
-                    Height =330
-                    FontSize =8
-                    TabIndex =5
-                    Name ="Remarque"
-                    ControlSource ="Remarque"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =14853
-                    LayoutCachedWidth =15864
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5167
-                    Width =846
-                    Height =330
-                    FontSize =7
-                    TabIndex =6
-                    Name ="Texte9"
-                    ControlSource ="DateRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5167
-                    LayoutCachedWidth =6013
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =56
-                    Width =1199
-                    Height =330
-                    FontSize =8
-                    TabIndex =7
-                    Name ="Texte13"
-                    ControlSource ="=\"Chantiers\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =1255
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =4535
-                    Width =631
-                    Height =330
-                    FontSize =8
-                    TabIndex =8
-                    Name ="Texte15"
-                    ControlSource ="=\"7h30\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4535
-                    LayoutCachedWidth =5166
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6009
-                    Width =627
-                    Height =330
-                    FontSize =8
-                    TabIndex =9
-                    Name ="Texte17"
-                    ControlSource ="=\"16h30\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6009
-                    LayoutCachedWidth =6636
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7370
-                    Width =702
-                    Height =330
-                    FontSize =8
-                    TabIndex =10
-                    Name ="Texte21"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7370
-                    LayoutCachedWidth =8072
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =8050
-                    Width =1422
-                    Height =330
-                    FontSize =8
-                    TabIndex =11
-                    Name ="Texte23"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8050
-                    LayoutCachedWidth =9472
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9467
-                    Width =522
-                    Height =330
-                    FontSize =8
-                    TabIndex =12
-                    Name ="Texte25"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9467
-                    LayoutCachedWidth =9989
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =12684
-                    Width =807
-                    Height =330
-                    FontSize =8
-                    TabIndex =13
-                    Name ="Texte27"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12684
-                    LayoutCachedWidth =13491
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =11792
-                    Width =897
-                    Height =330
-                    FontSize =8
-                    TabIndex =14
-                    Name ="Texte29"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11792
-                    LayoutCachedWidth =12689
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =13988
-                    Width =882
-                    Height =330
-                    FontSize =8
-                    TabIndex =15
-                    Name ="Texte31"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13988
-                    LayoutCachedWidth =14870
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =13492
-                    Width =507
-                    Height =330
-                    FontSize =8
-                    TabIndex =16
-                    Name ="Texte33"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13492
-                    LayoutCachedWidth =13999
-                    LayoutCachedHeight =330
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-            End
-        End
-        Begin PageFooter
-            Height =0
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            Height =1927
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =3757
-                    Width =795
-                    Height =285
-                    FontSize =8
-                    Name ="Texte80"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3757
-                    LayoutCachedWidth =4552
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =1
-                    IMESentenceMode =3
-                    Left =1243
-                    Width =2511
-                    Height =285
-                    FontSize =8
-                    TabIndex =1
-                    Name ="Texte81"
-                    ControlSource ="=\"Totaux\""
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1243
-                    LayoutCachedWidth =3754
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    DecimalPlaces =0
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9973
-                    Width =846
-                    Height =285
-                    FontSize =8
-                    TabIndex =2
-                    Name ="Texte82"
-                    ControlSource ="=Sum([Distance1_perso])+Sum([Distance2_perso])"
-                    Format ="Standard"
-                    StatusBarText ="Sur site, hors heures de travail, vehicule perso"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9973
-                    LayoutCachedWidth =10819
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =10824
-                    Width =966
-                    Height =285
-                    FontSize =8
-                    TabIndex =3
-                    Name ="Texte83"
-                    ControlSource ="=Sum([Repas])"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =10824
-                    LayoutCachedWidth =11790
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6629
-                    Width =741
-                    Height =285
-                    FontSize =8
-                    TabIndex =4
-                    Name ="Texte84"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6629
-                    LayoutCachedWidth =7370
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =14849
-                    Width =1011
-                    Height =285
-                    FontSize =8
-                    TabIndex =5
-                    Name ="Texte85"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =14849
-                    LayoutCachedWidth =15860
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =5163
-                    Width =846
-                    Height =285
-                    FontSize =8
-                    TabIndex =6
-                    Name ="Texte86"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =5163
-                    LayoutCachedWidth =6009
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =4524
-                    Width =631
-                    Height =285
-                    FontSize =8
-                    TabIndex =7
-                    Name ="Texte87"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4524
-                    LayoutCachedWidth =5155
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =6005
-                    Width =627
-                    Height =285
-                    FontSize =8
-                    TabIndex =8
-                    Name ="Texte88"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6005
-                    LayoutCachedWidth =6632
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =7366
-                    Width =702
-                    Height =285
-                    FontSize =8
-                    TabIndex =9
-                    Name ="Texte89"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7366
-                    LayoutCachedWidth =8068
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =8046
-                    Width =1422
-                    Height =285
-                    FontSize =8
-                    TabIndex =10
-                    Name ="Texte90"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8046
-                    LayoutCachedWidth =9468
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =9463
-                    Width =522
-                    Height =285
-                    FontSize =8
-                    TabIndex =11
-                    Name ="Texte91"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =9463
-                    LayoutCachedWidth =9985
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =12680
-                    Width =807
-                    Height =285
-                    FontSize =8
-                    TabIndex =12
-                    Name ="Texte92"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =12680
-                    LayoutCachedWidth =13487
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =11788
-                    Width =897
-                    Height =285
-                    FontSize =8
-                    TabIndex =13
-                    Name ="Texte93"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =11788
-                    LayoutCachedWidth =12685
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =13984
-                    Width =882
-                    Height =285
-                    FontSize =8
-                    TabIndex =14
-                    Name ="Texte94"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13984
-                    LayoutCachedWidth =14866
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =13488
-                    Width =507
-                    Height =285
-                    FontSize =8
-                    TabIndex =15
-                    Name ="Texte95"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =13488
-                    LayoutCachedWidth =13995
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    BorderWidth =1
-                    Left =56
-                    Top =283
-                    Width =15810
-                    Height =225
-                    FontSize =9
-                    FontWeight =700
-                    Name ="Étiquette97"
-                    Caption ="L'état de frais de déplacement, avec toutes les pièces justificatives, est à tra"
-                        "nsmettre pour traitement en double exemplaire au SG du PAP pour les agents affec"
-                        "tés au PAP ou à la DRH/SGSRH pour les autres pôles"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =56
-                    LayoutCachedTop =283
-                    LayoutCachedWidth =15866
-                    LayoutCachedHeight =508
-                    BorderTint =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    BorderWidth =1
-                    TextAlign =2
-                    IMESentenceMode =3
-                    Left =56
-                    Width =1206
-                    Height =285
-                    FontSize =8
-                    TabIndex =16
-                    Name ="Texte98"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =56
-                    LayoutCachedWidth =1262
-                    LayoutCachedHeight =285
-                    BorderThemeColorIndex =0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =9354
-                    Top =623
-                    Width =4365
-                    Height =285
-                    FontSize =9
-                    BorderColor =8355711
-                    Name ="Étiquette100"
-                    Caption ="Certifié exact: Le directeur / Le chef de service"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =9354
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =13719
-                    LayoutCachedHeight =908
-                    ForeTint =100.0
-                End
-            End
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_Open(Cancel As Integer)
- Me.imgLogo.Picture = get_lien("logo_cd67")
-Me.OrderBy = "[DateRH] ASC"
-Me.OrderByOn = True
-End Sub

test/source/reports/Et_RecapEFD.pv

@@ -1,5 +0,0 @@
-2
-9
-2970
-2100
-100

test/source/reports/SEt_EFD_IndemnJour.bas

@@ -1,801 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =9694
-    DatasheetFontHeight =11
-    ItemSuffix =40
-    Left =780
-    Top =4350
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0xdd84b7ee6e38e440
-    End
-    RecordSource ="r_IndemnJournalieres"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x0000000000000000000000000000000000000000de250000340a000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin PageHeader
-            Height =0
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =2612
-            Name ="Détail"
-            AutoHeight =255
-            AlternateBackColor =15921906
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =170
-                    Top =113
-                    Width =1814
-                    Height =283
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="En France:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =1984
-                    LayoutCachedHeight =396
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =170
-                    Top =1247
-                    Width =1814
-                    Height =283
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="Hors-France:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =1247
-                    LayoutCachedWidth =1984
-                    LayoutCachedHeight =1530
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2325
-                    Top =113
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="NbRepasTxPlein"
-                    ControlSource ="Repas"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2325
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =3171
-                    LayoutCachedHeight =338
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6462
-                    Top =113
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    TabIndex =1
-                    BorderColor =8355711
-                    Name ="CoutRepasTxPlein"
-                    ControlSource ="TarifRepas"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    StatusBarText ="cf. tbl_baremes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6462
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =7308
-                    LayoutCachedHeight =338
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =3742
-                            Top =113
-                            Width =2100
-                            Height =480
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette4"
-                            Caption ="repas taux plein midi ou soir à"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3742
-                            LayoutCachedTop =113
-                            LayoutCachedWidth =5842
-                            LayoutCachedHeight =593
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =7257
-                    Top =113
-                    Width =344
-                    Height =238
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette5"
-                    Caption ="  ="
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7257
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =7601
-                    LayoutCachedHeight =351
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7647
-                    Top =113
-                    Width =1086
-                    FontSize =10
-                    TabIndex =2
-                    BorderColor =8355711
-                    Name ="MontantRepasTxPlein"
-                    ControlSource ="TotalRepas"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7647
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =8733
-                    LayoutCachedHeight =353
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6463
-                    Top =566
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    TabIndex =3
-                    BorderColor =8355711
-                    Name ="CoutDecoucher"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    StatusBarText ="cf. tbl_baremes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6463
-                    LayoutCachedTop =566
-                    LayoutCachedWidth =7309
-                    LayoutCachedHeight =791
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =3742
-                            Top =623
-                            Width =2100
-                            Height =240
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette9"
-                            Caption ="découchers à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3742
-                            LayoutCachedTop =623
-                            LayoutCachedWidth =5842
-                            LayoutCachedHeight =863
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =7257
-                    Top =623
-                    Width =344
-                    Height =238
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette10"
-                    Caption ="  ="
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7257
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =7601
-                    LayoutCachedHeight =861
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7647
-                    Top =623
-                    Width =1086
-                    FontSize =10
-                    TabIndex =4
-                    BorderColor =8355711
-                    Name ="MontantDecoucher"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7647
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =8733
-                    LayoutCachedHeight =863
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6462
-                    Top =849
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    TabIndex =5
-                    BorderColor =8355711
-                    Name ="CoutDecouchersParis"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    StatusBarText ="cf. tbl_baremes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6462
-                    LayoutCachedTop =849
-                    LayoutCachedWidth =7308
-                    LayoutCachedHeight =1074
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =3741
-                            Top =906
-                            Width =2100
-                            Height =240
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette14"
-                            Caption ="découchers à Paris à"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3741
-                            LayoutCachedTop =906
-                            LayoutCachedWidth =5841
-                            LayoutCachedHeight =1146
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =7256
-                    Top =906
-                    Width =344
-                    Height =238
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette15"
-                    Caption ="  ="
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7256
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =7600
-                    LayoutCachedHeight =1144
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7646
-                    Top =906
-                    Width =1086
-                    FontSize =10
-                    TabIndex =6
-                    BorderColor =8355711
-                    Name ="MontantDecouchersParis"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7646
-                    LayoutCachedTop =906
-                    LayoutCachedWidth =8732
-                    LayoutCachedHeight =1146
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2325
-                    Top =623
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    TabIndex =7
-                    BorderColor =8355711
-                    Name ="NbDecouchers"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2325
-                    LayoutCachedTop =623
-                    LayoutCachedWidth =3171
-                    LayoutCachedHeight =848
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2324
-                    Top =915
-                    Width =846
-                    Height =225
-                    FontSize =10
-                    TabIndex =8
-                    BorderColor =8355711
-                    Name ="NbDecouchersParis"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2324
-                    LayoutCachedTop =915
-                    LayoutCachedWidth =3170
-                    LayoutCachedHeight =1140
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2325
-                    Top =1247
-                    Width =846
-                    Height =270
-                    FontSize =10
-                    TabIndex =9
-                    BorderColor =8355711
-                    Name ="NbRepasTxPleinHF"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2325
-                    LayoutCachedTop =1247
-                    LayoutCachedWidth =3171
-                    LayoutCachedHeight =1517
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6463
-                    Top =1190
-                    Width =846
-                    Height =270
-                    FontSize =10
-                    TabIndex =10
-                    BorderColor =8355711
-                    Name ="CoutRepasTxPleinHF"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    StatusBarText ="cf. tbl_baremes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6463
-                    LayoutCachedTop =1190
-                    LayoutCachedWidth =7309
-                    LayoutCachedHeight =1460
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =3742
-                            Top =1247
-                            Width =2100
-                            Height =525
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette22"
-                            Caption ="repas taux plein midi ou soir à"
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3742
-                            LayoutCachedTop =1247
-                            LayoutCachedWidth =5842
-                            LayoutCachedHeight =1772
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =7257
-                    Top =1247
-                    Width =344
-                    Height =283
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette23"
-                    Caption ="  ="
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7257
-                    LayoutCachedTop =1247
-                    LayoutCachedWidth =7601
-                    LayoutCachedHeight =1530
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7647
-                    Top =1247
-                    Width =1086
-                    Height =285
-                    FontSize =10
-                    TabIndex =11
-                    BorderColor =8355711
-                    Name ="MontantRepasTxPleinHF"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7647
-                    LayoutCachedTop =1247
-                    LayoutCachedWidth =8733
-                    LayoutCachedHeight =1532
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6462
-                    Top =1700
-                    Width =846
-                    Height =270
-                    FontSize =10
-                    TabIndex =12
-                    BorderColor =8355711
-                    Name ="CoutDecoucherHF"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    StatusBarText ="cf. tbl_baremes"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6462
-                    LayoutCachedTop =1700
-                    LayoutCachedWidth =7308
-                    LayoutCachedHeight =1970
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =3741
-                            Top =1757
-                            Width =2100
-                            Height =285
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette27"
-                            Caption ="découchers à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =3741
-                            LayoutCachedTop =1757
-                            LayoutCachedWidth =5841
-                            LayoutCachedHeight =2042
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =7256
-                    Top =1757
-                    Width =344
-                    Height =283
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette28"
-                    Caption ="  ="
-                    GridlineColor =10921638
-                    LayoutCachedLeft =7256
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =7600
-                    LayoutCachedHeight =2040
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7646
-                    Top =1757
-                    Width =1086
-                    Height =285
-                    FontSize =10
-                    TabIndex =13
-                    BorderColor =8355711
-                    Name ="MontantDecoucherHF"
-                    ControlSource ="=0"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7646
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =8732
-                    LayoutCachedHeight =2042
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =2324
-                    Top =1757
-                    Width =846
-                    Height =270
-                    FontSize =10
-                    TabIndex =14
-                    BorderColor =8355711
-                    Name ="NbDecouchersHF"
-                    ControlSource ="=0"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2324
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =3170
-                    LayoutCachedHeight =2027
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =4875
-                    Top =2267
-                    Width =3247
-                    Height =340
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette32"
-                    Caption ="Total des indemnités journalières:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4875
-                    LayoutCachedTop =2267
-                    LayoutCachedWidth =8122
-                    LayoutCachedHeight =2607
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    FontUnderline = NotDefault
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8220
-                    Top =2267
-                    Width =1375
-                    Height =345
-                    FontWeight =700
-                    TabIndex =15
-                    BorderColor =8355711
-                    Name ="TotalIndemnJr"
-                    ControlSource ="=Nz([MontantRepasTxPlein],0)+Nz([MontantDecoucher],0)+Nz([MontantRepasTxPleinHF]"
-                        ",0)+Nz([MontantDecoucherHF],0)+Nz([MontantDecouchersParis],0)"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8220
-                    LayoutCachedTop =2267
-                    LayoutCachedWidth =9595
-                    LayoutCachedHeight =2612
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =170
-                    Top =453
-                    Width =741
-                    Height =165
-                    TabIndex =16
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =453
-                    LayoutCachedWidth =911
-                    LayoutCachedHeight =618
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =170
-                    Top =680
-                    Width =741
-                    Height =165
-                    TabIndex =17
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MoisRH"
-                    ControlSource ="MoisRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =911
-                    LayoutCachedHeight =845
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =170
-                    Top =907
-                    Width =741
-                    Height =165
-                    TabIndex =18
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =170
-                    LayoutCachedTop =907
-                    LayoutCachedWidth =911
-                    LayoutCachedHeight =1072
-                End
-            End
-        End
-        Begin PageFooter
-            Height =0
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End

test/source/reports/SEt_EFD_IndemnJour.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-100

test/source/reports/SEt_EFD_IndemnKM.bas

@@ -1,961 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowAdditions = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =9751
-    DatasheetFontHeight =11
-    ItemSuffix =42
-    DatasheetGridlinesColor =14806254
-    OnNoData ="[Event Procedure]"
-    RecSrcDt = Begin
-        0xf1d68355d43be440
-    End
-    RecordSource ="SELECT r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.P"
-        "eriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehi"
-        "cule FROM r_FraisKm3 GROUP BY r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisK"
-        "m3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBare"
-        "me, r_FraisKm3.TypeVehicule; "
-    OnOpen ="[Event Procedure]"
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x0000000000000000000000000300000000000000172600006a08000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin PageHeader
-            Height =0
-            Name ="ZoneEntêtePage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            CanGrow = NotDefault
-            CanShrink = NotDefault
-            Height =2154
-            Name ="Détail"
-            AlternateBackColor =16777215
-            AlternateBackThemeColorIndex =1
-            BackThemeColorIndex =1
-            Begin
-                Begin Label
-                    Left =113
-                    Top =113
-                    Width =1308
-                    Height =280
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette1"
-                    Caption ="Automobile"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =1421
-                    LayoutCachedHeight =393
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =113
-                    Top =1077
-                    Width =3360
-                    Height =285
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette2"
-                    Caption ="Motocyclette (cylindrée sup. à 125 cm3)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =1077
-                    LayoutCachedWidth =3473
-                    LayoutCachedHeight =1362
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =120
-                    Top =1424
-                    Width =3360
-                    Height =285
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="Étiquette3"
-                    Caption ="Vélomoteur (cylindrée de 50 à 125 cm3)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =120
-                    LayoutCachedTop =1424
-                    LayoutCachedWidth =3480
-                    LayoutCachedHeight =1709
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1530
-                    Top =113
-                    Width =3120
-                    Height =270
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="jusqu"
-                    Caption ="jusqu'à 2000 Km"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1530
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =4650
-                    LayoutCachedHeight =383
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1530
-                    Top =383
-                    Width =3120
-                    Height =285
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="de"
-                    Caption ="de 2000 à 10000 Km"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1530
-                    LayoutCachedTop =383
-                    LayoutCachedWidth =4650
-                    LayoutCachedHeight =668
-                    ForeTint =100.0
-                End
-                Begin Label
-                    Left =1530
-                    Top =668
-                    Width =3120
-                    Height =285
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="apres"
-                    Caption ="aprés 10000 Km"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =1530
-                    LayoutCachedTop =668
-                    LayoutCachedWidth =4650
-                    LayoutCachedHeight =953
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4988
-                    Top =113
-                    Width =1009
-                    Height =270
-                    FontSize =10
-                    BorderColor =8355711
-                    Name ="NbAuto0"
-                    ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
-                        "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
-                        "=\" & [AnneeRH] & \" AND [BorneInf]=0\"),0),0)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4988
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =5997
-                    LayoutCachedHeight =383
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4988
-                    Top =396
-                    Width =1009
-                    Height =270
-                    FontSize =10
-                    TabIndex =1
-                    BorderColor =8355711
-                    Name ="NbAuto2000"
-                    ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
-                        "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
-                        "=\" & [AnneeRH] & \" AND [BorneInf]=2000\"),0),0)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4988
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =5997
-                    LayoutCachedHeight =666
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4988
-                    Top =680
-                    Width =1009
-                    Height =270
-                    FontSize =10
-                    TabIndex =2
-                    BorderColor =8355711
-                    Name ="NbAuto10000"
-                    ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
-                        "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
-                        "=\" & [AnneeRH] & \" AND [BorneInf]=10000\"),0),0)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4988
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =5997
-                    LayoutCachedHeight =950
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4988
-                    Top =1070
-                    Width =1009
-                    Height =270
-                    FontSize =10
-                    TabIndex =3
-                    BorderColor =8355711
-                    Name ="NbMoto"
-                    ControlSource ="=IIf([TypeVehicule]=2,Nz([DistanceMois],0),0)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4988
-                    LayoutCachedTop =1070
-                    LayoutCachedWidth =5997
-                    LayoutCachedHeight =1340
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =4988
-                    Top =1417
-                    Width =1009
-                    Height =270
-                    FontSize =10
-                    TabIndex =4
-                    BorderColor =8355711
-                    Name ="NbVelo"
-                    ControlSource ="=IIf([TypeVehicule]=3,Nz([DistanceMois],0),0)"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4988
-                    LayoutCachedTop =1417
-                    LayoutCachedWidth =5997
-                    LayoutCachedHeight =1687
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6633
-                    Top =113
-                    Width =691
-                    Height =270
-                    FontSize =10
-                    TabIndex =5
-                    BorderColor =8355711
-                    Name ="coutAuto0"
-                    ControlSource ="=Bareme([NomBareme],1999,[MoisRH],[AnneeRH])"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =7324
-                    LayoutCachedHeight =383
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =6066
-                            Top =113
-                            Width =510
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette14"
-                            Caption ="km à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6066
-                            LayoutCachedTop =113
-                            LayoutCachedWidth =6576
-                            LayoutCachedHeight =383
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6633
-                    Top =396
-                    Width =691
-                    Height =270
-                    FontSize =10
-                    TabIndex =6
-                    BorderColor =8355711
-                    Name ="CoutAuto2000"
-                    ControlSource ="=Bareme([NomBareme],9999,[MoisRH],[AnneeRH])"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =7324
-                    LayoutCachedHeight =666
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =6066
-                            Top =396
-                            Width =510
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette16"
-                            Caption ="km à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6066
-                            LayoutCachedTop =396
-                            LayoutCachedWidth =6576
-                            LayoutCachedHeight =666
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6633
-                    Top =680
-                    Width =691
-                    Height =270
-                    FontSize =10
-                    TabIndex =7
-                    BorderColor =8355711
-                    Name ="CoutAuto10000"
-                    ControlSource ="=Bareme([NomBareme],99999,[MoisRH],[AnneeRH])"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =7324
-                    LayoutCachedHeight =950
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =6066
-                            Top =680
-                            Width =510
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette18"
-                            Caption ="km à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6066
-                            LayoutCachedTop =680
-                            LayoutCachedWidth =6576
-                            LayoutCachedHeight =950
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6633
-                    Top =1070
-                    Width =691
-                    Height =270
-                    FontSize =10
-                    TabIndex =8
-                    BorderColor =8355711
-                    Name ="CoutMoto"
-                    ControlSource ="=Bareme('Frais Kilométriques (2)',0,[MoisRH],[AnneeRH])"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =1070
-                    LayoutCachedWidth =7324
-                    LayoutCachedHeight =1340
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =6066
-                            Top =1070
-                            Width =510
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette20"
-                            Caption ="km à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6066
-                            LayoutCachedTop =1070
-                            LayoutCachedWidth =6576
-                            LayoutCachedHeight =1340
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =6633
-                    Top =1417
-                    Width =691
-                    Height =270
-                    FontSize =10
-                    TabIndex =9
-                    BorderColor =8355711
-                    Name ="CoutVelo"
-                    ControlSource ="=Bareme('Frais Kilométriques (3)',0,[MoisRH],[AnneeRH])"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =6633
-                    LayoutCachedTop =1417
-                    LayoutCachedWidth =7324
-                    LayoutCachedHeight =1687
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =6066
-                            Top =1417
-                            Width =510
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette22"
-                            Caption ="km à "
-                            GridlineColor =10921638
-                            LayoutCachedLeft =6066
-                            LayoutCachedTop =1417
-                            LayoutCachedWidth =6576
-                            LayoutCachedHeight =1687
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =113
-                    Width =1040
-                    Height =270
-                    FontSize =10
-                    TabIndex =10
-                    BorderColor =8355711
-                    Name ="MontantAuto0"
-                    ControlSource ="=[NbAuto0]*[coutAuto0]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =113
-                    LayoutCachedWidth =8750
-                    LayoutCachedHeight =383
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =7313
-                            Top =113
-                            Width =285
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette24"
-                            Caption =" ="
-                            GridlineColor =10921638
-                            LayoutCachedLeft =7313
-                            LayoutCachedTop =113
-                            LayoutCachedWidth =7598
-                            LayoutCachedHeight =383
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =396
-                    Width =1040
-                    Height =270
-                    FontSize =10
-                    TabIndex =11
-                    BorderColor =8355711
-                    Name ="MontantAuto2000"
-                    ControlSource ="=[NbAuto2000]*[coutAuto2000]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =396
-                    LayoutCachedWidth =8750
-                    LayoutCachedHeight =666
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =7313
-                            Top =396
-                            Width =285
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette26"
-                            Caption =" ="
-                            GridlineColor =10921638
-                            LayoutCachedLeft =7313
-                            LayoutCachedTop =396
-                            LayoutCachedWidth =7598
-                            LayoutCachedHeight =666
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =680
-                    Width =1040
-                    Height =270
-                    FontSize =10
-                    TabIndex =12
-                    BorderColor =8355711
-                    Name ="MontantAuto10000"
-                    ControlSource ="=[NbAuto10000]*[coutAuto10000]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =680
-                    LayoutCachedWidth =8750
-                    LayoutCachedHeight =950
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =7313
-                            Top =680
-                            Width =285
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette28"
-                            Caption =" ="
-                            GridlineColor =10921638
-                            LayoutCachedLeft =7313
-                            LayoutCachedTop =680
-                            LayoutCachedWidth =7598
-                            LayoutCachedHeight =950
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =1070
-                    Width =1040
-                    Height =270
-                    FontSize =10
-                    TabIndex =13
-                    BorderColor =8355711
-                    Name ="MontantMoto"
-                    ControlSource ="=[NbMoto]*[coutMoto]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =1070
-                    LayoutCachedWidth =8750
-                    LayoutCachedHeight =1340
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =7313
-                            Top =1070
-                            Width =285
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette30"
-                            Caption =" ="
-                            GridlineColor =10921638
-                            LayoutCachedLeft =7313
-                            LayoutCachedTop =1070
-                            LayoutCachedWidth =7598
-                            LayoutCachedHeight =1340
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin TextBox
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =7710
-                    Top =1417
-                    Width =1040
-                    Height =270
-                    FontSize =10
-                    TabIndex =14
-                    BorderColor =8355711
-                    Name ="MontantVelo"
-                    ControlSource ="=[NbVelo]*[CoutVelo]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =7710
-                    LayoutCachedTop =1417
-                    LayoutCachedWidth =8750
-                    LayoutCachedHeight =1687
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                    Begin
-                        Begin Label
-                            Left =7313
-                            Top =1417
-                            Width =285
-                            Height =270
-                            FontSize =10
-                            BorderColor =8355711
-                            Name ="Étiquette32"
-                            Caption =" ="
-                            GridlineColor =10921638
-                            LayoutCachedLeft =7313
-                            LayoutCachedTop =1417
-                            LayoutCachedWidth =7598
-                            LayoutCachedHeight =1687
-                            ForeTint =100.0
-                        End
-                    End
-                End
-                Begin Label
-                    Left =4705
-                    Top =1757
-                    Width =3750
-                    Height =345
-                    FontWeight =700
-                    BorderColor =8355711
-                    Name ="Étiquette33"
-                    Caption ="Total des indemnités kilométriques:"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =4705
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =8455
-                    LayoutCachedHeight =2102
-                    ForeTint =100.0
-                End
-                Begin TextBox
-                    FontUnderline = NotDefault
-                    OldBorderStyle =0
-                    TextAlign =3
-                    BackStyle =0
-                    IMESentenceMode =3
-                    Left =8447
-                    Top =1757
-                    Width =1087
-                    Height =330
-                    FontWeight =700
-                    TabIndex =15
-                    BorderColor =8355711
-                    Name ="TotalIndemnKm"
-                    ControlSource ="=[MontantAuto0]+[MontantAuto10000]+[MontantAuto2000]+[MontantMoto]+[MontantVelo]"
-                    Format ="#,##0.00 €;-#,##0.00 €"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =8447
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =9534
-                    LayoutCachedHeight =2087
-                    BorderThemeColorIndex =0
-                    BorderTint =50.0
-                    BorderShade =100.0
-                    ForeTint =100.0
-                    CurrencySymbol ="€"
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =113
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =16
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="CodeAgent"
-                    ControlSource ="CodeAgent"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =113
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =689
-                    LayoutCachedHeight =1877
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =793
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =17
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="MoisRH"
-                    ControlSource ="MoisRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =793
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =1369
-                    LayoutCachedHeight =1877
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =1417
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =18
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="AnneeRH"
-                    ControlSource ="AnneeRH"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =1417
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =1993
-                    LayoutCachedHeight =1877
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =2097
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =19
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte39"
-                    ControlSource ="TypeVehicule"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2097
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =2673
-                    LayoutCachedHeight =1877
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =2777
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =20
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte40"
-                    ControlSource ="NomBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2777
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =3353
-                    LayoutCachedHeight =1877
-                End
-                Begin TextBox
-                    Visible = NotDefault
-                    IMESentenceMode =3
-                    Left =3458
-                    Top =1757
-                    Width =576
-                    Height =120
-                    TabIndex =21
-                    BorderColor =10921638
-                    ForeColor =4210752
-                    Name ="Texte41"
-                    ControlSource ="PeriodeBareme"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =3458
-                    LayoutCachedTop =1757
-                    LayoutCachedWidth =4034
-                    LayoutCachedHeight =1877
-                End
-            End
-        End
-        Begin PageFooter
-            Height =0
-            Name ="ZonePiedPage"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End
-CodeBehindForm
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Compare Database
-
-Private Sub Report_NoData(Cancel As Integer)
-'si aucune données, on supprime la requête source de manière à ce que le sous-état s'ouvre quand même
-'SELECT r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehicule FROM r_FraisKm3 GROUP BY r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehicule;
-
-
-End Sub
-
-Private Sub Report_Open(Cancel As Integer)
-'méthode utilisée pour des raisons de qualité de la mise en page:
-'les étiquettes sont mises à jour en fonction des bornes de la table tbl_baremes
-'d'eventuelles nouvelles lignes devront être ajoutées manuellement
-
-Dim rs As DAO.Recordset
-
-'MAJ des etiquettes bornes
-Set rs = CurrentDb.OpenRecordset("SELECT * FROM r_baremes WHERE [NomBareme]='Frais Kilométriques (11)' ORDER BY [BorneInf];")
-rs.MoveFirst
-Me.jusqu.Caption = "jusqu'à " & rs![BorneSup] & " " & rs![UniteBornes]
-rs.MoveNext
-Me.De.Caption = "de " & rs![BorneInf] & " à " & rs![BorneSup] & " " & rs![UniteBornes]
-rs.MoveNext
-Me.apres.Caption = "aprés " & rs![BorneInf] & " " & rs![UniteBornes]
-Set rs = Nothing
-
-
-End Sub

test/source/reports/SEt_EFD_IndemnKM.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-100

test/source/reports/sEt_BaremeHeuresdeRoute.bas

@@ -1,199 +0,0 @@
-Version =20
-VersionRequired =20
-Begin Report
-    LayoutForPrint = NotDefault
-    DividingLines = NotDefault
-    AllowDesignChanges = NotDefault
-    DateGrouping =1
-    GrpKeepTogether =1
-    PictureAlignment =2
-    DatasheetGridlinesBehavior =3
-    GridY =10
-    Width =4592
-    DatasheetFontHeight =11
-    ItemSuffix =26
-    Left =390
-    Top =4275
-    DatasheetGridlinesColor =14806254
-    RecSrcDt = Begin
-        0x30030ac435d1e440
-    End
-    RecordSource ="SELECT r_BaremeHeuresRoute.BorneInf, r_BaremeHeuresRoute.BorneSup, r_BaremeHeure"
-        "sRoute.UniteBornes, r_BaremeHeuresRoute.Valeur AS ValJour, r_BaremeHeuresRouteNu"
-        "it.Valeur AS ValNuit, r_BaremeHeuresRoute.UniteValeur FROM r_BaremeHeuresRoute L"
-        "EFT JOIN r_BaremeHeuresRouteNuit ON (r_BaremeHeuresRoute.BorneInf = r_BaremeHeur"
-        "esRouteNuit.BorneInf) AND (r_BaremeHeuresRoute.BorneSup = r_BaremeHeuresRouteNui"
-        "t.BorneSup); "
-    DatasheetFontName ="Calibri"
-    PrtMip = Begin
-        0x0000000000000000000000000000000000000000f0110000c800000001000000 ,
-        0x010000006801000000000000a10700000100000001000000
-    End
-    FilterOnLoad =0
-    FitToPage =1
-    DisplayOnSharePointSite =1
-    DatasheetAlternateBackColor =15921906
-    DatasheetGridlinesColor12 =0
-    FitToScreen =1
-    DatasheetBackThemeColorIndex =1
-    BorderThemeColorIndex =3
-    ThemeFontIndex =1
-    ForeThemeColorIndex =0
-    AlternateBackThemeColorIndex =1
-    AlternateBackShade =95.0
-    Begin
-        Begin Label
-            BackStyle =0
-            FontSize =11
-            FontName ="Calibri"
-            ThemeFontIndex =1
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =0
-            BorderTint =50.0
-            ForeThemeColorIndex =0
-            ForeTint =50.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin TextBox
-            AddColon = NotDefault
-            FELineBreak = NotDefault
-            BorderLineStyle =0
-            Width =1701
-            LabelX =-1701
-            FontSize =11
-            FontName ="Calibri"
-            AsianLineBreak =1
-            ShowDatePicker =0
-            BackThemeColorIndex =1
-            BorderThemeColorIndex =1
-            BorderShade =65.0
-            ThemeFontIndex =1
-            ForeThemeColorIndex =0
-            ForeTint =75.0
-            GridlineThemeColorIndex =1
-            GridlineShade =65.0
-        End
-        Begin FormHeader
-            KeepTogether = NotDefault
-            Height =453
-            Name ="EntêteÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            Begin
-                Begin Label
-                    FontUnderline = NotDefault
-                    TextAlign =2
-                    Width =4590
-                    Height =199
-                    FontSize =8
-                    BorderColor =8355711
-                    ForeColor =5855577
-                    Name ="Étiquette18"
-                    Caption ="Barême - Heures de route :"
-                    GridlineColor =10921638
-                    LayoutCachedWidth =4590
-                    LayoutCachedHeight =199
-                    BorderThemeColorIndex =1
-                    BorderTint =100.0
-                    BorderShade =50.0
-                    ForeTint =65.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    Top =226
-                    Width =2265
-                    Height =225
-                    FontSize =8
-                    BorderColor =8355711
-                    ForeColor =5855577
-                    Name ="Étiquette19"
-                    Caption =" Km par jour"
-                    GridlineColor =10921638
-                    LayoutCachedTop =226
-                    LayoutCachedWidth =2265
-                    LayoutCachedHeight =451
-                    BorderThemeColorIndex =1
-                    BorderTint =100.0
-                    BorderShade =50.0
-                    ForeTint =65.0
-                End
-                Begin Label
-                    OldBorderStyle =1
-                    Left =2267
-                    Top =226
-                    Width =2325
-                    Height =225
-                    FontSize =8
-                    BorderColor =8355711
-                    ForeColor =5855577
-                    Name ="Étiquette20"
-                    Caption =" Hrs par jour (nuit)"
-                    GridlineColor =10921638
-                    LayoutCachedLeft =2267
-                    LayoutCachedTop =226
-                    LayoutCachedWidth =4592
-                    LayoutCachedHeight =451
-                    BorderThemeColorIndex =1
-                    BorderTint =100.0
-                    BorderShade =50.0
-                    ForeTint =65.0
-                End
-            End
-        End
-        Begin Section
-            KeepTogether = NotDefault
-            Height =200
-            Name ="Détail"
-            AlternateBackColor =16777215
-            AlternateBackThemeColorIndex =1
-            BackThemeColorIndex =1
-            Begin
-                Begin TextBox
-                    IMESentenceMode =3
-                    Width =2265
-                    Height =200
-                    FontSize =8
-                    BorderColor =8355711
-                    ForeColor =5855577
-                    Name ="Texte22"
-                    ControlSource ="=\" \" & [BorneInf] & IIf([BorneSup]>9999,' et +',\" à \" & [BorneSup])"
-                    GridlineColor =10921638
-
-                    LayoutCachedWidth =2265
-                    LayoutCachedHeight =200
-                    BorderShade =50.0
-                    ForeTint =65.0
-                End
-                Begin TextBox
-                    IMESentenceMode =3
-                    Left =2267
-                    Width =2322
-                    Height =200
-                    FontSize =8
-                    TabIndex =1
-                    BorderColor =8355711
-                    ForeColor =5855577
-                    Name ="Texte24"
-                    ControlSource ="=\" \" & [ValJour] & \" \" & [UniteValeur] & IIf([ValNuit]>0,\" (\" & [ValNuit] "
-                        "& \" \" & [UniteValeur] & \") \",\"\")"
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =2267
-                    LayoutCachedWidth =4589
-                    LayoutCachedHeight =200
-                    BorderShade =50.0
-                    ForeTint =65.0
-                End
-            End
-        End
-        Begin FormFooter
-            KeepTogether = NotDefault
-            Height =0
-            Name ="PiedÉtat"
-            AlternateBackThemeColorIndex =1
-            AlternateBackShade =95.0
-            BackThemeColorIndex =1
-        End
-    End
-End

test/source/reports/sEt_BaremeHeuresdeRoute.pv

@@ -1,5 +0,0 @@
-1
-9
-2970
-2100
-100

test/source/tables/tbl_parametre.txt

@@ -1,28 +0,0 @@
-parametre	valeur	valeur2	commentaire
-acces	admin	JACKY07	Administrateur
-acces	admin	olivier	Administrateur
-acces	admin	sylvain	Administrateur
-acces	rw	bernadette	Lecture/Ecriture
-acces	rw	christian	Lecture/Ecriture
-acces	rw	jacky	Lecture/Ecriture
-acces	rw	nadine	Lecture/Ecriture
-acces	rw	stephanie	Lecture/Ecriture
-AvertSQL	0	-	[Avertissements avant MAJ/suppr des données / 1 pour activer, 0 pour desactiver]
-BDD_ParcRH.mdb	L:\\4-transversal\\BDD\\mdb\\	mdb_res	
-BDD_ParcRH.mdb-	C:\\mdb\\	mdb_loc	
-CheminNotice	L:\\4-transversal\\BDD\\cd_install\\AGRHum\\doc\\Notice_AGRHum.docx	chemin	
-Commun_Data.mdb	L:\\4-transversal\\BDD\\mdb\\	mdb_res	
-Commun_Data.mdb-	C:\\mdb\\	mdb_loc	
-db_PDA.mdb	L:\\4-transversal\\BDD\\mdb\\PDA\\		
-db_PDA.mdb-	C:\\mdb\\		
-lecteurVirtuel	S:		nom du lecteur virtuel créé pour se connecter au serveur sharepoint
-Lien_MAJ	L:\\4-transversal\\BDD\\cd_install\\AGRHum\\MAJ\\installation.cmd		
-OuvAutoPDF	False	-	[Ouverture auto des PDF après export]
-PDA.mdb	C:\\APPLIS_PARC\\ANALYTIQUE\\	mdb_res	Version locale de PDA
-PDA.mdb-	C:\\APPLIS_PARC\\ANALYTIQUE\\	mdb_loc	Version locale de PDA
-repExport_xml	\\\\script-umepa-01\\Periple - PARC ERSTEIN\\A_TRAITER		adresse web du sharepoint utilisé pour les exports vers la DRH
-RepXML	C:\\Users\\olivier.massot\\Documents\\sur le feu\\	-	
-RepXML_defaut	L:\\4-transversal\\BDD\\mdb\\PDA\\	-	
-VERSION	10/08/2016	version	
-VERSION_lb	1.11	version	
-VersionPDA	1		

test/source/tables/ztbl_liens.txt

@@ -1,6 +0,0 @@
-nom	mode	lien
-logo_cd67	*	C:\\amap\\programs\\agrhum\\logo_CD67_quadri.jpg
-repExport_xml	*	\\\\script-umepa-01\\Periple - PARC ERSTEIN\\A_TRAITER
-RepXML	*	C:\\amap\\programs\\agrhum\\xml\\
-RepXML_defaut	*	L:\\4-transversal\\BDD\\mdb\\PDA\\
-tmp_xml	*	C:\\amap\\temp\\agrhum\\

test/source/tables/ztbl_vcs.txt

@@ -1,3 +0,0 @@
-key	val
-include_tables	ztbl_vcs,ztbl_liens,tbl_parametre
-sources_date	13/10/2016 16:10:20

test/source/tbldef/ArrayOfAction.sql

@@ -1,3 +0,0 @@
-CREATE TABLE [ArrayOfAction] (
-  [ArrayOfConges] VARCHAR (255)
-)