Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas =================================================================== diff -u -r616 -r617 --- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 616) +++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 617) @@ -66,7 +66,7 @@ procedure UpdateGui(Sender: TObject); procedure ToonProductVerpakking(ProductVerpakking: TProductVerpakking); procedure RegistreerWijzigingenVerpakking(ProductVerpakking: TProductVerpakking); - procedure UpdateControlsEnableStatus(); + procedure UpdateControlsEnableVisibleStatus(); procedure LaadEnSelecteerWaardenComboBox(Waarden: TDictionary; ComboBox: TComboBox; GeselecteerdeWaarde: string; DefaultGeselecteerdeWaarde: string; Vertaling: TDictionary); procedure LaadEnSelecteerWaardenCheckComboBox(Waarden: TDictionary; CheckedComboBox: TCheckedComboBox; @@ -162,7 +162,7 @@ // Product aanwezig ToonProductVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking); TUtil.ToonLabelOverScherm(self, LabelGeenData, GEEN_DATA_CAPTION, true); - UpdateControlsEnableStatus(); + UpdateControlsEnableVisibleStatus(); end; procedure TFormVerpakkingDetail.LaadEnSelecteerWaardenComboBox(Waarden: TDictionary; ComboBox: TComboBox; @@ -368,7 +368,7 @@ ProductVerpakking.SetParameters(VerpakkingParameters); end; -procedure TFormVerpakkingDetail.UpdateControlsEnableStatus(); +procedure TFormVerpakkingDetail.UpdateControlsEnableVisibleStatus(); begin EditMeta.Enabled := false; EditVolumeVan.Enabled := false; @@ -380,6 +380,8 @@ // Parameters ScrollBoxParameters.visible := (ScrollBoxParameters.ControlCount > 0); LabelParameters.visible := (ScrollBoxParameters.ControlCount > 0); + // We kunnen niet opslaan bij een nieuw product zonder meta + ButtonOpslaan.Enabled := ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking.RawDefaultData <> nil; end; end.