Discussion :

[Dramon]

Bonjour a tous/toutes,

j'ai un petit problème avec un fichier hyperFile qui est chargé dans une table a l'aide d'un filtre. Le chargement se fait bien.
Le problème vient quand je veux ajouter ou supprimer un enregistrement.
Si j'insère un nouvel élément, il m'insère dans la table un élément vide et il ne me vide pas les textbox pour que je puisse introduire les nouvelles valeurs et il ne me montre pas l'ID autonumerique qu'il a ajouter. Du cout, je ne le vois pas dans ma table car j'ai le filtre = 11 et l'élément est à 0.

je vous mets mon code.

Initialisation de ma fenêtre:

Code :

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

1
2
3
HDésactiveFiltre(AGRUP) 
HFiltre(AGRUP,ENT_ID, gEntid) //gEntid = 11 
TableAffiche(TABLE_AGRUP)

Code :

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

1
2
3
4
5
6
7
BTN_Nouveau:
 
HRAZ(AGRUP)
// Ajoute l'enregistrement
HAjoute(AGRUP)
TableAffiche(TABLE_AGRUP, taCourantEnreg)
FichierVersEcran()

Merci de votre aide.

David

[sphynxounet]

Quand tu veux un nouveau enregistrement pourquoi tu fais un HRAZ ? Tu veux simplement ajouter un nouvel enregistrement ou tu as besoin de réinitialiser ton fichier HF avec les valeurs par défaut ?

En plus dans ton code tu ne donnes aucune valeur aux rubriques de ton ficher HF (genre AGRUP.rubrique1 = <valeur>, AGRUP.rubrique2 = <valeur> ...).

[Dramon]

Merci de ta résponse.
J'ai posté le code généré automatiquement par Windev quand j'ai fait un RAD sur mon fichier. J'ai crée un formulaire avec table et valeurs reliées. Sauf que j'ai voulu faire un filtre pour montrer certaines valeurs car cette fenêtre est appelée depuis une autre fenêtre.
Je voulais simplement pouvoir filtrer (par un champs) les lignes a montrer dans ma table, puis pouvoir ajouter, effacer, etc...

Peut être qu'on peut faire autrement. Quelqu'un aurait une idée?

Merci.

David

[sphynxounet]

Merci de ta résponse.
J'ai posté le code généré automatiquement par Windev quand j'ai fait un RAD sur mon fichier.

Faut toujours se méfier de ce qui est généré automatiquement.

Bon pour faire simple on va dire que tu as un fichier hyperfile dans ton analyse que l'on va appeler fichierHF. Dans ce fichier tu as 3 rubriques : IDfichierHF, rubrique1 et rubrique2.

Pour lier un champ liste à ton fichier il faut le faire dans la description du champ liste : Liaison -> analyse -> fichierHF et là tu sélectionnes la rubrique que tu veux afficher.
Dans l'onglet du dessous de la liste, "Contenu" il est possible de paramétrer différents paramètres dont le filtrage (bouton "requête intégrée" à droite).

Ca c'est pour l'affichage des données de ton fichier dans le champ liste.

Ensuite quelque part dans ton code si tu veux intégrer des données. Imaginons que tu aies 2 champs libellés (libellé1 et libellé2).
Il te faut comme code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// on définit les valeurs à stocker
fichierHF.rubrique1 = libellé1..valeur
fichierHF.rubrique2 = libellé2..valeur
 
// on ajoute une nouvelle entrée dans le fichier
HAjoute(fichierHF)
 
// on met à jour le champ liste
TableAffiche(Table_fichierHF,taCourantPremier)

Tu peux très bien mettre ce code lors d'un click sur un boutton.

[Dramon]

Merci, ça marche. Mais comment je pourrais faire pour supprimer un enregistrement.
Ce code a été généré aussi automatiquement par windev.

Code :

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

1
2
3
4
5
6
7
8
9
10
// Demande confirmation
SI OuiNon("Êtes-vous sûr de vouloir supprimer l'enregistrement sélectionné ?") = Oui ALORS
 
	TableSupprime(TABLE_AGRUP)
 
	TableAffiche(TABLE_AGRUP, taCourantEnreg)
 
	ExécuteTraitement(TABLE_AGRUP, trtSélection)		
FIN
FEN_Det_Agrup.SC_SuperChamp1..Visible=False

[Dramon]

Bonjour,
j'ai résolu le problème de la suppression.
j'ai ajouter:

Code :

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

HSupprime(AGRUP,hNumEnrEnCours)

Code complet de mon bouton supprimer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Demande confirmation
SI OuiNon("Êtes-vous sûr de vouloir supprimer l'enregistrement sélectionné ?") = Oui ALORS
	HSupprime(AGRUP,hNumEnrEnCours)

	TableSupprime(TABLE_AGRUP)
	
	TableAffiche(TABLE_AGRUP, taCourantEnreg)

	ExécuteTraitement(TABLE_AGRUP, trtSélection)		
FIN
FEN_Det_Agrup.SC_SuperChamp1..Visible=False

Merci beaucoup sphynxounet