Discussion :

[syacou]

Bonjour à tous,

Je suis débutant en windev et j'espère pouvoir clairement expliquer mon problème en espérant trouver une solution.
Voilà, j'ai une fenêtre dans laquelle j'ai créé un champ "combo_organ" lié au fichier "Organ" à travers la rubrique "NomOrgan" et un champ de saisie "NomDepartement".
J'ai ensuite créé dans la même fenêtre une table avec 2 colones: NomOgan et NomDepartement.
Mon problème est que je n'arrive pas à enregistrer dans la table la valeur sélectionnée dans le champ combo et celle saisie dans le champs de saisie.
Merci pour votre aide.

[aurabarth]

Salut,
Il faut être plus clair dans tes explications. Par exemple, quand tu sélectionne une ligne de ta combo, quelle données tu voudrais voir s'afficher dans la table? Idem pour le champ de saisie.

[syacou]

En fait, j'ai trouvé la solution en créant une requête que j'ai inséré dans la sélection d'une ligne de combo avec le code suivant:

Code :

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

1
2
3
4
5
6
HExécuteRequête(REQ_StaffPerf,hRequêteDéfaut,COMBO_StaffPerf)
HLitPremier(REQ_StaffPerf)
TANTQUE PAS HEnDehors(REQ_StaffPerf)
	TableAjouteLigne(TABLE_T_GESPERF,REQ_StaffPerf.ObjectiveDescription,REQ_StaffPerf.Weight,REQ_StaffPerf.SelfScoring,REQ_StaffPerf.LMScoring,REQ_StaffPerf.ActualScore,REQ_StaffPerf.Achievement,REQ_StaffPerf.Observation)
	HLitSuivant(REQ_StaffPerf)     
FIN

Maintenant quand je sélectionne une ligne de combo (qui est le nom d'un staff), il m'affiche les paramètres de ma requête dans la table mais je bute sur le fait que à chaque sélection du combo, j'ai des doublons dans la table.
Comment faire pour éviter les doublons?

Merci encore aurabarth pour ton aide....

[Nicolas_Jeanneau]

Bonjour,

pour éviter les doublons, il faut faire une recherche sur la table pour savoir si l'association NomOrgan/NomDepartement n'existe pas déjà (donc présente dans la table).

bon courage,

Nicolas

[syacou]

Code :

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

1
2
Merci pour ta réponse mais si ce n'est pas trop demandé, pourrais-tu m'envoyer le code approprié pour me guider?
Je ne sais pas si ma recherche dois se faire avec la fonction TableRecherche et comment?

[laurent30s]

Si tu as des doublons ça peut provenir tout simplement de ta requête dans ce cas il faudrait fournir le code sql de ta requête...

Autre chose je vois que tu dis "je bute sur le fait que à chaque sélection du combo, j'ai des doublons dans la table."

N'aurais-tu pas oublié de faire un TableSupprimeTout() pour vider la table avant de la re-remplir ?

[syacou]

Merci Laurent30s, effectivement il me suffisait d'ajouter tablesupprimetout() au début de mon code à la sélection d'une ligne de combo.
Maintenant je veux enregistrer les lignes que j'ai saisi dans la table mémoire vers le fichier de données correspondant. Quand je clic sur le bouton "Ajouter" il enregistre la nouvelle ligne et un doublon des lignes existantes. Comment éviter les doublons?
Voici le code de mon bouton "Ajouter":

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
EcranVersFichier()
NbrEnr est un entier
i est un entier
NbrEnr = TableOccurrence(TABLE_T_GESPERF)
 
//S'il s'agit d'un nouvel enregistrement
SI Performance..NouvelEnregistrement=Vrai ALORS
   HAjoute(Period)
   FichierVersEcran(FEN_GESPERF,Period)
 
  POUR i= 1 A NbrEnr
	Performance.Achievement = TABLE_T_GESPERF.COL_Achievement[i]
	Performance.ActualScore = TABLE_T_GESPERF.COL_Actual_Score[i]
	Performance.IDObjectives = TABLE_T_GESPERF.COL_Objectif[i] 
	Performance.ObjectiveDescription = TABLE_T_GESPERF.COL_Objectifs[i]            
	Performance.IDPerformance = TABLE_T_GESPERF.COL_IDPerf[i]
	Performance.IDStaff = COMBO_StaffPerf
	Performance.LMScoring = TABLE_T_GESPERF.COL_LM_Scoring[i]
	Performance.Observation = TABLE_T_GESPERF.COL_Observation[i]
	Performance.SelfScoring = TABLE_T_GESPERF.COL_Self_Scoring[i]
	Performance.Weight = TABLE_T_GESPERF.COL_Weight[i]
	HAjoute(Performance)
  FIN
 
 
SINON 
//On le modifie
	HExécuteRequête(REQ_SupprPerf,hRequêteDéfaut,COMBO_StaffPerf)
	POUR i= 1 A NbrEnr
		Performance.Achievement = TABLE_T_GESPERF.COL_Achievement[i]
		Performance.ActualScore = TABLE_T_GESPERF.COL_Actual_Score[i]
		Performance.IDObjectives = TABLE_T_GESPERF.COL_Objectif[i]
		Performance.ObjectiveDescription = TABLE_T_GESPERF.COL_Objectifs[i]
		Performance.IDPerformance = TABLE_T_GESPERF.COL_IDPerf[i]
		Performance.IDStaff = COMBO_StaffPerf
		Performance.LMScoring = TABLE_T_GESPERF.COL_LM_Scoring[i]
		Performance.Observation = TABLE_T_GESPERF.COL_Observation[i]
		Performance.SelfScoring = TABLE_T_GESPERF.COL_Self_Scoring[i]
		Performance.Weight = TABLE_T_GESPERF.COL_Weight[i]
		HAjoute(Performance)
	FIN
FIN 
 
// Valeur de retour de la fenêtre
MaFenêtre..ValeurRenvoyée = Vrai