Index: PlanScan/Main.pas
===================================================================
diff -u -r274 -r275
--- PlanScan/Main.pas	(.../Main.pas)	(revision 274)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 275)
@@ -83,9 +83,19 @@
 procedure TfmMain.btnProboxetiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
+  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
 begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
-  //relevante webmethod oproepen
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
+  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);