PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 2024 → Gestion auto emplacement
Gestion auto emplacement
Started by William, Jul., 31 2021 4:14 PM - 1 reply
#1
Posted on July, 31 2021 - 4:14 PM
Bonjour je dois pouvoir créer une formule dons le résultat est.

90-001-A
90-001-B
90-002-A
90-002-B
91-001-A
91-001-B
91-002-A
91-002-B

je dois pouvoir donner une valeur mini et max pour chaque partie exemple :

de 90 a 91 exemple partie 1 deux champ saisie
001 à 002 exemple partie 2 deux champ saisie
de la lettre A a B exemple partie 3 un champ saisie

Avec mon code j'arrive pour la partie 2 et 3 mais je n'arrive pas a faire que ma boucle ajoute 1 a la partie 1
Je vous joins mon code pour la partie deux et trois si vous pouvez m'aiguiller pour la partie un .
J'espère être assez claire
Merci
nChifrredebut est un entier = SAI_Chiffre_debut
nChiffrefin est un entier = SAI_Chiffre_fin

//Deuxième partie en XX
nChifrredebutmilieu est un entier = SAI_Chiffre_debut_milieu
nChiffrefinmilieu est un entier = SAI_Chiffre_fin_milieu

// Lettre de fin
nLettremax est un entier = Asc(SAI_lettre_fin)


TANTQUE nChifrredebutmilieu < nChiffrefinmilieu +1

POUR I = 65 À nLettremax


Trace(nChifrredebut + "-" + NumériqueVersChaîne(nChifrredebutmilieu , "03d")+ "-" + Caract(I) )
FIN
nChifrredebutmilieu ++


FIN
#2
Registered member
227 messages
Popularité : +18 (20 votes)
Posted on August, 02 2021 - 11:27 AM
Bonjour,

il suffit d'imbriquer 3 boucles
Première boucle de nChifrredebut à nChiffrefin
Puis a l'intérieur 2 eme boucle de nChifrredebutmilieu à nChiffrefinmilieu
et enfin POUR I = 65 À nLettremax

Cordialement
→ Go back to WINDEV 2024