/[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 3124 by torben, Wed Oct 19 06:59:57 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    
     procedure PrintSimpelLabel( LabelData : TLabelData) ;  
22    
23        // PrintLabelData bliver brugt til PrinterTest
24      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      // og blicer derfor nødt til at være Public
25        procedure PrintLabelData( LabelData : TLabelData);
26    
27    
28      procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;      function GetPrinterCount() : Integer;
29    
30    
     function GetPrinterCount() : Integer;  
31    
32    private    private
33      parentForm : IParentForm;      parentForm : IParentForm;
# Line 40  type Line 37  type
37    
38      procedure PrintZPL( ZplData : string);      procedure PrintZPL( ZplData : string);
39    
40    
41        procedure PrintSimpelLabel( LabelData : TLabelData) ;
42    
43        procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
44      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
45      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
46    
47        procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
48        procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
49    
50    
51    
52      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
53      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
Legend:
Removed from v.3123  
changed lines
  Added in v.3124
  ViewVC Help
Powered by ViewVC 1.1.20