/[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 3101 by torben, Mon Aug 22 21:58:10 2016 UTC revision 3123 by torben, Tue Oct 18 13:57:46 2016 UTC
# Line 17  type Line 17  type
17      procedure CheckPrintQue(tjektype : string; PrinterNavn : String);      procedure CheckPrintQue(tjektype : string; PrinterNavn : String);
18    
19      procedure PrintLabel( Stregkode : String);      procedure PrintLabel( Stregkode : String);
20        procedure PrintLabelData( LabelData : TLabelData);
21    
22      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 = '');
23    
24      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintSimpelLabel( LabelData : TLabelData) ;
25    
# Line 26  type Line 27  type
27      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
28    
29    
30      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
31    
32    
33      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
# Line 118  begin Line 119  begin
119  end;  end;
120    
121    
122  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
123  begin  begin
124    with Printer do    with Printer do
125        begin        begin
# Line 278  begin Line 279  begin
279    XMLDocument1.LoadFromXML(response);    XMLDocument1.LoadFromXML(response);
280    
281    LabelData := TLabelData.Create(XMLDocument1);    LabelData := TLabelData.Create(XMLDocument1);
282      PrintLabelData(LabelData);
283      LabelData.Free();
284    
285    
286    end;
287    
288    procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
289    begin
290    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
291    begin    begin
292      PrintZPL(LabelData.ZPL);      PrintZPL(LabelData.ZPL);
# Line 291  begin Line 299  begin
299    begin    begin
300      PrintFuldPakkeLabel(LabelData);      PrintFuldPakkeLabel(LabelData);
301    end;    end;
302    end;
303    
304    
305    
306    procedure TLabelPrint.SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
   
   
   
 end;  
   
 procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  
307  begin  begin
308      with Printer do      with Printer do
309      begin      begin
# Line 376  begin Line 379  begin
379        BeginDoc();        BeginDoc();
380    
381    
382        Canvas.Font.Size := 16;        Canvas.Font.Size := 15;
383        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
384    
385    
386    
387        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
388        Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );        Canvas.TextOut(25, 140, PakkeshopLabel.Vejnavn );
389        Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );        Canvas.TextOut(25, 190, PakkeshopLabel.Postnr );
390    
391    
392        Canvas.Font.Size := 9;        Canvas.Font.Size := 9;
# Line 713  begin Line 716  begin
716        begin        begin
717          BeginDoc;          BeginDoc;
718    
719          Canvas.Font.Size := Config.FontSizeRute;          Canvas.Font.Size := 20;
720          if (Length(LabelData.SimpelLinie1) > 7) then          Canvas.TextOut(10, 20, LabelData.SimpelLinie1);
721          begin          Canvas.TextOut(10, 120, LabelData.SimpelLinie2);
722            Canvas.Font.Size := Config.FontSizeRuteLille;          Canvas.TextOut(10, 220, LabelData.SimpelLinie3);
723          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);  
724          EndDoc;          EndDoc;
725        end;        end;
726    
Legend:
Removed from v.3101  
changed lines
  Added in v.3123
  ViewVC Help
Powered by ViewVC 1.1.20