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
|
for i = 1 to 10
port(i,2) = subport
next
i=1
do while panier(i,1) <> "" 'recupere nom du port et le total des qty / port
'j = 1
for j = 1 to 10 ' test si le port existe
response.write strcomp(panier(i,9), port(j,1),1)
if (trim(panier(i,9)) = trim(port(j,1))) then
session.contents("doublee") = "doub"
response.write "port en double! -> "&session.contents("doublee")&"<br>"
exit for
else
session.contents("doublee") = "fau"
response.write "<br>New port! -> "&session.contents("doublee")&"<br>"
end if
next
if session.contents("doublee") = "fau" then 'nouveau port
p = 1
port(i,1) = panier(i,9) 'ajout du port
do while panier(i,11)(p,1) <> "" 'recupere les dates & qtys
port(i,2)(p,1) = panier(i,11)(p,1) 'ajout de la date
port(i,2)(p,2) = panier(i,11)(p,2) 'ajout de la qty
port(i,2)(p,3) = csng(port(i,2)(p,2) / panier(i,8)) 'ajout de l'evp
p = p+1
loop
t = i
else ' ajout de dates & qtys d'un port existant
q = 1
do while panier(i,11)(q,1) <> "" 'recupere les dates & qtys & evp
port(t,2)(p,1) = panier(i,11)(q,1) 'ajout de la date
port(t,2)(p,2) = panier(i,11)(q,2) 'ajout de la qty
port(t,2)(p,3) = csng(port(t,2)(p,2) / panier(i,8)) 'ajout de l'evp
response.write "ajout de date(MAJ) ->" & port(t,2)(p,1) & "<br>"
response.write "ajout de qty(MAJ) ->" & port(t,2)(p,2) & "<br>"
response.write "ajout de evp(MAJ) ->" & port(t,2)(p,3) & "<br>"
q = q+1
p = p+1
loop
end if
i=i+1
loop |
Partager