/[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 3123 by torben, Tue Oct 18 13:57:46 2016 UTC revision 3131 by torben, Thu Oct 20 07:31:23 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);
     procedure PrintLabelData( LabelData : TLabelData);  
20    
     procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  
21    
22      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintTestLabel();
23    
24    
25      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      function GetPrinterCount() : Integer;
   
   
     procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;  
26    
27    
     function GetPrinterCount() : Integer;  
28    
29    private    private
30      parentForm : IParentForm;      parentForm : IParentForm;
# Line 38  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 285  begin Line 288  begin
288    
289  end;  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);  procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
307  begin  begin
308    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
Legend:
Removed from v.3123  
changed lines
  Added in v.3131
  ViewVC Help
Powered by ViewVC 1.1.20