Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas =================================================================== diff -u -r617 -r618 --- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 617) +++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 618) @@ -307,8 +307,9 @@ // DeelVan // Kijken waar geselecteerde index ligt. Indien het een geldige selectie is, object selecteren. - if (ComboBoxDeelVan.ItemIndex > 0) and (ComboBoxDeelVan.ItemIndex < ComboBoxDeelVan.Items.Count - 1) then - ProductVerpakking.DeelVan := ApplicationContext.ProductVerpakkingContext.ProductVerpakkingen[ComboBoxDeelVan.ItemIndex] + if (ComboBoxDeelVan.ItemIndex >= 0) and (ComboBoxDeelVan.ItemIndex < ComboBoxDeelVan.Items.Count) then + ProductVerpakking.DeelVan := ApplicationContext.ProductVerpakkingContext.GetDeelVan + (ComboBoxDeelVan.Items[ComboBoxDeelVan.ItemIndex]) else // Geen 'deel van' geselecteerd. ProductVerpakking.DeelVan := nil;