WDForge.org - Forums

Suppression dans table et fichier

Sujet: Suppression dans table et fichier
par Alicia sur 11/4/2006 14:33:23

Bonjour,
J'avais demandé un conseil à la suite de mon précédent problème, mais comme personne n'a encore répondu j'ai pensé que personne n'avait vu.
Donc je réexplique, j'ai encore 2 soucis :
Je suis toujours avec ma table remplie à l'aide d'une recherche sur le nom saisi par l'utilisateur.
Je veux supprimer à la fois la ligne sélectionnée dans la table ET l'enregistrement associé à la ligne de la table.
J'ai essayé plusieurs choses du livre mais ça ne fonctionne pas.
Voilà où j'en suis :

SI HNbEnr(FOURNISSEUR)=0 ALORS RETOUR
// Suppression de la fiche en cours
SI OuiNon("Confirmez-vous la suppression de cette fiche") ALORS
HSupprime(FOURNISSEUR)
HLitSuivant(FOURNISSEUR,Societe)
SI HEnDehors(FOURNISSEUR) = Faux ALORS
FichierVersEcran()
SINON
HLitDernier(FOURNISSEUR,Societe)
SI HEnDehors(FOURNISSEUR) = Faux ALORS
FichierVersEcran()
SINON
RAZ()
FIN
FIN
FIN

voilà pour le 1er.
En ce qui concerne mon 2nd problème, c'est quand je veux ajouter les infos sur les enregistrements de mon fichier dans ma table, quand le nom de la société correspond au nom saisi.
J'ai essayé plusieurs choses, ça remplit bien mais pas exactement comme je voulais.
J'ai pour le moment :

HLitRecherchePremier(FOURNISSEUR,Societe,saisieFournisseur,hGénérique)
SI HTrouve() = Vrai ALORS
TANTQUE PAS HEnDehors(FOURNISSEUR)
TableAjoute(REQ_Fourn,FOURNISSEUR.Societe+TAB+FOURNISSEUR.NomFournisseur+TAB+FOURNISSEUR.Ville+TAB+FOURNISSEUR.Telephone)
HLitSuivant(FOURNISSEUR)
FIN
SINON
Info("Aucun fournisseur ne correspond")
FIN

Mais évidemment il me sort tout ce qu'il y a dans le fichier à partir du nom tapé, à cause du TANTQUE PAS HEnDehors
Alors j'ai essayé sans TANTQUE mais bien sûr ça ne m'ajoute qu'une ligne, or je peux avoir plusieurs lignes car plusieurs sociétés ont le même nom et des informations différentes.
J'ai essayé avec une condition sur Fournisseur.Societe=saisieFournisseur
mais ça ne trouve rien.
Désolée de vous poser des questions de débutant mais je ne trouve pas la solution dans le guide d'auto-formation.
Merci d'avance.