Discussion :

[zouzoukha]

Salut les amis!

Je viens demander votre aide car je suis las (hélas) après une journée entière de recherche...

J'ai plusieurs applic en HFCS avec groupware utilisateur qui fonctionnent sans souci. Ce matin je prends une vieille appli que je migre en CS sans souci. A l'initialisation du projet mes fichiers sont tous crées sur le serveur à l'exception des fichiers du groupware. J'ai beau chercher je n'y comprends rien, j'obtiens le message "Erreur à l'initialisation du groupware."

Voici le code de connexion HFCS :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
PROCEDURE Connection_HF_CS(SAI_MOT_DE_PASSE,SAI_SERVEUR,SAI_NUMERO_PORT,SAI_Base_de_donnees,SAI_UTILISATEUR)
 
sRepertoireWDModFic est une chaîne
//Nom complet du WDD avec son chemin
sNomCompletWDD est une chaîne
 
sRepertoireWDModFic = fRepExe()+"\Outils\"
//Nom complet du WDD avec son chemin
sNomCompletWDD = fRepExe()+"\Outils\Reception MP.wdd"
//Utilisateur et mot de passe sur le serveur Hyper File (avec les droits de faire la modification de structure des fichiers)
sMotDePasse est une chaîne=SAI_MOT_DE_PASSE
//Adresse IP ou non DNS de la machine qui heberge le serveur Hyper File
sAdresseOuNomServeurHF est une chaîne=SAI_SERVEUR
//Port du serveur Hyper File
nNumPortServeurHF est un entier=SAI_NUMERO_PORT
//Nom de la base de donnees dans laquelle se trouve les fichiers à modifier
sNomBaseDeDonnees est une chaîne=SAI_Base_de_donnees
 
sLigneDeCommande est une chaîne
//Construction de la ligne de commande (il suffit d enlever /report pour ne pas avoir une boite de dialogue à la fin)
 
sLigneDeCommande=ChaîneConstruit([
"%1WDModFic.exe" [-error] [-nobackup] /WDD="%2" /SERVER=%3:%4@%5:%6/%7 
],ComplèteRep(sRepertoireWDModFic),sNomCompletWDD, SAI_UTILISATEUR, sMotDePasse, sAdresseOuNomServeurHF, nNumPortServeurHF, sNomBaseDeDonnees)
 
//sLigneDeCommande=ChaîneConstruit([
//"%1WDModFic.exe" [-error] [-nobackup] /WDD="%2" /PWD="apap"/SERVER=%3:%4@%5:%6/%7 
//],ComplèteRep(sRepertoireWDModFic),sNomCompletWDD, sAdresseOuNomServeurHF, nNumPortServeurHF, sNomBaseDeDonnees)
 
//Pour test il est possible d afficher la ligne de commande
SI EnModeTest ALORS
	Trace(sLigneDeCommande)
	Trace("Démarrage WDModif.....")
FIN
 
// Verif serveur joignable
SI PAS Ping(SAI_SERVEUR,5000) ALORS
	Info("Serveur "+SAI_SERVEUR+" indisponible")
	RepriseSaisie(FEN_Login_HF_CS.SAI_SERVEUR)
FIN
 
//Lancement de la modification automatique en attendant la fin
SI PAS LanceAppli(sLigneDeCommande,exeActif,exeBloquant) ALORS
	//Echec du lancement, affichage de l erreur
	Erreur("Impossible d'executer la modification automatique des données : ",ErreurInfo(),"Ligne de commande utilisée : ",sLigneDeCommande)
	FinProgramme()
SINON
	//Modification automatique executee
 
	// Description de la connexion
	gcnxMaConnexion..Utilisateur = SAI_UTILISATEUR
	gcnxMaConnexion..MotDePasse = sMotDePasse
	gcnxMaConnexion..Serveur = sAdresseOuNomServeurHF
	gcnxMaConnexion..BaseDeDonnées = sNomBaseDeDonnees
	gcnxMaConnexion..Provider = hAccèsHFClientServeur
	gcnxMaConnexion..Accès = hOLectureEcriture
 
	SI HOuvreConnexion(gcnxMaConnexion) ALORS
		SI PAS HChangeConnexion("*",gcnxMaConnexion)	 ALORS
			TitreSuivant("Impossible de changer la connexion!")
			Erreur(HErreurInfo(hErrComplet))
			RepriseSaisie(FEN_Login_HF_CS.SAI_UTILISATEUR)	
		SINON
			SI gpwOuvreConnexion(gcnxMaConnexion,gslogin,sMotDePasse,sAdresseOuNomServeurHF,sNomBaseDeDonnees,hAccèsHFClientServeur,hOLectureEcriture)=Faux ALORS
				Erreur(ErreurInfo())
				RepriseSaisie(FEN_Login_HF_CS.SAI_pass)
			FIN
			// Création de tous les fichiers
			HCréationSiInexistant("*")
 
		FIN
	SINON
		TitreSuivant("Impossible d'ouvrir la connexion!")
		Erreur(HErreurInfo(hErrComplet))
		RepriseSaisie(FEN_Login_HF_CS.SAI_UTILISATEUR)
	FIN		
 
 
 
FIN

Puis à dans le code d'ouverture de la fenêtre principale de l'appli :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
PROCEDURE Init_GPW_HFCS()
nRes est un entier
nRes = gpwOuvre(".",".")
// Si le login a échoué 
SI nRes <> gpwOk ALORS 
	SELON nRes 
		CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.")
		CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
		CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
	FIN 
	FinProgramme()
FIN

Note : La gestion du groupware utilisateur est activé dans le projet avec intégration personnalisable + Lancement manuel.

Le debug me donne pour la valeur de nRes : 4

A quel erreur ce numéro correspond t-il ?

Je suis découragé d'autant plus que cela fonctionne sur d'autres appli!

Merci d'avance

[EDM-TAHITI]

Hello
Fallait pas migrer (rires). Bon, as-tu essayé de recompiler le projet, et/ou de le réparer...
A défaut, décoche le groupware dans ton projet, recompile, ferme windev, puis réouvre, et recoche groupeware, puis recompile, et après tiens moi informé...
bon courage

[zouzoukha]

Salut LeSauveur des îles

Je migre à tout va depuis qu'en CS mes requêtes depuis le réseau vont 20x plus vite(lol)

Merci EDMTAHITI, mais y a une chose que je ne comprendrais jamais...
C'est à croire quécrire sur ce forum résoud les problèmes d'un seul coup.

Il est 18:41 et depuis 09:00h je suis sur ce f*****

Et là je viens de voir l'erreur : J'AI MEME HONTE DE MOI mais il faut le dire : je suis NUL


nRes = gpwOuvre("*","*") au lieu de
nRes = gpwOuvre(".",".")



Ayiii pas de coup sur la tête !!! (je le mérite)

Merci pour l'aide

[EDM-TAHITI]

Hello,
mais non, mais non, tu seras chatié sur la place publique, et toc...
Et comme je le dis souvent à mes loulou (mes développeurs), y'en a plus dans deux têtes que dans une...
Et puis, quand tu es la tête dans le guidon (comprennez à fond sur un problème qui énerve), tu ne vois pas forcément ce qui te devrait te sauter aux yeux, hein (!)...
et puis comme dit ma citation 'quand c'est fini, en .....'
Allez, je te souhaite une bonne nuit réparatrice, moi, ma journée commence (rires)...

[zouzoukha]

Merci beaucoup EDM TAHITI,

Une nouvelle journée commence ce matin, espérons oublier cette journée de galère

Bonne nuit alors à toi?