Index: VerpakkingsDefinitie/UI/ProductMetaScherm.pas =================================================================== diff -u -r608 -r609 --- VerpakkingsDefinitie/UI/ProductMetaScherm.pas (.../ProductMetaScherm.pas) (revision 608) +++ VerpakkingsDefinitie/UI/ProductMetaScherm.pas (.../ProductMetaScherm.pas) (revision 609) @@ -18,7 +18,6 @@ procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ComboBoxGroepChange(Sender: TObject); - procedure ListViewMetasClick(Sender: TObject); procedure ListViewMetasSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); private FNavigator: INavigator; @@ -109,8 +108,19 @@ procedure TFormVerpakkingMeta.ListViewMetasSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin - // Registreer binnen agent + if Selected and (Item.Index > 0) then + begin + // Registreer binnen agent + FProductsAgent.KiesProductVerpakkingMeta(Item.Data, FApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking, + FApplicationContext.UserContext, FApplicationContext.ProductVerpakkingContext, + FApplicationContext.ProductVerpakkingMetaContext); + VerwerkProductAgentCall(); + + if FApplicationContext.ProductVerpakkingMetaContext.IsOK then + // Meta selecteren gelukt, scherm afsluiten. + self.Close(); + end; end; procedure TFormVerpakkingMeta.VerwerkProductAgentCall();