Index: VerpakkingsDefinitie/UI/GevondenProductenScherm.pas
===================================================================
diff -u -r593 -r594
--- VerpakkingsDefinitie/UI/GevondenProductenScherm.pas	(.../GevondenProductenScherm.pas)	(revision 593)
+++ VerpakkingsDefinitie/UI/GevondenProductenScherm.pas	(.../GevondenProductenScherm.pas)	(revision 594)
@@ -54,31 +54,16 @@
 end;
 
 procedure TFormGevondenProducten.ListViewProductenSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
-var
-  ErrorMessage: string;
 begin
   if (Selected = false) or (Item = nil) or (Item.Data = nil) then
     exit;
+  // Product selectie registreren. Observatie uitzetten want dit scherm zet de selectie, reageert er niet op.
+  self.FSubjectObserver.Enabled := false;
   ApplicationContext.ProductsContext.GeselecteerdProduct := Item.Data;
-  // ApplicationContext.ProductDetailContext.NotifyChanged();
-  FProductsAgent.ZoekProductDataMetProductNr(TProductInformatie(Item.Data).ProductNr, self.ApplicationContext.UserContext,
-    self.ApplicationContext.ProductVerpakkingContext);
+  ApplicationContext.ProductsContext.NotifyChanged(); { TODO : Vervangen door notify changed in setter }
+  self.FSubjectObserver.Enabled := True;
 
-  if self.ApplicationContext.ProductVerpakkingContext.IsOK then
-    // Gelukt
-    Navigator.NavigeerNaar(NAVTOONPRODUCT)
-  else
-  begin
-    // Opzoeking gefaald
-    ErrorMessage := self.ApplicationContext.ProductVerpakkingContext.ErrorMessage;
-    if self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage <> '' then
-    begin
-      ErrorMessage := ErrorMessage + sLineBreak + self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage;
-    end;
-
-    MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
-    self.ApplicationContext.ProductVerpakkingContext.Reset();
-  end;
+  self.Navigator.NavigeerNaar(NAVTOONPRODUCT);
 end;
 
 procedure TFormGevondenProducten.UpdateGui(Sender: TObject);