PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV Mobile (précédentes versions) → Besoin d'aide pour zone répétée
Besoin d'aide pour zone répétée
Débuté par Greg22, 22 oct. 2022 17:50 - 1 réponse
#1
Posté le 22 octobre 2022 - 17:50
Bonjour,
Je suis novice sur windev, j'ai fait un code qui donne le résultat attendu, mais par indéfiniment. pouvez vous m'aider a modifier le code ci dessous:
Texte est une chaîne
Res est un entier

nSindiceMax est un entier = ZR_StockMetal.Occurrence()

sText1 est une chaîne
sText2 est une chaîne
sText3 est une chaîne

IF nSindiceMax =1 THEN
sText1= "Réf: " + ZR_StockMetal[1].LIB_Code..Valeur + " | " + ZR_StockMetal[1].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[1].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[1].LIB_DemandeAchat..Valeur + CR
Texte = sText1
END

IF nSindiceMax =2 THEN
sText1= "Réf: " + ZR_StockMetal[1].LIB_Code..Valeur + " | " + ZR_StockMetal[1].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[1].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[1].LIB_DemandeAchat..Valeur + CR
sText2= "Réf: " + ZR_StockMetal[2].LIB_Code..Valeur + " | " + ZR_StockMetal[2].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[2].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[2].LIB_DemandeAchat..Valeur + CR
Texte = sText1+sText2
END

IF nSindiceMax =3 THEN
sText1= "Réf: " + ZR_StockMetal[1].LIB_Code..Valeur + " | " + ZR_StockMetal[1].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[1].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[1].LIB_DemandeAchat..Valeur + CR
sText2= "Réf: " + ZR_StockMetal[2].LIB_Code..Valeur + " | " + ZR_StockMetal[2].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[2].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[2].LIB_DemandeAchat..Valeur + CR
sText3= "Réf: " + ZR_StockMetal[3].LIB_Code..Valeur + " | " + ZR_StockMetal[3].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[3].LIB_Stock..Valeur + " | Achat: " + ZR_StockMetal[3].LIB_DemandeAchat..Valeur + CR
Texte = sText1+sText2+sText3
END


// Le contenu du champ est copié dans le presse-papiers
Res = VersPressePapier("Etat stock chaudronnerie" + CR + CR + Texte)
SI Res = Faux ALORS
Erreur("Erreur lors de l'écriture dans le presse-papiers")
FIN
#2
Membre enregistré
3 334 messages
Popularité : +93 (137 votes)
Posté le 24 octobre 2022 - 10:03
→ Revenir à WINDEV Mobile (précédentes versions)