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:\015\012" End Begin Comment ="_AXL:Prompt" 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