Discussion :

[souminet]

Bonjour à tous,
pour réaliser une relation Maitre-détail entre deux tables PARADOX : La table ARTICLES (Ref_Interne, désignation, catégorie, Qte_Stock)
et la table LIVRAISON (Date_Livraison, Ref_Interne, Qte_Livrée) avec le champs : Ref_Interne comme Index secondaire (Nom: MonIndex) (Définit à travers le module base de données)
j'ai utilisé ce qui suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure TFStock.CreerRMD(Table:TTable; MSource:TDataSource; MChamps:String;Index:String);
 begin
  SupprimerRMD(Table);
  With Table do
  begin
   Active:=False;
   MasterSource:=MSource;
   MasterFields:=  MChamps;
   IndexFieldNames:=Index;
   Active:=True;
  end;
 end;

je fais appel à cette méthode à travers l'événement On Click d'un RadioButton comme suit:

Code :

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

1
2
3
4
5
6
7
8
procedure TFStock.AvecDetailClick(Sender: TObject);
begin
Sdetail.Checked:=false;
AvecDetail.Checked:=true;
PanPicture.Visible:=false;
PanLiv.Visible:=true;
CreerRMD(DataModule2.Tabllivraison, DataModule2.DataSArticcle,'Ref_Interne','Ref_Interne' )  ;
end;

Tout allait bien!!! jusqu'à ce que je je décide à travers l'interface de l'application de rajouté un nouvel enregistrement Livraison, quand je suis revenue à la fiche de la liaison maitre-détail et en cliquant sur le RadioButton pour exécuter la liaison de la relation? UN MESSAGE D'ERREUR:
---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet LGC.exe a provoqué une classe d'exception EDBEngineError avec le message 'L'index n'est pas à jour.
Index: MonIndex'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK Aide
---------------------------

Je n'ai pas compris pourquoi il demande la mise à jour de l'index et comment le faire????
Merci++++++++++++++++++++++

[Just-Soft]

Salut;

Tout allait bien

veut dire en mode consultation?

[souminet]

Salut;

veut dire en mode consultation?

Oui c'est ça, en mode consulation ça marchait, mais aprés avoir inséré une nouvelle livraison qui soit dit en passant se trouve sur une autre fiche, la liaison maître-détail ne fonctionne plus, même aprés avoir initialisé le projet!!! maintenant c'est automatique , le message d'erreur apparait à chaque tentative d'établissement de la relation maître détail.

Merci++++++++++++++++++++++++

[Just-Soft]

Re;

j'utilise souvent la relation maître détail avec une technique simple mais efficace. Elle consiste à casser la relation durant la mise à jour (ajout, suppression, modification) et la rétablir dans le cas de la consultation.

C'est vrai que pour la suppression d'un enregistrement maître il faut supprimer ses détails pour pouvoir le supprimer, pour cela, utilises l'évènement BeforeDelete de la table maître avec une boucle sur les détails.

je pense avoir été assez claire pour que tu puisses avancer.

Bon codage.

[Invité1]

Salut,

Quand tu as inséré une nouvelle livraison, ton index ‘Ref_Interne’ doit contenir un doublon c’est pour cela le message d’erreur (un index n'accepte jamais de doublons)

Je te conseil donc de :

- Supprimer ton index secondaire « mon-index »
- déclarer deux index dans ta table de sorte que leurs combinaison n’ai pas de doublons c’est deux index doivent être successifs et en premier
exemple j’ai réorganisé ta table comme suit et j’ai déclaré les champs « Ref_Interne » et « Code_Ctr » comme index de la table :

Ref_Interne *
Code_Ctr *
Date_Livraison
Designation
Qte_livree
Fournisseur

Ce n’est qu’un exemple tu peux choisir autre chose le plus important c’est que la combinaison de ces deux index n’ai pas de doublons.


Bonne chance

[souminet]

Salut,

Quand tu as inséré une nouvelle livraison, ton index ‘Ref_Interne’ doit contenir un doublon c’est pour cela le message d’erreur (un index n'accepte jamais de doublons)

Je te conseil donc de :

- Supprimer ton index secondaire « mon-index »
- déclarer deux index dans ta table de sorte que leurs combinaison n’ai pas de doublons c’est deux index doivent être successifs et en premier
exemple j’ai réorganisé ta table comme suit et j’ai déclaré les champs « Ref_Interne » et « Code_Ctr » comme index de la table :

Ref_Interne *
Code_Ctr *
Date_Livraison
Designation
Qte_livree
Fournisseur

Ce n’est qu’un exemple tu peux choisir autre chose le plus important c’est que la combinaison de ces deux index n’ai pas de doublons.


Bonne chance

Bonjour,
Oui j'ai repris la table avec deux index mais pas ceux choisi par toi, car il est possible d'avoir plus d'une livraison d'un même article et pour le même contrat, j'ai plutôt opté pour :
Ref_Interne *
Date_Livraison *
Designation
Code_Ctr
Qte_livree
Fournisseur
Mais le HIC, c'est que le message : Liaison circulaire que j'ai déja réglé au paravant, me fait des siennes à nouveau!!!

Décidemment, boucher un trou en cré un autre

Merci+++++++++++

[Invité1]

Salut,

Regarde si, la relation maitre-détail est détruite, quand tu fermes ta fiche Fstock

Je pense que le problème vient de la

Code :

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

1
2
3
4
5
6
 
procedure TFStock.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Datamodule2.TabArticle.Filtered:=false;
 SupprimerRMD(DataModule2.Tabllivraison);
end;

avec ça, ça devrait bien marcher

a+++++++++++

[souminet]

Salut,

Regarde si, la relation maitre-détail est détruite, quand tu fermes ta fiche Fstock

Je pense que le problème vient de la

Code :

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

1
2
3
4
5
6
 
procedure TFStock.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Datamodule2.TabArticle.Filtered:=false;
 SupprimerRMD(DataModule2.Tabllivraison);
end;

avec ça, ça devrait bien marcher

a+++++++++++

Crois moi sur parole (Ok c'est pas non plus la meilleure réplique compte tenu de ma personnalité mais bon !!!) ces deux lignes y sont déja!!!