Index: ProScan/UI/HomeScherm.pas
===================================================================
diff -u -r396 -r664
--- ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 396)
+++ ProScan/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 664)
@@ -4,20 +4,23 @@
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList, DnaCodeService, AfdrukService,
   Vcl.StdCtrls, Images, Vcl.ExtCtrls;
 
 type
   TfmHomeScherm = class(TfmDrieKnoppenScherm)
     btnHernoemPallet: TButton;
     btnAfmeldenProducten: TButton;
     btnUitloggen: TButton;
+    btnHerafdrukProboxInhoudEtiket: TButton;
     procedure actAfsluitenExecute(Sender: TObject);
     procedure btnAfmeldenProductenClick(Sender: TObject);
     procedure btnHernoemPalletClick(Sender: TObject);
     procedure btnUitloggenClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure btnHerafdrukProboxEtiketClick(Sender: TObject);
   private
-    { Private declarations }
+    procedure PrintLaatsteProboxInhoudEtiket(DnaCodes: TStringList);
   public
     { Public declarations }
   end;
@@ -28,7 +31,7 @@
 implementation
 
 uses
-  UiContext, ProScanMain;
+  UiContext, Agent, CommonFunctions, ProScanMain;
 
 {$R *.dfm}
 
@@ -46,6 +49,34 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet);
 end;
 
+procedure TfmHomeScherm.btnHerafdrukProboxEtiketClick(Sender: TObject);
+begin
+  inherited;
+  if UiContext.LaatstAfgedrukteDnaCodes.Count > 0 then begin
+    PrintLaatsteProboxInhoudEtiket(UIContext.LaatstAfgedrukteDnaCodes);
+  end else begin
+    ToonPopupScherm('Laatste DNA-codes niet beschikbaar', 'OK','');
+  end;
+
+end;
+
+procedure TfmHomeScherm.PrintLaatsteProboxInhoudEtiket(DnaCodes: TStringList);
+var
+  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
+  fAgent: TAgent;
+begin
+  fAgent := TAgent.Create(UiContext);
+  fProboxAfdrukkenResponse := fAgent.ProboxEtiketAfdrukken(DnaCodes);
+  fAgent.Free;
+  try
+    if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning');
+    end;
+  finally
+    fProboxAfdrukkenResponse.Free;
+  end;
+end;
+
 procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject);
 begin
   inherited;
@@ -63,4 +94,11 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrLogin);
 end;
 
+procedure TfmHomeScherm.FormShow(Sender: TObject);
+begin
+  inherited;
+  UiContext.Toelevering := '';
+  UiContext.Pallet := '';
+end;
+
 end.