Discussion :

[Invité]

Bonjour,

Soit le code

Code :

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

1
2
3
4
5
6
7
8
9
10
LOCAL
  i est un entier
POUR i = 1 _A_ HNbEnr(CLIENT, hEtatTous)
  HLit(CLIENT, i)
  SI HEtat() = hEtatActif ALORS  Message(CLIENT.NOM)
FIN
POUR i = 1 _A_ HNbEnr(FOURNISSEUR, hEtatTous)
  HLit(FOURNISSEUR, i)
  SI HEtat() = hEtatActif ALORS Message(FOURNISSEUR.NOM)
FIN

Est-il envisageable de créer une procédure utilisable ainsi : LireFichier(CLIENT); LireFichier(FOURNISSEUR) avec

Code :

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

1
2
3
4
5
6
7
Procedure LireFichier(Fichier est un ?????)
LOCAL
  i est un entier
POUR i = 1 _A_ HNbEnr(Fichier, hEtatTous)
  HLit(Fichier, i)
  SI HEtat() = hEtatActif ALORS  Message(Fichier.NOM)
FIN

...et dans ce cas quel est le type de Fichier ? J'avais pensé initialement Source de Données mais j'obtiens l'erreur

Erreur :'CLIENT' est ici considéré comme le fichier HyperFileSQL. Pour accéder à un autre élément, utilisez une déclaration externe.

Merci.