--- dao/DelphiScanner/Main.pas	2016/10/19 06:59:57	3124
+++ dao/DelphiScanner/Main.pas	2016/10/20 07:31:23	3131
@@ -1574,7 +1574,7 @@
 
             exit;
           end;
-          if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
+          if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked) then
           begin
             PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
             pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
@@ -2059,18 +2059,16 @@
       BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
       PrintNyLabel := False;
 
-      if menuPakkeshop1.Checked then
+      try
+        PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
+      except on e:exception do
+          PrintNyLabelInteger := 0;
+      end;
+      if (PrintNyLabelInteger = 1) then
       begin
-        try
-          PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
-        except on e:exception do
-            PrintNyLabelInteger := 0;
-        end;
-        if (PrintNyLabelInteger = 1) then
-        begin
-          PrintNyLabel := True;
-        end;
+        PrintNyLabel := True;
       end;
+
      end
     else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
     begin
@@ -2403,8 +2401,6 @@
                 LabelPrint.PrintLabel( Stregkode );
               end;
             end;
-      else
-       ShowMessage('Ukendt Bladhus sted: ' + IntToStr(BladhusSted));
     end;
   end;
 
@@ -2439,10 +2435,22 @@
 
       //LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
       LabelPrint.PrintLabel( Stregkode );
+      exit;
 
     end;
   end;
 
+  // tilføjet 20161020
+  if (menuPakkeshop1.Checked OR menuPakkeshopRetur1.Checked) then
+    begin
+    if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
+    begin
+      LabelPrint.PrintLabel( Stregkode );
+      exit;
+    end;
+
+  end;
+
 end;
 
 
@@ -2903,16 +2911,15 @@
   Kommentar : String;
   BoghandlerNavn : String;
   Koreliste : String;
-  Falsk : Boolean;
-  SmsKode : String;
-  DBKbane : String;
-  Leveringssted : String;
-  LabelData : TLabelData;
+//  Falsk : Boolean;
+//  SmsKode : String;
+//  DBKbane : String;
+//  Leveringssted : String;
 begin
   RuteNummer := 'Rutenr';
   Kommentar := '***** Kommentar *****';
   BoghandlerNavn := 'Modtagernavn';
-  Falsk := False;
+//  Falsk := False;
 
 
   if (LabelPrint.GetPrinterCount() = 0) then
@@ -2931,18 +2938,10 @@
 //    Leveringssted := 'XXX';
 //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
 
-
-    LabelData := TLabelData.Create(nil);
-    LabelData.LabelType := 'simpel';
-    LabelData.SimpelLinie1 := '999999';
-    LabelData.SimpelLinie2 := '999';
-    LabelData.SimpelLinie3 := 'xxx';
-    LabelPrint.PrintLabelData(Labeldata);
+    LabelPrint.PrintTestLabel();
 
     LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
 
-    LabelData.Free();
-
   end;
   FocusControl(StregkodeST);
 end;