Voici le code d'initialisation du projet
GLOBAL
NoIdArtTMP est une chaîne
NoVarIntTMP est une chaîne
LoginPGM est une chaîne="Admin"
NumeroDeBonIn est une chaîne
NumeroDeBonOut est une chaîne
Sw_VenirDe est un entier
Param_HauteurPalette est un entier=20 //en cm
libelle1 est une chaîne
libelle10 est une chaîne
libelle12 est une chaîne
USER_PGM est une chaîne
CLIENT_PGM est une chaîne
SERVEUR_PGM est une chaîne
BD_PGM est une chaîne
CLIENT_PGMPLT est une chaîne
SERVEUR_PGMPLT est une chaîne
BD_PGMPLT est une chaîne
PASSWORD_PGM est une chaîne
ResultatVerif est un booléen
gbSw_inventaire est un booléen
gbsw_reception est un booléen
gbsw_miseenstock est un booléen
gbsw_deplacementdestock est un booléen
gbsw_miseenconformite est un booléen
gbsw_infoarticle est un booléen
gbsw_pickpetite est un booléen
gbsw_pickgrosse est un booléen
gsNoIdSoc est une chaîne
gnPlateFormeUtilisatrice est une chaîne
gnTerminalPortable est un entier
nXContext,nYContext,nLigne,ncolonne sont des entiers
gdDateTourneeTheorique est une Date
ghHeureTourneeTheorique est une Heure
numero_fichier est un entier
lignelue est une chaîne
//numero_fichier=fouvre("sodisoft.ini",folecture)
//numero_fichier=fouvre("c:\program files\SobelScan\Sobelscan.ini",folecture)
numero_fichier=fOuvre("\program files\SobelScan\Sobelscan.ini",foLecture)
lignelue=fLitLigne(numero_fichier)
//trace("Ligne "+i+":"+lignelue)
TANTQUE lignelue<>EOT
SELON lignelue[[1 A 4]]
CAS "NSOC"
gsNoIdSoc=SansEspace(lignelue[[6 A 50]])
CAS "PLTF"
gnPlateFormeUtilisatrice=SansEspace(lignelue[[6 A 8]])
CAS "TEPO"
gnTerminalPortable=SansEspace(lignelue[[6 A 8]])
CAS "SERV"
MaChaîne est une chaîne = lignelue[[6 A Taille(SansEspace(lignelue))]]
MaPosition est un entier = PositionOccurrence(MaChaîne,"/", rangPremier)
sw_passage est un entier=0
posdebut est un entier=1
TANTQUE MaPosition <> 0
sw_passage++
SELON sw_passage
CAS 1
SERVEUR_PGM=MaChaîne[[posdebut A MaPosition-1]]
CAS 2
BD_PGM=MaChaîne[[posdebut A MaPosition-1]]
CAS 3
CLIENT_PGM=MaChaîne[[posdebut A MaPosition-1]]
FIN
posdebut=MaPosition+1
MaPosition = PositionOccurrence(MaChaîne,"/", rangSuivant)
FIN
CAS "SERP"
MaChaîne = lignelue[[6 A Taille(SansEspace(lignelue))]]
MaPosition = PositionOccurrence(MaChaîne,"/", rangPremier)
sw_passage=0
posdebut=1
TANTQUE MaPosition <> 0
sw_passage++
SELON sw_passage
CAS 1
SERVEUR_PGMPLT=MaChaîne[[posdebut A MaPosition-1]]
CAS 2
BD_PGMPLT=MaChaîne[[posdebut A MaPosition-1]]
CAS 3
CLIENT_PGMPLT=MaChaîne[[posdebut A MaPosition-1]]
FIN
posdebut=MaPosition+1
MaPosition = PositionOccurrence(MaChaîne,"/", rangSuivant)
FIN
FIN
lignelue=fLitLigne(numero_fichier)
FIN
//Connexion pour la gestion des mots de passe
HDécritConnexion("HyperFileCS","admin","",SERVEUR_PGM+":4900","PassWordGeneral",hAccèsHFClientServeur)
HChangeConnexion("*","HyperFileCS")
libelle10=BD_PGM
libelle12=CLIENT_PGM
Ouvre(GPWLoginHome_MC9000)
HFermeConnexion("HyperFileCS")
SI SansEspace(USER_PGM)<>"" ALORS
HDécritConnexion("HyperFileCS","admin","",SERVEUR_PGM+":4900",BD_PGM,hAccèsHFClientServeur)
HChangeConnexion("*","HyperFileCS")
libelle10=BD_PGM
libelle12=CLIENT_PGM
FIN
libelle1=libelle10
Nous avons essayé de créer une application de test ne faisant que se connecté à une DB Hyperfile serveur avec le même résultat |