--- dao/DelphiScanner/LabelPrint.pas	2016/08/23 06:58:31	3103
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/19 06:59:57	3124
@@ -18,18 +18,16 @@
 
     procedure PrintLabel( Stregkode : String);
 
-    procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
-
-    procedure PrintSimpelLabel( LabelData : TLabelData) ;
 
 
-    procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
+    // PrintLabelData bliver brugt til PrinterTest
+    // og blicer derfor nødt til at være Public
+    procedure PrintLabelData( LabelData : TLabelData);
 
 
-    procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+    function GetPrinterCount() : Integer;
 
 
-    function GetPrinterCount() : Integer;
 
   private
     parentForm : IParentForm;
@@ -39,9 +37,17 @@
 
     procedure PrintZPL( ZplData : string);
 
+
+    procedure PrintSimpelLabel( LabelData : TLabelData) ;
+
+    procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
 
+    procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
+    procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+
+
 
     function SavePChar(p: PChar): PChar;
     function GetCurrentPrinterHandle(): THandle;
@@ -118,7 +124,7 @@
 end;
 
 
-procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
 begin
   with Printer do
       begin
@@ -278,7 +284,14 @@
   XMLDocument1.LoadFromXML(response);
 
   LabelData := TLabelData.Create(XMLDocument1);
+  PrintLabelData(LabelData);
+  LabelData.Free();
+
+
+end;
 
+procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
+begin
   if LabelData.LabelType = 'zpl' then
   begin
     PrintZPL(LabelData.ZPL);
@@ -291,16 +304,11 @@
   begin
     PrintFuldPakkeLabel(LabelData);
   end;
+end;
 
 
 
-
-
-
-
-end;
-
-procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
+procedure TLabelPrint.SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 begin
     with Printer do
     begin
@@ -713,25 +721,11 @@
       begin
         BeginDoc;
 
-        Canvas.Font.Size := Config.FontSizeRute;
-        if (Length(LabelData.SimpelLinie1) > 7) then
-        begin
-          Canvas.Font.Size := Config.FontSizeRuteLille;
-        end;
-        Canvas.TextOut(Config.XPosRute, Config.YPosRute, LabelData.SimpelLinie1);
-        Canvas.Font.Size := Config.FontSizeKommentar;
-        LabelData.SimpelLinie2 := StringReplace(LabelData.SimpelLinie2, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
-        if (LabelData.SimpelLinie2 = 'Ok') or (LabelData.SimpelLinie2 = 'ALLEREDE SCANNET') then
-        begin
-          LabelData.SimpelLinie2 := '';
-        end;
-        if (LabelData.SimpelLinie3 = 'PAKKE ER SCANNET') then
-        begin
-          LabelData.SimpelLinie3 := '';
-        end;
-        Canvas.TextOut(Config.XPosKommentar, Config.YPosKommentar, LabelData.SimpelLinie2);
-        Canvas.Font.Size := Config.FontSizeBoghandler;
-        Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, LabelData.SimpelLinie3);
+        Canvas.Font.Size := 20;
+        Canvas.TextOut(10, 20, LabelData.SimpelLinie1);
+        Canvas.TextOut(10, 120, LabelData.SimpelLinie2);
+        Canvas.TextOut(10, 220, LabelData.SimpelLinie3);
+
         EndDoc;
       end;