SEt_EFD_IndemnKM.bas 36 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961
  1. Version =20
  2. VersionRequired =20
  3. Begin Report
  4. LayoutForPrint = NotDefault
  5. DividingLines = NotDefault
  6. AllowAdditions = NotDefault
  7. AllowDesignChanges = NotDefault
  8. DateGrouping =1
  9. GrpKeepTogether =1
  10. PictureAlignment =2
  11. DatasheetGridlinesBehavior =3
  12. GridY =10
  13. Width =9751
  14. DatasheetFontHeight =11
  15. ItemSuffix =42
  16. DatasheetGridlinesColor =14806254
  17. OnNoData ="[Event Procedure]"
  18. RecSrcDt = Begin
  19. 0xf1d68355d43be440
  20. End
  21. RecordSource ="SELECT r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.P"
  22. "eriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehi"
  23. "cule FROM r_FraisKm3 GROUP BY r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisK"
  24. "m3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBare"
  25. "me, r_FraisKm3.TypeVehicule; "
  26. OnOpen ="[Event Procedure]"
  27. DatasheetFontName ="Calibri"
  28. PrtMip = Begin
  29. 0x0000000000000000000000000300000000000000172600006a08000001000000 ,
  30. 0x010000006801000000000000a10700000100000001000000
  31. End
  32. FilterOnLoad =0
  33. FitToPage =1
  34. DisplayOnSharePointSite =1
  35. DatasheetAlternateBackColor =15921906
  36. DatasheetGridlinesColor12 =0
  37. FitToScreen =1
  38. DatasheetBackThemeColorIndex =1
  39. BorderThemeColorIndex =3
  40. ThemeFontIndex =1
  41. ForeThemeColorIndex =0
  42. AlternateBackThemeColorIndex =1
  43. AlternateBackShade =95.0
  44. Begin
  45. Begin Label
  46. BackStyle =0
  47. FontSize =11
  48. FontName ="Calibri"
  49. ThemeFontIndex =1
  50. BackThemeColorIndex =1
  51. BorderThemeColorIndex =0
  52. BorderTint =50.0
  53. ForeThemeColorIndex =0
  54. ForeTint =50.0
  55. GridlineThemeColorIndex =1
  56. GridlineShade =65.0
  57. End
  58. Begin TextBox
  59. AddColon = NotDefault
  60. FELineBreak = NotDefault
  61. BorderLineStyle =0
  62. Width =1701
  63. LabelX =-1701
  64. FontSize =11
  65. FontName ="Calibri"
  66. AsianLineBreak =1
  67. ShowDatePicker =0
  68. BackThemeColorIndex =1
  69. BorderThemeColorIndex =1
  70. BorderShade =65.0
  71. ThemeFontIndex =1
  72. ForeThemeColorIndex =0
  73. ForeTint =75.0
  74. GridlineThemeColorIndex =1
  75. GridlineShade =65.0
  76. End
  77. Begin PageHeader
  78. Height =0
  79. Name ="ZoneEntêtePage"
  80. AlternateBackThemeColorIndex =1
  81. AlternateBackShade =95.0
  82. BackThemeColorIndex =1
  83. End
  84. Begin Section
  85. KeepTogether = NotDefault
  86. CanGrow = NotDefault
  87. CanShrink = NotDefault
  88. Height =2154
  89. Name ="Détail"
  90. AlternateBackColor =16777215
  91. AlternateBackThemeColorIndex =1
  92. BackThemeColorIndex =1
  93. Begin
  94. Begin Label
  95. Left =113
  96. Top =113
  97. Width =1308
  98. Height =280
  99. FontSize =10
  100. BorderColor =8355711
  101. Name ="Étiquette1"
  102. Caption ="Automobile"
  103. GridlineColor =10921638
  104. LayoutCachedLeft =113
  105. LayoutCachedTop =113
  106. LayoutCachedWidth =1421
  107. LayoutCachedHeight =393
  108. ForeTint =100.0
  109. End
  110. Begin Label
  111. Left =113
  112. Top =1077
  113. Width =3360
  114. Height =285
  115. FontSize =10
  116. BorderColor =8355711
  117. Name ="Étiquette2"
  118. Caption ="Motocyclette (cylindrée sup. à 125 cm3)"
  119. GridlineColor =10921638
  120. LayoutCachedLeft =113
  121. LayoutCachedTop =1077
  122. LayoutCachedWidth =3473
  123. LayoutCachedHeight =1362
  124. ForeTint =100.0
  125. End
  126. Begin Label
  127. Left =120
  128. Top =1424
  129. Width =3360
  130. Height =285
  131. FontSize =10
  132. BorderColor =8355711
  133. Name ="Étiquette3"
  134. Caption ="Vélomoteur (cylindrée de 50 à 125 cm3)"
  135. GridlineColor =10921638
  136. LayoutCachedLeft =120
  137. LayoutCachedTop =1424
  138. LayoutCachedWidth =3480
  139. LayoutCachedHeight =1709
  140. ForeTint =100.0
  141. End
  142. Begin Label
  143. Left =1530
  144. Top =113
  145. Width =3120
  146. Height =270
  147. FontSize =10
  148. BorderColor =8355711
  149. Name ="jusqu"
  150. Caption ="jusqu'à 2000 Km"
  151. GridlineColor =10921638
  152. LayoutCachedLeft =1530
  153. LayoutCachedTop =113
  154. LayoutCachedWidth =4650
  155. LayoutCachedHeight =383
  156. ForeTint =100.0
  157. End
  158. Begin Label
  159. Left =1530
  160. Top =383
  161. Width =3120
  162. Height =285
  163. FontSize =10
  164. BorderColor =8355711
  165. Name ="de"
  166. Caption ="de 2000 à 10000 Km"
  167. GridlineColor =10921638
  168. LayoutCachedLeft =1530
  169. LayoutCachedTop =383
  170. LayoutCachedWidth =4650
  171. LayoutCachedHeight =668
  172. ForeTint =100.0
  173. End
  174. Begin Label
  175. Left =1530
  176. Top =668
  177. Width =3120
  178. Height =285
  179. FontSize =10
  180. BorderColor =8355711
  181. Name ="apres"
  182. Caption ="aprés 10000 Km"
  183. GridlineColor =10921638
  184. LayoutCachedLeft =1530
  185. LayoutCachedTop =668
  186. LayoutCachedWidth =4650
  187. LayoutCachedHeight =953
  188. ForeTint =100.0
  189. End
  190. Begin TextBox
  191. OldBorderStyle =0
  192. BackStyle =0
  193. IMESentenceMode =3
  194. Left =4988
  195. Top =113
  196. Width =1009
  197. Height =270
  198. FontSize =10
  199. BorderColor =8355711
  200. Name ="NbAuto0"
  201. ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
  202. "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
  203. "=\" & [AnneeRH] & \" AND [BorneInf]=0\"),0),0)"
  204. GridlineColor =10921638
  205. LayoutCachedLeft =4988
  206. LayoutCachedTop =113
  207. LayoutCachedWidth =5997
  208. LayoutCachedHeight =383
  209. BorderThemeColorIndex =0
  210. BorderTint =50.0
  211. BorderShade =100.0
  212. ForeTint =100.0
  213. End
  214. Begin TextBox
  215. OldBorderStyle =0
  216. BackStyle =0
  217. IMESentenceMode =3
  218. Left =4988
  219. Top =396
  220. Width =1009
  221. Height =270
  222. FontSize =10
  223. TabIndex =1
  224. BorderColor =8355711
  225. Name ="NbAuto2000"
  226. ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
  227. "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
  228. "=\" & [AnneeRH] & \" AND [BorneInf]=2000\"),0),0)"
  229. GridlineColor =10921638
  230. LayoutCachedLeft =4988
  231. LayoutCachedTop =396
  232. LayoutCachedWidth =5997
  233. LayoutCachedHeight =666
  234. BorderThemeColorIndex =0
  235. BorderTint =50.0
  236. BorderShade =100.0
  237. ForeTint =100.0
  238. End
  239. Begin TextBox
  240. OldBorderStyle =0
  241. BackStyle =0
  242. IMESentenceMode =3
  243. Left =4988
  244. Top =680
  245. Width =1009
  246. Height =270
  247. FontSize =10
  248. TabIndex =2
  249. BorderColor =8355711
  250. Name ="NbAuto10000"
  251. ControlSource ="=IIf([TypeVehicule]=1,Nz(DLookUp(\"[DistanceMoisRepartie]\",\"[r_FraisKm3]\",\"["
  252. "CodeAgent]='\" & [CodeAgent] & \"' AND [MoisRH]=\" & [MoisRH] & \" AND [AnneeRH]"
  253. "=\" & [AnneeRH] & \" AND [BorneInf]=10000\"),0),0)"
  254. GridlineColor =10921638
  255. LayoutCachedLeft =4988
  256. LayoutCachedTop =680
  257. LayoutCachedWidth =5997
  258. LayoutCachedHeight =950
  259. BorderThemeColorIndex =0
  260. BorderTint =50.0
  261. BorderShade =100.0
  262. ForeTint =100.0
  263. End
  264. Begin TextBox
  265. OldBorderStyle =0
  266. BackStyle =0
  267. IMESentenceMode =3
  268. Left =4988
  269. Top =1070
  270. Width =1009
  271. Height =270
  272. FontSize =10
  273. TabIndex =3
  274. BorderColor =8355711
  275. Name ="NbMoto"
  276. ControlSource ="=IIf([TypeVehicule]=2,Nz([DistanceMois],0),0)"
  277. GridlineColor =10921638
  278. LayoutCachedLeft =4988
  279. LayoutCachedTop =1070
  280. LayoutCachedWidth =5997
  281. LayoutCachedHeight =1340
  282. BorderThemeColorIndex =0
  283. BorderTint =50.0
  284. BorderShade =100.0
  285. ForeTint =100.0
  286. End
  287. Begin TextBox
  288. OldBorderStyle =0
  289. BackStyle =0
  290. IMESentenceMode =3
  291. Left =4988
  292. Top =1417
  293. Width =1009
  294. Height =270
  295. FontSize =10
  296. TabIndex =4
  297. BorderColor =8355711
  298. Name ="NbVelo"
  299. ControlSource ="=IIf([TypeVehicule]=3,Nz([DistanceMois],0),0)"
  300. GridlineColor =10921638
  301. LayoutCachedLeft =4988
  302. LayoutCachedTop =1417
  303. LayoutCachedWidth =5997
  304. LayoutCachedHeight =1687
  305. BorderThemeColorIndex =0
  306. BorderTint =50.0
  307. BorderShade =100.0
  308. ForeTint =100.0
  309. End
  310. Begin TextBox
  311. OldBorderStyle =0
  312. BackStyle =0
  313. IMESentenceMode =3
  314. Left =6633
  315. Top =113
  316. Width =691
  317. Height =270
  318. FontSize =10
  319. TabIndex =5
  320. BorderColor =8355711
  321. Name ="coutAuto0"
  322. ControlSource ="=Bareme([NomBareme],1999,[MoisRH],[AnneeRH])"
  323. Format ="#,##0.00 €;-#,##0.00 €"
  324. GridlineColor =10921638
  325. LayoutCachedLeft =6633
  326. LayoutCachedTop =113
  327. LayoutCachedWidth =7324
  328. LayoutCachedHeight =383
  329. BorderThemeColorIndex =0
  330. BorderTint =50.0
  331. BorderShade =100.0
  332. ForeTint =100.0
  333. CurrencySymbol ="€"
  334. Begin
  335. Begin Label
  336. Left =6066
  337. Top =113
  338. Width =510
  339. Height =270
  340. FontSize =10
  341. BorderColor =8355711
  342. Name ="Étiquette14"
  343. Caption ="km à "
  344. GridlineColor =10921638
  345. LayoutCachedLeft =6066
  346. LayoutCachedTop =113
  347. LayoutCachedWidth =6576
  348. LayoutCachedHeight =383
  349. ForeTint =100.0
  350. End
  351. End
  352. End
  353. Begin TextBox
  354. OldBorderStyle =0
  355. BackStyle =0
  356. IMESentenceMode =3
  357. Left =6633
  358. Top =396
  359. Width =691
  360. Height =270
  361. FontSize =10
  362. TabIndex =6
  363. BorderColor =8355711
  364. Name ="CoutAuto2000"
  365. ControlSource ="=Bareme([NomBareme],9999,[MoisRH],[AnneeRH])"
  366. Format ="#,##0.00 €;-#,##0.00 €"
  367. GridlineColor =10921638
  368. LayoutCachedLeft =6633
  369. LayoutCachedTop =396
  370. LayoutCachedWidth =7324
  371. LayoutCachedHeight =666
  372. BorderThemeColorIndex =0
  373. BorderTint =50.0
  374. BorderShade =100.0
  375. ForeTint =100.0
  376. CurrencySymbol ="€"
  377. Begin
  378. Begin Label
  379. Left =6066
  380. Top =396
  381. Width =510
  382. Height =270
  383. FontSize =10
  384. BorderColor =8355711
  385. Name ="Étiquette16"
  386. Caption ="km à "
  387. GridlineColor =10921638
  388. LayoutCachedLeft =6066
  389. LayoutCachedTop =396
  390. LayoutCachedWidth =6576
  391. LayoutCachedHeight =666
  392. ForeTint =100.0
  393. End
  394. End
  395. End
  396. Begin TextBox
  397. OldBorderStyle =0
  398. BackStyle =0
  399. IMESentenceMode =3
  400. Left =6633
  401. Top =680
  402. Width =691
  403. Height =270
  404. FontSize =10
  405. TabIndex =7
  406. BorderColor =8355711
  407. Name ="CoutAuto10000"
  408. ControlSource ="=Bareme([NomBareme],99999,[MoisRH],[AnneeRH])"
  409. Format ="#,##0.00 €;-#,##0.00 €"
  410. GridlineColor =10921638
  411. LayoutCachedLeft =6633
  412. LayoutCachedTop =680
  413. LayoutCachedWidth =7324
  414. LayoutCachedHeight =950
  415. BorderThemeColorIndex =0
  416. BorderTint =50.0
  417. BorderShade =100.0
  418. ForeTint =100.0
  419. CurrencySymbol ="€"
  420. Begin
  421. Begin Label
  422. Left =6066
  423. Top =680
  424. Width =510
  425. Height =270
  426. FontSize =10
  427. BorderColor =8355711
  428. Name ="Étiquette18"
  429. Caption ="km à "
  430. GridlineColor =10921638
  431. LayoutCachedLeft =6066
  432. LayoutCachedTop =680
  433. LayoutCachedWidth =6576
  434. LayoutCachedHeight =950
  435. ForeTint =100.0
  436. End
  437. End
  438. End
  439. Begin TextBox
  440. OldBorderStyle =0
  441. BackStyle =0
  442. IMESentenceMode =3
  443. Left =6633
  444. Top =1070
  445. Width =691
  446. Height =270
  447. FontSize =10
  448. TabIndex =8
  449. BorderColor =8355711
  450. Name ="CoutMoto"
  451. ControlSource ="=Bareme('Frais Kilométriques (2)',0,[MoisRH],[AnneeRH])"
  452. Format ="#,##0.00 €;-#,##0.00 €"
  453. GridlineColor =10921638
  454. LayoutCachedLeft =6633
  455. LayoutCachedTop =1070
  456. LayoutCachedWidth =7324
  457. LayoutCachedHeight =1340
  458. BorderThemeColorIndex =0
  459. BorderTint =50.0
  460. BorderShade =100.0
  461. ForeTint =100.0
  462. CurrencySymbol ="€"
  463. Begin
  464. Begin Label
  465. Left =6066
  466. Top =1070
  467. Width =510
  468. Height =270
  469. FontSize =10
  470. BorderColor =8355711
  471. Name ="Étiquette20"
  472. Caption ="km à "
  473. GridlineColor =10921638
  474. LayoutCachedLeft =6066
  475. LayoutCachedTop =1070
  476. LayoutCachedWidth =6576
  477. LayoutCachedHeight =1340
  478. ForeTint =100.0
  479. End
  480. End
  481. End
  482. Begin TextBox
  483. OldBorderStyle =0
  484. BackStyle =0
  485. IMESentenceMode =3
  486. Left =6633
  487. Top =1417
  488. Width =691
  489. Height =270
  490. FontSize =10
  491. TabIndex =9
  492. BorderColor =8355711
  493. Name ="CoutVelo"
  494. ControlSource ="=Bareme('Frais Kilométriques (3)',0,[MoisRH],[AnneeRH])"
  495. Format ="#,##0.00 €;-#,##0.00 €"
  496. GridlineColor =10921638
  497. LayoutCachedLeft =6633
  498. LayoutCachedTop =1417
  499. LayoutCachedWidth =7324
  500. LayoutCachedHeight =1687
  501. BorderThemeColorIndex =0
  502. BorderTint =50.0
  503. BorderShade =100.0
  504. ForeTint =100.0
  505. CurrencySymbol ="€"
  506. Begin
  507. Begin Label
  508. Left =6066
  509. Top =1417
  510. Width =510
  511. Height =270
  512. FontSize =10
  513. BorderColor =8355711
  514. Name ="Étiquette22"
  515. Caption ="km à "
  516. GridlineColor =10921638
  517. LayoutCachedLeft =6066
  518. LayoutCachedTop =1417
  519. LayoutCachedWidth =6576
  520. LayoutCachedHeight =1687
  521. ForeTint =100.0
  522. End
  523. End
  524. End
  525. Begin TextBox
  526. OldBorderStyle =0
  527. TextAlign =3
  528. BackStyle =0
  529. IMESentenceMode =3
  530. Left =7710
  531. Top =113
  532. Width =1040
  533. Height =270
  534. FontSize =10
  535. TabIndex =10
  536. BorderColor =8355711
  537. Name ="MontantAuto0"
  538. ControlSource ="=[NbAuto0]*[coutAuto0]"
  539. Format ="#,##0.00 €;-#,##0.00 €"
  540. GridlineColor =10921638
  541. LayoutCachedLeft =7710
  542. LayoutCachedTop =113
  543. LayoutCachedWidth =8750
  544. LayoutCachedHeight =383
  545. BorderThemeColorIndex =0
  546. BorderTint =50.0
  547. BorderShade =100.0
  548. ForeTint =100.0
  549. CurrencySymbol ="€"
  550. Begin
  551. Begin Label
  552. Left =7313
  553. Top =113
  554. Width =285
  555. Height =270
  556. FontSize =10
  557. BorderColor =8355711
  558. Name ="Étiquette24"
  559. Caption =" ="
  560. GridlineColor =10921638
  561. LayoutCachedLeft =7313
  562. LayoutCachedTop =113
  563. LayoutCachedWidth =7598
  564. LayoutCachedHeight =383
  565. ForeTint =100.0
  566. End
  567. End
  568. End
  569. Begin TextBox
  570. OldBorderStyle =0
  571. TextAlign =3
  572. BackStyle =0
  573. IMESentenceMode =3
  574. Left =7710
  575. Top =396
  576. Width =1040
  577. Height =270
  578. FontSize =10
  579. TabIndex =11
  580. BorderColor =8355711
  581. Name ="MontantAuto2000"
  582. ControlSource ="=[NbAuto2000]*[coutAuto2000]"
  583. Format ="#,##0.00 €;-#,##0.00 €"
  584. GridlineColor =10921638
  585. LayoutCachedLeft =7710
  586. LayoutCachedTop =396
  587. LayoutCachedWidth =8750
  588. LayoutCachedHeight =666
  589. BorderThemeColorIndex =0
  590. BorderTint =50.0
  591. BorderShade =100.0
  592. ForeTint =100.0
  593. CurrencySymbol ="€"
  594. Begin
  595. Begin Label
  596. Left =7313
  597. Top =396
  598. Width =285
  599. Height =270
  600. FontSize =10
  601. BorderColor =8355711
  602. Name ="Étiquette26"
  603. Caption =" ="
  604. GridlineColor =10921638
  605. LayoutCachedLeft =7313
  606. LayoutCachedTop =396
  607. LayoutCachedWidth =7598
  608. LayoutCachedHeight =666
  609. ForeTint =100.0
  610. End
  611. End
  612. End
  613. Begin TextBox
  614. OldBorderStyle =0
  615. TextAlign =3
  616. BackStyle =0
  617. IMESentenceMode =3
  618. Left =7710
  619. Top =680
  620. Width =1040
  621. Height =270
  622. FontSize =10
  623. TabIndex =12
  624. BorderColor =8355711
  625. Name ="MontantAuto10000"
  626. ControlSource ="=[NbAuto10000]*[coutAuto10000]"
  627. Format ="#,##0.00 €;-#,##0.00 €"
  628. GridlineColor =10921638
  629. LayoutCachedLeft =7710
  630. LayoutCachedTop =680
  631. LayoutCachedWidth =8750
  632. LayoutCachedHeight =950
  633. BorderThemeColorIndex =0
  634. BorderTint =50.0
  635. BorderShade =100.0
  636. ForeTint =100.0
  637. CurrencySymbol ="€"
  638. Begin
  639. Begin Label
  640. Left =7313
  641. Top =680
  642. Width =285
  643. Height =270
  644. FontSize =10
  645. BorderColor =8355711
  646. Name ="Étiquette28"
  647. Caption =" ="
  648. GridlineColor =10921638
  649. LayoutCachedLeft =7313
  650. LayoutCachedTop =680
  651. LayoutCachedWidth =7598
  652. LayoutCachedHeight =950
  653. ForeTint =100.0
  654. End
  655. End
  656. End
  657. Begin TextBox
  658. OldBorderStyle =0
  659. TextAlign =3
  660. BackStyle =0
  661. IMESentenceMode =3
  662. Left =7710
  663. Top =1070
  664. Width =1040
  665. Height =270
  666. FontSize =10
  667. TabIndex =13
  668. BorderColor =8355711
  669. Name ="MontantMoto"
  670. ControlSource ="=[NbMoto]*[coutMoto]"
  671. Format ="#,##0.00 €;-#,##0.00 €"
  672. GridlineColor =10921638
  673. LayoutCachedLeft =7710
  674. LayoutCachedTop =1070
  675. LayoutCachedWidth =8750
  676. LayoutCachedHeight =1340
  677. BorderThemeColorIndex =0
  678. BorderTint =50.0
  679. BorderShade =100.0
  680. ForeTint =100.0
  681. CurrencySymbol ="€"
  682. Begin
  683. Begin Label
  684. Left =7313
  685. Top =1070
  686. Width =285
  687. Height =270
  688. FontSize =10
  689. BorderColor =8355711
  690. Name ="Étiquette30"
  691. Caption =" ="
  692. GridlineColor =10921638
  693. LayoutCachedLeft =7313
  694. LayoutCachedTop =1070
  695. LayoutCachedWidth =7598
  696. LayoutCachedHeight =1340
  697. ForeTint =100.0
  698. End
  699. End
  700. End
  701. Begin TextBox
  702. OldBorderStyle =0
  703. TextAlign =3
  704. BackStyle =0
  705. IMESentenceMode =3
  706. Left =7710
  707. Top =1417
  708. Width =1040
  709. Height =270
  710. FontSize =10
  711. TabIndex =14
  712. BorderColor =8355711
  713. Name ="MontantVelo"
  714. ControlSource ="=[NbVelo]*[CoutVelo]"
  715. Format ="#,##0.00 €;-#,##0.00 €"
  716. GridlineColor =10921638
  717. LayoutCachedLeft =7710
  718. LayoutCachedTop =1417
  719. LayoutCachedWidth =8750
  720. LayoutCachedHeight =1687
  721. BorderThemeColorIndex =0
  722. BorderTint =50.0
  723. BorderShade =100.0
  724. ForeTint =100.0
  725. CurrencySymbol ="€"
  726. Begin
  727. Begin Label
  728. Left =7313
  729. Top =1417
  730. Width =285
  731. Height =270
  732. FontSize =10
  733. BorderColor =8355711
  734. Name ="Étiquette32"
  735. Caption =" ="
  736. GridlineColor =10921638
  737. LayoutCachedLeft =7313
  738. LayoutCachedTop =1417
  739. LayoutCachedWidth =7598
  740. LayoutCachedHeight =1687
  741. ForeTint =100.0
  742. End
  743. End
  744. End
  745. Begin Label
  746. Left =4705
  747. Top =1757
  748. Width =3750
  749. Height =345
  750. FontWeight =700
  751. BorderColor =8355711
  752. Name ="Étiquette33"
  753. Caption ="Total des indemnités kilométriques:"
  754. GridlineColor =10921638
  755. LayoutCachedLeft =4705
  756. LayoutCachedTop =1757
  757. LayoutCachedWidth =8455
  758. LayoutCachedHeight =2102
  759. ForeTint =100.0
  760. End
  761. Begin TextBox
  762. FontUnderline = NotDefault
  763. OldBorderStyle =0
  764. TextAlign =3
  765. BackStyle =0
  766. IMESentenceMode =3
  767. Left =8447
  768. Top =1757
  769. Width =1087
  770. Height =330
  771. FontWeight =700
  772. TabIndex =15
  773. BorderColor =8355711
  774. Name ="TotalIndemnKm"
  775. ControlSource ="=[MontantAuto0]+[MontantAuto10000]+[MontantAuto2000]+[MontantMoto]+[MontantVelo]"
  776. Format ="#,##0.00 €;-#,##0.00 €"
  777. GridlineColor =10921638
  778. LayoutCachedLeft =8447
  779. LayoutCachedTop =1757
  780. LayoutCachedWidth =9534
  781. LayoutCachedHeight =2087
  782. BorderThemeColorIndex =0
  783. BorderTint =50.0
  784. BorderShade =100.0
  785. ForeTint =100.0
  786. CurrencySymbol ="€"
  787. End
  788. Begin TextBox
  789. Visible = NotDefault
  790. IMESentenceMode =3
  791. Left =113
  792. Top =1757
  793. Width =576
  794. Height =120
  795. TabIndex =16
  796. BorderColor =10921638
  797. ForeColor =4210752
  798. Name ="CodeAgent"
  799. ControlSource ="CodeAgent"
  800. GridlineColor =10921638
  801. LayoutCachedLeft =113
  802. LayoutCachedTop =1757
  803. LayoutCachedWidth =689
  804. LayoutCachedHeight =1877
  805. End
  806. Begin TextBox
  807. Visible = NotDefault
  808. IMESentenceMode =3
  809. Left =793
  810. Top =1757
  811. Width =576
  812. Height =120
  813. TabIndex =17
  814. BorderColor =10921638
  815. ForeColor =4210752
  816. Name ="MoisRH"
  817. ControlSource ="MoisRH"
  818. GridlineColor =10921638
  819. LayoutCachedLeft =793
  820. LayoutCachedTop =1757
  821. LayoutCachedWidth =1369
  822. LayoutCachedHeight =1877
  823. End
  824. Begin TextBox
  825. Visible = NotDefault
  826. IMESentenceMode =3
  827. Left =1417
  828. Top =1757
  829. Width =576
  830. Height =120
  831. TabIndex =18
  832. BorderColor =10921638
  833. ForeColor =4210752
  834. Name ="AnneeRH"
  835. ControlSource ="AnneeRH"
  836. GridlineColor =10921638
  837. LayoutCachedLeft =1417
  838. LayoutCachedTop =1757
  839. LayoutCachedWidth =1993
  840. LayoutCachedHeight =1877
  841. End
  842. Begin TextBox
  843. Visible = NotDefault
  844. IMESentenceMode =3
  845. Left =2097
  846. Top =1757
  847. Width =576
  848. Height =120
  849. TabIndex =19
  850. BorderColor =10921638
  851. ForeColor =4210752
  852. Name ="Texte39"
  853. ControlSource ="TypeVehicule"
  854. GridlineColor =10921638
  855. LayoutCachedLeft =2097
  856. LayoutCachedTop =1757
  857. LayoutCachedWidth =2673
  858. LayoutCachedHeight =1877
  859. End
  860. Begin TextBox
  861. Visible = NotDefault
  862. IMESentenceMode =3
  863. Left =2777
  864. Top =1757
  865. Width =576
  866. Height =120
  867. TabIndex =20
  868. BorderColor =10921638
  869. ForeColor =4210752
  870. Name ="Texte40"
  871. ControlSource ="NomBareme"
  872. GridlineColor =10921638
  873. LayoutCachedLeft =2777
  874. LayoutCachedTop =1757
  875. LayoutCachedWidth =3353
  876. LayoutCachedHeight =1877
  877. End
  878. Begin TextBox
  879. Visible = NotDefault
  880. IMESentenceMode =3
  881. Left =3458
  882. Top =1757
  883. Width =576
  884. Height =120
  885. TabIndex =21
  886. BorderColor =10921638
  887. ForeColor =4210752
  888. Name ="Texte41"
  889. ControlSource ="PeriodeBareme"
  890. GridlineColor =10921638
  891. LayoutCachedLeft =3458
  892. LayoutCachedTop =1757
  893. LayoutCachedWidth =4034
  894. LayoutCachedHeight =1877
  895. End
  896. End
  897. End
  898. Begin PageFooter
  899. Height =0
  900. Name ="ZonePiedPage"
  901. AlternateBackThemeColorIndex =1
  902. AlternateBackShade =95.0
  903. BackThemeColorIndex =1
  904. End
  905. End
  906. End
  907. CodeBehindForm
  908. Attribute VB_GlobalNameSpace = False
  909. Attribute VB_Creatable = True
  910. Attribute VB_PredeclaredId = True
  911. Attribute VB_Exposed = False
  912. Option Compare Database
  913. Private Sub Report_NoData(Cancel As Integer)
  914. 'si aucune données, on supprime la requête source de manière à ce que le sous-état s'ouvre quand même
  915. 'SELECT r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehicule FROM r_FraisKm3 GROUP BY r_FraisKm3.CodeAgent, r_FraisKm3.AnneeRH, r_FraisKm3.MoisRH, r_FraisKm3.PeriodeBareme, r_FraisKm3.DistanceMois, r_FraisKm3.NomBareme, r_FraisKm3.TypeVehicule;
  916. End Sub
  917. Private Sub Report_Open(Cancel As Integer)
  918. 'méthode utilisée pour des raisons de qualité de la mise en page:
  919. 'les étiquettes sont mises à jour en fonction des bornes de la table tbl_baremes
  920. 'd'eventuelles nouvelles lignes devront être ajoutées manuellement
  921. Dim rs As DAO.Recordset
  922. 'MAJ des etiquettes bornes
  923. Set rs = CurrentDb.OpenRecordset("SELECT * FROM r_baremes WHERE [NomBareme]='Frais Kilométriques (11)' ORDER BY [BorneInf];")
  924. rs.MoveFirst
  925. Me.jusqu.Caption = "jusqu'à " & rs![BorneSup] & " " & rs![UniteBornes]
  926. rs.MoveNext
  927. Me.De.Caption = "de " & rs![BorneInf] & " à " & rs![BorneSup] & " " & rs![UniteBornes]
  928. rs.MoveNext
  929. Me.apres.Caption = "aprés " & rs![BorneInf] & " " & rs![UniteBornes]
  930. Set rs = Nothing
  931. End Sub