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 |