Discussion :

[Cereal123]

Bonjour,

En spé, Je voudrais faire une boucle FOR qui utilise la dimension d'un code d'activité.
Par exemple le code d'activité NLD (Nombre de d'emplacements par défaut)

Code :

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

1
2
3
For I= 0 To Dimension(NDL)
   ....
Next I

Quelle est la syntaxe à utiliser ?
Merci.
C

[obelix3]

Bonjour

Ci-après un peu de code utile ... les "End" peuvent être remplacés par des "Return" en fonction du contexte ...

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
Local File ACTIV
Local Integer I , DIM_PARAM
Local Char CODE_ACTIVITE(type([F:ACV]CODACT)-10)
 
[L]CODE_ACTIVITE="NDL"
Read [ACV]CODACT = [L]CODE_ACTIVITE
if fstat then Call ERREUR([L]CODE_ACTIVITE-": Code activité INEXISTANT !") from GESECRAN : Close Local File [ACV] : End : endif
 
#[F:ACV]DIME contient la dimension écran
#[F:ACV]DIMMAX contient la dimension maxi
 
[L]DIM_PARAM = [F:ACV]DIMMAX
 
Close Local File [ACV]
 
For [L]I=0 to [L]DIM_PARAM - 1
   ...
Next
 
End

[Cereal123]

Impeccable, c'est exactement ce qu'il me fallait.
Je ne pensais pas qu'il faille aller lire la valeur en base !
Merci !

[obelix3]

Petit complément ...

Pour la Dimension Ecran d'un code activité de dimensionnement, il existe une fonction standard appelable par "func"

Code :

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

func AFNC.ACTIV("NDL")