--- dao/DelphiScanner/Main.pas	2015/08/23 10:38:56	2652
+++ dao/DelphiScanner/Main.pas	2015/08/23 10:44:23	2653
@@ -20,7 +20,7 @@
     IdHTTP1: TIdHTTP;
     XMLDocument1: TXMLDocument;
     ApplicationEvents1: TApplicationEvents;
-    CheckBox1: TCheckBox;
+    chkSporgEfterKunde: TCheckBox;
     KommentarST: TStaticText;
     MainMenu1: TMainMenu;
     N1: TMenuItem;
@@ -115,7 +115,7 @@
   procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
   procedure RadioButton1Click(Sender: TObject);
   procedure RadioButton2Click(Sender: TObject);
-  procedure CheckBox1Click(Sender: TObject);
+  procedure chkSporgEfterKundeClick(Sender: TObject);
   procedure Pakkernormal1Click(Sender: TObject);
   procedure Testforbindelsen1Click(Sender: TObject);
   procedure Testprinter1Click(Sender: TObject);
@@ -711,12 +711,12 @@
 
     if SporgEfterBoghandler = '1' then
     begin
-      CheckBox1.Checked := true;
+      chkSporgEfterKunde.Checked := true;
       Sprgefterboghandlernummer1.Checked := true;
     end
     else
     begin
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
     end;
 
@@ -1294,15 +1294,15 @@
 
     if StregKode = 'Indtast kundenummer' then
     begin
-       if CheckBox1.Enabled = true then
+       if chkSporgEfterKunde.Enabled = true then
        begin
-         if (CheckBox1.State = cbChecked) then
+         if (chkSporgEfterKunde.State = cbChecked) then
          begin
-          CheckBox1.State := cbUnchecked;
+          chkSporgEfterKunde.State := cbUnchecked;
          end
          else
          begin
-          CheckBox1.State := cbChecked;
+          chkSporgEfterKunde.State := cbChecked;
          end;
        end
        else
@@ -2603,7 +2603,7 @@
 
 // 20150306: start
 //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then
-  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
+  if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
 // 20150306: slut
   begin
       if (RuteNummer = 'Ukendt') then
@@ -2757,7 +2757,7 @@
     exit;
   end;
 
-  if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
+  if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
   begin
   end
   else
@@ -2862,9 +2862,9 @@
 end;
 
 
-procedure TMainForm.CheckBox1Click(Sender: TObject);
+procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
 begin
-  if CheckBox1.Checked then
+  if chkSporgEfterKunde.Checked then
   begin
      Sprgefterboghandlernummer1.Checked := true;
   end
@@ -3783,11 +3783,11 @@
 
   if Sprgefterboghandlernummer1.Checked then
   begin
-     CheckBox1.Checked := true;
+     chkSporgEfterKunde.Checked := true;
   end
   else
   begin
-     CheckBox1.Checked := false;
+     chkSporgEfterKunde.Checked := false;
   end;
 
 
@@ -3815,13 +3815,13 @@
       InitForm(FarveNormal,TitelNormal,UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
-      CheckBox1.Enabled := true;
+
       chkAltidPrintLabel.Enabled := true;
       Altidprintepakkelabel1.Enabled := true;
       Altidprintepakkelabel1.Checked := false;
       chkAltidPrintLabel.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := true;
       Smpakker1.Enabled := false;
       Storepakker1.Enabled := false;
@@ -3847,13 +3847,13 @@
       InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
       PanelValg2.Color := clGreen;
       PanelValg2.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
 
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := true;
       Storepakker1.Enabled := true;
@@ -3874,12 +3874,12 @@
       InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
       PanelValg3.Color := clGreen;
       PanelValg3.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := true;
       Storepakker1.Enabled := true;
@@ -3900,13 +3900,13 @@
       InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
       PanelValg4.Color := clGreen;
       PanelValg4.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
 
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := true;
       Storepakker1.Enabled := true;
@@ -3936,13 +3936,13 @@
       InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
       PanelValg5.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
 
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := false;
       Storepakker1.Enabled := false;
@@ -3974,13 +3974,13 @@
       InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
       PanelValg6.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
 
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := false;
       Storepakker1.Enabled := false;
@@ -4016,13 +4016,13 @@
       InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
       PanelValg7.Color := clGreen;
       PanelValg7.Font.Color := clWhite;
-      CheckBox1.Enabled := false;
+
       chkAltidPrintLabel.Enabled := false;
       Altidprintepakkelabel1.Enabled := false;
 
       Altidprintepakkelabel1.Checked := false;
       Sprgefterboghandlernummer1.Checked := false;
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
       Smpakker1.Enabled := false;
       Storepakker1.Enabled := false;