Discussion :

[mfulgore]

bonjour je suis novice sur windev mobile 24
je fais un code qui marche, mais qui ne peux pas evoluer indefiniment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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

si une personne pouvais me faire evoluer d'une meilleur facon ce code.

Merci

[popoy]

Je te conseille de regarder du côté des boucles.

[tbc92]

Novice sur windev, novice en programmation, novice.
Il faudrait suivre un tutoriel sur les bases de la programmation (pas forcément Windev, les concepts qui te manquent sont beaucoup plus généraux)
Il doit y avoir des choses pour toi ici : https://general.developpez.com/cours/ mais j'ai l'impression qu'il faudrait quelque chose encore plus 'fondamental'.

2 mots clés ici : Boucles, et Tableaux.

Et allons jusqu'au bout, parce que tu n'as aucune chance d'aboutir par toi-même en l'état :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Texte est une chaîne
Res est un entier
nSindiceMax est un entier = ZR_StockMetal.Occurrence()
i est un entier 
 
Texte = ""
pour i = 1 _a_ nSindiceMax 
  Texte += "Réf: " +  ZR_StockMetal[i].LIB_Code..Valeur + " | " + ZR_StockMetal[i].LIB_Libelle..Valeur + CR + " | stock: " + ZR_StockMetal[i].LIB_Stock..Valeur + " | Achat: "  + ZR_StockMetal[i].LIB_DemandeAchat..Valeur + CR
Fin 
 
// 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

Edit : en fait, pas besoin de tableaux, j'avais mal vu.

[mfulgore]

Merci beaucoup