r_ExportPDE_PERIPLE.bas 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112
  1. dbMemo "SQL" ="INSERT INTO PDE_PERIPLE ( IDF_AGENT, DATE_DEMANDE, MOTIF_DEPLACEMENT, ITINERAIRE"
  2. ", CP_DEP, DATE_DEPART, DATE_RETOUR, MOYEN_TRANSPORT, NB_KM_PARCOURUS, NBR_REPAS_"
  3. "PLEIN )\015\012SELECT tbl_Agents.Matricule AS IDF_AGENT, Date() AS DATE_DEMANDE,"
  4. " 'Travaux chantier' AS MOTIF_DEPLACEMENT, 'ERSTEIN-' & [LOCALISATION] AS ITINERA"
  5. "IRE, Left([CodeLocalisation],5) AS CP_DEP, CDate(CStr([DateRH]) & ' 07:30') AS D"
  6. "ATE_DEPART, CDate(CStr([DateRH]) & ' 07:30') AS DATE_RETOUR, IIf([VehiculePersoT"
  7. "ranche1]='True' or [VehiculePersoTranche2]='True','Véhicule personnel','Véhicule"
  8. " de service') AS MOYEN_TRANSPORT, (IIf([VehiculePersoTranche1]='True',[DistanceT"
  9. "ranche1],0)+IIf([VehiculePersoTranche2]='True',[DistanceTranche2],0)) AS NB_KM_P"
  10. "ARCOURUS, tbl_ImportRH.Repas AS NBR_REPAS_PLEIN\015\012FROM tbl_ImportRH INNER J"
  11. "OIN tbl_Agents ON tbl_ImportRH.CodeAgent = tbl_Agents.CodeAgent;\015\012"
  12. dbMemo "Connect" =""
  13. dbBoolean "ReturnsRecords" ="-1"
  14. dbInteger "ODBCTimeout" ="60"
  15. dbByte "RecordsetType" ="0"
  16. dbBoolean "OrderByOn" ="0"
  17. dbByte "Orientation" ="0"
  18. dbByte "DefaultView" ="2"
  19. dbBoolean "FilterOnLoad" ="0"
  20. dbBoolean "OrderByOnLoad" ="-1"
  21. dbBoolean "TotalsRow" ="0"
  22. Begin
  23. Begin
  24. dbText "Name" ="tbl_ImportRH.CodeAgent"
  25. dbLong "AggregateType" ="-1"
  26. End
  27. Begin
  28. dbText "Name" ="tbl_Agents.CodeAgent"
  29. dbLong "AggregateType" ="-1"
  30. End
  31. Begin
  32. dbText "Name" ="tbl_Agents.TypeVehicule"
  33. dbLong "AggregateType" ="-1"
  34. End
  35. Begin
  36. dbText "Name" ="tbl_ImportRH.VehiculePersoTranche1"
  37. dbLong "AggregateType" ="-1"
  38. End
  39. Begin
  40. dbText "Name" ="Expr1"
  41. dbLong "AggregateType" ="-1"
  42. End
  43. Begin
  44. dbText "Name" ="DATE_DEMANDE"
  45. dbText "Format" ="dd/mm/yyyy"
  46. dbLong "AggregateType" ="-1"
  47. End
  48. Begin
  49. dbText "Name" ="tbl_Agents.Matricule"
  50. dbLong "AggregateType" ="-1"
  51. End
  52. Begin
  53. dbText "Name" ="IDF_AGENT"
  54. dbLong "AggregateType" ="-1"
  55. End
  56. Begin
  57. dbText "Name" ="MOTIF_DEPLACEMENT"
  58. dbLong "AggregateType" ="-1"
  59. End
  60. Begin
  61. dbText "Name" ="ITINERAIRE"
  62. dbInteger "ColumnWidth" ="2970"
  63. dbBoolean "ColumnHidden" ="0"
  64. dbLong "AggregateType" ="-1"
  65. End
  66. Begin
  67. dbText "Name" ="CP_DEP"
  68. dbInteger "ColumnWidth" ="1125"
  69. dbBoolean "ColumnHidden" ="0"
  70. dbLong "AggregateType" ="-1"
  71. End
  72. Begin
  73. dbText "Name" ="DATE_DEPART"
  74. dbInteger "ColumnWidth" ="1995"
  75. dbBoolean "ColumnHidden" ="0"
  76. dbText "Format" ="dd/mm/yyyy hh:nn"
  77. dbLong "AggregateType" ="-1"
  78. End
  79. Begin
  80. dbText "Name" ="MOYEN_TRANSPORT"
  81. dbLong "AggregateType" ="-1"
  82. dbInteger "ColumnWidth" ="2325"
  83. dbBoolean "ColumnHidden" ="0"
  84. End
  85. Begin
  86. dbText "Name" ="NB_KM_PARCOURUS"
  87. dbLong "AggregateType" ="-1"
  88. End
  89. Begin
  90. dbText "Name" ="tbl_ImportRH.Repas"
  91. dbLong "AggregateType" ="-1"
  92. End
  93. Begin
  94. dbText "Name" ="NBR_REPAS_PLEIN"
  95. dbLong "AggregateType" ="-1"
  96. End
  97. Begin
  98. dbText "Name" ="DATE_RETOUR"
  99. dbInteger "ColumnWidth" ="1995"
  100. dbBoolean "ColumnHidden" ="0"
  101. dbText "Format" ="dd/mm/yyyy hh:nn"
  102. dbLong "AggregateType" ="-1"
  103. End
  104. Begin
  105. dbText "Name" ="tbl_ImportRH.DateRH"
  106. dbLong "AggregateType" ="-1"
  107. End
  108. Begin
  109. dbText "Name" ="Expr2"
  110. dbLong "AggregateType" ="-1"
  111. End
  112. End