unit frameKlantinstellingen;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls,
  Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Datasnap.DBClient, DnaCodeService;

type
  TfrmKlantinstellingen = class(TFrame)
    cdsKlantinstellingen: TClientDataSet;
    dbgGebruikers: TDBGrid;
    Panel1: TPanel;
    btnKlantinstellingenToevoegen: TButton;
    dsKlantinstellingen: TDataSource;
    btnKlantinstellingenWijzigen: TButton;
    btnKlantinstellingenVerwijderen: TButton;
  private
    procedure VulKlantinstellingenGridMetData(Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen);
  public
    procedure ZoekAlleKlantinstellingen();
  end;

implementation

uses
  Agent, Main, UiContext;

{$R *.dfm}

{ TfrmKlantinstellingen }

procedure TfrmKlantinstellingen.ZoekAlleKlantinstellingen();
var
  fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
begin
  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false);
  try
    if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
      VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
    end else begin
      ShowMessage(fBewerkKlantinstellingenResponse.Header.Omschrijving);
    end;
  finally
    fBewerkKlantinstellingenResponse.Free;
  end;
end;

procedure TfrmKlantinstellingen.VulKlantinstellingenGridMetData(
  Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen);
var
  ii: integer;
begin
  cdsKlantinstellingen.Close;
  cdsKlantinstellingen.CreateDataSet;

  ii := 0;
  while ii <= length(Klantinstellingen)-1 do begin
    cdsKlantinstellingen.InsertRecord([Klantinstellingen[ii].KlantId,
                                       Klantinstellingen[ii].Klantnaam,
                                       Klantinstellingen[ii].IsExport]);
    ii := ii + 1;
  end;
end;

end.