frm_Menu.bas 148 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. RecordSelectors = NotDefault
  5. NavigationButtons = NotDefault
  6. AllowDesignChanges = NotDefault
  7. DefaultView =0
  8. PictureAlignment =2
  9. DatasheetGridlinesBehavior =3
  10. GridY =10
  11. Width =14740
  12. DatasheetFontHeight =11
  13. ItemSuffix =111
  14. Right =19725
  15. Bottom =7920
  16. DatasheetGridlinesColor =14806254
  17. Filter ="[Valide]=True AND [CodeAgent]='T6' AND [MoisRH]=1 AND [AnneeRH]=2015"
  18. RecSrcDt = Begin
  19. 0x4fc29a9f1133e440
  20. End
  21. RecordSource ="tbl_SuiviRH"
  22. OnOpen ="[Event Procedure]"
  23. DatasheetFontName ="Calibri"
  24. PrtMip = Begin
  25. 0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
  26. 0x010000006801000000000000a10700000100000001000000
  27. End
  28. FilterOnLoad =0
  29. ShowPageMargins =0
  30. DisplayOnSharePointSite =1
  31. DatasheetAlternateBackColor =15921906
  32. DatasheetGridlinesColor12 =0
  33. FitToScreen =1
  34. DatasheetBackThemeColorIndex =1
  35. BorderThemeColorIndex =3
  36. ThemeFontIndex =1
  37. ForeThemeColorIndex =0
  38. AlternateBackThemeColorIndex =1
  39. AlternateBackShade =95.0
  40. Begin
  41. Begin Label
  42. BackStyle =0
  43. FontSize =11
  44. FontName ="Calibri"
  45. ThemeFontIndex =1
  46. BackThemeColorIndex =1
  47. BorderThemeColorIndex =0
  48. BorderTint =50.0
  49. ForeThemeColorIndex =0
  50. ForeTint =50.0
  51. GridlineThemeColorIndex =1
  52. GridlineShade =65.0
  53. End
  54. Begin Rectangle
  55. SpecialEffect =3
  56. BackStyle =0
  57. BorderLineStyle =0
  58. Width =850
  59. Height =850
  60. BackThemeColorIndex =1
  61. BorderThemeColorIndex =1
  62. BorderShade =65.0
  63. GridlineThemeColorIndex =1
  64. GridlineShade =65.0
  65. End
  66. Begin Image
  67. BackStyle =0
  68. OldBorderStyle =0
  69. BorderLineStyle =0
  70. SizeMode =3
  71. PictureAlignment =2
  72. Width =1701
  73. Height =1701
  74. BorderColor =16777215
  75. GridlineColor =16777215
  76. BackThemeColorIndex =1
  77. BorderThemeColorIndex =1
  78. BorderShade =65.0
  79. GridlineThemeColorIndex =1
  80. GridlineShade =65.0
  81. End
  82. Begin CommandButton
  83. Width =1701
  84. Height =283
  85. FontSize =11
  86. FontWeight =400
  87. ForeColor =-1
  88. FontName ="Calibri"
  89. ForeThemeColorIndex =1
  90. GridlineThemeColorIndex =1
  91. GridlineShade =65.0
  92. UseTheme =1
  93. Shape =1
  94. Gradient =12
  95. BackColor =-12151049
  96. BackThemeColorIndex =9
  97. BorderLineStyle =0
  98. BorderColor =-1
  99. BorderThemeColorIndex =1
  100. ThemeFontIndex =1
  101. HoverColor =-12151049
  102. HoverThemeColorIndex =9
  103. HoverTint =80.0
  104. PressedColor =-12151049
  105. PressedThemeColorIndex =9
  106. PressedShade =80.0
  107. HoverForeColor =-1
  108. HoverForeThemeColorIndex =1
  109. PressedForeColor =-1
  110. PressedForeThemeColorIndex =1
  111. End
  112. Begin CheckBox
  113. BorderLineStyle =0
  114. LabelX =230
  115. LabelY =-30
  116. BorderThemeColorIndex =1
  117. BorderShade =65.0
  118. GridlineThemeColorIndex =1
  119. GridlineShade =65.0
  120. End
  121. Begin OptionGroup
  122. SpecialEffect =3
  123. BorderLineStyle =0
  124. Width =1701
  125. Height =1701
  126. BackThemeColorIndex =1
  127. BorderThemeColorIndex =1
  128. BorderShade =65.0
  129. GridlineThemeColorIndex =1
  130. GridlineShade =65.0
  131. End
  132. Begin TextBox
  133. AddColon = NotDefault
  134. FELineBreak = NotDefault
  135. BorderLineStyle =0
  136. Width =1701
  137. LabelX =-1701
  138. FontSize =11
  139. FontName ="Calibri"
  140. AsianLineBreak =1
  141. BackThemeColorIndex =1
  142. BorderThemeColorIndex =1
  143. BorderShade =65.0
  144. ThemeFontIndex =1
  145. ForeThemeColorIndex =0
  146. ForeTint =75.0
  147. GridlineThemeColorIndex =1
  148. GridlineShade =65.0
  149. End
  150. Begin ListBox
  151. BorderLineStyle =0
  152. Width =1701
  153. Height =1417
  154. LabelX =-1701
  155. FontSize =11
  156. FontName ="Calibri"
  157. AllowValueListEdits =1
  158. InheritValueList =1
  159. ThemeFontIndex =1
  160. BackThemeColorIndex =1
  161. BorderThemeColorIndex =1
  162. BorderShade =65.0
  163. ForeThemeColorIndex =0
  164. ForeTint =75.0
  165. GridlineThemeColorIndex =1
  166. GridlineShade =65.0
  167. End
  168. Begin ComboBox
  169. AddColon = NotDefault
  170. BorderLineStyle =0
  171. Width =1701
  172. LabelX =-1701
  173. FontSize =11
  174. FontName ="Calibri"
  175. AllowValueListEdits =1
  176. InheritValueList =1
  177. ThemeFontIndex =1
  178. BackThemeColorIndex =1
  179. BorderThemeColorIndex =1
  180. BorderShade =65.0
  181. ForeThemeColorIndex =2
  182. ForeShade =50.0
  183. GridlineThemeColorIndex =1
  184. GridlineShade =65.0
  185. End
  186. Begin Subform
  187. BorderLineStyle =0
  188. Width =1701
  189. Height =1701
  190. BorderThemeColorIndex =1
  191. GridlineThemeColorIndex =1
  192. GridlineShade =65.0
  193. BorderShade =65.0
  194. ShowPageHeaderAndPageFooter =1
  195. End
  196. Begin FormHeader
  197. Height =7880
  198. BackColor =14211288
  199. Name ="EntêteFormulaire"
  200. AlternateBackThemeColorIndex =1
  201. AlternateBackShade =95.0
  202. Begin
  203. Begin Label
  204. Visible = NotDefault
  205. OverlapFlags =93
  206. Left =8787
  207. Top =3060
  208. Width =3000
  209. Height =285
  210. BorderColor =8355711
  211. ForeColor =8355711
  212. Name ="etiq_nodata"
  213. Caption ="Pas de données importées"
  214. GridlineColor =10921638
  215. LayoutCachedLeft =8787
  216. LayoutCachedTop =3060
  217. LayoutCachedWidth =11787
  218. LayoutCachedHeight =3345
  219. End
  220. Begin Label
  221. OverlapFlags =93
  222. TextAlign =2
  223. Left =4762
  224. Width =6315
  225. Height =630
  226. FontSize =16
  227. FontWeight =700
  228. BorderColor =8355711
  229. Name ="Étiquette0"
  230. Caption ="AGRHum"
  231. GridlineColor =10921638
  232. LayoutCachedLeft =4762
  233. LayoutCachedWidth =11077
  234. LayoutCachedHeight =630
  235. ForeTint =100.0
  236. End
  237. Begin CommandButton
  238. OverlapFlags =85
  239. Left =226
  240. Top =113
  241. Width =2162
  242. Height =338
  243. ForeColor =0
  244. Name ="Commande1"
  245. Caption ="Données importées"
  246. OnClick ="[Event Procedure]"
  247. LeftPadding =60
  248. RightPadding =75
  249. BottomPadding =120
  250. GridlineColor =10921638
  251. LayoutCachedLeft =226
  252. LayoutCachedTop =113
  253. LayoutCachedWidth =2388
  254. LayoutCachedHeight =451
  255. ForeThemeColorIndex =0
  256. BackColor =0
  257. BackThemeColorIndex =0
  258. BorderColor =0
  259. BorderThemeColorIndex =0
  260. HoverColor =3355443
  261. HoverThemeColorIndex =0
  262. PressedColor =0
  263. PressedThemeColorIndex =0
  264. HoverForeColor =0
  265. HoverForeThemeColorIndex =0
  266. PressedForeColor =0
  267. PressedForeThemeColorIndex =0
  268. Shadow =-1
  269. QuickStyle =22
  270. QuickStyleMask =-1
  271. WebImagePaddingTop =1
  272. Overlaps =1
  273. End
  274. Begin OptionGroup
  275. OverlapFlags =223
  276. Left =623
  277. Top =1189
  278. Width =11169
  279. Height =5957
  280. ColumnOrder =14
  281. TabIndex =1
  282. BorderColor =10921638
  283. Name ="Cadre4"
  284. GridlineColor =10921638
  285. LayoutCachedLeft =623
  286. LayoutCachedTop =1189
  287. LayoutCachedWidth =11792
  288. LayoutCachedHeight =7146
  289. Begin
  290. Begin Label
  291. FontUnderline = NotDefault
  292. BackStyle =1
  293. OverlapFlags =215
  294. Left =850
  295. Top =974
  296. Width =1530
  297. Height =360
  298. FontSize =13
  299. BackColor =14211288
  300. BorderColor =8355711
  301. Name ="Étiquette5"
  302. Caption ="Mois/Année:"
  303. GridlineColor =10921638
  304. LayoutCachedLeft =850
  305. LayoutCachedTop =974
  306. LayoutCachedWidth =2380
  307. LayoutCachedHeight =1334
  308. BackThemeColorIndex =-1
  309. ForeTint =100.0
  310. End
  311. End
  312. End
  313. Begin ComboBox
  314. LimitToList = NotDefault
  315. OverlapFlags =223
  316. IMESentenceMode =3
  317. ColumnCount =2
  318. ListWidth =3402
  319. Left =1512
  320. Top =3004
  321. Width =3581
  322. Height =405
  323. ColumnOrder =15
  324. FontSize =13
  325. TabIndex =2
  326. BorderColor =12835293
  327. ForeColor =4138256
  328. ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
  329. Name ="lst_agent"
  330. RowSourceType ="Table/Query"
  331. RowSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.[CodeAgent] FROM tbl_Age"
  332. "nts GROUP BY tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.[CodeAgent] HAVING"
  333. " (((tbl_Agents.[CodeAgent]) In (SELECT [CodeAgent] FROM tbl_ImportRH;))) ORDER B"
  334. "Y tbl_Agents.Nom; "
  335. ColumnWidths ="0;3402"
  336. AfterUpdate ="[Event Procedure]"
  337. GridlineColor =10921638
  338. LayoutCachedLeft =1512
  339. LayoutCachedTop =3004
  340. LayoutCachedWidth =5093
  341. LayoutCachedHeight =3409
  342. BorderThemeColorIndex =3
  343. BorderShade =90.0
  344. End
  345. Begin ComboBox
  346. LimitToList = NotDefault
  347. RowSourceTypeInt =1
  348. OverlapFlags =223
  349. IMESentenceMode =3
  350. ColumnCount =2
  351. ListWidth =2880
  352. Left =2834
  353. Top =975
  354. Width =2554
  355. Height =360
  356. ColumnOrder =16
  357. FontSize =13
  358. FontWeight =700
  359. TabIndex =3
  360. BorderColor =12835293
  361. Name ="lst_mois"
  362. RowSourceType ="Value List"
  363. RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
  364. "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
  365. ColumnWidths ="0;2268"
  366. AfterUpdate ="[Event Procedure]"
  367. GridlineColor =10921638
  368. AllowValueListEdits =0
  369. LayoutCachedLeft =2834
  370. LayoutCachedTop =975
  371. LayoutCachedWidth =5388
  372. LayoutCachedHeight =1335
  373. BorderThemeColorIndex =3
  374. BorderShade =90.0
  375. ForeThemeColorIndex =0
  376. ForeShade =100.0
  377. End
  378. Begin ComboBox
  379. OverlapFlags =223
  380. IMESentenceMode =3
  381. Left =6859
  382. Top =974
  383. Width =1581
  384. Height =360
  385. ColumnOrder =17
  386. FontSize =13
  387. FontWeight =700
  388. TabIndex =4
  389. BorderColor =12835293
  390. ColumnInfo ="\"\";\"\";\"3\";\"2\""
  391. Name ="lst_annee"
  392. RowSourceType ="Table/Query"
  393. RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
  394. "(((Year([DateRH]))>=2012)) ORDER BY Year([DateRH]) DESC; "
  395. AfterUpdate ="[Event Procedure]"
  396. GridlineColor =10921638
  397. LayoutCachedLeft =6859
  398. LayoutCachedTop =974
  399. LayoutCachedWidth =8440
  400. LayoutCachedHeight =1334
  401. BorderThemeColorIndex =3
  402. BorderShade =90.0
  403. ForeThemeColorIndex =0
  404. ForeShade =100.0
  405. End
  406. Begin TextBox
  407. Locked = NotDefault
  408. OldBorderStyle =0
  409. OverlapFlags =223
  410. TextAlign =1
  411. BackStyle =0
  412. IMESentenceMode =3
  413. Left =1644
  414. Top =6802
  415. Width =3532
  416. Height =255
  417. ColumnOrder =13
  418. FontSize =9
  419. FontWeight =700
  420. TabIndex =5
  421. BorderColor =10921638
  422. ForeColor =2366701
  423. Name ="Texte15"
  424. ControlSource ="IDSuivi"
  425. GridlineColor =10921638
  426. LayoutCachedLeft =1644
  427. LayoutCachedTop =6802
  428. LayoutCachedWidth =5176
  429. LayoutCachedHeight =7057
  430. ForeThemeColorIndex =-1
  431. ForeTint =100.0
  432. Begin
  433. Begin Label
  434. OverlapFlags =223
  435. Left =680
  436. Top =6802
  437. Width =1050
  438. Height =255
  439. FontSize =9
  440. FontWeight =700
  441. BorderColor =8355711
  442. ForeColor =2366701
  443. Name ="Étiquette16"
  444. Caption ="ID Suivi"
  445. GridlineColor =10921638
  446. LayoutCachedLeft =680
  447. LayoutCachedTop =6802
  448. LayoutCachedWidth =1730
  449. LayoutCachedHeight =7057
  450. ForeThemeColorIndex =-1
  451. ForeTint =100.0
  452. End
  453. End
  454. End
  455. Begin CommandButton
  456. Enabled = NotDefault
  457. OverlapFlags =223
  458. Left =3345
  459. Top =4591
  460. Width =973
  461. Height =854
  462. TabIndex =6
  463. ForeColor =0
  464. Name ="FDep_Ouvrir"
  465. Caption ="Ouvrir"
  466. OnClick ="[Event Procedure]"
  467. LeftPadding =90
  468. TopPadding =45
  469. RightPadding =105
  470. BottomPadding =150
  471. GridlineColor =10921638
  472. ImageData = Begin
  473. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  474. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  475. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  476. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  477. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  478. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  479. 0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
  480. 0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
  481. 0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
  482. 0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
  483. 0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
  484. 0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
  485. 0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
  486. 0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
  487. 0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
  488. 0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
  489. 0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
  490. 0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
  491. 0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
  492. 0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
  493. 0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
  494. 0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
  495. 0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
  496. 0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
  497. 0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
  498. 0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
  499. 0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
  500. 0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
  501. 0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
  502. 0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
  503. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  504. 0x0000000000000000000000000000000080808000000000000000000000000000 ,
  505. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  506. 0x0000000000000000
  507. End
  508. LayoutCachedLeft =3345
  509. LayoutCachedTop =4591
  510. LayoutCachedWidth =4318
  511. LayoutCachedHeight =5445
  512. ForeThemeColorIndex =0
  513. BackColor =0
  514. BackThemeColorIndex =0
  515. BorderColor =0
  516. BorderThemeColorIndex =0
  517. HoverColor =3355443
  518. HoverThemeColorIndex =0
  519. PressedColor =0
  520. PressedThemeColorIndex =0
  521. HoverForeColor =0
  522. HoverForeThemeColorIndex =0
  523. PressedForeColor =0
  524. PressedForeThemeColorIndex =0
  525. Shadow =-1
  526. QuickStyle =22
  527. QuickStyleMask =-1
  528. WebImagePaddingLeft =2
  529. WebImagePaddingTop =2
  530. WebImagePaddingRight =2
  531. WebImagePaddingBottom =2
  532. Overlaps =1
  533. End
  534. Begin CommandButton
  535. OverlapFlags =223
  536. Left =8675
  537. Top =3854
  538. Width =2656
  539. Height =397
  540. TabIndex =7
  541. ForeColor =16777215
  542. Name ="CreerForm"
  543. Caption ="Créer / Maj les formulaires"
  544. OnClick ="[Event Procedure]"
  545. GridlineColor =10921638
  546. LayoutCachedLeft =8675
  547. LayoutCachedTop =3854
  548. LayoutCachedWidth =11331
  549. LayoutCachedHeight =4251
  550. Gradient =0
  551. BackColor =4626167
  552. BorderColor =4626167
  553. BorderThemeColorIndex =9
  554. HoverColor =7056377
  555. PressedColor =750835
  556. HoverForeColor =16777215
  557. PressedForeColor =16777215
  558. QuickStyle =14
  559. QuickStyleMask =-1
  560. WebImagePaddingLeft =1
  561. WebImagePaddingTop =1
  562. Overlaps =1
  563. End
  564. Begin Label
  565. OverlapFlags =223
  566. TextAlign =2
  567. Left =3061
  568. Top =3854
  569. Width =1425
  570. Height =675
  571. FontWeight =700
  572. BorderColor =8355711
  573. Name ="Étiquette24"
  574. Caption ="Formulaire Déplacements"
  575. GridlineColor =10921638
  576. LayoutCachedLeft =3061
  577. LayoutCachedTop =3854
  578. LayoutCachedWidth =4486
  579. LayoutCachedHeight =4529
  580. ForeTint =100.0
  581. End
  582. Begin Label
  583. OverlapFlags =223
  584. TextAlign =2
  585. Left =6067
  586. Top =3860
  587. Width =2340
  588. Height =690
  589. FontWeight =700
  590. BorderColor =8355711
  591. Name ="Étiquette25"
  592. Caption ="Etat de frais de dep. + Tableau Récapitulatif"
  593. GridlineColor =10921638
  594. LayoutCachedLeft =6067
  595. LayoutCachedTop =3860
  596. LayoutCachedWidth =8407
  597. LayoutCachedHeight =4550
  598. ForeTint =100.0
  599. End
  600. Begin Label
  601. OverlapFlags =223
  602. TextAlign =2
  603. Left =4819
  604. Top =3854
  605. Width =1185
  606. Height =735
  607. FontWeight =700
  608. BorderColor =8355711
  609. Name ="Étiquette26"
  610. Caption ="Formulaire Heures Sup"
  611. GridlineColor =10921638
  612. LayoutCachedLeft =4819
  613. LayoutCachedTop =3854
  614. LayoutCachedWidth =6004
  615. LayoutCachedHeight =4589
  616. ForeTint =100.0
  617. End
  618. Begin CommandButton
  619. Enabled = NotDefault
  620. OverlapFlags =223
  621. Left =6633
  622. Top =4591
  623. Width =958
  624. Height =854
  625. TabIndex =8
  626. ForeColor =16777215
  627. Name ="EFD_Ouvrir"
  628. Caption ="Ouvrir"
  629. OnClick ="[Event Procedure]"
  630. LeftPadding =90
  631. TopPadding =45
  632. RightPadding =105
  633. BottomPadding =150
  634. GridlineColor =10921638
  635. ImageData = Begin
  636. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  637. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  638. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  639. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  640. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  641. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  642. 0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
  643. 0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
  644. 0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
  645. 0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
  646. 0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
  647. 0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
  648. 0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
  649. 0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
  650. 0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
  651. 0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
  652. 0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
  653. 0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
  654. 0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
  655. 0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
  656. 0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
  657. 0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
  658. 0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
  659. 0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
  660. 0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
  661. 0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
  662. 0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
  663. 0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
  664. 0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
  665. 0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
  666. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  667. 0x0000000000000000000000000000000080808000000000000000000000000000 ,
  668. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  669. 0x0000000000000000
  670. End
  671. LayoutCachedLeft =6633
  672. LayoutCachedTop =4591
  673. LayoutCachedWidth =7591
  674. LayoutCachedHeight =5445
  675. Gradient =0
  676. BackColor =4626167
  677. BorderColor =16777215
  678. HoverColor =7056377
  679. PressedColor =750835
  680. HoverForeColor =16777215
  681. PressedForeColor =16777215
  682. Shadow =-1
  683. QuickStyle =21
  684. QuickStyleMask =-1
  685. Overlaps =1
  686. End
  687. Begin CommandButton
  688. Enabled = NotDefault
  689. OverlapFlags =223
  690. Left =4989
  691. Top =4591
  692. Width =973
  693. Height =854
  694. TabIndex =9
  695. ForeColor =16777215
  696. Name ="FHS_Ouvrir"
  697. Caption ="Ouvrir"
  698. OnClick ="[Event Procedure]"
  699. LeftPadding =90
  700. TopPadding =45
  701. RightPadding =105
  702. BottomPadding =150
  703. GridlineColor =10921638
  704. ImageData = Begin
  705. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  706. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  707. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  708. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  709. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  710. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  711. 0x20282020302830f0302830ff302830ff302830ff302830ff302830ff302830ff ,
  712. 0x302830ff00000000604830ff5040303000000000000000000000000060484040 ,
  713. 0x604830ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa09890ff909090ff807070ff ,
  714. 0x303030ff00000000a08880ff604830ff504030604030301060483080705850ff ,
  715. 0x705040ffe0e0e0fff0d8c0fff0d0c0fff0c8c0fff0c8b0fff0c0b0ff908880ff ,
  716. 0x302830ff00000000c0a890ffc0c0c0ff807060ff706050ffb0a090ffb0a8a0ff ,
  717. 0x705840fff0f0f0fff0d8d0fff0d8c0fff0d0c0fff0c8c0fff0c8b0ff908880ff ,
  718. 0x302830ff00000000c0a890fffff8ffffe0e8e0f0c0c8c0ffb0b0b0ffb0a8a0ff ,
  719. 0x705840fff0f0f0fff0e0d0fff0d8d0fff0d8c0fff0d0c0fff0c8c0ff908890ff ,
  720. 0x303030ff00000000c0a8a0fffff8fffff0f0f0ffe0e0e0ffc0c0c0ffa0a0a0ff ,
  721. 0x706050fff0f0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0fff0d0c0ff909090ff ,
  722. 0x303030ff00000000c0b0a0fffff8fffff0f0f0ffe0e0e0ffd0d8d0ffa0a0a0ff ,
  723. 0x806860fff0f0f0fffff0f0ffffe8e0fff0e0d0fff0d8d0fff0d8c0ff909090ff ,
  724. 0x303030ff00000000c0b0a0fff0f8f0fff0f0f0fff0e8f0ffd0d8d0ffb0b0b0ff ,
  725. 0x807860fff0f0f0fffff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffa09890ff ,
  726. 0x303030ff00000000d0b0a0fff0f0f0fff0f8f0fff0f0f0ffe0d8e0ffc0c0c0ff ,
  727. 0x907860fff0f0f0fffff8f0fffff0f0fffff0e0fff0e8e0fff0e0d0ffa09890ff ,
  728. 0x303030ff00000000d0b8a0fff0f0f0fff0f0f0fff0f0f0ffe0e8e0ffd0d0d0ff ,
  729. 0x907860fffff8fffffff8fffffff8f0fffff0f0fffff0f0ffffe8e0ffa0a0a0ff ,
  730. 0x303030ff00000000d0b8a0ffe0e8e0f0f0f0f0fff0f0f0fff0e8f0ffe0e0e0ff ,
  731. 0xa09090ffb0b0b0ffb0b0b0ffb0b0b0ffb0a8a0ffa0a0a0ffa098a0ff909090ff ,
  732. 0x303030ff00000000d0b8a030b0a8a0ffe0d8e0f0e0e8e0ffe0e0e0ffa0a0a0ff ,
  733. 0xb0a0a05000000000000000000000000000000000000000000000000000000000 ,
  734. 0x00000000000000000000000070787040b0a090f0b0a090ffa09890e0a0989050 ,
  735. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  736. 0x0000000000000000000000000000000080808000000000000000000000000000 ,
  737. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  738. 0x0000000000000000
  739. End
  740. LayoutCachedLeft =4989
  741. LayoutCachedTop =4591
  742. LayoutCachedWidth =5962
  743. LayoutCachedHeight =5445
  744. Gradient =0
  745. BackColor =4626167
  746. BorderColor =16777215
  747. HoverColor =7056377
  748. PressedColor =750835
  749. HoverForeColor =16777215
  750. PressedForeColor =16777215
  751. Shadow =-1
  752. QuickStyle =21
  753. QuickStyleMask =-1
  754. Overlaps =1
  755. End
  756. Begin CommandButton
  757. Enabled = NotDefault
  758. OverlapFlags =223
  759. Left =907
  760. Top =6122
  761. Width =2721
  762. Height =340
  763. TabIndex =10
  764. ForeColor =16777215
  765. Name ="EnregPDF"
  766. Caption ="Enregistrer au format PDF"
  767. OnClick ="[Event Procedure]"
  768. GridlineColor =10921638
  769. LayoutCachedLeft =907
  770. LayoutCachedTop =6122
  771. LayoutCachedWidth =3628
  772. LayoutCachedHeight =6462
  773. Gradient =0
  774. BackColor =4626167
  775. BorderColor =4626167
  776. BorderThemeColorIndex =9
  777. HoverColor =7056377
  778. PressedColor =750835
  779. HoverForeColor =16777215
  780. PressedForeColor =16777215
  781. QuickStyle =14
  782. QuickStyleMask =-1
  783. WebImagePaddingLeft =1
  784. WebImagePaddingTop =1
  785. Overlaps =1
  786. End
  787. Begin CommandButton
  788. Enabled = NotDefault
  789. OverlapFlags =223
  790. Left =907
  791. Top =5611
  792. Width =1911
  793. Height =340
  794. TabIndex =11
  795. ForeColor =16777215
  796. Name ="CmdImpr"
  797. Caption ="Imprimer"
  798. OnClick ="[Event Procedure]"
  799. GridlineColor =10921638
  800. LayoutCachedLeft =907
  801. LayoutCachedTop =5611
  802. LayoutCachedWidth =2818
  803. LayoutCachedHeight =5951
  804. Gradient =0
  805. BackColor =4626167
  806. BorderColor =4626167
  807. BorderThemeColorIndex =9
  808. HoverColor =7056377
  809. PressedColor =750835
  810. HoverForeColor =16777215
  811. PressedForeColor =16777215
  812. QuickStyle =14
  813. QuickStyleMask =-1
  814. WebImagePaddingLeft =1
  815. WebImagePaddingTop =1
  816. Overlaps =1
  817. End
  818. Begin TextBox
  819. OldBorderStyle =4
  820. BorderWidth =1
  821. OverlapFlags =223
  822. BorderLineStyle =3
  823. IMESentenceMode =3
  824. Left =3743
  825. Top =5611
  826. Width =462
  827. Height =315
  828. ColumnOrder =9
  829. TabIndex =12
  830. BackColor =15066597
  831. BorderColor =10066329
  832. ForeColor =4210752
  833. Name ="NbImprFDep"
  834. DefaultValue ="1"
  835. GridlineColor =10921638
  836. LayoutCachedLeft =3743
  837. LayoutCachedTop =5611
  838. LayoutCachedWidth =4205
  839. LayoutCachedHeight =5926
  840. BackShade =90.0
  841. BorderShade =60.0
  842. Begin
  843. Begin Label
  844. OverlapFlags =223
  845. Left =3459
  846. Top =5611
  847. Width =225
  848. Height =315
  849. BorderColor =8355711
  850. ForeColor =8355711
  851. Name ="Étiquette32"
  852. Caption ="x"
  853. GridlineColor =10921638
  854. LayoutCachedLeft =3459
  855. LayoutCachedTop =5611
  856. LayoutCachedWidth =3684
  857. LayoutCachedHeight =5926
  858. End
  859. End
  860. End
  861. Begin TextBox
  862. OldBorderStyle =4
  863. BorderWidth =1
  864. OverlapFlags =223
  865. BorderLineStyle =3
  866. IMESentenceMode =3
  867. Left =5386
  868. Top =5611
  869. Width =462
  870. Height =315
  871. ColumnOrder =10
  872. TabIndex =13
  873. BackColor =15066597
  874. BorderColor =10066329
  875. ForeColor =4210752
  876. Name ="NbImprFHS"
  877. DefaultValue ="3"
  878. GridlineColor =10921638
  879. LayoutCachedLeft =5386
  880. LayoutCachedTop =5611
  881. LayoutCachedWidth =5848
  882. LayoutCachedHeight =5926
  883. BackShade =90.0
  884. BorderShade =60.0
  885. End
  886. Begin TextBox
  887. OldBorderStyle =4
  888. BorderWidth =1
  889. OverlapFlags =223
  890. BorderLineStyle =3
  891. IMESentenceMode =3
  892. Left =6973
  893. Top =5611
  894. Width =462
  895. Height =315
  896. ColumnOrder =11
  897. TabIndex =14
  898. BackColor =15066597
  899. BorderColor =10066329
  900. ForeColor =4210752
  901. Name ="NbImprEFD"
  902. DefaultValue ="3"
  903. GridlineColor =10921638
  904. LayoutCachedLeft =6973
  905. LayoutCachedTop =5611
  906. LayoutCachedWidth =7435
  907. LayoutCachedHeight =5926
  908. BackShade =90.0
  909. BorderShade =60.0
  910. End
  911. Begin Label
  912. OverlapFlags =223
  913. Left =5103
  914. Top =5611
  915. Width =225
  916. Height =315
  917. BorderColor =8355711
  918. ForeColor =8355711
  919. Name ="Étiquette37"
  920. Caption ="x"
  921. GridlineColor =10921638
  922. LayoutCachedLeft =5103
  923. LayoutCachedTop =5611
  924. LayoutCachedWidth =5328
  925. LayoutCachedHeight =5926
  926. End
  927. Begin Label
  928. OverlapFlags =223
  929. Left =6690
  930. Top =5611
  931. Width =225
  932. Height =315
  933. BorderColor =8355711
  934. ForeColor =8355711
  935. Name ="Étiquette38"
  936. Caption ="x"
  937. GridlineColor =10921638
  938. LayoutCachedLeft =6690
  939. LayoutCachedTop =5611
  940. LayoutCachedWidth =6915
  941. LayoutCachedHeight =5926
  942. End
  943. Begin TextBox
  944. Locked = NotDefault
  945. OldBorderStyle =4
  946. BorderWidth =1
  947. OverlapFlags =223
  948. BorderLineStyle =3
  949. IMESentenceMode =3
  950. Left =4479
  951. Top =6122
  952. Width =4756
  953. Height =315
  954. ColumnOrder =12
  955. TabIndex =15
  956. BackColor =15066597
  957. BorderColor =10066329
  958. ForeColor =4210752
  959. Name ="txt_RepPDF"
  960. OnDblClick ="[Event Procedure]"
  961. GridlineColor =10921638
  962. LayoutCachedLeft =4479
  963. LayoutCachedTop =6122
  964. LayoutCachedWidth =9235
  965. LayoutCachedHeight =6437
  966. BackShade =90.0
  967. BorderShade =60.0
  968. End
  969. Begin Label
  970. OverlapFlags =255
  971. Left =3742
  972. Top =6122
  973. Width =908
  974. Height =283
  975. BorderColor =8355711
  976. ForeColor =8355711
  977. Name ="Étiquette41"
  978. Caption ="dans: "
  979. GridlineColor =10921638
  980. LayoutCachedLeft =3742
  981. LayoutCachedTop =6122
  982. LayoutCachedWidth =4650
  983. LayoutCachedHeight =6405
  984. End
  985. Begin CommandButton
  986. Enabled = NotDefault
  987. OverlapFlags =223
  988. Left =8675
  989. Top =4364
  990. Width =2646
  991. Height =400
  992. FontWeight =700
  993. TabIndex =16
  994. ForeColor =16777215
  995. Name ="ValidForm"
  996. Caption ="Valider ces formulaires"
  997. OnClick ="[Event Procedure]"
  998. LeftPadding =60
  999. RightPadding =75
  1000. BottomPadding =120
  1001. GridlineColor =10921638
  1002. LayoutCachedLeft =8675
  1003. LayoutCachedTop =4364
  1004. LayoutCachedWidth =11321
  1005. LayoutCachedHeight =4764
  1006. Gradient =25
  1007. BackColor =5066944
  1008. BackThemeColorIndex =5
  1009. BorderColor =5066944
  1010. BorderThemeColorIndex =5
  1011. HoverColor =7435213
  1012. HoverThemeColorIndex =5
  1013. PressedColor =3685279
  1014. PressedThemeColorIndex =5
  1015. HoverForeColor =16777215
  1016. PressedForeColor =16777215
  1017. Shadow =-1
  1018. QuickStyle =31
  1019. QuickStyleMask =-1
  1020. WebImagePaddingTop =1
  1021. Overlaps =1
  1022. End
  1023. Begin CommandButton
  1024. OverlapFlags =85
  1025. Left =623
  1026. Top =7327
  1027. Width =2267
  1028. Height =487
  1029. TabIndex =17
  1030. ForeColor =0
  1031. Name ="Commande44"
  1032. Caption ="Liste des agents"
  1033. OnClick ="[Event Procedure]"
  1034. LeftPadding =60
  1035. RightPadding =75
  1036. BottomPadding =120
  1037. GridlineColor =10921638
  1038. LayoutCachedLeft =623
  1039. LayoutCachedTop =7327
  1040. LayoutCachedWidth =2890
  1041. LayoutCachedHeight =7814
  1042. ForeThemeColorIndex =0
  1043. BackColor =0
  1044. BackThemeColorIndex =0
  1045. BorderColor =0
  1046. BorderThemeColorIndex =0
  1047. HoverColor =3355443
  1048. HoverThemeColorIndex =0
  1049. PressedColor =0
  1050. PressedThemeColorIndex =0
  1051. HoverForeColor =0
  1052. HoverForeThemeColorIndex =0
  1053. PressedForeColor =0
  1054. PressedForeThemeColorIndex =0
  1055. Shadow =-1
  1056. QuickStyle =22
  1057. QuickStyleMask =-1
  1058. WebImagePaddingTop =1
  1059. Overlaps =1
  1060. End
  1061. Begin CommandButton
  1062. OverlapFlags =85
  1063. Left =9523
  1064. Top =7327
  1065. Width =2267
  1066. Height =487
  1067. TabIndex =18
  1068. ForeColor =0
  1069. Name ="Commande45"
  1070. Caption ="Mes Paramètres"
  1071. OnClick ="[Event Procedure]"
  1072. LeftPadding =60
  1073. RightPadding =75
  1074. BottomPadding =120
  1075. GridlineColor =10921638
  1076. LayoutCachedLeft =9523
  1077. LayoutCachedTop =7327
  1078. LayoutCachedWidth =11790
  1079. LayoutCachedHeight =7814
  1080. ForeThemeColorIndex =0
  1081. BackColor =0
  1082. BackThemeColorIndex =0
  1083. BorderColor =0
  1084. BorderThemeColorIndex =0
  1085. HoverColor =3355443
  1086. HoverThemeColorIndex =0
  1087. PressedColor =0
  1088. PressedThemeColorIndex =0
  1089. HoverForeColor =0
  1090. HoverForeThemeColorIndex =0
  1091. PressedForeColor =0
  1092. PressedForeThemeColorIndex =0
  1093. Shadow =-1
  1094. QuickStyle =22
  1095. QuickStyleMask =-1
  1096. WebImagePaddingTop =1
  1097. Overlaps =1
  1098. End
  1099. Begin CommandButton
  1100. OverlapFlags =93
  1101. Left =13266
  1102. Top =170
  1103. Width =576
  1104. Height =336
  1105. TabIndex =19
  1106. ForeColor =0
  1107. Name ="Commande46"
  1108. Caption ="Commande46"
  1109. ControlTipText ="Quitter application"
  1110. LeftPadding =90
  1111. TopPadding =45
  1112. RightPadding =105
  1113. BottomPadding =150
  1114. GridlineColor =10921638
  1115. OnClickEmMacro = Begin
  1116. Version =196611
  1117. ColumnsShown =8
  1118. Begin
  1119. Action ="Quit"
  1120. Argument ="0"
  1121. End
  1122. Begin
  1123. Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
  1124. "nterfaceMacro For=\"Commande46\" xmlns=\"http://schemas.microsoft.com/office/acc"
  1125. "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
  1126. "accessservices/2009/11/forms\">"
  1127. End
  1128. Begin
  1129. Comment ="_AXL:<Statements><Action Name=\"QuitAccess\"><Argument Name=\"Options\">Prompt</"
  1130. "Argument></Action></Statements></UserInterfaceMacro>"
  1131. End
  1132. End
  1133. ImageData = Begin
  1134. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  1135. 0x0000000000000000000000000000000000000000000000000030b0200030a080 ,
  1136. 0x1030a0d01030a0f01028a0f01028a0d01028a0801028a0200000000000000000 ,
  1137. 0x00000000000000000000000000000000000000000030b0600030b0f00038c0ff ,
  1138. 0x0038c0ff0040d0ff0040c0ff0038c0ff0038b0ff1028a0f01028a06000000000 ,
  1139. 0x0000000000000000000000000038b0000030b0b00038c0ff0040d0ff0040d0ff ,
  1140. 0x0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0038c0ff0030b0ff1028a0b0 ,
  1141. 0x1028a00000000000000000000038b0900038c0ff0040e0ff0040e0ff0040d0ff ,
  1142. 0x0040d0ff0040d0ff0040d0ff0040d0ff0040d0ff0040c0ff0040c0ff0030b0ff ,
  1143. 0x1028a090000000000038c0200038c0ff0040e0ff0040e0ff3068e0ffc0d0f0ff ,
  1144. 0x2050e0ff0040d0ff0040d0ff2050d0ffd0d8f0ff3060d0ff0040c0ff0040c0ff ,
  1145. 0x1028a0ff1028a0200038c0800040d0ff0040e0ff0040e0ffc0d0f0fff0f8f0ff ,
  1146. 0xc0d0f0ff2050e0ff2050d0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040c0ff ,
  1147. 0x0038b0ff1028a0800038c0d00040e0ff0040e0ff0040e0ff2050e0ffc0d0f0ff ,
  1148. 0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff ,
  1149. 0x0038c0ff1028a0e00038c0ff0048f0ff0048e0ff0040e0ff0040e0ff2050e0ff ,
  1150. 0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050d0ff0040d0ff0040d0ff0040d0ff ,
  1151. 0x0040d0ff1028a0ff0038c0ff0048f0ff0048f0ff0048e0ff0040e0ff2050e0ff ,
  1152. 0xc0d0f0fff0f8f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff0040d0ff ,
  1153. 0x0040d0ff1030a0f00038c0e00048e0ff0048f0ff0048f0ff2058f0ffc0d0f0ff ,
  1154. 0xf0f8f0ffc0d0f0ffc0d0f0fff0f8f0ffc0d0f0ff2050e0ff0040d0ff0040d0ff ,
  1155. 0x0040c0ff1030a0d00040c0900040e0ff0048f0ff0048f0ffc0d0f0fff0f8f0ff ,
  1156. 0xc0d0f0ff2050e0ff2050e0ffc0d0f0fff0f8f0ffc0d0f0ff0040d0ff0040d0ff ,
  1157. 0x0038c0ff0030a0900040c0300040c0ff0048f0ff0048f0ff3068f0ffc0d0f0ff ,
  1158. 0x2058f0ff0040e0ff0040e0ff2050e0ffc0d0f0ff3068e0ff0040e0ff0040d0ff ,
  1159. 0x0030b0ff0030b030000000000040c0a00040d0ff0048f0ff0048f0ff0048f0ff ,
  1160. 0x0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0040e0ff0040e0ff0038c0ff ,
  1161. 0x0030b09000000000000000000040d0000040c0c00040d0ff0048f0ff0048f0ff ,
  1162. 0x0048f0ff0048f0ff0048e0ff0040e0ff0040e0ff0040e0ff0038c0ff0030b0c0 ,
  1163. 0x0030b0000000000000000000000000000040d0000040c0900040d0ff0040e0ff ,
  1164. 0x0048e0ff0048f0ff0048f0ff0040e0ff0040d0ff0038c0ff0038b0900030b000 ,
  1165. 0x0000000000000000000000000000000000000000000000000040c0300040c090 ,
  1166. 0x0038c0e00038c0ff0038c0ff0038c0e00038c0900038c0300000000000000000 ,
  1167. 0x0000000000000000
  1168. End
  1169. LayoutCachedLeft =13266
  1170. LayoutCachedTop =170
  1171. LayoutCachedWidth =13842
  1172. LayoutCachedHeight =506
  1173. ForeThemeColorIndex =0
  1174. BackColor =0
  1175. BackThemeColorIndex =0
  1176. BorderColor =0
  1177. BorderThemeColorIndex =0
  1178. HoverColor =3355443
  1179. HoverThemeColorIndex =0
  1180. PressedColor =0
  1181. PressedThemeColorIndex =0
  1182. HoverForeColor =0
  1183. HoverForeThemeColorIndex =0
  1184. PressedForeColor =0
  1185. PressedForeThemeColorIndex =0
  1186. Shadow =-1
  1187. QuickStyle =22
  1188. QuickStyleMask =-1
  1189. WebImagePaddingLeft =2
  1190. WebImagePaddingTop =2
  1191. WebImagePaddingRight =2
  1192. WebImagePaddingBottom =2
  1193. Overlaps =1
  1194. End
  1195. Begin CommandButton
  1196. OverlapFlags =215
  1197. Left =1417
  1198. Top =1530
  1199. Width =2376
  1200. Height =340
  1201. TabIndex =20
  1202. ForeColor =16777215
  1203. Name ="BordHS"
  1204. Caption ="Bordereau Heures Sup."
  1205. OnClick ="[Event Procedure]"
  1206. GridlineColor =10921638
  1207. LayoutCachedLeft =1417
  1208. LayoutCachedTop =1530
  1209. LayoutCachedWidth =3793
  1210. LayoutCachedHeight =1870
  1211. Gradient =0
  1212. BackColor =4626167
  1213. BorderColor =4626167
  1214. BorderThemeColorIndex =9
  1215. HoverColor =7056377
  1216. PressedColor =750835
  1217. HoverForeColor =16777215
  1218. PressedForeColor =16777215
  1219. QuickStyle =14
  1220. QuickStyleMask =-1
  1221. WebImagePaddingLeft =1
  1222. WebImagePaddingTop =1
  1223. Overlaps =1
  1224. End
  1225. Begin CommandButton
  1226. OverlapFlags =215
  1227. Left =1417
  1228. Top =2040
  1229. Width =2391
  1230. Height =340
  1231. TabIndex =21
  1232. ForeColor =16777215
  1233. Name ="BordEFD"
  1234. Caption ="Bordereau Etat de Frais"
  1235. OnClick ="[Event Procedure]"
  1236. GridlineColor =10921638
  1237. LayoutCachedLeft =1417
  1238. LayoutCachedTop =2040
  1239. LayoutCachedWidth =3808
  1240. LayoutCachedHeight =2380
  1241. Gradient =0
  1242. BackColor =4626167
  1243. BorderColor =4626167
  1244. BorderThemeColorIndex =9
  1245. HoverColor =7056377
  1246. PressedColor =750835
  1247. HoverForeColor =16777215
  1248. PressedForeColor =16777215
  1249. QuickStyle =14
  1250. QuickStyleMask =-1
  1251. WebImagePaddingLeft =1
  1252. WebImagePaddingTop =1
  1253. Overlaps =1
  1254. End
  1255. Begin Label
  1256. OverlapFlags =223
  1257. Left =7313
  1258. Top =3060
  1259. Width =1500
  1260. Height =315
  1261. BorderColor =8355711
  1262. Name ="Étiquette7"
  1263. Caption ="Etat du suivi:"
  1264. GridlineColor =10921638
  1265. LayoutCachedLeft =7313
  1266. LayoutCachedTop =3060
  1267. LayoutCachedWidth =8813
  1268. LayoutCachedHeight =3375
  1269. ForeTint =100.0
  1270. End
  1271. Begin TextBox
  1272. Locked = NotDefault
  1273. OverlapFlags =223
  1274. IMESentenceMode =3
  1275. Left =8787
  1276. Top =3060
  1277. Width =2591
  1278. Height =315
  1279. ColumnOrder =8
  1280. TabIndex =22
  1281. BorderColor =10921638
  1282. ForeColor =4210752
  1283. Name ="txt_donnee"
  1284. ControlSource ="Etat"
  1285. GridlineColor =10921638
  1286. LayoutCachedLeft =8787
  1287. LayoutCachedTop =3060
  1288. LayoutCachedWidth =11378
  1289. LayoutCachedHeight =3375
  1290. End
  1291. Begin Label
  1292. FontItalic = NotDefault
  1293. OverlapFlags =223
  1294. Left =4478
  1295. Top =6462
  1296. Width =6120
  1297. Height =285
  1298. FontSize =9
  1299. BorderColor =8355711
  1300. Name ="Étiquette57"
  1301. Caption ="(double-cliquer pour ouvrir le répertoire)"
  1302. GridlineColor =10921638
  1303. LayoutCachedLeft =4478
  1304. LayoutCachedTop =6462
  1305. LayoutCachedWidth =10598
  1306. LayoutCachedHeight =6747
  1307. ForeTint =100.0
  1308. End
  1309. Begin CommandButton
  1310. Enabled = NotDefault
  1311. OverlapFlags =223
  1312. Left =8675
  1313. Top =5157
  1314. Width =2646
  1315. Height =400
  1316. FontWeight =700
  1317. TabIndex =23
  1318. ForeColor =0
  1319. Name ="InvalidForm"
  1320. Caption ="Invalider (admin)"
  1321. OnClick ="[Event Procedure]"
  1322. LeftPadding =90
  1323. TopPadding =45
  1324. RightPadding =105
  1325. BottomPadding =150
  1326. GridlineColor =10921638
  1327. LayoutCachedLeft =8675
  1328. LayoutCachedTop =5157
  1329. LayoutCachedWidth =11321
  1330. LayoutCachedHeight =5557
  1331. ForeThemeColorIndex =0
  1332. BackColor =0
  1333. BackThemeColorIndex =0
  1334. BorderColor =0
  1335. BorderThemeColorIndex =0
  1336. HoverColor =3355443
  1337. HoverThemeColorIndex =0
  1338. PressedColor =0
  1339. PressedThemeColorIndex =0
  1340. HoverForeColor =0
  1341. HoverForeThemeColorIndex =0
  1342. PressedForeColor =0
  1343. PressedForeThemeColorIndex =0
  1344. Shadow =-1
  1345. QuickStyle =22
  1346. QuickStyleMask =-1
  1347. WebImagePaddingLeft =2
  1348. WebImagePaddingTop =2
  1349. WebImagePaddingRight =2
  1350. WebImagePaddingBottom =2
  1351. Overlaps =1
  1352. End
  1353. Begin CommandButton
  1354. OverlapFlags =215
  1355. Left =8673
  1356. Top =1643
  1357. Width =2432
  1358. Height =623
  1359. TabIndex =24
  1360. ForeColor =0
  1361. Name ="DonneesAgentValide"
  1362. Caption ="Données de l'agent pour cette période"
  1363. OnClick ="[Event Procedure]"
  1364. LeftPadding =60
  1365. RightPadding =75
  1366. BottomPadding =120
  1367. GridlineColor =10921638
  1368. LayoutCachedLeft =8673
  1369. LayoutCachedTop =1643
  1370. LayoutCachedWidth =11105
  1371. LayoutCachedHeight =2266
  1372. ForeThemeColorIndex =0
  1373. BackColor =0
  1374. BackThemeColorIndex =0
  1375. BorderColor =0
  1376. BorderThemeColorIndex =0
  1377. HoverColor =3355443
  1378. HoverThemeColorIndex =0
  1379. PressedColor =0
  1380. PressedThemeColorIndex =0
  1381. HoverForeColor =0
  1382. HoverForeThemeColorIndex =0
  1383. PressedForeColor =0
  1384. PressedForeThemeColorIndex =0
  1385. Shadow =-1
  1386. QuickStyle =22
  1387. QuickStyleMask =-1
  1388. WebImagePaddingTop =1
  1389. Overlaps =1
  1390. End
  1391. Begin CommandButton
  1392. OverlapFlags =215
  1393. Left =5555
  1394. Top =1643
  1395. Width =2432
  1396. Height =623
  1397. TabIndex =25
  1398. ForeColor =0
  1399. Name ="BaremeValide"
  1400. Caption ="Barèmes à cette période"
  1401. OnClick ="[Event Procedure]"
  1402. LeftPadding =60
  1403. RightPadding =75
  1404. BottomPadding =120
  1405. GridlineColor =10921638
  1406. LayoutCachedLeft =5555
  1407. LayoutCachedTop =1643
  1408. LayoutCachedWidth =7987
  1409. LayoutCachedHeight =2266
  1410. ForeThemeColorIndex =0
  1411. BackColor =0
  1412. BackThemeColorIndex =0
  1413. BorderColor =0
  1414. BorderThemeColorIndex =0
  1415. HoverColor =3355443
  1416. HoverThemeColorIndex =0
  1417. PressedColor =0
  1418. PressedThemeColorIndex =0
  1419. HoverForeColor =0
  1420. HoverForeThemeColorIndex =0
  1421. PressedForeColor =0
  1422. PressedForeThemeColorIndex =0
  1423. Shadow =-1
  1424. QuickStyle =22
  1425. QuickStyleMask =-1
  1426. WebImagePaddingTop =1
  1427. Overlaps =1
  1428. End
  1429. Begin CommandButton
  1430. OverlapFlags =85
  1431. Left =3060
  1432. Top =7327
  1433. Width =2267
  1434. Height =487
  1435. TabIndex =26
  1436. ForeColor =0
  1437. Name ="Commande61"
  1438. Caption ="Barèmes"
  1439. OnClick ="[Event Procedure]"
  1440. LeftPadding =60
  1441. RightPadding =75
  1442. BottomPadding =120
  1443. GridlineColor =10921638
  1444. LayoutCachedLeft =3060
  1445. LayoutCachedTop =7327
  1446. LayoutCachedWidth =5327
  1447. LayoutCachedHeight =7814
  1448. ForeThemeColorIndex =0
  1449. BackColor =0
  1450. BackThemeColorIndex =0
  1451. BorderColor =0
  1452. BorderThemeColorIndex =0
  1453. HoverColor =3355443
  1454. HoverThemeColorIndex =0
  1455. PressedColor =0
  1456. PressedThemeColorIndex =0
  1457. HoverForeColor =0
  1458. HoverForeThemeColorIndex =0
  1459. PressedForeColor =0
  1460. PressedForeThemeColorIndex =0
  1461. Shadow =-1
  1462. QuickStyle =22
  1463. QuickStyleMask =-1
  1464. WebImagePaddingTop =1
  1465. Overlaps =1
  1466. End
  1467. Begin TextBox
  1468. Visible = NotDefault
  1469. OverlapFlags =215
  1470. IMESentenceMode =3
  1471. Left =10374
  1472. Top =963
  1473. Width =453
  1474. Height =315
  1475. ColumnOrder =6
  1476. TabIndex =27
  1477. BorderColor =10921638
  1478. ForeColor =4210752
  1479. Name ="mois"
  1480. ControlSource ="=Cint([lst_mois])"
  1481. GridlineColor =10921638
  1482. LayoutCachedLeft =10374
  1483. LayoutCachedTop =963
  1484. LayoutCachedWidth =10827
  1485. LayoutCachedHeight =1278
  1486. End
  1487. Begin TextBox
  1488. Visible = NotDefault
  1489. OverlapFlags =215
  1490. IMESentenceMode =3
  1491. Left =10941
  1492. Top =963
  1493. Width =850
  1494. Height =315
  1495. ColumnOrder =7
  1496. TabIndex =28
  1497. BorderColor =10921638
  1498. ForeColor =4210752
  1499. Name ="Annee"
  1500. ControlSource ="=CInt([lst_annee])"
  1501. GridlineColor =10921638
  1502. LayoutCachedLeft =10941
  1503. LayoutCachedTop =963
  1504. LayoutCachedWidth =11791
  1505. LayoutCachedHeight =1278
  1506. End
  1507. Begin CommandButton
  1508. OverlapFlags =85
  1509. Left =5498
  1510. Top =7327
  1511. Width =2267
  1512. Height =487
  1513. TabIndex =29
  1514. ForeColor =0
  1515. Name ="Administration"
  1516. Caption ="Administration"
  1517. OnClick ="[Event Procedure]"
  1518. LeftPadding =60
  1519. RightPadding =75
  1520. BottomPadding =120
  1521. GridlineColor =10921638
  1522. LayoutCachedLeft =5498
  1523. LayoutCachedTop =7327
  1524. LayoutCachedWidth =7765
  1525. LayoutCachedHeight =7814
  1526. ForeThemeColorIndex =0
  1527. BackColor =0
  1528. BackThemeColorIndex =0
  1529. BorderColor =0
  1530. BorderThemeColorIndex =0
  1531. HoverColor =3355443
  1532. HoverThemeColorIndex =0
  1533. PressedColor =0
  1534. PressedThemeColorIndex =0
  1535. HoverForeColor =0
  1536. HoverForeThemeColorIndex =0
  1537. PressedForeColor =0
  1538. PressedForeThemeColorIndex =0
  1539. Shadow =-1
  1540. QuickStyle =22
  1541. QuickStyleMask =-1
  1542. WebImagePaddingTop =1
  1543. Overlaps =1
  1544. End
  1545. Begin CommandButton
  1546. OverlapFlags =223
  1547. Left =5442
  1548. Top =1076
  1549. Width =217
  1550. Height =231
  1551. FontWeight =700
  1552. TabIndex =30
  1553. ForeColor =0
  1554. Name ="Commande68"
  1555. Caption ="-"
  1556. OnClick ="[Event Procedure]"
  1557. ControlTipText ="Enregistrement précédent"
  1558. Picture ="viewmag--icone-7668-16.png"
  1559. LeftPadding =60
  1560. RightPadding =75
  1561. BottomPadding =120
  1562. GridlineColor =10921638
  1563. ImageData = Begin
  1564. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1565. 0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
  1566. 0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000001 ,
  1567. 0xa84944415438cb95913d4b42611886dffa0d41bbbf208220228a9c2aa4a90f87 ,
  1568. 0xa072e89b484d30a1e15844520d35d8aa35a887928ac8cad0b42fc9a2840a4aa2 ,
  1569. 0xa024a351d1f1cefb0ce220721aaee9b9aee73cbc47f40c0c54757677d7b4e974 ,
  1570. 0x9a96f6764d4b4747650a0e5d366c45975edfdf3734746db4d9de6725491574d9 ,
  1571. 0xb015bd8383297977175fe934be7f7f5541970d5b3169b1e02999c45b2a85e4e7 ,
  1572. 0xa72ae8b2612ba6ac565c271278787dc5fdcb8b2ae8b2612b260a5b22f1386e9f ,
  1573. 0x9fff051bb6627c6606a1580c378f8f70f97cb04a1266edf6b27046872e1bb662 ,
  1574. 0xcc6c46f0f25239696e71110dadad68d46acbc2191dba6cd88a519309814804e7 ,
  1575. 0x7777b016be52d7d484fae6e6b27046872e1bb662c468c44128a49cc4f3e69797 ,
  1576. 0xb1b0b25216cee8d065c35659b0170ce2e4e202a75757cab01274e8b251160c4f ,
  1577. 0x4f632710c0e1d9d9bf60c3567903972cc37f7404fff1b13a0a2e1be52f480e47 ,
  1578. 0x7a696d0dab4e2756373654e3585fe7bbfc8860386cf0f9fd71b7d7fbe1f278de ,
  1579. 0xdda578bd45364bd892e58fedfdfddb50346a1000aa73b95c6d2693d12864b345 ,
  1580. 0xb215c8e7f3b56cff003151c69b603e524a0000002574455874646174653a6372 ,
  1581. 0x6561746500323030392d30392d31355431303a33373a31352b30323a3030be77 ,
  1582. 0x07ef0000002574455874646174653a6d6f6469667900323030392d30392d3135 ,
  1583. 0x5431303a33373a31352b30323a3030cf2abf530000001974455874536f667477 ,
  1584. 0x617265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44 ,
  1585. 0xae426082
  1586. End
  1587. LayoutCachedLeft =5442
  1588. LayoutCachedTop =1076
  1589. LayoutCachedWidth =5659
  1590. LayoutCachedHeight =1307
  1591. ForeThemeColorIndex =0
  1592. BackColor =0
  1593. BackThemeColorIndex =0
  1594. BorderColor =0
  1595. BorderThemeColorIndex =0
  1596. HoverColor =3355443
  1597. HoverThemeColorIndex =0
  1598. PressedColor =0
  1599. PressedThemeColorIndex =0
  1600. HoverForeColor =0
  1601. HoverForeThemeColorIndex =0
  1602. PressedForeColor =0
  1603. PressedForeThemeColorIndex =0
  1604. Shadow =-1
  1605. QuickStyle =22
  1606. QuickStyleMask =-1
  1607. WebImagePaddingTop =1
  1608. Overlaps =1
  1609. End
  1610. Begin CommandButton
  1611. OverlapFlags =215
  1612. Left =5781
  1613. Top =1076
  1614. Width =218
  1615. Height =231
  1616. TabIndex =31
  1617. ForeColor =0
  1618. Name ="Commande69"
  1619. Caption ="+"
  1620. OnClick ="[Event Procedure]"
  1621. ControlTipText ="Enregistrement suivant"
  1622. Picture ="ajouter-bouton-plus-icone-9620-16.png"
  1623. LeftPadding =60
  1624. RightPadding =75
  1625. BottomPadding =120
  1626. GridlineColor =10921638
  1627. ImageData = Begin
  1628. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1629. 0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
  1630. 0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
  1631. 0x3c4944415438cb8d91dd4b936118c69ffa1b02cf77506731fb80253a690a69ac ,
  1632. 0x40b0e641a293e863653837610a1b4c521394d0405190b4c8ad91d3a4f263b8b9 ,
  1633. 0xa54e9a5282137484828d26ead1c63cbc7aafa778798fa4831f5cdcf7f57bb979 ,
  1634. 0x5e71a7aeeecccdeaea73d7cd669db1a24267acac3c1da5c32e1dbae2764dcd3d ,
  1635. 0x8bd51ab7b7b5edb67abdff05bb74e88abbf5f5e9c0d4147e6532f87d78a87270 ,
  1636. 0x748483e3e3bf2859bb63970e5df1b4a505c9540a3fd369a4f6f755e66331bc9b ,
  1637. 0x9890306b77ecd2a12b9eb95c886f6ce0c7ce0ebe6f6fabb8bbba70a3aa4ac2ac ,
  1638. 0xddb14b87ae78a27c259a48606d6b0b896452a5b5bd1d26b359c2acddb14b87ae ,
  1639. 0xb0399d08afaee2dbe626467c3e38dc6e383d1e54d7d6427971093367dcb1c32e ,
  1640. 0x1dbae2b1c381d0f2b23c89a75e2d2d85c164c2b5b2321495974b9839e38e1d76 ,
  1641. 0xe9d0158f9a9b31138de2ebfa3a5ccaa9faa2225c2a2ec6e592125c311a25cc9c ,
  1642. 0x71c70ebb74e88a87763b3e85c3f2a491f171b83b3ae0e9ecc42d8b05170d0609 ,
  1643. 0x3367dcb1c32e1dbaf2031f4321cc2f2dc9b316e2712cacace07e63232e14164a ,
  1644. 0x9839e38e1d76e9c80f3c686ac2c4cc0cbe2c2eaa7c8e4460b5d9705eaf973073 ,
  1645. 0xa6edd0a12bdf60341040707616c1b939c9a4c26be5b55f0d0f4b9827ffed244a ,
  1646. 0x978efc0bdeeeeecc8bbe3ef40e0ca0777050e5e5d010fa1499306b77a4bbbf1f ,
  1647. 0xcf7b7a0e44281269781f0c26c6fcfebd519f6f774c8bdfaff246c3db4060efc3 ,
  1648. 0xf4f45a38166b1000cee6f3f9826c36ab93e4722ab95338393929a0fb073e15a8 ,
  1649. 0x39e04636e10000002574455874646174653a63726561746500323030392d3039 ,
  1650. 0x2d31355431303a33353a32312b30323a3030c042f42200000025744558746461 ,
  1651. 0x74653a6d6f6469667900323030392d30392d31355431303a33353a32312b3032 ,
  1652. 0x3a3030b11f4c9e0000001974455874536f667477617265007777772e696e6b73 ,
  1653. 0x636170652e6f72679bee3c1a0000000049454e44ae426082
  1654. End
  1655. LayoutCachedLeft =5781
  1656. LayoutCachedTop =1076
  1657. LayoutCachedWidth =5999
  1658. LayoutCachedHeight =1307
  1659. ForeThemeColorIndex =0
  1660. BackColor =0
  1661. BackThemeColorIndex =0
  1662. BorderColor =0
  1663. BorderThemeColorIndex =0
  1664. HoverColor =3355443
  1665. HoverThemeColorIndex =0
  1666. PressedColor =0
  1667. PressedThemeColorIndex =0
  1668. HoverForeColor =0
  1669. HoverForeThemeColorIndex =0
  1670. PressedForeColor =0
  1671. PressedForeThemeColorIndex =0
  1672. Shadow =-1
  1673. QuickStyle =22
  1674. QuickStyleMask =-1
  1675. WebImagePaddingTop =1
  1676. Overlaps =1
  1677. End
  1678. Begin CommandButton
  1679. OverlapFlags =223
  1680. Left =5272
  1681. Top =3060
  1682. Width =218
  1683. Height =231
  1684. TabIndex =32
  1685. ForeColor =0
  1686. Name ="Commande70"
  1687. Caption ="Commande68"
  1688. OnClick ="[Event Procedure]"
  1689. ControlTipText ="Enregistrement précédent"
  1690. Picture ="fleche-vers-bas-icone-7872-16.png"
  1691. LeftPadding =60
  1692. RightPadding =75
  1693. BottomPadding =120
  1694. GridlineColor =10921638
  1695. ImageData = Begin
  1696. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1697. 0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
  1698. 0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
  1699. 0x3c4944415438cb8d92df4b93511cc64ffd0d81f7bbec2282462cc9613386c64c ,
  1700. 0x2f6c1945ba892dd7089d0e7478237891a0174ae9cd06fe005db38649347539b7 ,
  1701. 0xe99ad3818ab40b472ad868a2778e79f9749e138d11215e7c781fcef7f99cf770 ,
  1702. 0xde573c6a6abaf2a0a1e1da3d9349a3afaed6e86b6a2e4676d8a543573c6c6c7c ,
  1703. 0xf6d8624974b8dd073d7d7d97825d3a7485b9b939eb9f9bc3cf5c0ebf4e4e14c7 ,
  1704. 0xa7a7ffe5ef9c5d3a7485c3e5c2f74c063fb259648e8e90dedfc7d4ec2cde7a3c ,
  1705. 0x78e7f52a9827fd7e3563875d3a74c5ebee6e247676b0bdb7a7f8b6bd0dabc381 ,
  1706. 0xfb757530d6d72b982d763be25b5bc51e1dbae295dc25bab989543aad88a55268 ,
  1707. 0x6a6b83c16442556dad82f9b9cd8658498f0e5d61efea42787d1dc9dd5d05074f ,
  1708. 0x5b5b71d76884bc7105f39396164436368a3d3a74455b672742f1b83a7a5416bc ,
  1709. 0xd3d390b70b9dc1803b55550ae65ab3191e3963875d3a74c54ba713c16854bd39 ,
  1710. 0x924ca2b7bf1fb72b2b71aba2025abd5ec1cc35ced861970e5d61ebe8c0e77018 ,
  1711. 0xcb89843ad6b2dcd9d5db8b9be5e5b8a1d32998b9c699eac82e1dba6a834fa110 ,
  1712. 0x96d6d6b0b8baaa9e2c76baddb8aed52a98b956daa1a33678d1de8e8fc120be44 ,
  1713. 0x224578bcafb2e4ece9513073adb44387aeba8371f99304161610585cfc83cc73 ,
  1714. 0x4b4b08c9b711e67fe774d457e81b18c8bd191ec6d0e82886c6c62ecdc0c808fa ,
  1715. 0x07078f456865c5fa3e10d89cf0f90ec767660e264af1f98a4c9630e5f71f7e98 ,
  1716. 0x9f4f856331ab0070b55028949d9d9d6914f97c91fc059c9f9f97d1fd0d6749ad ,
  1717. 0xba0844a4ab0000002574455874646174653a63726561746500323030392d3039 ,
  1718. 0x2d31355431303a33363a31322b30323a30309412525f00000025744558746461 ,
  1719. 0x74653a6d6f6469667900323030392d30392d31355431303a33363a31322b3032 ,
  1720. 0x3a3030e54feae30000001974455874536f667477617265007777772e696e6b73 ,
  1721. 0x636170652e6f72679bee3c1a0000000049454e44ae426082
  1722. End
  1723. LayoutCachedLeft =5272
  1724. LayoutCachedTop =3060
  1725. LayoutCachedWidth =5490
  1726. LayoutCachedHeight =3291
  1727. ForeThemeColorIndex =0
  1728. BackColor =0
  1729. BackThemeColorIndex =0
  1730. BorderColor =0
  1731. BorderThemeColorIndex =0
  1732. HoverColor =3355443
  1733. HoverThemeColorIndex =0
  1734. PressedColor =0
  1735. PressedThemeColorIndex =0
  1736. HoverForeColor =0
  1737. HoverForeThemeColorIndex =0
  1738. PressedForeColor =0
  1739. PressedForeThemeColorIndex =0
  1740. Shadow =-1
  1741. QuickStyle =22
  1742. QuickStyleMask =-1
  1743. WebImagePaddingTop =1
  1744. Overlaps =1
  1745. End
  1746. Begin CommandButton
  1747. OverlapFlags =223
  1748. Left =5612
  1749. Top =3060
  1750. Width =218
  1751. Height =231
  1752. TabIndex =33
  1753. ForeColor =0
  1754. Name ="Commande71"
  1755. Caption ="Commande69"
  1756. OnClick ="[Event Procedure]"
  1757. ControlTipText ="Enregistrement suivant"
  1758. Picture ="2uparrow-icone-9048-16.png"
  1759. LeftPadding =60
  1760. RightPadding =75
  1761. BottomPadding =120
  1762. GridlineColor =10921638
  1763. ImageData = Begin
  1764. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1765. 0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
  1766. 0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000002 ,
  1767. 0x474944415438cb8d91db4bda611cc67fdbdf30e85ed8e162ac70100e2c28a9e5 ,
  1768. 0x320b6aae8b410776ded0ec00adbb60170beac2064514cb3622956a2ed64949b3 ,
  1769. 0x521b2653c2a2c328a898a3ee14bd7cf67bde4d37bb885d7ce0cbf7793eafafef ,
  1770. 0x4fbadfd070e95e5ddd95129d4e515c51a128d66a2f46eeb04b87aea4afaf7ff8 ,
  1771. 0xa0a92968eeea3a78ddddfd5fb04b87ae64686c3c71389d388ec7f1e3f43487f8 ,
  1772. 0xd999e0fc9e5d3a74a5571d1d88edede1fbc909f68e8eb2ec1f1fc31f0e0b38ff ,
  1773. 0x9bb14b87ae64ecec44301a45647717df767604513974adaee291d128e0cc5d26 ,
  1774. 0x67970e5de9a57c8a2f14c2c6d61642b118c2dbdb70adade1b1c98492ca4a0167 ,
  1775. 0xee98b1c32e1dbad28bf67678d6d7f1757353c0e2939616a8cbcb21bfb8803377 ,
  1776. 0xcc323d3a74a5e76d6d70fbfd084422580a046092af7547a381aab43407ee98b1 ,
  1777. 0xc32e1dbad2b3d656ccfb7ce24a9e601063763be46f0ca55a8ddb454502cedada ,
  1778. 0x5a91b1c32e1dbad253b3195f3c1e2cc901af35ebf5426730e06661216ea95402 ,
  1779. 0xce3c943d76d8e54c571cf0d9ed16ff8f385d2edcada9c1b58202dc502a059ccb ,
  1780. 0xaaabf1697131dba3230ee0e34ccdcf636e79593035378732bd1e57f3f3715d16 ,
  1781. 0x09674d5515266767fff66487ae7803abc381e98505f10b0cde8f8f6368741443 ,
  1782. 0x56eb6fe4993b66ecb04b477c85ee9e9ef85b8b057d0303e81b1c14588687f16e ,
  1783. 0x642407ee3239e9e9efc79bdede9f92dbeb6db64f4f87c66cb643ebc4c4c1d879 ,
  1784. 0x6cb62c1ffef0d1e1389c9c99d9f0acac344b002ea752a9bc4422a11024935992 ,
  1785. 0x17904ea7f3e8fe02fbcdab54424a9c890000002574455874646174653a637265 ,
  1786. 0x61746500323030392d30392d31355431303a33353a31392b30323a30307d22bd ,
  1787. 0xa60000002574455874646174653a6d6f6469667900323030392d30392d313554 ,
  1788. 0x31303a33353a31392b30323a30300c7f051a0000001974455874536f66747761 ,
  1789. 0x7265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44ae ,
  1790. 0x426082
  1791. End
  1792. LayoutCachedLeft =5612
  1793. LayoutCachedTop =3060
  1794. LayoutCachedWidth =5830
  1795. LayoutCachedHeight =3291
  1796. ForeThemeColorIndex =0
  1797. BackColor =0
  1798. BackThemeColorIndex =0
  1799. BorderColor =0
  1800. BorderThemeColorIndex =0
  1801. HoverColor =3355443
  1802. HoverThemeColorIndex =0
  1803. PressedColor =0
  1804. PressedThemeColorIndex =0
  1805. HoverForeColor =0
  1806. HoverForeThemeColorIndex =0
  1807. PressedForeColor =0
  1808. PressedForeThemeColorIndex =0
  1809. Shadow =-1
  1810. QuickStyle =22
  1811. QuickStyleMask =-1
  1812. WebImagePaddingTop =1
  1813. Overlaps =1
  1814. End
  1815. Begin CommandButton
  1816. OverlapFlags =215
  1817. Left =8503
  1818. Top =1076
  1819. Width =218
  1820. Height =231
  1821. TabIndex =34
  1822. ForeColor =0
  1823. Name ="Commande72"
  1824. Caption ="Commande68"
  1825. OnClick ="[Event Procedure]"
  1826. ControlTipText ="Enregistrement précédent"
  1827. Picture ="viewmag--icone-7668-16.png"
  1828. LeftPadding =60
  1829. RightPadding =75
  1830. BottomPadding =120
  1831. GridlineColor =10921638
  1832. ImageData = Begin
  1833. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1834. 0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
  1835. 0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000001 ,
  1836. 0xa84944415438cb95913d4b42611886dffa0d41bbbf208220228a9c2aa4a90f87 ,
  1837. 0xa072e89b484d30a1e15844520d35d8aa35a887928ac8cad0b42fc9a2840a4aa2 ,
  1838. 0xa024a351d1f1cefb0ce220721aaee9b9aee73cbc47f40c0c54757677d7b4e974 ,
  1839. 0x9a96f6764d4b4747650a0e5d366c45975edfdf3734746db4d9de6725491574d9 ,
  1840. 0xb015bd8383297977175fe934be7f7f5541970d5b3169b1e02999c45b2a85e4e7 ,
  1841. 0xa72ae8b2612ba6ac565c271278787dc5fdcb8b2ae8b2612b260a5b22f1386e9f ,
  1842. 0x9fff051bb6627c6606a1580c378f8f70f97cb04a1266edf6b27046872e1bb662 ,
  1843. 0xcc6c46f0f25239696e71110dadad68d46acbc2191dba6cd88a519309814804e7 ,
  1844. 0x7777b016be52d7d484fae6e6b27046872e1bb662c468c44128a49cc4f3e69797 ,
  1845. 0xb1b0b25216cee8d065c35659b0170ce2e4e202a75757cab01274e8b251160c4f ,
  1846. 0x4f632710c0e1d9d9bf60c3567903972cc37f7404fff1b13a0a2e1be52f480e47 ,
  1847. 0x7a696d0dab4e2756373654e3585fe7bbfc8860386cf0f9fd71b7d7fbe1f278de ,
  1848. 0xdda578bd45364bd892e58fedfdfddb50346a1000aa73b95c6d2693d12864b345 ,
  1849. 0xb215c8e7f3b56cff003151c69b603e524a0000002574455874646174653a6372 ,
  1850. 0x6561746500323030392d30392d31355431303a33373a31352b30323a3030be77 ,
  1851. 0x07ef0000002574455874646174653a6d6f6469667900323030392d30392d3135 ,
  1852. 0x5431303a33373a31352b30323a3030cf2abf530000001974455874536f667477 ,
  1853. 0x617265007777772e696e6b73636170652e6f72679bee3c1a0000000049454e44 ,
  1854. 0xae426082
  1855. End
  1856. LayoutCachedLeft =8503
  1857. LayoutCachedTop =1076
  1858. LayoutCachedWidth =8721
  1859. LayoutCachedHeight =1307
  1860. ForeThemeColorIndex =0
  1861. BackColor =0
  1862. BackThemeColorIndex =0
  1863. BorderColor =0
  1864. BorderThemeColorIndex =0
  1865. HoverColor =3355443
  1866. HoverThemeColorIndex =0
  1867. PressedColor =0
  1868. PressedThemeColorIndex =0
  1869. HoverForeColor =0
  1870. HoverForeThemeColorIndex =0
  1871. PressedForeColor =0
  1872. PressedForeThemeColorIndex =0
  1873. Shadow =-1
  1874. QuickStyle =22
  1875. QuickStyleMask =-1
  1876. WebImagePaddingTop =1
  1877. Overlaps =1
  1878. End
  1879. Begin CommandButton
  1880. OverlapFlags =215
  1881. Left =8843
  1882. Top =1076
  1883. Width =218
  1884. Height =231
  1885. TabIndex =35
  1886. ForeColor =0
  1887. Name ="Commande73"
  1888. Caption ="Commande69"
  1889. OnClick ="[Event Procedure]"
  1890. ControlTipText ="Enregistrement suivant"
  1891. Picture ="ajouter-bouton-plus-icone-9620-16.png"
  1892. LeftPadding =60
  1893. RightPadding =75
  1894. BottomPadding =120
  1895. GridlineColor =10921638
  1896. ImageData = Begin
  1897. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  1898. 0x6100000006624b474400ff00ff00ffa0bda793000000097048597300000dd700 ,
  1899. 0x000dd70142289b7800000009767041670000001000000010005cc6adc3000002 ,
  1900. 0x3c4944415438cb8d91dd4b936118c69ffa1b02cf77506731fb80253a690a69ac ,
  1901. 0x40b0e641a293e863653837610a1b4c521394d0405190b4c8ad91d3a4f263b8b9 ,
  1902. 0xa54e9a5282137484828d26ead1c63cbc7aafa778798fa4831f5cdcf7f57bb979 ,
  1903. 0x5e71a7aeeecccdeaea73d7cd669db1a24267acac3c1da5c32e1dbae2764dcd3d ,
  1904. 0x8bd51ab7b7b5edb67abdff05bb74e88abbf5f5e9c0d4147e6532f87d78a87270 ,
  1905. 0x748483e3e3bf2859bb63970e5df1b4a505c9540a3fd369a4f6f755e66331bc9b ,
  1906. 0x9890306b77ecd2a12b9eb95c886f6ce0c7ce0ebe6f6fabb8bbba70a3aa4ac2ac ,
  1907. 0xddb14b87ae78a27c259a48606d6b0b896452a5b5bd1d26b359c2acddb14b87ae ,
  1908. 0xb0399d08afaee2dbe626467c3e38dc6e383d1e54d7d6427971093367dcb1c32e ,
  1909. 0x1dbae2b1c381d0f2b23c89a75e2d2d85c164c2b5b2321495974b9839e38e1d76 ,
  1910. 0xe9d0158f9a9b31138de2ebfa3a5ccaa9faa2225c2a2ec6e592125c311a25cc9c ,
  1911. 0x71c70ebb74e88a87763b3e85c3f2a491f171b83b3ae0e9ecc42d8b05170d0609 ,
  1912. 0x3367dcb1c32e1dbaf2031f4321cc2f2dc9b316e2712cacace07e63232e14164a ,
  1913. 0x9839e38e1d76e9c80f3c686ac2c4cc0cbe2c2eaa7c8e4460b5d9705eaf973073 ,
  1914. 0xa6edd0a12bdf60341040707616c1b939c9a4c26be5b55f0d0f4b9827ffed244a ,
  1915. 0x978efc0bdeeeeecc8bbe3ef40e0ca0777050e5e5d010fa1499306b77a4bbbf1f ,
  1916. 0xcf7b7a0e44281269781f0c26c6fcfebd519f6f774c8bdfaff246c3db4060efc3 ,
  1917. 0xf4f45a38166b1000cee6f3f9826c36ab93e4722ab95338393929a0fb073e15a8 ,
  1918. 0x39e04636e10000002574455874646174653a63726561746500323030392d3039 ,
  1919. 0x2d31355431303a33353a32312b30323a3030c042f42200000025744558746461 ,
  1920. 0x74653a6d6f6469667900323030392d30392d31355431303a33353a32312b3032 ,
  1921. 0x3a3030b11f4c9e0000001974455874536f667477617265007777772e696e6b73 ,
  1922. 0x636170652e6f72679bee3c1a0000000049454e44ae426082
  1923. End
  1924. LayoutCachedLeft =8843
  1925. LayoutCachedTop =1076
  1926. LayoutCachedWidth =9061
  1927. LayoutCachedHeight =1307
  1928. ForeThemeColorIndex =0
  1929. BackColor =0
  1930. BackThemeColorIndex =0
  1931. BorderColor =0
  1932. BorderThemeColorIndex =0
  1933. HoverColor =3355443
  1934. HoverThemeColorIndex =0
  1935. PressedColor =0
  1936. PressedThemeColorIndex =0
  1937. HoverForeColor =0
  1938. HoverForeThemeColorIndex =0
  1939. PressedForeColor =0
  1940. PressedForeThemeColorIndex =0
  1941. Shadow =-1
  1942. QuickStyle =22
  1943. QuickStyleMask =-1
  1944. WebImagePaddingTop =1
  1945. Overlaps =1
  1946. End
  1947. Begin CheckBox
  1948. OverlapFlags =85
  1949. Left =11225
  1950. Top =200
  1951. Width =226
  1952. Height =227
  1953. ColumnOrder =5
  1954. TabIndex =36
  1955. BorderColor =10921638
  1956. Name ="case_test"
  1957. AfterUpdate ="[Event Procedure]"
  1958. GridlineColor =10921638
  1959. LayoutCachedLeft =11225
  1960. LayoutCachedTop =200
  1961. LayoutCachedWidth =11451
  1962. LayoutCachedHeight =427
  1963. Begin
  1964. Begin Label
  1965. OverlapFlags =85
  1966. Left =11455
  1967. Top =170
  1968. Width =930
  1969. Height =315
  1970. BorderColor =8355711
  1971. ForeColor =8355711
  1972. Name ="txt_mode"
  1973. Caption ="Local"
  1974. GridlineColor =10921638
  1975. LayoutCachedLeft =11455
  1976. LayoutCachedTop =170
  1977. LayoutCachedWidth =12385
  1978. LayoutCachedHeight =485
  1979. End
  1980. End
  1981. End
  1982. Begin OptionGroup
  1983. OverlapFlags =255
  1984. Left =623
  1985. Top =2775
  1986. Width =11169
  1987. Height =4382
  1988. ColumnOrder =4
  1989. TabIndex =37
  1990. BorderColor =10921638
  1991. Name ="Cadre76"
  1992. GridlineColor =10921638
  1993. LayoutCachedLeft =623
  1994. LayoutCachedTop =2775
  1995. LayoutCachedWidth =11792
  1996. LayoutCachedHeight =7157
  1997. End
  1998. Begin Label
  1999. FontUnderline = NotDefault
  2000. BackStyle =1
  2001. OverlapFlags =247
  2002. Left =850
  2003. Top =2532
  2004. Width =960
  2005. Height =390
  2006. FontSize =13
  2007. BackColor =14211288
  2008. BorderColor =8355711
  2009. Name ="Étiquette78"
  2010. Caption ="Agent:"
  2011. GridlineColor =10921638
  2012. LayoutCachedLeft =850
  2013. LayoutCachedTop =2532
  2014. LayoutCachedWidth =1810
  2015. LayoutCachedHeight =2922
  2016. BackThemeColorIndex =-1
  2017. ForeTint =100.0
  2018. End
  2019. Begin CommandButton
  2020. OverlapFlags =215
  2021. Left =3968
  2022. Top =1530
  2023. Width =561
  2024. Height =336
  2025. TabIndex =38
  2026. ForeColor =16777215
  2027. Name ="BordHSImpr"
  2028. Caption ="Commande79"
  2029. OnClick ="[Event Procedure]"
  2030. ControlTipText ="Imprimer état"
  2031. GridlineColor =10921638
  2032. ImageData = Begin
  2033. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  2034. 0x00000000000000000000000000000000000000000000000000000000a08870ff ,
  2035. 0x907860ff807060ff807060ff807060ff807060ff000000000000000000000000 ,
  2036. 0x00000000000000000000000000000000000000000000000000000000a09080ff ,
  2037. 0xfffffffffffffffffff8fffffff8ffff807060ff000000000000000000000000 ,
  2038. 0x0000000000000000a098a090908890ff706060ff504850ff505050ffa09080ff ,
  2039. 0xfffffffff0d8b0fff0d8b0fff0d8b0ff807060ff505050ff504850ff706060ff ,
  2040. 0x706860ff707070b0909090ff909890ffa0a0a0ff403840ff403840ffa09080ff ,
  2041. 0xffffffffffe8d0ffe07850fff0d8b0ff807060ff403840ff403840ff909090ff ,
  2042. 0x909090ff706860ff909090ffa0a0a0ff909890ff403840ff403840ff908870ff ,
  2043. 0xe0e8e0fff0e0b0fff0d8b0fff0d8b0ff807060ff403840ff403840ffa0a0a0ff ,
  2044. 0xa0a0a0ff706860ff908890ff908890ff908890ff707070ff707070ff707070ff ,
  2045. 0x707070ff707070ff707070ff707070ff707070ff707070ff707070ff908890ff ,
  2046. 0x908080ff706860ff908890ffc0b8c0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
  2047. 0xb0a8b0ffb0a8b0ffb0b0b0ffb0b0b0ffb0b0b0ffb0b0b0ff807880ffc0c8c0ff ,
  2048. 0xb0b0b0ff706860ff909090ffd0d0d0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
  2049. 0xb0a8b0ffb0a8b0ffffa860ffffa860ffffa860ffb0b0b0ff807880ffc0c8c0ff ,
  2050. 0xc0c0c0ff706860ff909090fff0f8f0fff0f0f0ffa0a0a0ffd0d0d0ffd0d0d0ff ,
  2051. 0xd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ff909890fff0f0f0ff ,
  2052. 0xf0e8f0ff706860ffa098a0ffffffffffffffffff909090ffe0d8e0ffe0d8e0ff ,
  2053. 0xe0d8e0ffe0d8e0ffe0d8e0ffc0d0d0ff80a090ff406850ff205030ffa0b0a0ff ,
  2054. 0xe0e8e0ff706860ffb0b0b070b0b0b0ffb0b0b0ff909090ff909090ff909090ff ,
  2055. 0x909090ff909090ff908890ff507060ff307840ff60b080ff50b070ff307840ff ,
  2056. 0x507060ff80888080000000000000000000000000505050a0706870ffb09080ff ,
  2057. 0xfffffffffffffffffff8ffff407850ffa0d0b0fff0ffffffc0e0d0ff40b070ff ,
  2058. 0x004010c00000000000000000000000000000000050505080505850ffb09080ff ,
  2059. 0xfffffffffffffffffff8ffff508050ffffffffff50b870fffff8ffff90c890ff ,
  2060. 0x004020c0000000000000000000000000000000000000000000000000b09080ff ,
  2061. 0xffffffffffffffffffffffffa0b0a0ff308040ff40b070ff40a850ffffffffff ,
  2062. 0x509860b0000000000000000000000000000000000000000000000000b09080ff ,
  2063. 0xfffffffffffffffffffffffff0f0f0ff506040ff004010c0004010c060a060b0 ,
  2064. 0xa0d8a090000000000000000000000000000000000000000000000000b09080ff ,
  2065. 0xb09080ffb09080ffb09080ffb09080ffb09080ff000000000000000000000000 ,
  2066. 0x0000000000000000
  2067. End
  2068. LayoutCachedLeft =3968
  2069. LayoutCachedTop =1530
  2070. LayoutCachedWidth =4529
  2071. LayoutCachedHeight =1866
  2072. Gradient =0
  2073. BackColor =4626167
  2074. BorderColor =4626167
  2075. BorderThemeColorIndex =9
  2076. HoverColor =7056377
  2077. PressedColor =750835
  2078. HoverForeColor =16777215
  2079. PressedForeColor =16777215
  2080. QuickStyle =14
  2081. QuickStyleMask =-1
  2082. WebImagePaddingLeft =1
  2083. WebImagePaddingTop =1
  2084. Overlaps =1
  2085. End
  2086. Begin CommandButton
  2087. OverlapFlags =215
  2088. Left =3968
  2089. Top =2040
  2090. Width =561
  2091. Height =336
  2092. TabIndex =39
  2093. ForeColor =16777215
  2094. Name ="BordEFDImpr"
  2095. Caption ="Commande79"
  2096. OnClick ="[Event Procedure]"
  2097. ControlTipText ="Imprimer état"
  2098. GridlineColor =10921638
  2099. ImageData = Begin
  2100. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  2101. 0x00000000000000000000000000000000000000000000000000000000a08870ff ,
  2102. 0x907860ff807060ff807060ff807060ff807060ff000000000000000000000000 ,
  2103. 0x00000000000000000000000000000000000000000000000000000000a09080ff ,
  2104. 0xfffffffffffffffffff8fffffff8ffff807060ff000000000000000000000000 ,
  2105. 0x0000000000000000a098a090908890ff706060ff504850ff505050ffa09080ff ,
  2106. 0xfffffffff0d8b0fff0d8b0fff0d8b0ff807060ff505050ff504850ff706060ff ,
  2107. 0x706860ff707070b0909090ff909890ffa0a0a0ff403840ff403840ffa09080ff ,
  2108. 0xffffffffffe8d0ffe07850fff0d8b0ff807060ff403840ff403840ff909090ff ,
  2109. 0x909090ff706860ff909090ffa0a0a0ff909890ff403840ff403840ff908870ff ,
  2110. 0xe0e8e0fff0e0b0fff0d8b0fff0d8b0ff807060ff403840ff403840ffa0a0a0ff ,
  2111. 0xa0a0a0ff706860ff908890ff908890ff908890ff707070ff707070ff707070ff ,
  2112. 0x707070ff707070ff707070ff707070ff707070ff707070ff707070ff908890ff ,
  2113. 0x908080ff706860ff908890ffc0b8c0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
  2114. 0xb0a8b0ffb0a8b0ffb0b0b0ffb0b0b0ffb0b0b0ffb0b0b0ff807880ffc0c8c0ff ,
  2115. 0xb0b0b0ff706860ff909090ffd0d0d0ffd0c8d0ff808880ffb0a8b0ffb0a8b0ff ,
  2116. 0xb0a8b0ffb0a8b0ffffa860ffffa860ffffa860ffb0b0b0ff807880ffc0c8c0ff ,
  2117. 0xc0c0c0ff706860ff909090fff0f8f0fff0f0f0ffa0a0a0ffd0d0d0ffd0d0d0ff ,
  2118. 0xd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ffd0d0d0ff909890fff0f0f0ff ,
  2119. 0xf0e8f0ff706860ffa098a0ffffffffffffffffff909090ffe0d8e0ffe0d8e0ff ,
  2120. 0xe0d8e0ffe0d8e0ffe0d8e0ffc0d0d0ff80a090ff406850ff205030ffa0b0a0ff ,
  2121. 0xe0e8e0ff706860ffb0b0b070b0b0b0ffb0b0b0ff909090ff909090ff909090ff ,
  2122. 0x909090ff909090ff908890ff507060ff307840ff60b080ff50b070ff307840ff ,
  2123. 0x507060ff80888080000000000000000000000000505050a0706870ffb09080ff ,
  2124. 0xfffffffffffffffffff8ffff407850ffa0d0b0fff0ffffffc0e0d0ff40b070ff ,
  2125. 0x004010c00000000000000000000000000000000050505080505850ffb09080ff ,
  2126. 0xfffffffffffffffffff8ffff508050ffffffffff50b870fffff8ffff90c890ff ,
  2127. 0x004020c0000000000000000000000000000000000000000000000000b09080ff ,
  2128. 0xffffffffffffffffffffffffa0b0a0ff308040ff40b070ff40a850ffffffffff ,
  2129. 0x509860b0000000000000000000000000000000000000000000000000b09080ff ,
  2130. 0xfffffffffffffffffffffffff0f0f0ff506040ff004010c0004010c060a060b0 ,
  2131. 0xa0d8a090000000000000000000000000000000000000000000000000b09080ff ,
  2132. 0xb09080ffb09080ffb09080ffb09080ffb09080ff000000000000000000000000 ,
  2133. 0x0000000000000000
  2134. End
  2135. LayoutCachedLeft =3968
  2136. LayoutCachedTop =2040
  2137. LayoutCachedWidth =4529
  2138. LayoutCachedHeight =2376
  2139. Gradient =0
  2140. BackColor =4626167
  2141. BorderColor =4626167
  2142. BorderThemeColorIndex =9
  2143. HoverColor =7056377
  2144. PressedColor =750835
  2145. HoverForeColor =16777215
  2146. PressedForeColor =16777215
  2147. QuickStyle =14
  2148. QuickStyleMask =-1
  2149. WebImagePaddingLeft =1
  2150. WebImagePaddingTop =1
  2151. Overlaps =1
  2152. End
  2153. Begin Label
  2154. Visible = NotDefault
  2155. OverlapFlags =95
  2156. TextAlign =2
  2157. Left =4762
  2158. Top =623
  2159. Width =6296
  2160. Height =281
  2161. FontSize =10
  2162. BorderColor =8355711
  2163. ForeColor =5026082
  2164. Name ="txt_msg"
  2165. Caption ="."
  2166. GridlineColor =10921638
  2167. LayoutCachedLeft =4762
  2168. LayoutCachedTop =623
  2169. LayoutCachedWidth =11058
  2170. LayoutCachedHeight =904
  2171. ForeThemeColorIndex =-1
  2172. ForeTint =100.0
  2173. End
  2174. Begin CommandButton
  2175. OverlapFlags =215
  2176. Left =4648
  2177. Top =1530
  2178. Width =561
  2179. Height =336
  2180. TabIndex =40
  2181. ForeColor =16777215
  2182. Name ="BordHSpdf"
  2183. Caption ="Commande79"
  2184. OnClick ="[Event Procedure]"
  2185. ControlTipText ="Imprimer état"
  2186. Picture ="logo_pdf.png"
  2187. GridlineColor =10921638
  2188. ImageData = Begin
  2189. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  2190. 0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
  2191. 0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000003 ,
  2192. 0x3e4944415438cb6dd36d6c53551cc7f13b88098ec01b13fb667d5c5b27094f43 ,
  2193. 0x24ca864e6648b6d4f8c218e2255902890b5323b8809117be300b44311870b323 ,
  2194. 0xd1056656b628264e038b3568581db076cc9b96325861bd6d6fdb7bcf39f7f691 ,
  2195. 0xa50ef979862c9d0f27f9e69e37e7939b7fce11865c4faff459ec8f7f63b6d57e ,
  2196. 0x6fb5d75ee08df2c6ac8edacb16476da4cdb38ac6eed468b331e17fd7a0ab61e7 ,
  2197. 0xa0d97671d86cf39fb7d8fd3ff2266d4e7fc4eef2872d0e7fa4b3eb6286e95db4 ,
  2198. 0x7c6fb59a2ffc1738eb6a10cf9a6d9573661bbeb5d871c9eac08cc38d59deb4d9 ,
  2199. 0x8ef0bb079165ec8f8c6e1ca7a5f22aad50fc17e0ac02a31c08db5d88f1c312ff ,
  2200. 0x06ea6c881eec06d17564292dab8cbd91a44c2819fa32a0fe29f14c9db5e2abb3 ,
  2201. 0xe2178b03619b13d3bcc5fdaf1c0db6b43e44c26fbd835b9dfbbfc6fbdd35c9c3 ,
  2202. 0x87abc00fbdfd62a0cf5b99f2f6637ab12ffa31c5bbd6e7c5d55e2f264ef521f0 ,
  2203. 0xd9e7f88d37d3e7f5e1e7b115c9af06aac0e53411e34cafb07c1e5a2e07c53020 ,
  2204. 0x330331aae3266190548a6086e05a4643c2c8fb00ac28cccf5781402a2bc63552 ,
  2205. 0x618c81f234caa0100a59a3985509a2590d525ac575258b14d3871e02e57215b8 ,
  2206. 0xa2a8a2bc0ca07c608452a82905a9441277e309dc9c9311be1b476a4e1ed19e6b ,
  2207. 0x5ac3eaddab8b2d9ec7f296b582309956c5c412c00fd3b939b0931f21d723423f ,
  2208. 0xba07e45807b23d7b903eda01ed8847cb756d1d2feedf1c28885b0673ed2deb85 ,
  2209. 0xa98c262609fd1be033a04367c0b6bb413c2eb09e7dc87fd78bfcf99360be4fc1 ,
  2210. 0x4e7f80c2f009d0bd4dd05b1b60ec68f409bf3f02e823809d3a0ebab91ef27a07 ,
  2211. 0x940f8f401919817c6e18a1ee4350c7c6a00d7c09f9f9469046178c171aaf08e1 ,
  2212. 0x2c1153cb003ad00fc681d40607e21dbb71bd6d17a4ce3731fbc9c79879ef0062 ,
  2213. 0xafbf0a79a313f41937ff834da3425425a2b2042c0e301a41eaed7d88ef6a46f4 ,
  2214. 0xe5667e919a30d1b203133b5f44a869dbfced2debd29967d729faf60d57f36dcd ,
  2215. 0xadc26dc2da65c24269a64b2a8f1839292927a41bc1a014990c4a3726437c1f92 ,
  2216. 0xa2a1a9c8adf1f1d3e9d7daddb9575e7216777b9e58f8e9428d90e10f4429949e ,
  2217. 0xcc164b26bd543615caf74c0b0bf74d0f00d39fbc07ff6c2dbf07c2624beb2f1b ,
  2218. 0x9a7a4cf790bc810000002574455874646174653a63726561746500323030392d ,
  2219. 0x30392d31335431343a32393a30332b30323a30305d62de4a0000002574455874 ,
  2220. 0x646174653a6d6f6469667900323030392d30392d31335431343a32393a30332b ,
  2221. 0x30323a30302c3f66f60000000049454e44ae426082
  2222. End
  2223. LayoutCachedLeft =4648
  2224. LayoutCachedTop =1530
  2225. LayoutCachedWidth =5209
  2226. LayoutCachedHeight =1866
  2227. Gradient =0
  2228. BackColor =4626167
  2229. BorderColor =4626167
  2230. BorderThemeColorIndex =9
  2231. HoverColor =7056377
  2232. PressedColor =750835
  2233. HoverForeColor =16777215
  2234. PressedForeColor =16777215
  2235. QuickStyle =14
  2236. QuickStyleMask =-1
  2237. WebImagePaddingLeft =1
  2238. WebImagePaddingTop =1
  2239. Overlaps =1
  2240. End
  2241. Begin CommandButton
  2242. OverlapFlags =215
  2243. Left =4648
  2244. Top =2040
  2245. Width =561
  2246. Height =336
  2247. TabIndex =41
  2248. ForeColor =16777215
  2249. Name ="BordEFDpdf"
  2250. Caption ="Commande79"
  2251. OnClick ="[Event Procedure]"
  2252. ControlTipText ="Imprimer état"
  2253. Picture ="logo_pdf.png"
  2254. GridlineColor =10921638
  2255. ImageData = Begin
  2256. 0x89504e470d0a1a0a0000000d49484452000000100000001008060000001ff3ff ,
  2257. 0x6100000006624b474400ff00ff00ffa0bda79300000009704859730000004800 ,
  2258. 0x0000480046c96b3e00000009767041670000001000000010005cc6adc3000003 ,
  2259. 0x3e4944415438cb6dd36d6c53551cc7f13b88098ec01b13fb667d5c5b27094f43 ,
  2260. 0x24ca864e6648b6d4f8c218e2255902890b5323b8809117be300b44311870b323 ,
  2261. 0xd1056656b628264e038b3568581db076cc9b96325861bd6d6fdb7bcf39f7f691 ,
  2262. 0xa50ef979862c9d0f27f9e69e37e7939b7fce11865c4faff459ec8f7f63b6d57e ,
  2263. 0x6fb5d75ee08df2c6ac8edacb16476da4cdb38ac6eed468b331e17fd7a0ab61e7 ,
  2264. 0xa0d97671d86cf39fb7d8fd3ff2266d4e7fc4eef2872d0e7fa4b3eb6286e95db4 ,
  2265. 0x7c6fb59a2ffc1738eb6a10cf9a6d9573661bbeb5d871c9eac08cc38d59deb4d9 ,
  2266. 0x8ef0bb079165ec8f8c6e1ca7a5f22aad50fc17e0ac02a31c08db5d88f1c312ff ,
  2267. 0x06ea6c881eec06d17564292dab8cbd91a44c2819fa32a0fe29f14c9db5e2abb3 ,
  2268. 0xe2178b03619b13d3bcc5fdaf1c0db6b43e44c26fbd835b9dfbbfc6fbdd35c9c3 ,
  2269. 0x87abc00fbdfd62a0cf5b99f2f6637ab12ffa31c5bbd6e7c5d55e2f264ef521f0 ,
  2270. 0xd9e7f88d37d3e7f5e1e7b115c9af06aac0e53411e34cafb07c1e5a2e07c53020 ,
  2271. 0x330331aae3266190548a6086e05a4643c2c8fb00ac28cccf5781402a2bc63552 ,
  2272. 0x618c81f234caa0100a59a3985509a2590d525ac575258b14d3871e02e57215b8 ,
  2273. 0xa2a8a2bc0ca07c608452a82905a9441277e309dc9c9311be1b476a4e1ed19e6b ,
  2274. 0x5ac3eaddab8b2d9ec7f296b582309956c5c412c00fd3b939b0931f21d723423f ,
  2275. 0xba07e45807b23d7b903eda01ed8847cb756d1d2feedf1c28885b0673ed2deb85 ,
  2276. 0xa98c262609fd1be033a04367c0b6bb413c2eb09e7dc87fd78bfcf99360be4fc1 ,
  2277. 0x4e7f80c2f009d0bd4dd05b1b60ec68f409bf3f02e823809d3a0ebab91ef27a07 ,
  2278. 0x940f8f401919817c6e18a1ee4350c7c6a00d7c09f9f9469046178c171aaf08e1 ,
  2279. 0x2c1153cb003ad00fc681d40607e21dbb71bd6d17a4ce3731fbc9c79879ef0062 ,
  2280. 0xafbf0a79a313f41937ff834da3425425a2b2042c0e301a41eaed7d88ef6a46f4 ,
  2281. 0xe5667e919a30d1b203133b5f44a869dbfced2debd29967d729faf60d57f36dcd ,
  2282. 0xadc26dc2da65c24269a64b2a8f1839292927a41bc1a014990c4a3726437c1f92 ,
  2283. 0xa2a1a9c8adf1f1d3e9d7daddb9575e7216777b9e58f8e9428d90e10f4429949e ,
  2284. 0xcc164b26bd543615caf74c0b0bf74d0f00d39fbc07ff6c2dbf07c2624beb2f1b ,
  2285. 0x9a7a4cf790bc810000002574455874646174653a63726561746500323030392d ,
  2286. 0x30392d31335431343a32393a30332b30323a30305d62de4a0000002574455874 ,
  2287. 0x646174653a6d6f6469667900323030392d30392d31335431343a32393a30332b ,
  2288. 0x30323a30302c3f66f60000000049454e44ae426082
  2289. End
  2290. LayoutCachedLeft =4648
  2291. LayoutCachedTop =2040
  2292. LayoutCachedWidth =5209
  2293. LayoutCachedHeight =2376
  2294. Gradient =0
  2295. BackColor =4626167
  2296. BorderColor =4626167
  2297. BorderThemeColorIndex =9
  2298. HoverColor =7056377
  2299. PressedColor =750835
  2300. HoverForeColor =16777215
  2301. PressedForeColor =16777215
  2302. QuickStyle =14
  2303. QuickStyleMask =-1
  2304. WebImagePaddingLeft =1
  2305. WebImagePaddingTop =1
  2306. Overlaps =1
  2307. End
  2308. Begin TextBox
  2309. Locked = NotDefault
  2310. OldBorderStyle =0
  2311. OverlapFlags =255
  2312. BackStyle =0
  2313. IMESentenceMode =3
  2314. Left =9637
  2315. Top =6122
  2316. Width =1981
  2317. Height =315
  2318. ColumnOrder =3
  2319. TabIndex =42
  2320. BorderColor =10921638
  2321. ForeColor =4210752
  2322. Name ="txt_RepPDF2"
  2323. ControlSource ="=[lst_annee] & \"-\" & Format([lst_mois],'00') & \"\\\""
  2324. GridlineColor =10921638
  2325. LayoutCachedLeft =9637
  2326. LayoutCachedTop =6122
  2327. LayoutCachedWidth =11618
  2328. LayoutCachedHeight =6437
  2329. End
  2330. Begin Label
  2331. OverlapFlags =247
  2332. Left =9240
  2333. Top =6122
  2334. Width =397
  2335. Height =284
  2336. BorderColor =10921638
  2337. ForeColor =4210752
  2338. Name ="Étiquette88"
  2339. Caption ="..."
  2340. GridlineColor =10921638
  2341. LayoutCachedLeft =9240
  2342. LayoutCachedTop =6122
  2343. LayoutCachedWidth =9637
  2344. LayoutCachedHeight =6406
  2345. BorderThemeColorIndex =1
  2346. BorderTint =100.0
  2347. BorderShade =65.0
  2348. ForeTint =75.0
  2349. End
  2350. Begin TextBox
  2351. OldBorderStyle =0
  2352. OverlapFlags =247
  2353. IMESentenceMode =3
  2354. Left =850
  2355. Top =3004
  2356. Width =612
  2357. Height =405
  2358. ColumnOrder =2
  2359. FontSize =13
  2360. TabIndex =43
  2361. BackColor =15921906
  2362. BorderColor =10921638
  2363. ForeColor =4210752
  2364. Name ="CodeAgent"
  2365. AfterUpdate ="[Event Procedure]"
  2366. GridlineColor =10921638
  2367. LayoutCachedLeft =850
  2368. LayoutCachedTop =3004
  2369. LayoutCachedWidth =1462
  2370. LayoutCachedHeight =3409
  2371. BackShade =95.0
  2372. End
  2373. Begin Label
  2374. Visible = NotDefault
  2375. OverlapFlags =247
  2376. Left =7313
  2377. Top =3400
  2378. Width =4082
  2379. Height =284
  2380. FontWeight =700
  2381. BorderColor =8355711
  2382. ForeColor =2366701
  2383. Name ="Edition"
  2384. Caption ="."
  2385. GridlineColor =10921638
  2386. LayoutCachedLeft =7313
  2387. LayoutCachedTop =3400
  2388. LayoutCachedWidth =11395
  2389. LayoutCachedHeight =3684
  2390. ForeThemeColorIndex =-1
  2391. ForeTint =100.0
  2392. End
  2393. Begin ListBox
  2394. OverlapFlags =85
  2395. OldBorderStyle =0
  2396. IMESentenceMode =3
  2397. ColumnCount =5
  2398. Left =11905
  2399. Top =1523
  2400. Width =2835
  2401. Height =5409
  2402. ColumnOrder =1
  2403. TabIndex =44
  2404. BackColor =14211288
  2405. ForeColor =4210752
  2406. BorderColor =10921638
  2407. Name ="lst_FichiersNonTraites"
  2408. RowSourceType ="Table/Query"
  2409. RowSource ="SELECT tbl_SuiviRH.IDSuivi, tbl_SuiviRH.AnneeRH, Left(UCase(MonthName([MoisRH]))"
  2410. ",3) AS Mois, NomAgentAbrege(DFirst(\"Nom\",\"tbl_Agents\",\"[CodeAgent]='\" & [C"
  2411. "odeAgent] & \"'\")) AS NomAgent, tbl_SuiviRH.Edite, tbl_SuiviRH.Etat, tbl_SuiviR"
  2412. "H.AnneeRH FROM tbl_SuiviRH WHERE (((tbl_SuiviRH.Edite)=False) AND ((tbl_SuiviRH."
  2413. "AnneeRH)>2013 And (tbl_SuiviRH.AnneeRH)=[Formulaires]![frm_Menu].[lst_annee])) O"
  2414. "R (((tbl_SuiviRH.Edite)=False) AND ((tbl_SuiviRH.AnneeRH)>=2013) AND ((tbl_Suivi"
  2415. "RH.MoisRH)>6)) ORDER BY tbl_SuiviRH.AnneeRH DESC , tbl_SuiviRH.MoisRH DESC; "
  2416. ColumnWidths ="0;567;567;1701;0"
  2417. OnDblClick ="[Event Procedure]"
  2418. GridlineColor =10921638
  2419. LayoutCachedLeft =11905
  2420. LayoutCachedTop =1523
  2421. LayoutCachedWidth =14740
  2422. LayoutCachedHeight =6932
  2423. BackThemeColorIndex =-1
  2424. Begin
  2425. Begin Label
  2426. OverlapFlags =85
  2427. Left =11905
  2428. Top =1133
  2429. Width =1935
  2430. Height =330
  2431. FontWeight =700
  2432. BorderColor =8355711
  2433. ForeColor =2366701
  2434. Name ="CodeAgent_Étiquette"
  2435. Caption ="Fichiers Non-Edités"
  2436. GridlineColor =10921638
  2437. LayoutCachedLeft =11905
  2438. LayoutCachedTop =1133
  2439. LayoutCachedWidth =13840
  2440. LayoutCachedHeight =1463
  2441. ForeThemeColorIndex =-1
  2442. ForeTint =100.0
  2443. End
  2444. End
  2445. End
  2446. Begin Label
  2447. FontItalic = NotDefault
  2448. OverlapFlags =85
  2449. Left =11905
  2450. Top =6972
  2451. Width =2835
  2452. Height =285
  2453. FontSize =9
  2454. BorderColor =8355711
  2455. Name ="Étiquette98"
  2456. Caption ="Double-cliquer pour un accès rapide..."
  2457. GridlineColor =10921638
  2458. LayoutCachedLeft =11905
  2459. LayoutCachedTop =6972
  2460. LayoutCachedWidth =14740
  2461. LayoutCachedHeight =7257
  2462. ForeTint =100.0
  2463. End
  2464. Begin Label
  2465. OverlapFlags =223
  2466. TextAlign =2
  2467. Left =4762
  2468. Top =340
  2469. Width =6315
  2470. Height =285
  2471. FontSize =12
  2472. FontWeight =700
  2473. BorderColor =8355711
  2474. ForeColor =8355711
  2475. Name ="Étiquette99"
  2476. Caption ="Application de Gestion des Ressources Humaines"
  2477. GridlineColor =10921638
  2478. LayoutCachedLeft =4762
  2479. LayoutCachedTop =340
  2480. LayoutCachedWidth =11077
  2481. LayoutCachedHeight =625
  2482. End
  2483. Begin TextBox
  2484. FontItalic = NotDefault
  2485. OldBorderStyle =0
  2486. OverlapFlags =247
  2487. BackStyle =0
  2488. IMESentenceMode =3
  2489. Left =1530
  2490. Top =3401
  2491. Width =3515
  2492. Height =255
  2493. ColumnOrder =0
  2494. FontSize =9
  2495. TabIndex =45
  2496. BorderColor =10921638
  2497. ForeColor =255
  2498. Name ="verif"
  2499. ControlSource ="=VerifImport(Nz([lst_agent],\"\"),Nz([lst_mois],0),Nz([lst_annee],0))"
  2500. GridlineColor =10921638
  2501. LayoutCachedLeft =1530
  2502. LayoutCachedTop =3401
  2503. LayoutCachedWidth =5045
  2504. LayoutCachedHeight =3656
  2505. ForeThemeColorIndex =-1
  2506. ForeTint =100.0
  2507. End
  2508. Begin CommandButton
  2509. OverlapFlags =87
  2510. Left =12585
  2511. Top =170
  2512. Width =567
  2513. Height =340
  2514. TabIndex =46
  2515. ForeColor =0
  2516. Name ="cmdNotice"
  2517. Caption ="?"
  2518. OnClick ="[Event Procedure]"
  2519. LeftPadding =60
  2520. RightPadding =75
  2521. BottomPadding =120
  2522. GridlineColor =10921638
  2523. LayoutCachedLeft =12585
  2524. LayoutCachedTop =170
  2525. LayoutCachedWidth =13152
  2526. LayoutCachedHeight =510
  2527. ForeThemeColorIndex =0
  2528. BackColor =0
  2529. BackThemeColorIndex =0
  2530. BorderColor =0
  2531. BorderThemeColorIndex =0
  2532. HoverColor =3355443
  2533. HoverThemeColorIndex =0
  2534. PressedColor =0
  2535. PressedThemeColorIndex =0
  2536. HoverForeColor =0
  2537. HoverForeThemeColorIndex =0
  2538. PressedForeColor =0
  2539. PressedForeThemeColorIndex =0
  2540. Shadow =-1
  2541. QuickStyle =22
  2542. QuickStyleMask =-1
  2543. WebImagePaddingTop =1
  2544. Overlaps =1
  2545. End
  2546. Begin CommandButton
  2547. OverlapFlags =87
  2548. Left =2557
  2549. Top =113
  2550. Width =2147
  2551. Height =338
  2552. TabIndex =47
  2553. ForeColor =0
  2554. Name ="Commande103"
  2555. Caption ="MAJ les données"
  2556. OnClick ="[Event Procedure]"
  2557. LeftPadding =60
  2558. RightPadding =75
  2559. BottomPadding =120
  2560. GridlineColor =10921638
  2561. LayoutCachedLeft =2557
  2562. LayoutCachedTop =113
  2563. LayoutCachedWidth =4704
  2564. LayoutCachedHeight =451
  2565. ForeThemeColorIndex =0
  2566. BackColor =0
  2567. BackThemeColorIndex =0
  2568. BorderColor =0
  2569. BorderThemeColorIndex =0
  2570. HoverColor =3355443
  2571. HoverThemeColorIndex =0
  2572. PressedColor =0
  2573. PressedThemeColorIndex =0
  2574. HoverForeColor =0
  2575. HoverForeThemeColorIndex =0
  2576. PressedForeColor =0
  2577. PressedForeThemeColorIndex =0
  2578. Shadow =-1
  2579. QuickStyle =22
  2580. QuickStyleMask =-1
  2581. WebImagePaddingTop =1
  2582. Overlaps =1
  2583. End
  2584. Begin CommandButton
  2585. OverlapFlags =85
  2586. Left =12248
  2587. Top =7313
  2588. Width =2492
  2589. Height =502
  2590. FontSize =9
  2591. TabIndex =48
  2592. ForeColor =0
  2593. Name ="Commande107"
  2594. Caption ="Accéder à l'historique des opérations"
  2595. OnClick ="[Event Procedure]"
  2596. LeftPadding =60
  2597. RightPadding =75
  2598. BottomPadding =120
  2599. GridlineColor =10921638
  2600. LayoutCachedLeft =12248
  2601. LayoutCachedTop =7313
  2602. LayoutCachedWidth =14740
  2603. LayoutCachedHeight =7815
  2604. ForeThemeColorIndex =0
  2605. BackColor =0
  2606. BackThemeColorIndex =0
  2607. BorderColor =0
  2608. BorderThemeColorIndex =0
  2609. HoverColor =3355443
  2610. HoverThemeColorIndex =0
  2611. PressedColor =0
  2612. PressedThemeColorIndex =0
  2613. HoverForeColor =0
  2614. HoverForeThemeColorIndex =0
  2615. PressedForeColor =0
  2616. PressedForeThemeColorIndex =0
  2617. Shadow =-1
  2618. QuickStyle =22
  2619. QuickStyleMask =-1
  2620. WebImagePaddingTop =1
  2621. End
  2622. Begin CommandButton
  2623. Enabled = NotDefault
  2624. OverlapFlags =247
  2625. Left =1360
  2626. Top =4592
  2627. Width =778
  2628. Height =614
  2629. TabIndex =49
  2630. ForeColor =16777215
  2631. Name ="exportPeriple"
  2632. Caption ="Ouvrir"
  2633. OnClick ="[Event Procedure]"
  2634. LeftPadding =90
  2635. TopPadding =45
  2636. RightPadding =105
  2637. BottomPadding =150
  2638. GridlineColor =10921638
  2639. ImageData = Begin
  2640. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  2641. 0x0000000000000000c0a8a0ff807060ff807060ff807060ff807060ff807060ff ,
  2642. 0x807060ff807060ff807060ff807060ff807060ff807060ff0000000000000000 ,
  2643. 0x0000000000000000c0b0a0fffff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff ,
  2644. 0xfff8f0fffff8f0fffff0f0fffff0f0fffff0f0ff807060ff0000000000000000 ,
  2645. 0x0000000000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
  2646. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff807060ff0000000000000000 ,
  2647. 0x0000000000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  2648. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffb0a090ffffffff50ffffff20 ,
  2649. 0xffffff0000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
  2650. 0xfff8f0fffff8f0fffff0f0fffff0f0fffff8f0ffd0d0c0ff805030ffe0c0b090 ,
  2651. 0xffffff1000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  2652. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0ff905830ff905840ff ,
  2653. 0xe0c8c0a000000000c0b0a0fffffffffffff8fffffff8f0fffff8f0fffff8f0ff ,
  2654. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ffe0e0e0ffb06030ffc06830ff ,
  2655. 0x905840ffc0907040c0b8a0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  2656. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0fff0a880ffe08050ff ,
  2657. 0xc06030ff905840ffc0b8a0fffffffffffffffffffffffffffff8fffffff8ffff ,
  2658. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8ffffe0e0e0ffffa880ffffb890ff ,
  2659. 0xa07050ffc0907020d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  2660. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8fffff0e8e0ffc08060ffb07860ff ,
  2661. 0xf0e0e09000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
  2662. 0xfff8fffffff8fffffff8f0fffff8f0fffff8ffffd0d0d0ffc09070fff0d8d080 ,
  2663. 0xffffff2000000000d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  2664. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8ffffb0a8a0ffffffff60ffffff20 ,
  2665. 0x0000000000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
  2666. 0xfffffffffffffffffff8fffffff8fffffff8ffff908870ffffffff30ffffff10 ,
  2667. 0x0000000000000000d0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ff ,
  2668. 0xd0b8a0ffd0b8a0ffc0b8a0ffc0b8a0ffc0b0a0ffc0b0a0ff0000000000000000 ,
  2669. 0x0000000000000000909090ffe0e0e0ff909090ffffffffff707070e0ffffffff ,
  2670. 0x808080ffffffffff808080ffffffffff707070ffd0c8c0ff0000000000000000 ,
  2671. 0x0000000000000000d0c8d0ff505050ffb0b8b0ff202820ff30283050202820ff ,
  2672. 0x30283040202820ff40404080202820ff40383060202820ff0000000000000000 ,
  2673. 0x0000000000000000
  2674. End
  2675. LayoutCachedLeft =1360
  2676. LayoutCachedTop =4592
  2677. LayoutCachedWidth =2138
  2678. LayoutCachedHeight =5206
  2679. Gradient =0
  2680. BackColor =4626167
  2681. BorderColor =16777215
  2682. HoverColor =7056377
  2683. PressedColor =750835
  2684. HoverForeColor =16777215
  2685. PressedForeColor =16777215
  2686. Shadow =-1
  2687. QuickStyle =21
  2688. QuickStyleMask =-1
  2689. Overlaps =1
  2690. End
  2691. Begin Label
  2692. OverlapFlags =247
  2693. TextAlign =2
  2694. Left =1360
  2695. Top =3855
  2696. Width =795
  2697. Height =675
  2698. FontWeight =700
  2699. BorderColor =8355711
  2700. Name ="Étiquette110"
  2701. Caption ="Export PERIPLE"
  2702. GridlineColor =10921638
  2703. LayoutCachedLeft =1360
  2704. LayoutCachedTop =3855
  2705. LayoutCachedWidth =2155
  2706. LayoutCachedHeight =4530
  2707. ForeTint =100.0
  2708. End
  2709. End
  2710. End
  2711. Begin Section
  2712. CanGrow = NotDefault
  2713. CanShrink = NotDefault
  2714. Height =5499
  2715. BackColor =14211288
  2716. Name ="Détail"
  2717. AlternateBackColor =15921906
  2718. AlternateBackThemeColorIndex =1
  2719. AlternateBackShade =95.0
  2720. Begin
  2721. Begin Subform
  2722. Enabled = NotDefault
  2723. Locked = NotDefault
  2724. OverlapFlags =85
  2725. OldBorderStyle =0
  2726. Left =628
  2727. Top =56
  2728. Width =11169
  2729. Height =5269
  2730. BorderColor =10921638
  2731. Name ="Fille89"
  2732. SourceObject ="Form.sfrm_msg"
  2733. GridlineColor =10921638
  2734. LayoutCachedLeft =628
  2735. LayoutCachedTop =56
  2736. LayoutCachedWidth =11797
  2737. LayoutCachedHeight =5325
  2738. End
  2739. End
  2740. End
  2741. Begin FormFooter
  2742. Height =0
  2743. BackColor =5330263
  2744. Name ="PiedFormulaire"
  2745. AlternateBackThemeColorIndex =1
  2746. AlternateBackShade =95.0
  2747. End
  2748. End
  2749. End
  2750. CodeBehindForm
  2751. Attribute VB_GlobalNameSpace = False
  2752. Attribute VB_Creatable = True
  2753. Attribute VB_PredeclaredId = True
  2754. Attribute VB_Exposed = False
  2755. Option Compare Database
  2756. Private Sub Administration_Click()
  2757. DoCmd.OpenForm "frm_Admin"
  2758. End Sub
  2759. Private Sub BaremeValide_Click()
  2760. DoCmd.OpenForm "frm_BaremesValide"
  2761. End Sub
  2762. Private Sub BordEFD_Click()
  2763. Dim moisRH, anneeRH As Integer
  2764. moisRH = Me.mois
  2765. anneeRH = Me.Annee
  2766. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2767. critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  2768. DoCmd.OpenReport "Et_BordEFD", acViewPreview, , critere
  2769. End Sub
  2770. Private Sub BordEFDImpr_Click()
  2771. Dim imprimante As String
  2772. Dim NumIMP, NombreImp As Integer
  2773. Dim ImpCherche
  2774. Dim critere As String
  2775. Dim moisRH, anneeRH As Integer
  2776. 'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
  2777. imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
  2778. If imprimante = "" Then
  2779. MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
  2780. Exit Sub
  2781. End If
  2782. NumIMP = 0
  2783. NombreImp = Application.Printers.Count
  2784. For Each ImpCherche In Application.Printers
  2785. If ImpCherche.DeviceName = imprimante Then
  2786. Set Application.Printer = Application.Printers(NumIMP)
  2787. Exit For
  2788. Else
  2789. NumIMP = NumIMP + 1
  2790. End If
  2791. Next ImpCherche
  2792. 'définition du critère mois/année
  2793. moisRH = Me.lst_mois.Column(0)
  2794. anneeRH = Me.lst_annee.Column(0)
  2795. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2796. critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  2797. Call ImprEtats("Et_BordEFD", 1, critere)
  2798. End Sub
  2799. Private Sub BordEFDpdf_Click()
  2800. 'Dim moisRH, anneeRH As Integer
  2801. Dim moisRH, anneeRH As Integer
  2802. moisRH = Me.lst_mois.Column(0)
  2803. anneeRH = Me.lst_annee.Column(0)
  2804. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2805. Call ExportBordereau("Et_BordEFD", moisRH, anneeRH)
  2806. End Sub
  2807. Private Sub BordHS_Click()
  2808. Dim critere As String
  2809. moisRH = Me.lst_mois.Column(0)
  2810. anneeRH = Me.lst_annee.Column(0)
  2811. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2812. critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  2813. DoCmd.OpenReport "Et_BordHS", acViewPreview, , critere
  2814. End Sub
  2815. Private Sub BordHSImpr_Click()
  2816. Dim imprimante As String
  2817. Dim NumIMP, NombreImp As Integer
  2818. Dim ImpCherche
  2819. Dim critere As String
  2820. 'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
  2821. imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
  2822. If imprimante = "" Then
  2823. MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
  2824. Exit Sub
  2825. End If
  2826. NumIMP = 0
  2827. NombreImp = Application.Printers.Count
  2828. For Each ImpCherche In Application.Printers
  2829. If ImpCherche.DeviceName = imprimante Then
  2830. Set Application.Printer = Application.Printers(NumIMP)
  2831. Exit For
  2832. Else
  2833. NumIMP = NumIMP + 1
  2834. End If
  2835. Next ImpCherche
  2836. 'définition du critère mois/année
  2837. moisRH = Me.lst_mois.Column(0)
  2838. anneeRH = Me.lst_annee.Column(0)
  2839. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2840. critere = "[MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  2841. Call ImprEtats("Et_BordHS", 1, critere)
  2842. End Sub
  2843. Private Sub BordHSpdf_Click()
  2844. Dim moisRH, anneeRH As Integer
  2845. moisRH = Me.lst_mois.Column(0)
  2846. anneeRH = Me.lst_annee.Column(0)
  2847. If Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2848. Call ExportBordereau("Et_BordHS", moisRH, anneeRH)
  2849. End Sub
  2850. Private Sub case_test_AfterUpdate()
  2851. Dim rs As DAO.Recordset
  2852. Dim Valeur As String
  2853. Dim valeur2 As String
  2854. Dim param As String
  2855. Dim lg As Integer
  2856. Set rs = CurrentDb.OpenRecordset("tbl_parametre")
  2857. rs.MoveFirst
  2858. If Me.case_test.Value = True Then
  2859. Me.txt_mode.Caption = "Local"
  2860. Do Until rs.EOF = True
  2861. Valeur = Nz(rs.Fields("Valeur"), "")
  2862. valeur2 = Nz(rs.Fields("Valeur2"), "")
  2863. param = Nz(rs.Fields("Parametre"), "")
  2864. If valeur2 = "mdb_loc" Then
  2865. Do Until Not Right(param, 1) = "-"
  2866. lg = Len(param)
  2867. lg = lg - 1
  2868. param = Left(param, lg)
  2869. Loop
  2870. End If
  2871. If valeur2 = "mdb_res" Then
  2872. param = param & "-"
  2873. End If
  2874. rs.Edit
  2875. rs.Fields("Valeur") = Valeur
  2876. rs.Fields("Valeur2") = valeur2
  2877. rs.Fields("Parametre") = param
  2878. rs.Update
  2879. rs.MoveNext
  2880. Loop
  2881. Controler_Liens
  2882. MsgBox "Mode local activé"
  2883. Else
  2884. Me.txt_mode.Caption = "Réseau"
  2885. Do Until rs.EOF = True
  2886. Valeur = Nz(rs.Fields("Valeur"), "")
  2887. valeur2 = Nz(rs.Fields("Valeur2"), "")
  2888. param = Nz(rs.Fields("Parametre"), "")
  2889. If valeur2 = "mdb_loc" Then
  2890. param = param & "-"
  2891. End If
  2892. If valeur2 = "mdb_res" Then
  2893. Do Until Not Right(param, 1) = "-"
  2894. lg = Len(param)
  2895. lg = lg - 1
  2896. param = Left(param, lg)
  2897. Loop
  2898. End If
  2899. rs.Edit
  2900. rs.Fields("Valeur") = Valeur
  2901. rs.Fields("Valeur2") = valeur2
  2902. rs.Fields("Parametre") = param
  2903. rs.Update
  2904. rs.MoveNext
  2905. Loop
  2906. Controler_Liens
  2907. MsgBox "Mode réseau activé"
  2908. End If
  2909. End Sub
  2910. Private Sub CmdImpr_Click()
  2911. Dim Etat, critere, sql As String
  2912. Dim NbCopies As Integer
  2913. Dim imprimante As String
  2914. Dim NumIMP, NombreImp As Integer
  2915. Dim ImpCherche
  2916. Dim IDSuivi As Double
  2917. Dim avertissement As Integer
  2918. Dim TotalCopies As Integer
  2919. Dim rs As DAO.Recordset
  2920. NbCopies = 0
  2921. TotalCopies = 0
  2922. 'selection de l'imprimante utilisateur (cf. tbl_ParamUtil)
  2923. imprimante = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='imprimante' AND [user]='" & CurrentUser & "'"), "")
  2924. If imprimante = "" Then
  2925. MsgBox "Pas d'imprimante définie pour cet utilisateur (cf. tbl_parametre)"
  2926. Exit Sub
  2927. End If
  2928. NumIMP = 0
  2929. NombreImp = Application.Printers.Count
  2930. For Each ImpCherche In Application.Printers
  2931. If ImpCherche.DeviceName = imprimante Then
  2932. Set Application.Printer = Application.Printers(NumIMP)
  2933. Exit For
  2934. Else
  2935. NumIMP = NumIMP + 1
  2936. End If
  2937. Next ImpCherche
  2938. 'définition du critère agent/mois/année
  2939. CodeAgent = Me.lst_agent.Column(0)
  2940. moisRH = Me.lst_mois.Column(0)
  2941. anneeRH = Me.lst_annee.Column(0)
  2942. If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  2943. critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  2944. 'impressions
  2945. 'form Déplacements:
  2946. Etat = "Et_FormDep"
  2947. NbCopies = Nz(Me.NbImprFDep, 0)
  2948. If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
  2949. TotalCopies = TotalCopies + NbCopies
  2950. 'form Heures Sup:
  2951. Etat = "Et_FormHS"
  2952. NbCopies = Nz(Me.NbImprFHS, 0)
  2953. If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
  2954. TotalCopies = TotalCopies + NbCopies
  2955. 'form Etat de frais:
  2956. Etat = "Et_EtFraisDep"
  2957. NbCopies = Nz(Me.NbImprEFD, 0)
  2958. If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
  2959. Etat = "Et_RecapEFD"
  2960. NbCopies = Nz(Me.NbImprEFD, 0)
  2961. If NbCopies > 0 Then Call ImprEtats(Etat, NbCopies, critere)
  2962. TotalCopies = TotalCopies + NbCopies
  2963. Set Application.Printer = Nothing
  2964. 'l'état du suivi devient "Edité"
  2965. If TotalCopies > 0 Then
  2966. avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
  2967. Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_SuiviRH WHERE " & critere & ";")
  2968. sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Edite = True, tbl_SuiviRH.DateEdition = Date() " & _
  2969. "WHERE (" & critere & ");"
  2970. IDSuivi = Nz(DLookup("IDSuivi", "tbl_SuiviRH", critere), 0)
  2971. Call CreerMsg(4, IDSuivi)
  2972. If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 'pour éviter les conflits d'écriture
  2973. If avertissement = 0 Then DoCmd.SetWarnings False
  2974. DoCmd.RunSQL sql
  2975. DoCmd.SetWarnings True
  2976. MAJ_etat
  2977. End If
  2978. End Sub
  2979. Private Sub CodeAgent_AfterUpdate()
  2980. 'maj de la liste
  2981. If IsNull(DLookup("CodeAgent", "tbl_Agents", "[CodeAgent]='" & Nz(Me.CodeAgent, "") & "'")) Then Exit Sub
  2982. Me.lst_agent = Me.CodeAgent
  2983. End Sub
  2984. Private Sub Commande1_Click()
  2985. DoCmd.OpenForm "frm_donneesRH"
  2986. End Sub
  2987. Private Sub cmdNotice_Click()
  2988. Dim chemin As String
  2989. Dim nomdoc As String
  2990. Dim appwd As Word.Application
  2991. chemin = parametre("CheminNotice")
  2992. nomdoc = ExtraitNomFichier(chemin)
  2993. If MsgBox("Vous vous apprêtez à ouvrir le document " & nomdoc & " - Continuer?", vbYesNo) = vbNo Then Exit Sub
  2994. Set appwd = CreateObject("Word.Application")
  2995. With appwd
  2996. .Visible = True
  2997. .Documents.Open chemin
  2998. .Activate
  2999. End With
  3000. End Sub
  3001. Private Sub Commande103_Click()
  3002. Call Chargement
  3003. MAJ_etat
  3004. End Sub
  3005. Private Sub Commande106_Click()
  3006. Dim t0 As Single
  3007. Dim i As Integer
  3008. For i = 1 To 6
  3009. t0 = Timer
  3010. Call BordEFD_Click
  3011. Debug.Print i, Timer - t0
  3012. DoCmd.Close acReport, "Et_BordEFD"
  3013. DoEvents
  3014. Next i
  3015. End Sub
  3016. Private Sub Commande107_Click()
  3017. DoCmd.OpenTable "tbl_msg"
  3018. End Sub
  3019. Private Sub Commande44_Click()
  3020. DoCmd.OpenForm "frm_lstAgents"
  3021. End Sub
  3022. Private Sub Commande45_Click()
  3023. Dim filtre As String
  3024. filtre = "[user]='" & CurrentUser & "'"
  3025. DoCmd.OpenForm "frm_ParamUtil", , , filtre
  3026. End Sub
  3027. Private Sub Commande61_Click()
  3028. DoCmd.OpenForm "frm_lstBaremes"
  3029. End Sub
  3030. Private Sub Commande68_Click()
  3031. Dim NvelleAnnee As Integer
  3032. 'ligne précédente liste mois
  3033. If Me.lst_mois.ListIndex > 0 Then 'si pas la première ligne sélectionnée
  3034. Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListIndex - 1)
  3035. Else
  3036. 'on vérifie si l'année précédente existe dans la liste, sinon on ne fait rien
  3037. NvelleAnnee = Me.lst_annee - 1
  3038. If VerifListeAnnee(NvelleAnnee) = True Then
  3039. Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListCount - 1)
  3040. Me.lst_annee = Me.lst_annee - 1 'on passe de janvier à décembre, on passe donc à l'année précédente
  3041. Else
  3042. Exit Sub
  3043. End If
  3044. End If
  3045. MAJ_etat
  3046. End Sub
  3047. Private Sub Commande69_Click()
  3048. Dim NvelleAnnee As Integer
  3049. 'ligne suivante liste mois
  3050. If Me.lst_mois.ListIndex < Me.lst_mois.ListCount - 1 Then 'si pas la dernière ligne sélectionnée
  3051. Me.lst_mois = Me.lst_mois.ItemData(Me.lst_mois.ListIndex + 1)
  3052. Else
  3053. 'on vérifie si l'année suivante existe dans la liste, sinon on ne fait rien
  3054. NvelleAnnee = Me.lst_annee + 1
  3055. If VerifListeAnnee(NvelleAnnee) = True Then
  3056. Me.lst_mois = Me.lst_mois.ItemData(0)
  3057. Me.lst_annee = Me.lst_annee + 1 'on passe de décembre à janvier , on passe donc à l'année suivante
  3058. Else
  3059. Exit Sub
  3060. End If
  3061. End If
  3062. MAJ_etat
  3063. End Sub
  3064. Private Sub Commande70_Click()
  3065. 'ligne précédente liste agents
  3066. If Me.lst_agent.ListIndex > 0 Then 'si pas la première ligne sélectionnée
  3067. Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListIndex - 1)
  3068. Else
  3069. Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListCount - 1)
  3070. End If
  3071. MAJ_etat
  3072. End Sub
  3073. Private Sub Commande71_Click()
  3074. 'ligne suivante liste agents
  3075. If Me.lst_agent.ListIndex < Me.lst_agent.ListCount - 1 Then 'si pas la dernière ligne sélectionnée
  3076. Me.lst_agent = Me.lst_agent.ItemData(Me.lst_agent.ListIndex + 1)
  3077. Else
  3078. Me.lst_agent = Me.lst_agent.ItemData(0)
  3079. End If
  3080. MAJ_etat
  3081. End Sub
  3082. Private Sub Commande72_Click()
  3083. 'ligne précédente liste annees
  3084. If Me.lst_annee.ListIndex > 0 Then 'si pas la première ligne sélectionnée
  3085. Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListIndex - 1)
  3086. Else
  3087. Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListCount - 1)
  3088. End If
  3089. MAJ_etat
  3090. End Sub
  3091. Private Sub Commande73_Click()
  3092. 'ligne suivante liste annees
  3093. If Me.lst_annee.ListIndex < Me.lst_annee.ListCount - 1 Then 'si pas la dernière ligne sélectionnée
  3094. Me.lst_annee = Me.lst_annee.ItemData(Me.lst_annee.ListIndex + 1)
  3095. Else
  3096. Me.lst_annee = Me.lst_annee.ItemData(0)
  3097. End If
  3098. MAJ_etat
  3099. End Sub
  3100. Private Sub CreerForm_Click()
  3101. Dim CodeAgent, msg As String
  3102. Dim moisRH, anneeRH As Integer
  3103. Dim IDSuivi As Double
  3104. Dim resultat As Integer
  3105. Dim avertissement As Integer
  3106. IDSuivi = Nz(Me.IDSuivi, 0)
  3107. CodeAgent = Me.lst_agent.Column(0)
  3108. moisRH = Me.lst_mois.Column(0)
  3109. anneeRH = Me.lst_annee.Column(0)
  3110. If IDSuivi <= 0 Or CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  3111. VerrouMenu (0)
  3112. msg = "Traitement des données" & vbNewLine & "Veuillez patienter"
  3113. Me.txt_msg.Caption = msg
  3114. Call CreerMsg(3, IDSuivi)
  3115. avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
  3116. resultat = AnalyseDonnees(IDSuivi, CodeAgent, moisRH, anneeRH, avertissement)
  3117. If resultat = 1 Then
  3118. msg = "Les données importées ont été traitées."
  3119. ElseIf resultat = 0 Then
  3120. msg = "Attention: Le nombre de lignes aprés traitement parait ne pas correspondre au nombre de lignes importé."
  3121. ElseIf resultat = -1 Then
  3122. msg = "ATTENTION: Erreur inconnue. Veuillez vérifier les paramètres d'entrée."
  3123. Else
  3124. msg = "ATTENTION: Erreur inconnue. Veuillez vérifier les paramètres d'entrée."
  3125. End If
  3126. Me.txt_msg.Caption = msg
  3127. MAJ_etat
  3128. End Sub
  3129. Private Sub DonneesAgentValide_Click()
  3130. DoCmd.OpenForm "frm_AgentValide", , , , acFormReadOnly
  3131. End Sub
  3132. Private Sub EFD_Ouvrir_Click()
  3133. Dim CodeAgent, critere, sql As String
  3134. Dim JourRH, moisRH, anneeRH As Integer
  3135. CodeAgent = Me.lst_agent.Column(0)
  3136. moisRH = Me.lst_mois.Column(0)
  3137. anneeRH = Me.lst_annee.Column(0)
  3138. If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  3139. critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3140. DoCmd.OpenReport "Et_EtFraisDep", acViewPreview, , critere
  3141. DoCmd.OpenReport "Et_RecapEFD", acViewPreview, , critere
  3142. End Sub
  3143. Private Sub EnregPDF_Click()
  3144. Dim repPDF, msg As String
  3145. Dim CodeAgent, NomAgent, NomMois As String
  3146. Dim moisRH, anneeRH As Integer
  3147. Dim OuvAutoPdf As Boolean
  3148. Me.txt_msg.Visible = True
  3149. CodeAgent = Me.lst_agent.Column(0)
  3150. moisRH = Me.lst_mois.Column(0)
  3151. If moisRH > 0 And moisRH < 13 Then
  3152. NomMois = Left(UCase(MonthName(moisRH)), 4)
  3153. Else
  3154. MsgBox "Erreur: la valeur 'Mois' est incohérente."
  3155. Exit Sub
  3156. End If
  3157. anneeRH = Me.lst_annee.Column(0)
  3158. If anneeRH > 1901 And anneeRH < 3000 Then
  3159. 'ok
  3160. Else
  3161. MsgBox "Erreur: la valeur 'Année' est incohérente."
  3162. Exit Sub
  3163. End If
  3164. msg = "Création des pdf..."
  3165. Me.txt_msg.Caption = msg
  3166. Call ExportEtatPDF("Et_EtFraisDep", CodeAgent, moisRH, anneeRH)
  3167. Call ExportEtatPDF("Et_RecapEFD", CodeAgent, moisRH, anneeRH)
  3168. Call ExportEtatPDF("Et_FormDep", CodeAgent, moisRH, anneeRH)
  3169. Call ExportEtatPDF("Et_FormHS", CodeAgent, moisRH, anneeRH)
  3170. msg = "PDF enregistrés."
  3171. Me.txt_msg.Caption = msg
  3172. Call Attendre(2000)
  3173. Me.txt_msg.Visible = False
  3174. End Sub
  3175. Private Sub exportPeriple_Click()
  3176. On Error GoTo err
  3177. DoCmd.Hourglass True
  3178. If VerifDonneesExport(Me.CodeAgent, Me.moisRH, Me.anneeRH) = True Then
  3179. Call Periple_MajTableTampon(Me.CodeAgent, Me.moisRH, Me.anneeRH)
  3180. Else
  3181. MsgBox "Vous devez corriger les erreurs détectées dans les données pour pouvoir les exporter." & vbNewLine & _
  3182. "Opération annulée"
  3183. End If
  3184. fin:
  3185. DoCmd.Hourglass False
  3186. Exit Sub
  3187. err:
  3188. MsgBox "Erreur " & err.Description
  3189. GoTo fin
  3190. End Sub
  3191. Private Sub FDep_Ouvrir_Click()
  3192. Dim CodeAgent, critere, sql As String
  3193. Dim JourRH, moisRH, anneeRH As Integer
  3194. CodeAgent = Me.lst_agent.Column(0)
  3195. moisRH = Me.lst_mois.Column(0)
  3196. anneeRH = Me.lst_annee.Column(0)
  3197. If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  3198. critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3199. DoCmd.OpenReport "Et_FormDep", acViewPreview, , critere
  3200. End Sub
  3201. Private Sub FHS_Ouvrir_Click()
  3202. Dim CodeAgent, critere, sql As String
  3203. Dim JourRH, moisRH, anneeRH As Integer
  3204. CodeAgent = Me.lst_agent.Column(0)
  3205. moisRH = Me.lst_mois.Column(0)
  3206. anneeRH = Me.lst_annee.Column(0)
  3207. If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  3208. critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3209. DoCmd.OpenReport "Et_FormHS", acViewPreview, , critere
  3210. End Sub
  3211. Private Sub Form_Open(Cancel As Integer)
  3212. Dim dat, mm, aaaa As Integer
  3213. Me.lst_agent = ""
  3214. dat = DMax("DateRH", "tbl_ImportRH", "")
  3215. mm = Month(dat)
  3216. aaaa = Year(dat)
  3217. Me.lst_annee = aaaa
  3218. Me.lst_mois = mm
  3219. If (DCount("valeur", "tbl_Parametre", "valeur='admin' AND valeur2='" & CurrentUser & "'") > 0) Then
  3220. Me.case_test.Visible = True
  3221. Me.txt_mode.Visible = True
  3222. If Right(DLookup("parametre", "tbl_parametre", "valeur2='mdb_loc'"), 1) = "-" Then
  3223. Me.txt_mode.Caption = "Réseau"
  3224. Me.case_test = False
  3225. Else
  3226. Me.txt_mode.Caption = "Local"
  3227. Me.case_test = True
  3228. MsgBox "Attention: le mode local est activé"
  3229. End If
  3230. Else
  3231. Me.case_test.Visible = False
  3232. Me.txt_mode.Visible = False
  3233. End If
  3234. MAJ_etat
  3235. End Sub
  3236. Private Sub InvalidForm_Click()
  3237. Dim CodeAgent, critere, sql As String
  3238. Dim moisRH, anneeRH, avertissement As Integer
  3239. CodeAgent = Me.lst_agent.Column(0)
  3240. moisRH = Me.lst_mois.Column(0)
  3241. anneeRH = Me.lst_annee.Column(0)
  3242. avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
  3243. If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
  3244. critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3245. If DLookup("Edite", "tbl_SuiviRH", critere) = True Then
  3246. 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
  3247. End If
  3248. sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Etat ='Invalidé', tbl_SuiviRH.Edite = False " & _
  3249. "WHERE (" & critere & ");"
  3250. If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 'pour éviter les conflits d'écriture
  3251. If avertissement = 0 Then DoCmd.SetWarnings False
  3252. DoCmd.RunSQL sql
  3253. DoCmd.SetWarnings True
  3254. MAJ_etat
  3255. Else
  3256. MsgBox "Erreur inconnue: vérifier les paramètres d'entrée."
  3257. End If
  3258. End Sub
  3259. Private Sub lst_agent_AfterUpdate()
  3260. MAJ_etat
  3261. End Sub
  3262. Public Sub MAJ_etat()
  3263. Dim CodeAgent, critere As String
  3264. Dim moisRH, anneeRH As Integer
  3265. 'desactiver la maj de l'affichage le temps de l'execution
  3266. Application.Echo False
  3267. CodeAgent = Me.lst_agent.Column(0)
  3268. moisRH = Me.mois
  3269. anneeRH = Me.Annee
  3270. 'maj case:
  3271. Me.CodeAgent = CodeAgent
  3272. If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
  3273. critere = "[Valide]=True AND [CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3274. If Me.Filter <> critere Then Me.Filter = critere
  3275. Me.FilterOn = True
  3276. End If
  3277. 'MAJ du chemin d'enregistrement des PDF
  3278. Me.txt_RepPDF.Locked = False
  3279. 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)")
  3280. Me.txt_RepPDF.Locked = True
  3281. Call ControleMenu
  3282. Application.Echo True
  3283. Me.Refresh
  3284. End Sub
  3285. Private Sub lst_annee_AfterUpdate()
  3286. MAJ_etat
  3287. End Sub
  3288. Private Sub lst_FichiersNonTraites_DblClick(Cancel As Integer)
  3289. Dim IDSuivi As Double
  3290. Dim critere As String
  3291. 'acces rapide depuis la liste des fichiers non-edités
  3292. If Not Nz(Me.lst_FichiersNonTraites.Column(0), 0) > 0 Then Exit Sub
  3293. IDSuivi = Me.lst_FichiersNonTraites.Column(0)
  3294. critere = "[IDSuivi]=" & IDSuivi
  3295. Me.lst_agent = Nz(DLookup("CodeAgent", "tbl_SuiviRH", critere), "")
  3296. Me.lst_annee = Nz(DLookup("AnneeRH", "tbl_SuiviRH", critere), Year(Now()))
  3297. Me.lst_mois = Nz(DLookup("MoisRH", "tbl_SuiviRH", critere), Month(Now()))
  3298. MAJ_etat
  3299. End Sub
  3300. Private Sub lst_mois_AfterUpdate()
  3301. MAJ_etat
  3302. End Sub
  3303. Private Sub txt_RepPDF_DblClick_old(Cancel As Integer)
  3304. 'fonction changée pour une simple ouverture du dossier; cette fonction est désormais accessible via le formulaire paramètres
  3305. '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
  3306. Dim chemin, sql As String
  3307. chemin = SelectFolder("Sélectionnez un répertoire:", Me.hwnd)
  3308. If chemin = "" Then Exit Sub
  3309. If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
  3310. sql = "UPDATE tbl_parametre SET tbl_parametre.valeur ='" & chemin & "' " & _
  3311. "WHERE ([parametre]='repPDF');"
  3312. If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 'pour éviter les conflits d'écriture
  3313. DoCmd.SetWarnings False
  3314. DoCmd.RunSQL sql
  3315. DoCmd.SetWarnings True
  3316. Me.txt_RepPDF.Locked = False
  3317. Me.txt_RepPDF = Nz(DLookup("valeur", "tbl_ParamUtil", "[parametre]='repPDF'"), "Pas de répertoire par défaut défini (cf. tbl_parametre)")
  3318. Me.txt_RepPDF.Locked = True
  3319. Me.Refresh
  3320. End Sub
  3321. Private Sub TabRecap_Ouvrir_Click()
  3322. Dim CodeAgent, critere, sql As String
  3323. Dim JourRH, moisRH, anneeRH As Integer
  3324. CodeAgent = Me.lst_agent.Column(0)
  3325. moisRH = Me.lst_mois.Column(0)
  3326. anneeRH = Me.lst_annee.Column(0)
  3327. If CodeAgent = "" Or Not anneeRH > 2000 Or Not moisRH <= 12 Or Not moisRH > 0 Then Exit Sub
  3328. critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3329. DoCmd.OpenReport "Et_RecapEFD", acViewPreview, , critere
  3330. End Sub
  3331. Private Sub txt_RepPDF_DblClick(Cancel As Integer)
  3332. Dim chemin As String
  3333. chemin = Me.txt_RepPDF & Me.txt_RepPDF2
  3334. If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
  3335. If dir(chemin, 16) = "" Then MkDir (chemin)
  3336. Call OuvrirRepertoire(chemin)
  3337. End Sub
  3338. Private Sub ValidForm_Click()
  3339. 'cette procédure permet de confirmer l'exactitude des données traitées
  3340. 'les données en question sont alors verrouillées et les formulaires peuvent être imprimés/exportés
  3341. 'les données peuvent être invalidées par un administrateur
  3342. Dim CodeAgent, critere, sql As String
  3343. Dim moisRH, anneeRH, avertissement As Integer
  3344. Dim IDSuivi As Double
  3345. CodeAgent = Me.lst_agent.Column(0)
  3346. moisRH = Me.lst_mois.Column(0)
  3347. anneeRH = Me.lst_annee.Column(0)
  3348. avertissement = Nz(DLookup("valeur", "tbl_parametre", "[parametre]='AvertSQL'"), 0)
  3349. If CodeAgent <> "" And anneeRH > 2000 And moisRH <= 12 And moisRH > 0 Then
  3350. critere = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
  3351. sql = "UPDATE tbl_SuiviRH SET tbl_SuiviRH.Etat ='Validé' " & _
  3352. "WHERE (" & critere & ");"
  3353. IDSuivi = Nz(DLookup("IDSuivi", "tbl_SuiviRH", critere), 0)
  3354. Call CreerMsg(2, IDSuivi)
  3355. If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 'pour éviter les conflits d'écriture
  3356. If avertissement = 0 Then DoCmd.SetWarnings False
  3357. DoCmd.RunSQL sql
  3358. DoCmd.SetWarnings True
  3359. MAJ_etat
  3360. Else
  3361. MsgBox "Erreur inconnue: vérifier les paramètres d'entrée."
  3362. End If
  3363. End Sub
  3364. Private Function VerifListeAnnee(Valeur As Integer) As Boolean
  3365. Dim i As Integer
  3366. For i = 0 To Me.lst_annee.ListCount - 1
  3367. If Me.lst_annee.ItemData(i) = Valeur Then
  3368. VerifListeAnnee = True
  3369. Exit Function
  3370. End If
  3371. Next i
  3372. VerifListeAnnee = False
  3373. End Function