Index: PlanScan/Main.pas
===================================================================
diff -u -r303 -r348
--- PlanScan/Main.pas	(.../Main.pas)	(revision 303)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 348)
@@ -7,23 +7,11 @@
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
   Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
   CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
-  DnaCodeService, Vcl.ExtCtrls, GebruikerService;
+  DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes;
 
 type
   TfmMain = class(TForm)
-    dsDnaCodes: TDataSource;
     CacheQuery1: TCacheQuery;
-    cdsDnaCodes: TClientDataSet;
-    dbgDnaCodes: TDBGrid;
-    pnlZoekKnoppen: TPanel;
-    pnlActies: TPanel;
-    btnZoekViaToelevering: TButton;
-    edtZoekInput: TEdit;
-    btnZoekViaPallet: TButton;
-    btnZoekViaDnaCode: TButton;
-    btnMaatwerketiket: TButton;
-    btnKlantEtiket: TButton;
-    btnProboxetiket: TButton;
     pcMain: TPageControl;
     tsDnaCodes: TTabSheet;
     tsGebruikers: TTabSheet;
@@ -32,23 +20,18 @@
     dbgGebruikers: TDBGrid;
     cdsGebruikers: TClientDataSet;
     dsGebruikers: TDataSource;
-    procedure btnZoekViaToeleveringClick(Sender: TObject);
-    procedure btnZoekViaPalletClick(Sender: TObject);
-    procedure btnZoekViaDnaCodeClick(Sender: TObject);
-    procedure btnMaatwerketiketClick(Sender: TObject);
-    procedure btnKlantEtiketClick(Sender: TObject);
-    procedure btnProboxetiketClick(Sender: TObject);
+    pnlLinks: TPanel;
+    frmDnaCodes: TfrmDnaCodes;
+    Panel2: TPanel;
+    pnlKnoppen: TPanel;
     procedure tsGebruikersShow(Sender: TObject);
     procedure btnGebruikerAfmeldenClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     fUiContext: TUiContext;
-    procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
     procedure VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
-    function BepaalGeselecteerdeDnaCodes(): TStringList;
-    function GeefAlleDnaCodesUitGrid(): TStringList;
     procedure ZoekAlleGebruikers();
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
@@ -60,7 +43,7 @@
 implementation
 
 uses
-  Agent, typinfo, System.StrUtils, LoginScherm;
+  Agent, System.StrUtils, LoginScherm;
 
 {$R *.dfm}
 
@@ -80,99 +63,6 @@
   ZoekAlleGebruikers();
 end;
 
-procedure TfmMain.btnKlantEtiketClick(Sender: TObject);
-var
-  DnaCodesStringList: TStringList;
-begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
-  //relevante webmethod oproepen
-end;
-
-procedure TfmMain.btnMaatwerketiketClick(Sender: TObject);
-var
-  DnaCodesStringList: TStringList;
-begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
-  //relevante webmethod oproepen
-end;
-
-procedure TfmMain.btnProboxetiketClick(Sender: TObject);
-var
-  DnaCodesStringList: TStringList;
-  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
-begin
-  DnaCodesStringList := GeefAlleDnaCodesUitGrid();
-  fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
-  try
-    if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
-      ShowMessage(fProboxAfdrukkenResponse.Header.Omschrijving)
-    end else begin
-      Self.ModalResult := mrPallet;
-    end;
-  finally
-    fProboxAfdrukkenResponse.Free;
-  end;
-end;
-
-procedure TfmMain.btnZoekViaDnaCodeClick(Sender: TObject);
-var
-  fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
-  DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
-  fZoekViaDnaCodeResponse := TAgent.Create(UiContext).ZoekViaDnaCode(edtZoekInput.Text);
-  try
-    if fZoekViaDnaCodeResponse.Header.Status = '200' then begin
-      SetLength(DnaCodes,1);
-      DnaCodes[0] := fZoekViaDnaCodeResponse.DnaCodes;
-      VulDnaCodeGridMetData(DnaCodes);
-      btnProboxetiket.Visible := false;
-    end else begin
-      ShowMessage(fZoekViaDnaCodeResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekViaDnaCodeResponse.Free;
-  end;
-end;
-
-procedure TfmMain.btnZoekViaPalletClick(Sender: TObject);
-var
-  fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
-  DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
-  fZoekViaPalletResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtZoekInput.Text);
-  try
-    if fZoekViaPalletResponse.Header.Status = '200' then begin
-      DnaCodes := fZoekViaPalletResponse.DnaCodes;
-      VulDnaCodeGridMetData(DnaCodes);
-      if StartsText('TBP',edtZoekInput.Text) then
-        btnProboxetiket.Visible := true;
-    end else begin
-      ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekViaPalletResponse.Free;
-  end;
-end;
-
-procedure TfmMain.btnZoekViaToeleveringClick(Sender: TObject);
-var
-  fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
-  DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
-  fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(edtZoekInput.Text);
-  try
-    if fZoekViaToeleveringResponse.Header.Status = '200' then begin
-      DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
-      VulDnaCodeGridMetData(DnaCodes);
-      btnProboxetiket.Visible := false;
-    end else begin
-      ShowMessage(fZoekViaToeleveringResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekViaToeleveringResponse.Free;
-  end;
-end;
-
 procedure TfmMain.FormCreate(Sender: TObject);
 begin
   UiContext := TUiContext.Create();
@@ -219,34 +109,6 @@
   TAgent.Create(UiContext).GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);
 end;
 
-function TfmMain.BepaalGeselecteerdeDnaCodes: TStringList;
-var
-  DnaCodesStringList: TStringList;
-  RijTeller: integer;
-begin
-  DnaCodesStringList := TStringList.Create();
-  if dbgDnaCodes.SelectedRows.Count > 0 then begin
-    for rijteller := 0 to dbgDnaCodes.SelectedRows.Count - 1 do begin
-      dbgDnaCodes.DataSource.DataSet.GotoBookmark(Pointer(dbgDnaCodes.SelectedRows.Items[rijteller]));
-      DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
-    end;
-  end;
-  result := DnaCodesStringList;
-end;
-
-function TfmMain.GeefAlleDnaCodesUitGrid: TStringList;
-var
-  DnaCodesStringList: TStringList;
-begin
-  DnaCodesStringList := TStringList.Create();
-  dbgDnaCodes.DataSource.DataSet.First;
-  while not dbgDnaCodes.DataSource.DataSet.Eof do begin
-    DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
-    dbgDnaCodes.DataSource.DataSet.Next;
-  end;
-  result := DnaCodesStringList;
-end;
-
 procedure TfmMain.tsGebruikersShow(Sender: TObject);
 begin
   UiContext.LoginCode := '1513';
@@ -270,32 +132,6 @@
   end;
 end;
 
-procedure TfmMain.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
-var
-  ii: integer;
-  ScanTijdstipAsString: string;
-begin
-  cdsDnaCodes.Close;
-  cdsDnaCodes.CreateDataSet;
-
-  ii := 0;
-  while ii <= length(DnaCodes)-1 do begin
-    if DnaCodes[ii].ScanTijdstip = nil then
-      ScanTijdstipAsString := ''
-    else
-      ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsUTCDateTime);
-
-    cdsDnaCodes.InsertRecord([DnaCodes[ii].DnaCode,
-                              DnaCodes[ii].PalletCode,
-                              DnaCodes[ii].Toelevering,
-                              GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
-                              DnaCodes[ii].BatchId,
-                              ScanTijdstipAsString,
-                              DnaCodes[ii].InitialenScanner]);
-    ii := ii + 1;
-  end;
-end;
-
 procedure TfmMain.VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
 var
   ii: integer;