/[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 3090 by torben, Mon Aug 15 15:56:50 2016 UTC revision 3091 by torben, Tue Aug 16 21:06:46 2016 UTC
# Line 316  end; Line 316  end;
316    
317  procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);  procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);
318  begin  begin
319    PrintFuldPakkeLabelStor(  PakkeshopLabel );    if (Config.LabelStor = 1) then
320      begin
321        PrintFuldPakkeLabelStor(  PakkeshopLabel );
322    
323      end
324      else
325      begin
326        PrintFuldPakkeLabelLille(  PakkeshopLabel );
327    
328      end;
329    
330  end;  end;
331    
Legend:
Removed from v.3090  
changed lines
  Added in v.3091
  ViewVC Help
Powered by ViewVC 1.1.20