Index: ProScan/UI/HomeScherm.pas
===================================================================
diff -u -r534 -r536
--- ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 534)
+++ ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 536)
@@ -20,7 +20,7 @@
     procedure FormShow(Sender: TObject);
     procedure btnHerafdrukProboxEtiketClick(Sender: TObject);
   private
-
+    procedure PrintLaatsteProboxInhoudEtiket(DnaCode: String);
   public
     { Public declarations }
   end;
@@ -55,14 +55,66 @@
 begin
   inherited;
   if UiContext.LaatsteDnaCode <> '' then begin
-    DnaCode := UiContext.LaatsteDnaCode;
+    PrintLaatsteProboxInhoudEtiket(UIContext.LaatsteDnaCode);
   end else begin
-    ToonPopupScherm('Laatste DNA-Code niet beschikbaar', 'OK','');
+    ToonPopupScherm('Laatste DNA-code niet beschikbaar', 'OK','');
   end;
 
+end;
 
-  Repaint;
-  Self.ModalResult := mrHome;
+procedure TfmHomeScherm.PrintLaatsteProboxInhoudEtiket(DnaCode: String);
+var
+  fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
+  fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
+  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
+  PalletCode: String;
+  DnaCodesStringList: TStringList;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+  ii: integer;
+  fAgent: TAgent;
+begin
+  fAgent := TAgent.Create(UiContext);
+  fZoekViaDnaCodeResponse := fAgent.ZoekViaDnaCode(DnaCode);
+  fAgent.Free;
+  try
+    if fZoekViaDnaCodeResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekViaDnaCodeResponse.Header.Omschrijving, 'Bel planning','')
+    end else begin
+      PalletCode := fZoekViaDnaCodeResponse.DnaCodes.PalletCode;
+      fAgent := TAgent.Create(UiContext);
+      fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(PalletCode);
+      fAgent.Free;
+      try
+        if fZoekViaPalletCodeResponse.Header.Status <> '200' then begin
+          ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Bel planning');
+        end else begin
+          DnaCodes := fZoekViaPalletCodeResponse.DnaCodes;
+
+          DnaCodesStringList := TStringList.Create();
+          ii := 0;
+          while ii < length(DnaCodes) do begin
+            DnaCodesStringList.Add(DnaCodes[ii].DnaCode);
+            ii := ii + 1;
+          end;
+
+          fAgent := TAgent.Create(UiContext);
+          fProboxAfdrukkenResponse := fAgent.ProboxEtiketAfdrukken(DnaCodesStringList);
+          fAgent.Free;
+          try
+            if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
+              ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning');
+            end;
+          finally
+            fProboxAfdrukkenResponse.Free;
+          end;
+        end;
+      finally
+        fZoekViaPalletCodeResponse.Free;
+      end;
+    end;
+  finally
+    fZoekViaDnaCodeResponse.Free;
+  end;
 end;
 
 procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject);