Index: PlanScan/Main.pas
===================================================================
diff -u -r270 -r271
--- PlanScan/Main.pas	(.../Main.pas)	(revision 270)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 271)
@@ -28,9 +28,13 @@
     procedure btnZoekViaToeleveringClick(Sender: TObject);
     procedure btnZoekViaPalletClick(Sender: TObject);
     procedure btnZoekViaDnaCodeClick(Sender: TObject);
+    procedure btnMaatwerketiketClick(Sender: TObject);
+    procedure btnKlantEtiketClick(Sender: TObject);
+    procedure btnProboxetiketClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
+    function BepaalGeselecteerdeDnaCodes(): TStringList;
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
   end;
@@ -45,6 +49,32 @@
 
 {$R *.dfm}
 
+function TfmMain.BepaalGeselecteerdeDnaCodes: TStringList;
+begin
+  //
+end;
+
+procedure TfmMain.btnKlantEtiketClick(Sender: TObject);
+var
+  DnaCodesStringList: TStringList;
+begin
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+end;
+
+procedure TfmMain.btnMaatwerketiketClick(Sender: TObject);
+var
+  DnaCodesStringList: TStringList;
+begin
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+end;
+
+procedure TfmMain.btnProboxetiketClick(Sender: TObject);
+var
+  DnaCodesStringList: TStringList;
+begin
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+end;
+
 procedure TfmMain.btnZoekViaDnaCodeClick(Sender: TObject);
 var
   fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
@@ -59,6 +89,7 @@
       SetLength(DnaCodes,1);
       DnaCodes[0] := fZoekViaDnaCodeResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
+      btnProboxetiket.Visible := false;
     end else begin
       ShowMessage(fZoekViaDnaCodeResponse.Header.Omschrijving);
     end;
@@ -80,6 +111,7 @@
     if fZoekViaPalletResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
+      btnProboxetiket.Visible := true;
     end else begin
       ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
     end;
@@ -101,6 +133,7 @@
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
+      btnProboxetiket.Visible := false;
     end else begin
       ShowMessage(fZoekViaToeleveringResponse.Header.Omschrijving);
     end;