/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3124 by torben, Wed Oct 19 06:59:57 2016 UTC revision 3125 by torben, Wed Oct 19 08:39:31 2016 UTC
# Line 2903  var Line 2903  var
2903    Kommentar : String;    Kommentar : String;
2904    BoghandlerNavn : String;    BoghandlerNavn : String;
2905    Koreliste : String;    Koreliste : String;
2906    Falsk : Boolean;  //  Falsk : Boolean;
2907    SmsKode : String;  //  SmsKode : String;
2908    DBKbane : String;  //  DBKbane : String;
2909    Leveringssted : String;  //  Leveringssted : String;
   LabelData : TLabelData;  
2910  begin  begin
2911    RuteNummer := 'Rutenr';    RuteNummer := 'Rutenr';
2912    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
2913    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
2914    Falsk := False;  //  Falsk := False;
2915    
2916    
2917    if (LabelPrint.GetPrinterCount() = 0) then    if (LabelPrint.GetPrinterCount() = 0) then
# Line 2932  begin Line 2931  begin
2931  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2932    
2933    
     LabelData := TLabelData.Create(nil);  
     LabelData.LabelType := 'simpel';  
     LabelData.SimpelLinie1 := '999999';  
     LabelData.SimpelLinie2 := '999';  
     LabelData.SimpelLinie3 := 'xxx';  
     LabelPrint.PrintLabelData(Labeldata);  
2934    
2935      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);      LabelPrint.PrintTestLabel('999999', '999', 'xxx');
2936    
2937      LabelData.Free();      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2938    
2939    end;    end;
2940    FocusControl(StregkodeST);    FocusControl(StregkodeST);
Legend:
Removed from v.3124  
changed lines
  Added in v.3125
  ViewVC Help
Powered by ViewVC 1.1.20