Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas
===================================================================
diff -u -r604 -r607
--- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas	(.../VerpakkingDetailScherm.pas)	(revision 604)
+++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas	(.../VerpakkingDetailScherm.pas)	(revision 607)
@@ -50,6 +50,7 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure ButtonOpslaanClick(Sender: TObject);
+    procedure ButtonMetaClick(Sender: TObject);
   private
     FProductsAgent: TProductsAgent;
 
@@ -120,6 +121,11 @@
   TUtil.VervangControl(ComboBoxRichting, CheckComboBoxRichting);
 end;
 
+procedure TFormVerpakkingDetail.ButtonMetaClick(Sender: TObject);
+begin
+  self.Navigator.NavigeerNaar(NAVTOONPRODUCTVERPAKKINGMETA);
+end;
+
 procedure TFormVerpakkingDetail.ButtonOpslaanClick(Sender: TObject);
 var
   ErrorMessage: string;
@@ -131,17 +137,16 @@
   FProductsAgent.OpslaanGewijzigdeProductVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking,
     ApplicationContext.UserContext, ApplicationContext.ProductVerpakkingContext);
 
+  if self.ApplicationContext.ProductVerpakkingContext.IsOK = false then
   begin
-    if self.ApplicationContext.ProductVerpakkingContext.IsOK = false then
-    begin
-      // Opzoeking gefaald
-      ErrorMessage := self.ApplicationContext.ProductVerpakkingContext.ErrorMessage;
-      if self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage <> '' then
-        ErrorMessage := ErrorMessage + sLineBreak + self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage;
+    // Opzoeking gefaald
+    ErrorMessage := self.ApplicationContext.ProductVerpakkingContext.ErrorMessage;
+    if self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage <> '' then
+      ErrorMessage := ErrorMessage + sLineBreak + self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage;
 
-      MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
-    end;
+    MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
   end;
+
 end;
 
 procedure TFormVerpakkingDetail.UpdateGui(Sender: TObject);