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
|
liste est une chaîne=""
liste=Get_Liste_Suunto1()
Numero_BP est une chaîne=""
Numero_Commande est une chaîne=""
Article est une chaîne=""
Numero_Lot est un entier
Emplacement est une chaîne=""
Quantité est un entier
Date_promise est une chaîne= DateVersChaîne(Date_promise)
Client est une chaîne=""
temp est une chaîne=""
compteur est un entier=0
sligne est une chaîne=""
TANTQUE temp <> EOT
compteur=compteur+1
temp=ExtraitChaîne(liste,compteur,RC)
Client=ExtraitChaîne(temp,1,"|||",DepuisDébut)
Numero_BP=ExtraitChaîne(temp,2,"|||",DepuisDébut)
Numero_Commande=ExtraitChaîne(temp,3,"|||",DepuisDébut)
Article=ExtraitChaîne(temp,4,"|||",DepuisDébut)
Numero_Lot=ExtraitChaîne(temp,5,"|||",DepuisDébut)
Emplacement=ExtraitChaîne(temp,6,"|||",DepuisDébut)
Quantité=ExtraitChaîne(temp,7,"|||",DepuisDébut)
Date_promise=ExtraitChaîne(temp,8,"|||",DepuisDébut)
SI temp <> "" ET temp <> EOT ALORS
sligne=Client+Numero_BP+Numero_Commande+Article+Numero_Lot+Emplacement+Quantité+Date_promise
ZoneRépétéeAjouteLigne(ZR_Suunto,sligne)
FIN
FIN |
Partager