Et_BordEFD.bas 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431
  1. Version =20
  2. VersionRequired =20
  3. Begin Report
  4. LayoutForPrint = NotDefault
  5. DividingLines = NotDefault
  6. AllowDesignChanges = NotDefault
  7. DateGrouping =1
  8. GrpKeepTogether =1
  9. PictureAlignment =2
  10. DatasheetGridlinesBehavior =3
  11. GridY =10
  12. Width =10828
  13. DatasheetFontHeight =11
  14. ItemSuffix =30
  15. DatasheetGridlinesColor =14806254
  16. RecSrcDt = Begin
  17. 0x3538d5f3f4d2e440
  18. End
  19. RecordSource ="SELECT tbl_SuiviRH.CodeAgent, tbl_SuiviRH.MoisRH, tbl_SuiviRH.AnneeRH, r_Agents."
  20. "Nom, r_Agents.Matricule, r_IndemnJournalieres.TotalRepas, r_FraisKmSynthese.Dist"
  21. "anceMois, r_FraisKmSynthese.SommeDeMontant AS FraisKm FROM r_IndemnJournalieres "
  22. "INNER JOIN (r_Agents INNER JOIN (tbl_SuiviRH INNER JOIN r_FraisKmSynthese ON (tb"
  23. "l_SuiviRH.AnneeRH = r_FraisKmSynthese.AnneeRH) AND (tbl_SuiviRH.MoisRH = r_Frais"
  24. "KmSynthese.MoisRH) AND (tbl_SuiviRH.CodeAgent = r_FraisKmSynthese.CodeAgent)) ON"
  25. " r_Agents.CodeAgent = tbl_SuiviRH.CodeAgent) ON (r_IndemnJournalieres.AnneeRH = "
  26. "tbl_SuiviRH.AnneeRH) AND (r_IndemnJournalieres.MoisRH = tbl_SuiviRH.MoisRH) AND "
  27. "(r_IndemnJournalieres.CodeAgent = tbl_SuiviRH.CodeAgent) WHERE (((tbl_SuiviRH.Ed"
  28. "ite)=True)); "
  29. OnOpen ="[Event Procedure]"
  30. DatasheetFontName ="Calibri"
  31. PrtMip = Begin
  32. 0xf801000038040000f801000038040000000000004c2a00003b01000001000000 ,
  33. 0x010000006801000000000000a10700000100000001000000
  34. End
  35. FilterOnLoad =0
  36. FitToPage =1
  37. DisplayOnSharePointSite =1
  38. DatasheetAlternateBackColor =15921906
  39. DatasheetGridlinesColor12 =0
  40. FitToScreen =1
  41. DatasheetBackThemeColorIndex =1
  42. BorderThemeColorIndex =3
  43. ThemeFontIndex =1
  44. ForeThemeColorIndex =0
  45. AlternateBackThemeColorIndex =1
  46. AlternateBackShade =95.0
  47. Begin
  48. Begin Label
  49. BackStyle =0
  50. FontSize =11
  51. FontName ="Calibri"
  52. ThemeFontIndex =1
  53. BackThemeColorIndex =1
  54. BorderThemeColorIndex =0
  55. BorderTint =50.0
  56. ForeThemeColorIndex =0
  57. ForeTint =50.0
  58. GridlineThemeColorIndex =1
  59. GridlineShade =65.0
  60. End
  61. Begin TextBox
  62. AddColon = NotDefault
  63. FELineBreak = NotDefault
  64. BorderLineStyle =0
  65. Width =1701
  66. LabelX =-1701
  67. FontSize =11
  68. FontName ="Calibri"
  69. AsianLineBreak =1
  70. ShowDatePicker =0
  71. BackThemeColorIndex =1
  72. BorderThemeColorIndex =1
  73. BorderShade =65.0
  74. ThemeFontIndex =1
  75. ForeThemeColorIndex =0
  76. ForeTint =75.0
  77. GridlineThemeColorIndex =1
  78. GridlineShade =65.0
  79. End
  80. Begin FormHeader
  81. KeepTogether = NotDefault
  82. Height =907
  83. Name ="EntêteÉtat"
  84. AlternateBackThemeColorIndex =1
  85. AlternateBackShade =95.0
  86. Begin
  87. Begin Label
  88. TextAlign =2
  89. Left =585
  90. Width =8625
  91. Height =390
  92. FontSize =14
  93. FontWeight =700
  94. BorderColor =8355711
  95. Name ="Étiquette0"
  96. Caption ="BORDEREAU MENSUEL : ETATS DE FRAIS"
  97. GridlineColor =10921638
  98. LayoutCachedLeft =585
  99. LayoutCachedWidth =9210
  100. LayoutCachedHeight =390
  101. ForeTint =100.0
  102. End
  103. Begin TextBox
  104. OldBorderStyle =0
  105. TextAlign =3
  106. IMESentenceMode =3
  107. Left =2777
  108. Top =453
  109. Width =2166
  110. Height =315
  111. ColumnOrder =0
  112. FontSize =13
  113. BorderColor =10921638
  114. ForeColor =4210752
  115. Name ="txtMoisRH"
  116. ControlSource ="=UCase(MonthName([MoisRH]))"
  117. GridlineColor =10921638
  118. LayoutCachedLeft =2777
  119. LayoutCachedTop =453
  120. LayoutCachedWidth =4943
  121. LayoutCachedHeight =768
  122. End
  123. Begin TextBox
  124. OldBorderStyle =0
  125. TextAlign =1
  126. IMESentenceMode =3
  127. Left =5283
  128. Top =453
  129. Height =315
  130. ColumnOrder =1
  131. FontSize =13
  132. TabIndex =1
  133. BorderColor =10921638
  134. ForeColor =4210752
  135. Name ="AnneeRH"
  136. ControlSource ="AnneeRH"
  137. GridlineColor =10921638
  138. LayoutCachedLeft =5283
  139. LayoutCachedTop =453
  140. LayoutCachedWidth =6984
  141. LayoutCachedHeight =768
  142. End
  143. End
  144. End
  145. Begin PageHeader
  146. Height =806
  147. Name ="ZoneEntêtePage"
  148. AlternateBackThemeColorIndex =1
  149. AlternateBackShade =95.0
  150. BackThemeColorIndex =1
  151. Begin
  152. Begin Label
  153. OldBorderStyle =1
  154. TextAlign =2
  155. Left =4028
  156. Top =56
  157. Width =1650
  158. Height =750
  159. BorderColor =8355711
  160. Name ="Étiquette7"
  161. Caption ="Indemnités journalières"
  162. GridlineColor =10921638
  163. LayoutCachedLeft =4028
  164. LayoutCachedTop =56
  165. LayoutCachedWidth =5678
  166. LayoutCachedHeight =806
  167. ForeTint =100.0
  168. End
  169. Begin Label
  170. OldBorderStyle =1
  171. TextAlign =2
  172. Left =5678
  173. Top =56
  174. Width =1650
  175. Height =750
  176. BorderColor =8355711
  177. Name ="Étiquette8"
  178. Caption ="Frais de transport"
  179. GridlineColor =10921638
  180. LayoutCachedLeft =5678
  181. LayoutCachedTop =56
  182. LayoutCachedWidth =7328
  183. LayoutCachedHeight =806
  184. ForeTint =100.0
  185. End
  186. Begin Label
  187. OldBorderStyle =1
  188. TextAlign =2
  189. Left =7328
  190. Top =56
  191. Width =1680
  192. Height =750
  193. BorderColor =8355711
  194. Name ="Étiquette9"
  195. Caption ="Indemnités kilométriques"
  196. GridlineColor =10921638
  197. LayoutCachedLeft =7328
  198. LayoutCachedTop =56
  199. LayoutCachedWidth =9008
  200. LayoutCachedHeight =806
  201. ForeTint =100.0
  202. End
  203. Begin Label
  204. OldBorderStyle =1
  205. TextAlign =2
  206. Left =9017
  207. Top =56
  208. Width =1605
  209. Height =750
  210. FontWeight =700
  211. BorderColor =8355711
  212. Name ="Étiquette10"
  213. Caption ="Total des indemnités"
  214. GridlineColor =10921638
  215. LayoutCachedLeft =9017
  216. LayoutCachedTop =56
  217. LayoutCachedWidth =10622
  218. LayoutCachedHeight =806
  219. ForeTint =100.0
  220. End
  221. Begin Label
  222. OldBorderStyle =1
  223. TextAlign =2
  224. Left =56
  225. Top =64
  226. Width =1078
  227. Height =742
  228. BorderColor =8355711
  229. Name ="Étiquette4"
  230. Caption ="Matricule Agent"
  231. GridlineColor =10921638
  232. LayoutCachedLeft =56
  233. LayoutCachedTop =64
  234. LayoutCachedWidth =1134
  235. LayoutCachedHeight =806
  236. ForeTint =100.0
  237. End
  238. Begin Label
  239. OldBorderStyle =1
  240. TextAlign =2
  241. Left =1133
  242. Top =64
  243. Width =2904
  244. Height =742
  245. BorderColor =8355711
  246. Name ="Étiquette5"
  247. Caption ="Nom"
  248. GridlineColor =10921638
  249. LayoutCachedLeft =1133
  250. LayoutCachedTop =64
  251. LayoutCachedWidth =4037
  252. LayoutCachedHeight =806
  253. ForeTint =100.0
  254. End
  255. End
  256. End
  257. Begin Section
  258. KeepTogether = NotDefault
  259. Height =315
  260. Name ="Détail"
  261. AlternateBackShade =95.0
  262. BackThemeColorIndex =1
  263. Begin
  264. Begin TextBox
  265. IMESentenceMode =3
  266. Left =1133
  267. Width =2904
  268. Height =315
  269. ForeColor =4210752
  270. Name ="Nom"
  271. ControlSource ="Nom"
  272. GridlineColor =10921638
  273. LayoutCachedLeft =1133
  274. LayoutCachedWidth =4037
  275. LayoutCachedHeight =315
  276. BorderThemeColorIndex =0
  277. BorderShade =100.0
  278. End
  279. Begin TextBox
  280. DecimalPlaces =2
  281. IMESentenceMode =3
  282. Left =4028
  283. Width =1650
  284. Height =315
  285. TabIndex =1
  286. ForeColor =4210752
  287. Name ="IndemnJr"
  288. ControlSource ="TotalRepas"
  289. Format ="#,##0.00 €;-#,##0.00 €"
  290. GridlineColor =10921638
  291. LayoutCachedLeft =4028
  292. LayoutCachedWidth =5678
  293. LayoutCachedHeight =315
  294. BorderThemeColorIndex =0
  295. BorderShade =100.0
  296. CurrencySymbol ="€"
  297. End
  298. Begin TextBox
  299. DecimalPlaces =2
  300. IMESentenceMode =3
  301. Left =5678
  302. Width =1650
  303. Height =315
  304. TabIndex =2
  305. ForeColor =4210752
  306. Name ="Transport"
  307. ControlSource ="=0"
  308. Format ="#,##0.00 €;-#,##0.00 €"
  309. GridlineColor =10921638
  310. LayoutCachedLeft =5678
  311. LayoutCachedWidth =7328
  312. LayoutCachedHeight =315
  313. BorderThemeColorIndex =0
  314. BorderShade =100.0
  315. CurrencySymbol ="€"
  316. End
  317. Begin TextBox
  318. DecimalPlaces =2
  319. IMESentenceMode =3
  320. Left =7327
  321. Width =1680
  322. Height =315
  323. TabIndex =3
  324. ForeColor =4210752
  325. Name ="FraisKm"
  326. ControlSource ="FraisKm"
  327. Format ="#,##0.00 €;-#,##0.00 €"
  328. GridlineColor =10921638
  329. LayoutCachedLeft =7327
  330. LayoutCachedWidth =9007
  331. LayoutCachedHeight =315
  332. BorderThemeColorIndex =0
  333. BorderShade =100.0
  334. CurrencySymbol ="€"
  335. End
  336. Begin TextBox
  337. DecimalPlaces =2
  338. IMESentenceMode =3
  339. Left =9017
  340. Width =1606
  341. Height =315
  342. FontWeight =700
  343. TabIndex =4
  344. ForeColor =4210752
  345. Name ="Total"
  346. ControlSource ="=[IndemnJr]+[Transport]+[FraisKm]"
  347. Format ="#,##0.00 €;-#,##0.00 €"
  348. GridlineColor =10921638
  349. LayoutCachedLeft =9017
  350. LayoutCachedWidth =10623
  351. LayoutCachedHeight =315
  352. BorderThemeColorIndex =0
  353. BorderShade =100.0
  354. CurrencySymbol ="€"
  355. End
  356. Begin TextBox
  357. IMESentenceMode =3
  358. Left =56
  359. Width =1086
  360. Height =315
  361. TabIndex =5
  362. ForeColor =4210752
  363. Name ="Matricule"
  364. ControlSource ="Matricule"
  365. GridlineColor =10921638
  366. LayoutCachedLeft =56
  367. LayoutCachedWidth =1142
  368. LayoutCachedHeight =315
  369. BorderThemeColorIndex =0
  370. BorderShade =100.0
  371. End
  372. End
  373. End
  374. Begin PageFooter
  375. Height =428
  376. Name ="ZonePiedPage"
  377. AlternateBackThemeColorIndex =1
  378. AlternateBackShade =95.0
  379. BackThemeColorIndex =1
  380. Begin
  381. Begin TextBox
  382. OldBorderStyle =0
  383. TextAlign =3
  384. BackStyle =0
  385. IMESentenceMode =3
  386. Left =7086
  387. Top =113
  388. Width =3600
  389. Height =315
  390. BorderColor =10921638
  391. ForeColor =4210752
  392. Name ="Texte17"
  393. ControlSource ="=\"Page \" & [Page] & \" sur \" & [Pages]"
  394. GridlineColor =10921638
  395. LayoutCachedLeft =7086
  396. LayoutCachedTop =113
  397. LayoutCachedWidth =10686
  398. LayoutCachedHeight =428
  399. End
  400. End
  401. End
  402. Begin FormFooter
  403. KeepTogether = NotDefault
  404. Height =0
  405. Name ="PiedÉtat"
  406. AlternateBackThemeColorIndex =1
  407. AlternateBackShade =95.0
  408. BackThemeColorIndex =1
  409. End
  410. End
  411. End
  412. CodeBehindForm
  413. Attribute VB_GlobalNameSpace = False
  414. Attribute VB_Creatable = True
  415. Attribute VB_PredeclaredId = True
  416. Attribute VB_Exposed = False
  417. Option Compare Database
  418. Private Sub Report_Open(Cancel As Integer)
  419. Me.OrderBy = "[Nom]"
  420. Me.OrderByOn = True
  421. End Sub