/[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 3099 by torben, Mon Aug 22 18:27:30 2016 UTC revision 3124 by torben, Wed Oct 19 06:59:57 2016 UTC
# Line 18  type Line 18  type
18    
19      procedure PrintLabel( Stregkode : String);      procedure PrintLabel( Stregkode : String);
20    
     procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  
21    
     procedure PrintSimpelLabel( LabelData : TLabelData) ;  
22    
23      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      // PrintLabelData bliver brugt til PrinterTest
24      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);      // og blicer derfor nødt til at være Public
25      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);      procedure PrintLabelData( LabelData : TLabelData);
26    
27    
28      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      function GetPrinterCount() : Integer;
29    
     procedure PrintZPL( ZplData : string);  
30    
     function GetPrinterCount() : Integer;  
31    
32    private    private
33      parentForm : IParentForm;      parentForm : IParentForm;
# Line 39  type Line 35  type
35      var Config: TConfiguration;      var Config: TConfiguration;
36    
37    
38        procedure PrintZPL( ZplData : string);
39    
40    
41        procedure PrintSimpelLabel( LabelData : TLabelData) ;
42    
43        procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
44        procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
45        procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
46    
47        procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
48        procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
49    
50    
51    
52      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
53      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
54    
# Line 114  begin Line 124  begin
124  end;  end;
125    
126    
127  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
128  begin  begin
129    with Printer do    with Printer do
130        begin        begin
# Line 274  begin Line 284  begin
284    XMLDocument1.LoadFromXML(response);    XMLDocument1.LoadFromXML(response);
285    
286    LabelData := TLabelData.Create(XMLDocument1);    LabelData := TLabelData.Create(XMLDocument1);
287      PrintLabelData(LabelData);
288      LabelData.Free();
289    
290    
291    end;
292    
293    procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
294    begin
295    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
296    begin    begin
297      PrintZPL(LabelData.ZPL);      PrintZPL(LabelData.ZPL);
# Line 287  begin Line 304  begin
304    begin    begin
305      PrintFuldPakkeLabel(LabelData);      PrintFuldPakkeLabel(LabelData);
306    end;    end;
307    end;
308    
309    
310    
311    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 = '');  
312  begin  begin
313      with Printer do      with Printer do
314      begin      begin
# Line 372  begin Line 384  begin
384        BeginDoc();        BeginDoc();
385    
386    
387        Canvas.Font.Size := 16;        Canvas.Font.Size := 15;
388        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
389    
390    
391    
392        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
393        Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );        Canvas.TextOut(25, 140, PakkeshopLabel.Vejnavn );
394        Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );        Canvas.TextOut(25, 190, PakkeshopLabel.Postnr );
395    
396    
397        Canvas.Font.Size := 9;        Canvas.Font.Size := 9;
# Line 709  begin Line 721  begin
721        begin        begin
722          BeginDoc;          BeginDoc;
723    
724          Canvas.Font.Size := Config.FontSizeRute;          Canvas.Font.Size := 20;
725          if (Length(LabelData.SimpelLinie1) > 7) then          Canvas.TextOut(10, 20, LabelData.SimpelLinie1);
726          begin          Canvas.TextOut(10, 120, LabelData.SimpelLinie2);
727            Canvas.Font.Size := Config.FontSizeRuteLille;          Canvas.TextOut(10, 220, LabelData.SimpelLinie3);
728          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);  
729          EndDoc;          EndDoc;
730        end;        end;
731    
Legend:
Removed from v.3099  
changed lines
  Added in v.3124
  ViewVC Help
Powered by ViewVC 1.1.20