--- dao/DelphiScanner/LabelPrint.pas	2016/07/28 20:03:18	3076
+++ dao/DelphiScanner/LabelPrint.pas	2016/07/28 21:25:58	3077
@@ -16,9 +16,12 @@
 
     procedure CheckPrintQue(tjektype : string; PrinterNavn : String);
 
+    procedure PrintLabel( Stregkode : String);
+
     procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 
-    procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
+    procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);
+
 
     procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
 
@@ -48,7 +51,8 @@
   Windows,
   SysUtils, //Format
   Math, // DegToRad() bruges i PrintPakkeshopLabel
-  Forms
+  Forms,
+  IdHTTP
   ;
 
 
@@ -225,6 +229,30 @@
 end;
 
 
+procedure TLabelPrint.PrintLabel( Stregkode : String);
+var
+  url: String;
+  response: String;
+
+  httpClient: TIdHTTP;
+
+
+
+begin
+  url := Config.BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=' + Trim(Stregkode);
+
+  httpClient := TIdHTTP.Create();
+  httpClient.ReadTimeout := 1000;//max 1 secound
+  httpClient.ConnectTimeout := 1000;
+
+  response := httpClient.Get(url);
+  httpClient.Free();
+
+
+
+
+end;
+
 procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 begin
     with Printer do
@@ -270,7 +298,7 @@
 
 
 // ToDo: PrintPakkeshopLabel()
-procedure TLabelPrint.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
+procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);
 var
   XForm, XFormOld: TXForm; //Bruges til rotate X-formation
   Angle: integer;
@@ -297,15 +325,16 @@
 
 
       // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte
-      if (  (PakkeshopLabel.Shop2Direkte = '') OR (PakkeshopLabel.Shop2Direkte = '0')  ) then
+      if (  PakkeshopLabel.PakkeshopNavn <> ''  ) then
       begin
         Canvas.TextOut(110, 240, 'Pakkeshop:');
+        Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
+        Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
+        Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
+
       end;
 
 
-      Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
-      Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
-      Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
 
       Canvas.TextOut(350, 240, 'Afsender:');
       Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);