DIME TextCrystal(2)

TextCrystal(1)="Exemplaire Client"
TextCrystal(2)="Exemplaire Institution"

For x = 1 TO 2

ocrustal.Passparametres( "{@clabelcrystal},TextCrystal(x)
ocrystal.PrintOut()

ENDFOR