/[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 3104 by torben, Tue Aug 23 08:15:42 2016 UTC revision 3129 by torben, Thu Oct 20 06:03:56 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);  
   
     procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  
20    
     procedure PrintSimpelLabel( LabelData : TLabelData) ;  
21    
22        procedure PrintTestLabel();
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);  
23    
24    
25      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      function GetPrinterCount() : Integer;
26    
27    
     function GetPrinterCount() : Integer;  
28    
29    private    private
30      parentForm : IParentForm;      parentForm : IParentForm;
# Line 40  type Line 34  type
34    
35      procedure PrintZPL( ZplData : string);      procedure PrintZPL( ZplData : string);
36    
37        procedure PrintLabelData( LabelData : TLabelData);
38        procedure PrintSimpelLabel( LabelData : TLabelData) ;
39    
40        procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
41      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
42      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
43    
44        procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
45        procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
46    
47    
48    
49      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
50      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
# Line 119  begin Line 121  begin
121  end;  end;
122    
123    
124  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
125  begin  begin
126    with Printer do    with Printer do
127        begin        begin
# Line 285  begin Line 287  begin
287    
288  end;  end;
289    
290    procedure TLabelPrint.PrintTestLabel();
291    var
292      LabelData : TLabelData;
293    begin
294      LabelData := TLabelData.Create(nil);
295      LabelData.LabelType := 'simpel';
296      LabelData.SimpelLinie1 := 'Test Label';
297      LabelData.SimpelLinie2 := 'Test Label';
298      LabelData.SimpelLinie3 := 'Test Label';
299    
300      PrintLabelData(Labeldata);
301    
302      LabelData.Free();
303    end;
304    
305  procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);  procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
306  begin  begin
307    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
# Line 303  end; Line 320  end;
320    
321    
322    
323  procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  procedure TLabelPrint.SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
324  begin  begin
325      with Printer do      with Printer do
326      begin      begin
Legend:
Removed from v.3104  
changed lines
  Added in v.3129
  ViewVC Help
Powered by ViewVC 1.1.20