/[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 3095 by torben, Sun Aug 21 20:51:45 2016 UTC revision 3101 by torben, Mon Aug 22 21:58:10 2016 UTC
# Line 22  type Line 22  type
22    
23      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintSimpelLabel( LabelData : TLabelData) ;
24    
25    
26      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);  
     procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);  
27    
28    
29      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
30    
     procedure PrintZPL( ZplData : string);  
31    
32      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
33    
# Line 39  type Line 37  type
37      var Config: TConfiguration;      var Config: TConfiguration;
38    
39    
40        procedure PrintZPL( ZplData : string);
41    
42        procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
43        procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
44    
45    
46      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
47      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
48    
# Line 165  begin Line 169  begin
169  //            'Test'  skal vise alarmlinie, samt opdatere listbox1  //            'Test'  skal vise alarmlinie, samt opdatere listbox1
170  //            'Timer' skal kun vise alarmlinie  //            'Timer' skal kun vise alarmlinie
171    
172    if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
173    begin  //  begin
174    //
175      parentForm.LogMessage( 'Der er fravalgt printer i dette program' );  //    parentForm.LogMessage( 'Der er fravalgt printer i dette program' );
176    end  //  end
177    else if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  else
178      if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
179    begin    begin
180      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );
181    end    end
Legend:
Removed from v.3095  
changed lines
  Added in v.3101
  ViewVC Help
Powered by ViewVC 1.1.20