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). |