1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136
| <%
Set oConn = Server.CreateObject("ADODB.connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=mabase.mdb;"
Set RS=Server.CreateObject("ADODB.recordset")
Set RSRailcars=Server.CreateObject("ADODB.recordset")
Set RSRoutes=Server.CreateObject("ADODB.recordset")
Set RSRecap=Server.CreateObject("ADODB.recordset")
Set RSYTD=Server.CreateObject("ADODB.recordset")
n=0
oConn.Execute("DELETE * FROM tbl_YearRecap")
p = UBound(tab_Trajet,2)
for q = 0 to p-1
qry_sql = "INSERT INTO tbl_YearRecap (Equipment_Number, Trace_ID, Depart_Plant, Arrive_Depot, Depart_Depot, Arrive_Plant, Finished, Plant, Depot)" &_
" VALUES ('" & tab_Trajet(0,q) & "', '" & tab_Trajet(6,q) & "', '" & CDate(tab_Trajet(1,q)) & "', '" & CDate(tab_Trajet(2,q)) & "', '" & CDate(tab_Trajet(3,q)) & "', '" & CDate(tab_Trajet(4,q)) & "', '" & tab_Trajet(5,q) & "', '" & tab_Trajet(7,q) & "', '" & tab_Trajet(8,q) & "')"
oConn.execute(qry_sql)
next
for p=0 to UBound(tab_Routes,2)
RouteStart = tab_Routes(0,p)
RouteEnd = tab_Routes(1,p)
DernierRailcar = tab_Trajet(0,0)
n=0
for j=0 to UBound(tab_Trajet,2)
if tab_Trajet(0,j) <> DernierRailcar then
n=n+1
DernierRailcar = tab_Trajet(0,j)
RailcarChanged = 1
else
RailcarChanged = 0
end if
if Month(tab_Trajet(1,j)) = 1 and tab_Trajet(5,j) = 1 and tab_Trajet(7,j) = RouteStart and tab_Trajet(8,j) = RouteEnd then
NbJanvier = NbJanvier + 1 'Nombre de routes en janvier augmente de 1
TransitJanvier = TransitJanvier + (tab_Trajet(2,j) - tab_Trajet(1,j)) 'On calcul le temps de transit entre plant et depot
IdleDepotJanvier = IdleDepotJanvier + (tab_Trajet(3,j) - tab_Trajet(2,j)) 'Calcul du temps d'attente au depot
ReturnJanvier = ReturnJanvier + (tab_Trajet(4,j) - tab_Trajet(3,j)) 'Calcul du temps de retour vers le plant
if j=0 or RailcarChanged = 1 then
IdlePlantJanvier = 0 'Si c'est le premier voyage du wagon en janvier, on ne calcul pas le temps d'attente au plant
else
IdlePlantJanvier = IdlePlantJanvier + (tab_Trajet(1,j) - tab_Trajet(4,j-1)) 'Calcul du temps d'attente au Planr
end if
end if
'Ici je refais le if plusieurs fois, une pour chaque mois de l'année.
next
NbTot = NbJanvier + NbFevrier + NbMars + NbAvril + NbMai + NbJuin + NbJuillet + NbAout + NbSeptembre + NbOctobre + NbNovembre + NbDecembre
TransitTot = TransitJanvier + TransitFevrier + TransitMars + TransitAvril + TransitMai + TransitJuin + TransitJuillet + TransitAout + TransitSeptembre + TransitOctobre + TransitNovembre + TransitDecembre
IdleDepotTot = IdleDepotJanvier + IdleDepotFevrier + IdleDepotMars + IdleDepotAvril + IdleDepotMai + IdleDepotJuin + IdleDepotJuillet + IdleDepotAout + IdleDepotSeptembre + IdleDepotOctobre + IdleDepotNovembre + IdleDepotDecembre
ReturnTot = ReturnJanvier + ReturnFevrier + ReturnMars + ReturnAvril + ReturnMai + ReturnJuin + ReturnJuillet + ReturnAout + ReturnSeptembre + ReturnOctobre + ReturnNovembre + ReturnDecembre
IdlePlantTot = IdlePlantJanvier + IdlePlantFevrier + IdlePlantMars + IdlePlantAvril + IdlePlantMai + IdlePlantJuin + IdlePlantJuillet + IdlePlantAout + IdlePlantSeptembre + IdlePlantOctobre + IdlePlantNovembre + IdlePlantDecembre
if NbJanvier <> 0 then
TransitJanvier = TransitJanvier / NbJanvier
IdleDepotJanvier = IdleDepotJanvier / NbJanvier
ReturnJanvier = ReturnJanvier / NbJanvier
IdlePlantJanvier = IdlePlantJanvier / NbJanvier
tab_Recap(1,0) = TransitJanvier
tab_Recap(1,1) = IdleDepotJanvier
tab_Recap(1,2) = ReturnJanvier
tab_Recap(1,3) = IdlePlantJanvier
tab_Recap(1,4) = TransitJanvier + IdleDepotJanvier + ReturnJanvier + IdlePlantJanvier
end if
'Ici aussi je repete ce code pour chaque mois de l'année
if NbTot <> 0 then
TransitTot = TransitTot / NbTot
IdleDepotTot = IdleDepotTot / NbTot
ReturnTot = ReturnTot / NbTot
IdlePlantTot = IdlePlantTot / NbTot
TurnAroundTot = TransitTot + IdleDepotTot + ReturnTot + IdlePlantTot
tab_Recap(13,0) = TransitTot
tab_Recap(13,1) = IdleDepotTot
tab_Recap(13,2) = ReturnTot
tab_Recap(13,3) = IdlePlantTot
tab_Recap(13,4) = TurnAroundTot
end if
oConn.execute("DELETE * FROM tbl_Recap")
for i = 1 to 12
strSQL = "INSERT INTO tbl_Recap (Months_Number, Transit, Idle_Depot, Return, Idle_Plant, Turnaround, StartPoint, EndPoint)" &_
" VALUES ('" & i & "', '" & CLng(tab_Recap(i,0)) & "', '" & CLng(tab_Recap(i,1)) & "', '" & CLng(tab_Recap(i,2)) & "', '" & CLng(tab_Recap(i,3)) & "', '" & CLng(tab_Recap(i,4)) & "', '" & RouteStart & "', '" & RouteEnd & "')"
oConn.execute(strSQL)
next
oConn.execute("DELETE * FROM tbl_YearRecap")
str_SQL = "INSERT INTO tbl_RecapYTD (TransitYTD, Idle_DepotYTD, ReturnYTD, Idle_PlantYTD, TurnaroundYTD, StartPoint, EndPoint)" &_
" VALUES ('" & CLng(tab_Recap(13,0)) & "', '" & CLng(tab_Recap(13,1)) & "', '" & CLng(tab_Recap(13,2)) & "', '" & CLng(tab_Recap(13,3)) & "', '" & CLng(tab_Recap(13,4)) & "', '" & RouteStart & "', '" & RouteEnd & "')"
oConn.execute(str_SQL)
'C'est ici le probleme
RSRecap.open "SELECT * FROM tbl_Recap WHERE ""StartPoint"" = '" & RouteStart & "' AND ""EndPoint"" = "' & RouteEnd & "'", oConn
RSYTD.open "SELECT * FROM tbl_RecapYTD WHERE ""StartPoint"" = '" & RouteStart & "' AND ""EndPoint"" = "' & RouteEnd & "'", oConn
response.write("<p><table align=center frame=border>")
response.write("<tr><th>Road</th>")
response.write("<th>Idle at Plant</th>")
response.write("<th>Transit</th>")
response.write("<th>Idle at DST</th>")
response.write("<th>Return</th>")
response.write("<th>Turnaround</th></tr>")
response.write("<tr><td>YTD</td><td>" & RSYTD(5) & "</td><td>" & RSYTD(2) & "</td>")
response.write("<td>" & RSYTD(3) & "</td><td>" & RSYTD(4) & "</td><td>" & RSYTD(6) & "</td></tr>")
for i = 1 to UBound(tab_Recap)-1
response.write("<tr><td>" & RouteStart & " - " & RouteEnd & "</td>") 'La route
response.write("<td>" & RSRecap(4) & "</td><td>")
response.write(RSRecap(5) & "</td><td>")
response.write(RSRecap(6) & "</td><td>")
response.write(RSRecap(7) & "</td><td>")
response.write(RSRecap(3) & "</td></tr>")
next
RSRecap.close
RSYTD.close
next
oConn.close
Set RSRailcars = Nothing
Set RS = Nothing
Set RSRoutes = Nothing
Set RSRecap = Nothing
Set RSYTD = Nothing
%> |
Partager