/[projects]/dao/DelphiScanner/LabelPrint.pas
ViewVC logotype

Diff of /dao/DelphiScanner/LabelPrint.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3047 by torben, Mon Jun 13 08:54:20 2016 UTC revision 3086 by torben, Mon Aug 15 12:44:21 2016 UTC
# Line 16  type Line 16  type
16    
17      procedure CheckPrintQue(tjektype : string; PrinterNavn : String);      procedure CheckPrintQue(tjektype : string; PrinterNavn : String);
18    
19        procedure PrintLabel( Stregkode : String);
20    
21      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
22    
23      procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);
24    
25    
26      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
27    
# Line 48  uses Line 51  uses
51    Windows,    Windows,
52    SysUtils, //Format    SysUtils, //Format
53    Math, // DegToRad() bruges i PrintPakkeshopLabel    Math, // DegToRad() bruges i PrintPakkeshopLabel
54    Forms    Forms,
55      IdHTTP
56    ;    ;
57    
58    
# Line 110  begin Line 114  begin
114    with Printer do    with Printer do
115        begin        begin
116          BeginDoc;          BeginDoc;
117    
118          Canvas.Font.Size := Config.FontSizeRute;          Canvas.Font.Size := Config.FontSizeRute;
119          if (Length(RuteNummer) > 7) then          if (Length(RuteNummer) > 7) then
120          begin          begin
# Line 131  begin Line 136  begin
136          Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn);          Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn);
137          EndDoc;          EndDoc;
138        end;        end;
139    
140    
141    
142      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
143    
144  end;  end;
145    
146    
# Line 222  begin Line 232  begin
232          ClosePrinter(hPrinter);          ClosePrinter(hPrinter);
233      end;      end;
234    end;    end;
235    
236    
237      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
238    
239  end;  end;
240    
241    
242    procedure TLabelPrint.PrintLabel( Stregkode : String);
243    var
244      url: String;
245      response: String;
246    
247      httpClient: TIdHTTP;
248    
249    
250    
251    begin
252      url := Config.BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=' + Trim(Stregkode);
253    
254      httpClient := TIdHTTP.Create();
255      httpClient.ReadTimeout := 1000;//max 1 secound
256      httpClient.ConnectTimeout := 1000;
257    
258      response := httpClient.Get(url);
259      httpClient.Free();
260    
261    
262    
263    
264    end;
265    
266  procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
267  begin  begin
268      with Printer do      with Printer do
# Line 265  begin Line 303  begin
303    
304        EndDoc;        EndDoc;
305      end;      end;
306    
307    
308        Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
309    
310  end;  end;
311    
312    
313    
314  // ToDo: PrintPakkeshopLabel()  // ToDo: PrintPakkeshopLabel()
315  procedure TLabelPrint.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);  procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);
316  var  var
317    XForm, XFormOld: TXForm; //Bruges til rotate X-formation    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
318    Angle: integer;    Angle: integer;
# Line 297  begin Line 339  begin
339    
340    
341        // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte        // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte
342        if (  (PakkeshopLabel.Shop2Direkte = '') OR (PakkeshopLabel.Shop2Direkte = '0')  ) then        if (  PakkeshopLabel.PakkeshopNavn <> ''  ) then
343        begin        begin
344          Canvas.TextOut(110, 240, 'Pakkeshop:');          Canvas.TextOut(110, 240, 'Pakkeshop:');
345            Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
346            Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
347            Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
348    
349        end;        end;
350    
351    
       Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);  
       Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);  
       Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);  
352    
353        Canvas.TextOut(350, 240, 'Afsender:');        Canvas.TextOut(350, 240, 'Afsender:');
354        Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);        Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);
# Line 387  begin Line 430  begin
430      end;      end;
431    
432    
433      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
434    
435  end;  end;
436    
437    
Legend:
Removed from v.3047  
changed lines
  Added in v.3086
  ViewVC Help
Powered by ViewVC 1.1.20