/[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 3103 by torben, Tue Aug 23 06:58:31 2016 UTC revision 3131 by torben, Thu Oct 20 07:31:23 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 = '');  
   
     procedure PrintSimpelLabel( LabelData : TLabelData) ;  
21    
22        procedure PrintTestLabel();
23    
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);  
24    
25        function GetPrinterCount() : Integer;
     procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  
26    
27    
     function GetPrinterCount() : Integer;  
28    
29    private    private
30      parentForm : IParentForm;      parentForm : IParentForm;
# Line 37  type Line 32  type
32      var Config: TConfiguration;      var Config: TConfiguration;
33    
34    
35    
36      procedure PrintZPL( ZplData : string);      procedure PrintZPL( ZplData : string);
37    
38        procedure PrintLabelData( LabelData : TLabelData);
39        procedure PrintSimpelLabel( LabelData : TLabelData) ;
40    
41        procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
42      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
43      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
44    
45        procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
46        procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
47    
48    
49    
50      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
51      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
# Line 118  begin Line 122  begin
122  end;  end;
123    
124    
125  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
126  begin  begin
127    with Printer do    with Printer do
128        begin        begin
# Line 278  begin Line 282  begin
282    XMLDocument1.LoadFromXML(response);    XMLDocument1.LoadFromXML(response);
283    
284    LabelData := TLabelData.Create(XMLDocument1);    LabelData := TLabelData.Create(XMLDocument1);
285      PrintLabelData(LabelData);
286      LabelData.Free();
287    
288    
289    end;
290    
291    procedure TLabelPrint.PrintTestLabel();
292    var
293      LabelData : TLabelData;
294    begin
295      LabelData := TLabelData.Create(nil);
296      LabelData.LabelType := 'simpel';
297      LabelData.SimpelLinie1 := 'Test Label';
298      LabelData.SimpelLinie2 := 'Test Label';
299      LabelData.SimpelLinie3 := 'Test Label';
300    
301      PrintLabelData(Labeldata);
302    
303      LabelData.Free();
304    end;
305    
306    procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
307    begin
308    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
309    begin    begin
310      PrintZPL(LabelData.ZPL);      PrintZPL(LabelData.ZPL);
# Line 291  begin Line 317  begin
317    begin    begin
318      PrintFuldPakkeLabel(LabelData);      PrintFuldPakkeLabel(LabelData);
319    end;    end;
320    end;
321    
322    
323    
324    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 = '');  
325  begin  begin
326      with Printer do      with Printer do
327      begin      begin
# Line 713  begin Line 734  begin
734        begin        begin
735          BeginDoc;          BeginDoc;
736    
737          Canvas.Font.Size := Config.FontSizeRute;          Canvas.Font.Size := 20;
738          if (Length(LabelData.SimpelLinie1) > 7) then          Canvas.TextOut(10, 20, LabelData.SimpelLinie1);
739          begin          Canvas.TextOut(10, 120, LabelData.SimpelLinie2);
740            Canvas.Font.Size := Config.FontSizeRuteLille;          Canvas.TextOut(10, 220, LabelData.SimpelLinie3);
741          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);  
742          EndDoc;          EndDoc;
743        end;        end;
744    
Legend:
Removed from v.3103  
changed lines
  Added in v.3131
  ViewVC Help
Powered by ViewVC 1.1.20