Bonjour,
Le logiciel Etats et Requête n'exécute plus les requêtes lorsque l'on clique sur GO.
Rien ne se passe.
Je précise qu'il n'y à rien dans le code d'initialisation du projet qui empecherais son bon fonctionnement, dailleur, le code d'initialisation ne s'exécute même pas : Il y à un TRACE("Début") en première ligne et celui ci ne s'affiche pas, et le débogueur de Etats et Requêtes repasse en mode "Arrêt" immédiatement.
Cela fonctionnait auparavant, pourtant, le code d'initialisation n'a pas été modifié depuis, et l'application du projet fonctionne parfaitement en mode autonome.
Je ne rencontre ce problème qu'avec ce projet, Etats et Requêtes fonctionne parfaitement avec les exemples Windev, le soucis vient donc bien de mon projet, mais Où ?
Si vous avez déjà rencontré et résolu le même problème, merci de m'en indiquer la résolution
Pour info, voici le code d'init :
HGèreREP(Faux)
SI PAS EnModeEtatsEtRequêtes() ALORS
Son("démarrage.wav")
FIN
EXTERNE "KeyConst.WL"
EXTERN "WINCONST.WL"
SI ToucheEnfoncée(teControl) ALORS
//1 : SERVEUR
//2 : POSTEDB
SELON Dialogue("Sur quelle Serveur HF souhaitez vous vous connecter ?")
CAS 1
//HVérifieStructure("*",hSansContrôle)
CAS 2
//Variables de connexion
sNomConnexion est une chaîne = "SERVEUR_synergie"
gsSLibelléConnexion est une chaîne = "Serveur Hyperfile, base synergie"
sTypeConnexion est une chaîne = "WinDevClientServeurHF"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "PosteDB:4900"
gsNomBase est une chaîne = "synergie"
sNomUtilisateur est une chaîne = "Administrateur"
sMotDePasse est une chaîne = "*****************"
gsSInfoEtendus est une chaîne = ";Cryptage = aucun;Initial Catalog=synergie"
SI PAS HOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, gsNomBase, sTypeConnexion, sTypeAccès) ALORS
Erreur(HErreurInfo())
FIN
FIN
FIN
nIdFic est un entier
sMaChaîne est une chaîne
SI PAS Minuscule(ExtraitChaîne(SERVEUR_synergie..Serveur,1,":")) = "serveur" ALORS
DélaiAvantFermeture(200)
Erreur("Vous n'êtes pas connecté sur le serveur !","La connexion actuelle est sur : " + ExtraitChaîne(SERVEUR_synergie..Serveur,1,":"))
DélaiAvantFermeture()
FIN
// Vérifie si la touche SHIFT a été appuyée
SI ToucheEnfoncée(teShift) ALORS
Ouvre(FEN_DétailConnexion)
FIN
CONSTANT LIB_DEVISE_DEFAUT = "€"
// Crée la clé de registre pour la sauvegarde des paramètres
gsCle_Reg_Synergie est une chaîne = "HKEY_CURRENT_USER\Software\Synergie\"
RegistreCréeClé(gsCle_Reg_Synergie)
gdhDateConv est une DateHeure
gnCouleurDPE est un entier = 12632319
gnCouleurEP est un entier = 12640511
gnCouleurGCTFT est un entier = 12648384
gnCouleurGCTTV est un entier = 16777152
StructureUtilisateur est une structure
sGroupe est une chaîne
sTitre est une chaîne
sNom est une chaîne
sPrénom est une chaîne
sLogin est une chaîne
bSuperviseur est un booléen
sMail est une chaîne
sTéléphone est une chaîne
sMobile est une chaîne
sInitiales est une chaîne
sSecteur est une chaîne
nIDLogin est un entier
FIN
STCondition est une structure
nIDDétail est un entier
sRubrique est une chaîne
sAlias est une chaîne
nCondition est un entier
FIN
//SI PAS HCréationSiInexistant(GroupWareInfoUtilisateurs) ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : GroupWareInfoUtilisateurs",HErreurInfo())
SI HLitRecherchePremier(GroupWareInfoUtilisateurs,Login,gpwRecupInfoUtilisateur(gpwInfoLogin))
gUtilisateur est StructureUtilisateur
gUtilisateur:sGroupe = gpwRecupInfoUtilisateur(gpwInfoGroupe)
gUtilisateur:sTitre = GroupWareInfoUtilisateurs.Titre
gUtilisateur:sNom = gpwRecupInfoUtilisateur(gpwInfoNom)
gUtilisateur:sPrénom = gpwRecupInfoUtilisateur(gpwInfoPrénom)
gUtilisateur:sLogin = gpwRecupInfoUtilisateur(gpwInfoLogin)
gUtilisateur:bSuperviseur = gpwRecupInfoUtilisateur(gpwInfoSuperviseur)
gUtilisateur:sMail = GroupWareInfoUtilisateurs.Mail
gUtilisateur:sTéléphone = GroupWareInfoUtilisateurs.Téléphone
gUtilisateur:sMobile = GroupWareInfoUtilisateurs.Mobile
gUtilisateur:sInitiales = GroupWareInfoUtilisateurs.Initiales
gUtilisateur:sSecteur = GroupWareInfoUtilisateurs.Secteur
gUtilisateur:nIDLogin = GroupWareInfoUtilisateurs.ID_Login
SINON
Erreur("Paramètre de Login incorrects !", "Connexion sur " + ExtraitChaîne(SERVEUR_synergie..Serveur,1,":"))
FIN
gsCheminDocsTypes est une chaîne = "X:\Suivi 2005\Lettres"
gnIDSourceGlissé est un entier
GLOBAL
gRADAbrev est une chaîne // Abréviations des fichiers en cours de saisie
// Permet de savoir si une fenêtre relative à un fichier
// est en cours (gestion des liaisons entre fichiers). |