--- dao/DelphiScanner/LabelPrint.pas	2016/08/22 21:58:10	3101
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/20 06:03:56	3129
@@ -18,18 +18,13 @@
 
     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 PrintTestLabel();
 
-    procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
 
-
-    procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+    function GetPrinterCount() : Integer;
 
 
-    function GetPrinterCount() : Integer;
 
   private
     parentForm : IParentForm;
@@ -39,9 +34,17 @@
 
     procedure PrintZPL( ZplData : string);
 
+    procedure PrintLabelData( LabelData : TLabelData);
+    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 +121,7 @@
 end;
 
 
-procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
 begin
   with Printer do
       begin
@@ -278,7 +281,29 @@
   XMLDocument1.LoadFromXML(response);
 
   LabelData := TLabelData.Create(XMLDocument1);
+  PrintLabelData(LabelData);
+  LabelData.Free();
+
+
+end;
+
+procedure TLabelPrint.PrintTestLabel();
+var
+  LabelData : TLabelData;
+begin
+  LabelData := TLabelData.Create(nil);
+  LabelData.LabelType := 'simpel';
+  LabelData.SimpelLinie1 := 'Test Label';
+  LabelData.SimpelLinie2 := 'Test Label';
+  LabelData.SimpelLinie3 := 'Test Label';
+
+  PrintLabelData(Labeldata);
+
+  LabelData.Free();
+end;
 
+procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
+begin
   if LabelData.LabelType = 'zpl' then
   begin
     PrintZPL(LabelData.ZPL);
@@ -291,16 +316,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
@@ -376,14 +396,14 @@
       BeginDoc();
 
 
-      Canvas.Font.Size := 16;
+      Canvas.Font.Size := 15;
       Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
 
 
 
       Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
-      Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );
-      Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );
+      Canvas.TextOut(25, 140, PakkeshopLabel.Vejnavn );
+      Canvas.TextOut(25, 190, PakkeshopLabel.Postnr );
 
 
       Canvas.Font.Size := 9;
@@ -713,25 +733,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;