Index: VerpakkingsDefinitie/UI/ZoekProductenScherm.pas =================================================================== diff -u -r559 -r570 --- VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 559) +++ VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 570) @@ -69,10 +69,12 @@ var ErrorMessage: string; begin - FProductAgent.ZoekOpMetKortTekst(EditZoek.Text, EditKlantNr.Text, ComboBoxAt.Text, self.ApplicationContext.UserContext, - self.ApplicationContext.ProductsContext); + // 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); - if ApplicationContext.ProductsContext.IsOK = False then + if ApplicationContext.ProductsContext.IsOK = false then begin // Opzoeking gefaald ErrorMessage := ApplicationContext.ProductsContext.ErrorMessage;