Index: PlanScan/UI/frameKlantinstellingen.dfm =================================================================== diff -u -r364 -r369 --- PlanScan/UI/frameKlantinstellingen.dfm (.../frameKlantinstellingen.dfm) (revision 364) +++ PlanScan/UI/frameKlantinstellingen.dfm (.../frameKlantinstellingen.dfm) (revision 369) @@ -10,6 +10,7 @@ Width = 513 Height = 480 Align = alClient + DataSource = dsKlantinstellingen Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET Index: PlanScan/Main.pas =================================================================== diff -u -r365 -r369 --- PlanScan/Main.pas (.../Main.pas) (revision 365) +++ PlanScan/Main.pas (.../Main.pas) (revision 369) @@ -102,6 +102,7 @@ procedure TfmMain.lblWegwerppalletClick(Sender: TObject); begin + frmKlantinstellingen.ZoekAlleKlantinstellingen; pcFrames.ActivePage := tsKlantinstellingen; ZetLinkseKnopGrijs(2) end; Index: PlanScan/UI/frameKlantinstellingen.pas =================================================================== diff -u -r368 -r369 --- PlanScan/UI/frameKlantinstellingen.pas (.../frameKlantinstellingen.pas) (revision 368) +++ PlanScan/UI/frameKlantinstellingen.pas (.../frameKlantinstellingen.pas) (revision 369) @@ -19,7 +19,7 @@ private procedure VulKlantinstellingenGridMetData(Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); public - procedure ZoekAlleGebruikers(); + procedure ZoekAlleKlantinstellingen(); end; implementation @@ -31,7 +31,7 @@ { TfrmKlantinstellingen } -procedure TfrmKlantinstellingen.ZoekAlleGebruikers(); +procedure TfrmKlantinstellingen.ZoekAlleKlantinstellingen(); var fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse; begin