/[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 3122 by torben, Tue Aug 23 08:15:42 2016 UTC revision 3123 by torben, Tue Oct 18 13:57:46 2016 UTC
# Line 19  type Line 19  type
19      procedure PrintLabel( Stregkode : String);      procedure PrintLabel( Stregkode : String);
20      procedure PrintLabelData( LabelData : TLabelData);      procedure PrintLabelData( LabelData : TLabelData);
21    
22      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');      procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
23    
24      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintSimpelLabel( LabelData : TLabelData) ;
25    
# Line 27  type Line 27  type
27      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
28    
29    
30      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
31    
32    
33      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
# Line 119  begin Line 119  begin
119  end;  end;
120    
121    
122  procedure TLabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;  procedure TLabelPrint.PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
123  begin  begin
124    with Printer do    with Printer do
125        begin        begin
# Line 303  end; Line 303  end;
303    
304    
305    
306  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 = '');
307  begin  begin
308      with Printer do      with Printer do
309      begin      begin
Legend:
Removed from v.3122  
changed lines
  Added in v.3123
  ViewVC Help
Powered by ViewVC 1.1.20