PROCEDURE PRIVÉE PR_DeclareExterne()
sUneListe est une chaîne
sFichier est une chaîne
sUnAlias est une chaîne
nIndice est un entier=1
// Recherche de toutes les tables sur la connexion gcnxConnexionBD
sUneListe=HListeFichier(gcnxConnexionBD, hLstTout)
// Extraction de la première table
sFichier=ExtraitChaîne(sUneListe,nIndice, RC)
// Parcours des tables une à une jusqu'à la dernière
TANTQUE sFichier<>EOT
// sUnAlias contient le nom logique de la table
sUnAlias=ExtraitChaîne(sFichier,1, ".FIC")
// Déclaration externe de la table en cours
HDéclareExterne("C:\Program Files\PC SOFT\Serveur HF\BDD\Impression\" +sFichier, "DISTANT_"+sUnAlias)
// Passage à la table suivante
nIndice++
sFichier=ExtraitChaîne(sUneListe,nIndice, RC)
FIN
HListeFichier(hLstTout)
EXTERNE Distant_Impression
Distant_Impression.appelant=NetAdresseIP()
Distant_Impression.Date=DateSys()
Distant_Impression.Heure=HeureSys()
Distant_Impression.Fichier=SAI_Message_a_envoyer
Distant_Impression.Traite=Faux
HAjoute(Distant_Impression)
Le fichier <DISTANT_Impression> n'a pas été ouvert avec des droits en écriture. Impossible d'effectuer l'opération.
HOuvre(Distant_Impression, hOLectureEcriture)
Impossible d'ouvrir le fichier <C:\Program Files\PC SOFT\Serveur HF\BDD\Impression\Impression.FIC>. Détail de l'erreur système : Le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus. (32)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6317&post_id=25029