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
| 'Organisation'
Dim RecupOrganisation
Dim rsCauseOrganisation
Dim TabValeurOrganisation(1000)
Dim TabCodeOrganisation(1000)
Dim iOrganisation
iOrganisation=0
set rs = server.CreateObject("ADODB.RecordSet")
rs.open RecupNum, cnBD
do while not rs.eof
RecupOrganisation="SELECT ArretCasing.CodeArret, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"' AND DateDeSaisie=#"&englishDateDebut&"# AND ArretCasing.Poste='"&data1&"' AND ArretCasing.CodeArret='O1' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret"
set rsCauseOrganisation = server.CreateObject("ADODB.RecordSet")
rsCauseOrganisation.open RecupOrganisation, cnBD
if not rsCauseOrganisation.eof Then
TabValeurOrganisation(iOrganisation)=rsCauseOrganisation("temps")
else
TabValeurOrganisation(iOrganisation)=0
End if
TabCodeOrganisation(iOrganisation)="O1"
iOrganisation=iOrganisation+1
rsCauseOrganisation.close
set rsCauseOrganisation = nothing
RecupOrganisation="SELECT ArretCasing.CodeArret, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"' AND DateDeSaisie=#"&englishDateDebut&"# AND ArretCasing.Poste='"&data1&"' AND ArretCasing.CodeArret='O2' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret"
set rsCauseOrganisation = server.CreateObject("ADODB.RecordSet")
rsCauseOrganisation.open RecupOrganisation, cnBD
if not rsCauseOrganisation.eof Then
TabValeurOrganisation(iOrganisation)=rsCauseOrganisation("temps")
else
TabValeurOrganisation(iOrganisation)=0
End if
TabCodeOrganisation(iOrganisation)="O2"
iOrganisation=iOrganisation+1
rsCauseOrganisation.close
set rsCauseOrganisation = nothing
RecupOrganisation="SELECT ArretCasing.CodeArret, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"' AND DateDeSaisie=#"&englishDateDebut&"# AND ArretCasing.Poste='"&data1&"' AND ArretCasing.CodeArret='O4' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret"
set rsCauseOrganisation = server.CreateObject("ADODB.RecordSet")
rsCauseOrganisation.open RecupOrganisation, cnBD
if not rsCauseOrganisation.eof Then
TabValeurOrganisation(iOrganisation)=rsCauseOrganisation("temps")
else
TabValeurOrganisation(iOrganisation)=0
End if
TabCodeOrganisation(iOrganisation)="O4"
iOrganisation=iOrganisation+1
rsCauseOrganisation.close
set rsCauseOrganisation = nothing
RecupOrganisation="SELECT ArretCasing.CodeArret, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"' AND DateDeSaisie=#"&englishDateDebut&"# AND ArretCasing.Poste='"&data1&"' AND ArretCasing.CodeArret='O5' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret"
set rsCauseOrganisation = server.CreateObject("ADODB.RecordSet")
rsCauseOrganisation.open RecupOrganisation, cnBD
if not rsCauseOrganisation.eof Then
TabValeurOrganisation(iOrganisation)=rsCauseOrganisation("temps")
else
TabValeurOrganisation(iOrganisation)=0
End if
TabCodeOrganisation(iOrganisation)="O5"
iOrganisation=iOrganisation+1
rsCauseOrganisation.close
set rsCauseOrganisation = nothing
RecupOrganisation="SELECT ArretCasing.CodeArret, Sum(ArretCasing.TpsArret) AS temps FROM ArretCasing WHERE ArretCasing.NumCommande='"&rs("NumCommande")&"' AND DateDeSaisie=#"&englishDateDebut&"# AND ArretCasing.Poste='"&data1&"' AND ArretCasing.CodeArret='O6' AND (ArretCasing.NomPoste='HT4822' Or ArretCasing.NomPoste='HT4821' Or ArretCasing.NomPoste='ST4421' Or ArretCasing.NomPoste='ST4420') GROUP BY ArretCasing.CodeArret"
set rsCauseOrganisation = server.CreateObject("ADODB.RecordSet")
rsCauseOrganisation.open RecupOrganisation, cnBD
if not rsCauseOrganisation.eof Then
TabValeurOrganisation(iOrganisation)=rsCauseOrganisation("temps")
else
TabValeurOrganisation(iOrganisation)=0
End if
TabCodeOrganisation(iOrganisation)="O6"
iOrganisation=iOrganisation+1
rsCauseOrganisation.close
set rsCauseOrganisation = nothing
rs.movenext
loop
rs.close
set rs = nothing
for j=1 To (iOrganisation-1)
x=TabValeurOrganisation(j)
y=TabCodeOrganisation(j)
k=j-1
do while (k>=0 And TabValeurOrganisation(k)>x)
TabValeurOrganisation(k+1)=TabValeurOrganisation(k)
TabCodeOrganisation(k+1)=TabCodeOrganisation(k)
k=k-1
loop
TabValeurOrganisation(k+1)=x
TabCodeOrganisation(k+1)=y
Next |
Partager