frsalabert

Remove the 'Lignes Commandes' in your 11th row:

t.('Désignation' := d)

Just looking at your code you can clean it up with some simple changes

1. 'Commande?' = true and  'Commande?' are the same thing

2. You don't then need a second if to test for false.

2. t.ID and t are the same thing

let key := this;
if 'Commande?' then
   let t := (create 'Lignes Commandes');
   let d := Offres.Options.'Fiche Option'.Designation;
   'Purchase Order Primary Key' := t
   t.(OPTIONS := key;
      'Lignes Commandes'.'Designation' := d)
else
   let pk := 'Purchase Order Primary Key';
   delete (select 'Lignes Commandes' where ID = pk)
end

In your select, are you sure you want ID = pk? It looks like you are testing for a primary key in one table equalling a primary key in another.

Regards John

Sorry, from your original issue, it should be

let key := this;
if 'Commande?' then
   let t := (create 'Lignes Commandes');
   let d := Offres.Options.'Fiche Option'.Designation;
   'Purchase Order Primary Key' := t
   t.(OPTIONS := key;
      'Designation' := d)
else
   let pk := 'Purchase Order Primary Key';
   delete (select 'Lignes Commandes' where ID = pk)
end

Regards John

The reason why you need to remove 'Lignes Commandes' is because you are already in the Lignes Commandes table. You use the variable t. Which is a reference to the create() command a few lines above, which you point to the Lignes Commandes table.