Discussion :

[codial]

Bonjour,

j'ai créé une relation maitre-detail entre une table Maitre (Livraisons) ayant pour clé un champ LIV_ID et une table detail (Sorties) avec le champ LIV_ID de la table maitre.
La table maitre comprend une liste de bon de commande et la table detail le détail des bons de commande:
Sa structure:
SOR_ID Clé de la table Détail
LIV_ID Clé de la table maitre
.../...

Cette relation fonctionne bien, lorsque je sélectionne un enregistrement dans la table maitre j'ai bien le détail qui s'affiche.

Où je bloque c'est pour mettre à jour ma table detail:
Comment insérer dans la table détail la valeur du champ LIV_ID de la table maitre?

J'utilise des IBDataset et dans la table detail j'ai mis dans InsertSQL:

Code :

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

1
2
3
4
INSERT INTO SORTIES
  ( SOR_ID, PRO_ID,  LIV_ID, SOR_DATEMVT, SOR_QTE,SOR_PRIX,SOR_REF,SOR_DESCRIPTION,SOR_DUS)
VALUES  ( :SOR_ID, :PRO_ID, :LIV_ID, :SOR_DATEMVT,:SOR_QTE,:SOR_PRIX,:SOR_REF,:SOR_DESCRIPTION,:SOR_DUS)

mais ça ne marche pas j'ai un message d'erreur me disant que le champ LIV_ID doit avoir une valeur.

Pour créer cette relation j'ai mis pour ma table détail le datasource de la table maitre et j'ai fait un SelectSQL

Code :

Code :

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

1
2
 
SELECT * FROM sorties   WHERE liv_id= :liv_id

Voilà mon souci du moment

Cordialement

Codial

[Cl@udius]

salut,

Dans l'event AfterInsert de ta table détail, tu renseignes la valeur de ta clé !

Code :

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

1
2
 
  TaTableDetail.FieldByName('LIV_ID').AsInteger := TaTableMaitre.FieldByName('LIV_ID').AsInteger;

Et c'est tout !

@+ Claudius

[codial]

bonjour,

merci beaucoup pour cette réponse

Codial

[codial]

Re,

En fait j'avais pensé à cette solution mais le problème c'est que les IBDataSet n'acceptent pas les .FieldByName !!!

[codial]

Re,

En fait je viens de contourner le problème en remplaçant

Code :

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

1
2
 
TaTableDetail.FieldByName('LIV_ID').AsInteger := TaTableMaitre.FieldByName('LIV_ID').AsInteger;

Par le nom du champ persistant:

Code :

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

1
2
3
4
5
 
procedure TDM.IBDSortiesAfterInsert(DataSet: TDataSet);
begin
  Dataset.FieldByName('LIV_ID').asInteger:= DM.IBDLivraisonsLIV_ID.value;
end;

Encore merci pour la piste