r_DonneesImport.bas 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119
  1. dbMemo "SQL" ="SELECT tbl_ImportRH.IdImportRH, tbl_ImportRH.CodeLigne, tbl_ImportRH.CodeAgent, "
  2. "tbl_ImportRH.DateRH, tbl_ImportRH.CodeChantier, tbl_ImportRH.CodeLocalisation, t"
  3. "bl_ImportRH.Localisation, tbl_ImportRH.HeureSup1, tbl_ImportRH.HeureSup2, tbl_Im"
  4. "portRH.HeureSupDimanche, tbl_ImportRH.Repas, tbl_ImportRH.DistanceTranche1, tbl_"
  5. "ImportRH.VehiculePersoTranche1, tbl_ImportRH.DistanceTranche2, tbl_ImportRH.Vehi"
  6. "culePersoTranche2, tbl_ImportRH.Remarque, Month([DateRH]) AS MoisRH, Year([dateR"
  7. "H]) AS AnneeRH, Day([DateRH]) AS JourRH, IIf([strCategorieInterventionId]=\"07\""
  8. ",(CSng([HeureSup1])+CSng([HeureSup2])+CSng([HeureSupDimanche])),0) AS HS_VHCanal"
  9. ", tbl_ImportRH.strCategorieInterventionId, IIf([strCategorieInterventionId]=\"07"
  10. "\",0,(CSng([HeureSup1])+CSng([HeureSup2])+CSng([HeureSupDimanche]))) AS HS_Chant"
  11. "ier, (Not ((CInt([Repas])>0 Or (IIf([VehiculePersoTranche1]='True',CLng([Distanc"
  12. "eTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng([DistanceTranche2]),0)>0)"
  13. ") And (Nz([Localisation],'')=Nz([ResidenceAdmin],'')))) AS FraisValide\015\012FR"
  14. "OM tbl_ImportRH INNER JOIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.Cod"
  15. "eAgent\015\012ORDER BY tbl_ImportRH.IdImportRH DESC;\015\012"
  16. dbMemo "Connect" =""
  17. dbBoolean "ReturnsRecords" ="-1"
  18. dbInteger "ODBCTimeout" ="60"
  19. dbByte "RecordsetType" ="0"
  20. dbBoolean "OrderByOn" ="0"
  21. dbByte "Orientation" ="0"
  22. dbByte "DefaultView" ="2"
  23. dbBoolean "FilterOnLoad" ="0"
  24. dbBoolean "OrderByOnLoad" ="-1"
  25. dbBoolean "TotalsRow" ="0"
  26. Begin
  27. Begin
  28. dbText "Name" ="tbl_ImportRH.VehiculePersoTranche2"
  29. dbLong "AggregateType" ="-1"
  30. End
  31. Begin
  32. dbText "Name" ="tbl_ImportRH.HeureSup1"
  33. dbLong "AggregateType" ="-1"
  34. End
  35. Begin
  36. dbText "Name" ="tbl_ImportRH.HeureSup2"
  37. dbLong "AggregateType" ="-1"
  38. End
  39. Begin
  40. dbText "Name" ="tbl_ImportRH.HeureSupDimanche"
  41. dbLong "AggregateType" ="-1"
  42. End
  43. Begin
  44. dbText "Name" ="tbl_ImportRH.Repas"
  45. dbLong "AggregateType" ="-1"
  46. End
  47. Begin
  48. dbText "Name" ="tbl_ImportRH.DistanceTranche1"
  49. dbLong "AggregateType" ="-1"
  50. End
  51. Begin
  52. dbText "Name" ="tbl_ImportRH.VehiculePersoTranche1"
  53. dbLong "AggregateType" ="-1"
  54. End
  55. Begin
  56. dbText "Name" ="tbl_ImportRH.DistanceTranche2"
  57. dbLong "AggregateType" ="-1"
  58. End
  59. Begin
  60. dbText "Name" ="tbl_ImportRH.Localisation"
  61. dbLong "AggregateType" ="-1"
  62. End
  63. Begin
  64. dbText "Name" ="MoisRH"
  65. dbLong "AggregateType" ="-1"
  66. End
  67. Begin
  68. dbText "Name" ="AnneeRH"
  69. dbLong "AggregateType" ="-1"
  70. End
  71. Begin
  72. dbText "Name" ="tbl_ImportRH.IdImportRH"
  73. dbLong "AggregateType" ="-1"
  74. End
  75. Begin
  76. dbText "Name" ="tbl_ImportRH.Remarque"
  77. dbLong "AggregateType" ="-1"
  78. End
  79. Begin
  80. dbText "Name" ="JourRH"
  81. dbLong "AggregateType" ="-1"
  82. End
  83. Begin
  84. dbText "Name" ="tbl_ImportRH.CodeLigne"
  85. dbLong "AggregateType" ="-1"
  86. End
  87. Begin
  88. dbText "Name" ="tbl_ImportRH.CodeAgent"
  89. dbLong "AggregateType" ="-1"
  90. End
  91. Begin
  92. dbText "Name" ="tbl_ImportRH.DateRH"
  93. dbLong "AggregateType" ="-1"
  94. End
  95. Begin
  96. dbText "Name" ="tbl_ImportRH.CodeChantier"
  97. dbLong "AggregateType" ="-1"
  98. End
  99. Begin
  100. dbText "Name" ="tbl_ImportRH.CodeLocalisation"
  101. dbLong "AggregateType" ="-1"
  102. End
  103. Begin
  104. dbText "Name" ="HS_VHCanal"
  105. dbLong "AggregateType" ="-1"
  106. End
  107. Begin
  108. dbText "Name" ="HS_Chantier"
  109. dbLong "AggregateType" ="-1"
  110. End
  111. Begin
  112. dbText "Name" ="tbl_ImportRH.strCategorieInterventionId"
  113. dbLong "AggregateType" ="-1"
  114. End
  115. Begin
  116. dbText "Name" ="FraisValide"
  117. dbLong "AggregateType" ="-1"
  118. End
  119. End