--- dao/DelphiScanner/Main.pas	2015/09/04 09:36:19	2703
+++ dao/DelphiScanner/Main.pas	2015/09/04 09:56:58	2704
@@ -282,9 +282,9 @@
 procedure TMainForm.InitForm(Farve,Titel,Url : String);
 begin
 
-// 20150309: startr
+
     StaticTextManglendePakker.Caption := '';
-// 20150309: slut
+
 
     Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component
 
@@ -1888,7 +1888,7 @@
               PanelManglendePakker6.Visible := false;
             end;
           end;
-// 20150310: slut
+
           ListBox2.items.delete(i);
         end;
     end;
@@ -1924,47 +1924,7 @@
   Sprgefterboghandlernummer1.Enabled := false;
   ListBox1.Visible := true;
 //  TestFunktionen := '1';
-// 20150317: start
-(*
-  if TestFunktionen = '1' then
-    begin
-      Testforbindelsen1.Visible := true;
-      Testprinter1.Visible := true;
-      Testlyd1.Visible := true;
-      Testlyd2.Visible := true;
-    end
-  else if TestFunktionen = '2' then
-    begin
-      Testforbindelsen1.Enabled := false;
-      Testprinter1.Enabled := false;
-      Testlyd1.Enabled := false;
-      Testlyd2.Enabled := false;
-    end
-  else
-    begin
-      Testforbindelsen1.Visible := false;
-      Testprinter1.Visible := false;
-      Testlyd1.Visible := false;
-      Testlyd2.Visible := false;
-    end;
-  Testprinter1.Visible := false;
-  AlarmLyd := 'Sounds\Alarm.wav';
-  if not FileExists(AlarmLyd) then
-    begin
-      AlarmLyd := '';
-    end;
-  ScannetOkLyd := 'Sounds\Ok.wav';
-  if not FileExists(ScannetOkLyd) then
-    begin
-      ScannetOkLyd := '';
-    end;
-  ScannetOkStorLyd := 'Sounds\Ok_stor.wav';
-  if not FileExists(ScannetOkStorLyd) then
-    begin
-      ScannetOkStorLyd := '';
-    end;
-*)
-// 20150317: slut
+
   if Budlevering1.Checked then
   begin
     IndlesScanningLogFil();
@@ -2871,16 +2831,6 @@
   if Farve <> '' then
   begin
      MainForm.Color := TUtils.HexToTColor(Farve);
-// 20150312: start
-(*
-  end
-  else
-  begin
-     ShowMessage('Programmet afbrydes...');
-     UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-     Application.Terminate;
-*)
-// 20150312: slut
   end;
   if (Budlevering1.Checked) then
   begin
@@ -3592,12 +3542,12 @@
     SkrivScanningLogFil(logTekst);
     StedKode := Sted;
     URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);
-// 20150330: start
+
     if PanelValg5.Color = clGreen then
     begin
       URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);
     end;
-// 20150330: slut
+
 
     try
     //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
@@ -4488,8 +4438,7 @@
                 antalFelterFundet := antalFelterFundet + 1;
                 if (tjekkodestatus = '-1') then
                 begin
-// 20150306: start
-//                    stregkoderMedTjekkodeArray[linienr] := stregkode;
+
                   if (pos(' ', stregkode) > 0) then
                   begin
                     stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet