--- dao/DelphiScanner/LabelPrint.pas	2016/08/23 06:58:31	3103
+++ dao/DelphiScanner/LabelPrint.pas	2016/08/23 08:15:42	3104
@@ -17,6 +17,7 @@
     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 = '');
 
@@ -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,15 +299,10 @@
   begin
     PrintFuldPakkeLabel(LabelData);
   end;
+end;
 
 
 
-
-
-
-
-end;
-
 procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 begin
     with Printer do
@@ -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;