--- dao/DelphiScanner/Main.pas	2016/10/10 12:56:57	3122
+++ dao/DelphiScanner/Main.pas	2016/10/18 13:57:46	3123
@@ -2236,13 +2236,12 @@
   kontrolKoreliste : string;
   nytRuteNummer, nyFarve : String;
 begin
-  if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
-  begin
-    LabelPrint.PrintLabel( Stregkode );
-  end;
-
-
-  exit;
+//  if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
+//  begin
+//    LabelPrint.PrintLabel( Stregkode );
+//  end;
+//
+//  exit;
 
   if menuDaoDirekte1.Checked then
      RuteNummerST.Color := TUtils.HexToTColor(Farve);
@@ -2363,7 +2362,8 @@
              if PrintNyLabel or (RuteNummer = 'Rutenr') then
 // 20150304: slut
               begin
-                LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                LabelPrint.PrintLabel( Stregkode );
               end;
             end;
       01 :  begin;
@@ -2371,13 +2371,15 @@
                   // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
                   // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
               begin
-                LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                LabelPrint.PrintLabel( Stregkode );
               end;
             end;
       02 :  begin;
               if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test
               begin
-                LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                LabelPrint.PrintLabel( Stregkode );
               end;
             end;
       03 :  begin;
@@ -2385,13 +2387,15 @@
                   // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
                   // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
              begin
-                LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                LabelPrint.PrintLabel( Stregkode );
              end;
             end;
       04 :  begin;
               if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test
               begin
-                LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
+                LabelPrint.PrintLabel( Stregkode );
               end;
             end;
       else
@@ -2428,7 +2432,8 @@
       logTekst := logTekst + ' for '+BoghandlerNavn;
       SkrivScanningLogFil(logTekst);
 
-      LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
+      //LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
+      LabelPrint.PrintLabel( Stregkode );
 
     end;
   end;
@@ -4286,6 +4291,7 @@
       logTekst := logTekst + '.';
 
       SkrivScanningLogFil(logTekst);
+      time.stop('Antal Linier2');//DEBUG
 
 
       for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
@@ -4346,13 +4352,13 @@
             if antalFelterFundet = antalLiniefelter then
             begin
               if (ScanningType = '1') then
-                ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
+                //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
               else if (ScanningType = '4') then
-                ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)
+                //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)
               else if (ScanningType = '5') then
-                ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
+                //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
               else
-                ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);
+                //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);
               antalFelterFundet := 0;
               tjekkodestatus := '';
             end;