Index: ProScan/UI/HomeScherm.pas
===================================================================
diff -u -r536 -r539
--- ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 536)
+++ ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 539)
@@ -20,7 +20,7 @@
     procedure FormShow(Sender: TObject);
     procedure btnHerafdrukProboxEtiketClick(Sender: TObject);
   private
-    procedure PrintLaatsteProboxInhoudEtiket(DnaCode: String);
+    procedure PrintLaatsteProboxInhoudEtiket(DnaCodes: TStringList);
   public
     { Public declarations }
   end;
@@ -54,66 +54,28 @@
   DnaCode: String;
 begin
   inherited;
-  if UiContext.LaatsteDnaCode <> '' then begin
-    PrintLaatsteProboxInhoudEtiket(UIContext.LaatsteDnaCode);
+  if UiContext.AfTeDrukkenDnaCodesStringList.Count > 0 then begin
+    PrintLaatsteProboxInhoudEtiket(UIContext.AfTeDrukkenDnaCodesStringList);
   end else begin
-    ToonPopupScherm('Laatste DNA-code niet beschikbaar', 'OK','');
+    ToonPopupScherm('Laatste DNA-codes niet beschikbaar', 'OK','');
   end;
 
 end;
 
-procedure TfmHomeScherm.PrintLaatsteProboxInhoudEtiket(DnaCode: String);
+procedure TfmHomeScherm.PrintLaatsteProboxInhoudEtiket(DnaCodes: TStringList);
 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);
+  fProboxAfdrukkenResponse := fAgent.ProboxEtiketAfdrukken(DnaCodes);
   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;
+    if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning');
     end;
   finally
-    fZoekViaDnaCodeResponse.Free;
+    fProboxAfdrukkenResponse.Free;
   end;
 end;