Alimenter un fichier de relation
Posté par roller0022 le 22/8/2008 18:10:56
Bonjour à tous, j’essaye de comprendre sans comprendre, pourriez vous m’éclairer un peu.
Je vous explique mon problème.
WD10
J’ai trois fichiers :
*Projets
Idprojets > id automatic > Clé unique
Nom_projet
Description
Idcontacts > Clé avec Doublons
*Sociétés
Idsociétés > id automatic > Clé unique
Raison_social
Siret
Département
*Contacts
Idcontacts > id automatic > Clé unique
Nom
Prénom
Département
Idsociétés > Clé avec Doublons
Un projet peut avoir plusieurs sociétés.
Un projet peut avoir plusieurs Contacts
Une Société peut avoir plusieurs Projets
Une société peut avoir plusieurs contacts
Un contact peut avoir plusieurs projets.
J’ai créé les relations suivantes :
Sociétés 0,n -------- 0,1 Contacts
Contacts 0,n ------ 0,1 Projets
Projets 0,n -------- 1,1 Sociétés
Windev à alors créer un fichier de relation
*Projets_Société
Idsociété
Idprojets
Idprojet_société
C’est ce fameux fichier que je dois renseigner par des hajoute que je ne comprends pas.
J’ai donc créé une fenêtre vierge avec mes trois tables.
Une fois la société créer et ses contacts je valide le projets avec le code suivant :
// Enregistrement des informations dans le fichier Projet
Projet.Nom_du_projet=SAI_Nom_du_projet
Projet.Description=SAI_Description
HAjoute(Projet)
// Enregistrement des informations dans le fichier de relation Projet_Société
Projet_Société.IDSociété=Société.IDSociété
Projet_Société.IDProjet=Projet.IDProjet
HAjoute(Projet_Société)
Info("Votre enregistrement à bien été éffectué")
Pour l’affichage de mes tables j’utilise le code suivant :
// Affichage des sociétés du projet sélectionné
TABLE_Société..Filtre=TABLE_Projet_Société.IDSociété
// Affichage des contacts de la société selectionné
TABLE_Contacts.IDSociété..Filtre=TABLE_Projet_Société.IDSociété
Mon souci est que cela fonctionne avec un projet avec une société et ses contacts mais je ne comprends pas pour rajouter une nouvelle société avec le fichier de relation.
Pourriez vous m’éclairer un peu, je vous remercie d’avance.
Cordialement
Jean Paul
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5984&post_id=24106