--- dao/DelphiScanner/LabelPrint.pas	2016/08/23 06:58:31	3103
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/18 13:57:46	3123
@@ -17,8 +17,9 @@
     procedure CheckPrintQue(tjektype : string; PrinterNavn : String);
 
     procedure PrintLabel( Stregkode : String);
+    procedure PrintLabelData( LabelData : TLabelData);
 
-    procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
+    procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 
     procedure PrintSimpelLabel( LabelData : TLabelData) ;
 
@@ -26,7 +27,7 @@
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
 
 
-    procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+    procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
 
 
     function GetPrinterCount() : Integer;
@@ -118,7 +119,7 @@
 end;
 
 
-procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
 begin
   with Printer do
       begin
@@ -278,7 +279,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 +299,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 +716,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;