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