Index: VerpakkingsDefinitie/UI/ZoekProductenScherm.pas =================================================================== diff -u -r576 -r592 --- VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 576) +++ VerpakkingsDefinitie/UI/ZoekProductenScherm.pas (.../ZoekProductenScherm.pas) (revision 592) @@ -57,15 +57,15 @@ procedure VerwerkOpzoeking(); procedure ComboBoxBeperkUpdatet(ComboBox: TComboBox; EditText: TEdit); public - Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; + Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext; ProductAgent: TProductsAgent); end; implementation {$R *.dfm} -constructor TFormZoekProducten.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; +constructor TFormZoekProducten.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext; ProductAgent: TProductsAgent); begin inherited Create(AOwner, Navigator, ApplicationContext); @@ -148,12 +148,9 @@ else raise Exception.Create('Ongeldige waarde geselecteerd'); - // FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.KortTekst, - // EditZoekKortTekst.text, KlantNummer, LeveranciersNummer, '', ''); + FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.KortTekst, + EditZoekKortTekst.text, KlantNummer, LeveranciersNummer, '', ''); - FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.KortTekst, - 'TA#ERINGS01CUBIMAX R XX', KlantNummer, LeveranciersNummer, '', ''); - VerwerkOpzoeking(); end;