Index: VerpakkingsDefinitie/UI/ZoekProductenScherm.pas =================================================================== diff -u -r570 -r571 --- VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 570) +++ VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 571) @@ -63,16 +63,17 @@ ComboBoxAt.AddItem('', nil); // Default value ComboBoxAt.ItemIndex := 0; + + // Vorige opzoeking is ongeldig + self.ApplicationContext.ProductsContext.reset() end; procedure TFormZoekProducten.ButtonZoekViaKortTekstClick(Sender: TObject); var ErrorMessage: string; begin - // FProductAgent.ZoekOpMetKortTekst(EditZoek.Text, EditKlantNr.Text, ComboBoxAt.Text, self.ApplicationContext.UserContext, - // self.ApplicationContext.ProductsContext); - FProductAgent.ZoekOpMetKortTekst('TA # ERINGS01CUBIMAX R XX', EditKlantNr.Text, ComboBoxAt.Text, - self.ApplicationContext.UserContext, self.ApplicationContext.ProductsContext); + FProductAgent.ZoekOpMetKortTekst(EditZoek.Text, EditKlantNr.Text, ComboBoxAt.Text, self.ApplicationContext.UserContext, + self.ApplicationContext.ProductsContext); if ApplicationContext.ProductsContext.IsOK = false then begin