/[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 3125 by torben, Wed Oct 19 08:39:31 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(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');  
21    
22      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintTestLabel( Linie1, Linie2, Linie3 : String);
23    
24        // PrintLabelData bliver brugt til PrinterTest
25        // og blicer derfor nødt til at være Public
26    
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);  
27    
28    
29      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      function GetPrinterCount() : Integer;
30    
31    
     function GetPrinterCount() : Integer;  
32    
33    private    private
34      parentForm : IParentForm;      parentForm : IParentForm;
# Line 40  type Line 38  type
38    
39      procedure PrintZPL( ZplData : string);      procedure PrintZPL( ZplData : string);
40    
41        procedure PrintLabelData( LabelData : TLabelData);
42        procedure PrintSimpelLabel( LabelData : TLabelData) ;
43    
44        procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
45      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
46      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
47    
48        procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
49        procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
50    
51    
52    
53      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
54      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
# Line 119  begin Line 125  begin
125  end;  end;
126    
127    
128  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
129  begin  begin
130    with Printer do    with Printer do
131        begin        begin
# Line 285  begin Line 291  begin
291    
292  end;  end;
293    
294    procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);
295    var
296      LabelData : TLabelData;
297    begin
298      LabelData := TLabelData.Create(nil);
299      LabelData.LabelType := 'simpel';
300      LabelData.SimpelLinie1 := Linie1;
301      LabelData.SimpelLinie2 := Linie2;
302      LabelData.SimpelLinie3 := Linie3;
303    
304      PrintLabelData(Labeldata);
305    
306      LabelData.Free();
307    end;
308    
309  procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);  procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
310  begin  begin
311    if LabelData.LabelType = 'zpl' then    if LabelData.LabelType = 'zpl' then
# Line 303  end; Line 324  end;
324    
325    
326    
327  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 = '');
328  begin  begin
329      with Printer do      with Printer do
330      begin      begin
Legend:
Removed from v.3104  
changed lines
  Added in v.3125
  ViewVC Help
Powered by ViewVC 1.1.20