Bonjour à tous,
Petite bizarrerie de WD17:
A l'exécution du code suivant:
A l'avant dernière ligne j'obtiens le message suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 ch=ExtraitChaîne(Main.Table_Sel_BLVte.libelle[i],rangPremier,RC) TANTQUE ch<>EOT // pour p=1 a val(extraitchaine(ch,1,tab)) POUR p=1 _A_ Val(Gauche(ch,Position(ch,TAB)-1)) j++ // tableajouteligne(Table_Poids,"Colis N° "+NumériqueVersChaine(j,"02d"),val(extraitchaine(ch,1,tab,DepuisFin))) TableAjouteLigne(Table_Poids,"Colis N° "+NumériqueVersChaîne(j,"02d"),Val(Droite(ch,3))) FIN ch=ExtraitChaîne(Main.Table_Sel_BLVte.libelle[i],rangSuivant,RC) // <--- Erreur ! FIN
J'ai mis en commentaire les autres utilisations de ExtraitChaine qui se trouvaient entre les 2 ExtraitChaine du parcours, mais l'erreur subsiste.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Erreur à la ligne 24 du traitement Déclarations globales de Exped2. Vous avez appelé la fonction ExtraitChaîne. Utilisation de l'option de parcours rangSuivant alors que le parcours n'a pas été initialisé par rangPremier ou qu'il est terminé.
Ce code marchait très bien depuis 2006, mais plus depuis le passage du projet en WD17 (78n)
Dans le debug, l'extraction de la 1ère chaine avant le RC se fait bien.
Le 2ème ExtraitChaine avec rangSuivant plante, qu'il y ait 1, 2 ou 3 éléments séparés par RC...
Y aurait-il quelque-chose que je ne vois pas?
EDIT: Est-ce que, par hasard, ce parcours ne fonctionnerait plus avec RC comme séparateur, c-à-d qu'il voit le 1er RC comme la fin de la chaine initiale au lieu d'un séparateur?
Merci de votre aide
Partager