--- dao/DelphiScanner/Main.pas	2016/03/15 13:44:38	2977
+++ dao/DelphiScanner/Main.pas	2016/06/28 12:39:35	3057
@@ -39,12 +39,11 @@
     XMLDocument1: TXMLDocument;
     ApplicationEvents1: TApplicationEvents;
     chkSporgEfterKunde: TCheckBox;
-    KommentarST: TStaticText;
     MainMenu1: TMainMenu;
     N1: TMenuItem;
-    Pakkernormal1: TMenuItem;
-    ReturpakkerfraDAO1: TMenuItem;
-    Returpakkerfraboghandler1: TMenuItem;
+    menuNatXpress1: TMenuItem;
+    menuNatxpressReturDAO1: TMenuItem;
+    menuNatxpressReturfraKunde1: TMenuItem;
     Hjlp1: TMenuItem;
     Om1: TMenuItem;
     Testforbindelsen1: TMenuItem;
@@ -57,14 +56,14 @@
     radioStorPakke: TRadioButton;
     radioLillePakke: TRadioButton;
     N4: TMenuItem;
-    Storepakker1: TMenuItem;
-    Smpakker1: TMenuItem;
+    menuStorePakker: TMenuItem;
+    menuSmaaPakker: TMenuItem;
     Panel1: TPanel;
     Testlyd2: TMenuItem;
     Button1: TButton;
     Testlyd1: TMenuItem;
     ListBox1: TListBox;
-    Budlevering1: TMenuItem;
+    menuDaoDirekte1: TMenuItem;
     BtnDownloadKontrolfil: TButton;
     IdFTP1: TIdFTP;
     Image1: TImage;
@@ -72,10 +71,10 @@
     BtnOpdaterListen: TButton;
     BtnUploadLogfil: TButton;
     BtnDownloadRuteskiftFil: TButton;
-    Pakkeshoplevering1: TMenuItem;
+    menuPakkeshop1: TMenuItem;
     PakkeshopText1: TStaticText;
     btnNulstil: TButton;
-    Returpakkerfrapakkeshop1: TMenuItem;
+    menuPakkeshopRetur1: TMenuItem;
     Altidprintepakkelabel1: TMenuItem;
     chkAltidPrintLabel: TCheckBox;
     BtnEKLoverforsel: TButton;
@@ -86,8 +85,8 @@
     Timer1: TTimer;
     chkScanTjekkode: TCheckBox;
     Scanogstjekkoden1: TMenuItem;
-    Automatisktjekkodestyring1: TMenuItem;
-    Automatiskvalg1: TMenuItem;
+    menuAutomatiskTjekkodeStyring: TMenuItem;
+    menuAutomatiskvalg1: TMenuItem;
     PanelValgA: TPanel;
     PanelValg1: TPanel;
     PanelValg2: TPanel;
@@ -106,6 +105,8 @@
     PanelManglendePakker6: TPanel;
     menuIndlevering: TMenuItem;
     chkForstorTilDirekte: TCheckBox;
+    chkEmballageRepareret: TCheckBox;
+    KommentarST: TLabel;
 
 
 
@@ -127,21 +128,21 @@
   procedure radioStorPakkeClick(Sender: TObject);
   procedure radioLillePakkeClick(Sender: TObject);
   procedure chkSporgEfterKundeClick(Sender: TObject);
-  procedure Pakkernormal1Click(Sender: TObject);
+  procedure menuNatXpress1Click(Sender: TObject);
   procedure Testforbindelsen1Click(Sender: TObject);
   procedure Testprinter1Click(Sender: TObject);
   procedure Om1Click(Sender: TObject);
   procedure Lukprogrammet1Click(Sender: TObject);
   procedure Sprgefterboghandlernummer1Click(Sender: TObject);
-  procedure ReturpakkerfraDAO1Click(Sender: TObject);
-  procedure Returpakkerfraboghandler1Click(Sender: TObject);
-  procedure Storepakker1Click(Sender: TObject);
-  procedure Smpakker1Click(Sender: TObject);
+  procedure menuNatxpressReturDAO1Click(Sender: TObject);
+  procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
+  procedure menuStorePakkerClick(Sender: TObject);
+  procedure menuSmaaPakkerClick(Sender: TObject);
   procedure Testlyd1Click(Sender: TObject);
   procedure Testlyd2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
-  procedure Budlevering1Click(Sender: TObject);
+  procedure menuDaoDirekte1Click(Sender: TObject);
   procedure BtnDownloadKontrolfilClick(Sender: TObject);
   procedure BtnOpdaterListenClick(Sender: TObject);
   procedure DownloadBladhusRuteskiftfil();
@@ -153,9 +154,9 @@
   procedure FormDestroy(Sender: TObject);
   procedure BtnUploadLogfilClick(Sender: TObject);
   procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
-  procedure Pakkeshoplevering1Click(Sender: TObject);
+  procedure menuPakkeshop1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
-  procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
+  procedure menuPakkeshopRetur1Click(Sender: TObject);
   procedure InitNatxpresslevering();
   procedure InitReturFraDao();
   procedure InitReturFraKunde();
@@ -172,9 +173,9 @@
   procedure Timer1Timer(Sender: TObject);
   procedure Scanogstjekkoden1Click(Sender: TObject);
   procedure chkScanTjekkodeClick(Sender: TObject);
-  procedure Automatisktjekkodestyring1Click(Sender: TObject);
+  procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
   procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
-  procedure Automatiskvalg1Click(Sender: TObject);
+  procedure menuAutomatiskvalg1Click(Sender: TObject);
   procedure PanelValgAClick(Sender: TObject);
   procedure PanelValg1Click(Sender: TObject);
   procedure PanelValg2Click(Sender: TObject);
@@ -195,11 +196,13 @@
 
 
   //Nedarvet fra IParentForm
+  procedure Msg( msg : string);
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
 
 
+
   private
     SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
     Stregkode : String;
@@ -260,6 +263,7 @@
     procedure SkrivScanningLogFil(var tekst : string);
     function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
     procedure VisAlarmSkaerm(strMessage: string);
+    function InjectURL(Url : String) : String;
 
   public
     { Public declarations }
@@ -285,6 +289,12 @@
 procedure TMainForm.InitForm(Farve,Titel,Url : String);
 begin
 
+    IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
+    IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
+
+
+
+
     StaticTextManglendePakker.Caption := '';
 
 
@@ -396,7 +406,7 @@
       PrinterstatusStaticText1.Color := MainForm.Color;
     end;
 
-    if PakkeshopLevering1.Checked or Pakkernormal1.Checked then
+    if menuPakkeshop1.Checked or menuNatXpress1.Checked then
       PakkeshopText1.Visible := true
     else
       PakkeshopText1.Visible := false;
@@ -421,7 +431,7 @@
       end;
     end;
 
-    if Automatisktjekkodestyring1.Checked then
+    if menuAutomatiskTjekkodeStyring.Checked then
     begin
       chkScanTjekkode.Enabled := false;
       Scanogstjekkoden1.Enabled := false;
@@ -479,9 +489,9 @@
   StregkodeST.Caption := Stregkode;
 end;
 
-procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);
+procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
 begin
-  if Automatisktjekkodestyring1.Checked then
+  if menuAutomatiskTjekkodeStyring.Checked then
   begin
      chkScanTjekkode.Enabled := false;
      Scanogstjekkoden1.Enabled := false;
@@ -494,15 +504,24 @@
 
 end;
 
-procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
+procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
 begin
 // Skal ikke toggle men bare sætte funktionen on
 // Fravælges ved at vælge en scanningstype
-     AutomatiskValg1.Checked := true;
+     menuAutomatiskvalg1.Checked := true;
      PanelValgA.Color := clGreen;
      PanelValgA.Font.Color := clWhite;
 end;
 
+function TMainForm.InjectURL(Url : String) : String;
+begin
+
+  Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
+  Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
+  Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
+
+  Result := Url;
+end;
 
 //InitForm kaldes før FormCreate
 procedure TMainForm.FormCreate(Sender: TObject);
@@ -553,27 +572,54 @@
     SkrivLog := ReadString('Settings','SkrivLog','0');
     Sted := ReadString('Settings','Sted','');
     StedNavn := ReadString('Settings','Stednavn','');
+
     UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');
+    UrlFindPakketype := InjectURL(UrlFindPakketype);
+
     UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');
+    UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
+
     UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');
+    UrlNormal := InjectURL(UrlNormal);
+
     UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
+    UrlReturDAO := InjectURL(UrlReturDAO);
+
     UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
+    UrlReturBoghandler := InjectURL(UrlReturBoghandler);
+
     UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
+    UrlBudlevering := InjectURL(UrlBudlevering);
+
     UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
+    UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
+
     UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
+    UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
 
     UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
+    UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
 
     UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
+    UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
+
     UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
+    UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
+
     UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
-    UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
+    UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
 
+    UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
+    UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
 
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
+    UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
+
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
-    URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
+    UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
 
+    URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
+    URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
 
 
 
@@ -629,7 +675,7 @@
 
     if Scanningtype = 'A' then
     begin
-      Automatiskvalg1.Checked := true;
+      menuAutomatiskvalg1.Checked := true;
       Scanningtype := '1';
       PanelValgA.Color := clGreen;
       PanelValgA.Font.Color := clWhite;
@@ -661,7 +707,7 @@
 
     if ScanTjekkodeAutomatik = '1' then
     begin
-      Automatisktjekkodestyring1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Checked := true;
       chkScanTjekkode.Enabled := false;
       Scanogstjekkoden1.Enabled := false;
     end;
@@ -704,7 +750,6 @@
     SpecialVersionSted := 'NS';
 {$EndIf}
 
-
     //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
     //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
     //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
@@ -722,17 +767,32 @@
 
     if SpecialVersionSted = 'NS' then
     begin
-       SpecialVersionSted := '01';
-       SpecialVersionScanningtype := '4';
+       //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
+       //SpecialVersionScanningtype := '4';
+
+      //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
+      Sted := SpecialVersionSted;
+     // her skal vi også disable de knapper BK ikke kan bruge
+      PanelValg2.Enabled := false;
+      PanelValg2.Font.Color := clInactiveCaption;
+      PanelValg3.Enabled := false;
+      PanelValg3.Font.Color := clInactiveCaption;
+      //PanelValg6.Enabled := false;
+      //PanelValg6.Font.Color := clInactiveCaption;
+
+     // her skal vi også disable de menupunkter FD ikke kan bruge
+      menuNatxpressReturDAO1.Enabled := false;
+      menuNatxpressReturfraKunde1.Enabled := false;
+
+      //Returpakkerfrapakkeshop1.Enabled := false;
     end;
+
     if SpecialVersionSted = 'FD' then
     begin
-       SpecialVersionSted := '03';
-       SpecialVersionScanningtype := '4';
-    end;
+       //SpecialVersionSted := '03'; //fra før at FD overtog scanning
+       //SpecialVersionScanningtype := '4';
+
 
-    if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
-    begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
       Sted := SpecialVersionSted;
      // her skal vi også disable de knapper BK ikke kan bruge
@@ -743,43 +803,31 @@
       //PanelValg6.Enabled := false;
       //PanelValg6.Font.Color := clInactiveCaption;
 
-     // her skal vi også disable de menupunkter BK ikke kan bruge
-      ReturpakkerfraDAO1.Enabled := false;
-      Returpakkerfraboghandler1.Enabled := false;
+     // her skal vi også disable de menupunkter FD ikke kan bruge
+      menuNatxpressReturDAO1.Enabled := false;
+      menuNatxpressReturfraKunde1.Enabled := false;
 
       //Returpakkerfrapakkeshop1.Enabled := false;
 
-      if SpecialVersionScanningtype = 'A' then
-      begin
-         Scanningtype := '1';
-      end
-      else
-      begin
-        Scanningtype := SpecialVersionScanningtype;
-      end;
     end;
 
-    if SpecialVersionSted = 'DBK' then
+    if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
     begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
       Sted := SpecialVersionSted;
-      // her skal vi også disable de knapper DBK ikke kan bruge
+     // her skal vi også disable de knapper BK ikke kan bruge
       PanelValg2.Enabled := false;
       PanelValg2.Font.Color := clInactiveCaption;
       PanelValg3.Enabled := false;
       PanelValg3.Font.Color := clInactiveCaption;
-      PanelValg5.Enabled := false;
-      PanelValg5.Font.Color := clInactiveCaption;
-      PanelValg6.Enabled := false;
-      PanelValg6.Font.Color := clInactiveCaption;
-
+      //PanelValg6.Enabled := false;
+      //PanelValg6.Font.Color := clInactiveCaption;
 
-     // her skal vi også disable de menupunkter DBK ikke kan bruge
-      ReturpakkerfraDAO1.Enabled := false;
-      Returpakkerfraboghandler1.Enabled := false;
+     // her skal vi også disable de menupunkter BK ikke kan bruge
+      menuNatxpressReturDAO1.Enabled := false;
+      menuNatxpressReturfraKunde1.Enabled := false;
 
-      Pakkeshoplevering1.Enabled := false;
-      Returpakkerfrapakkeshop1.Enabled := false;
+      //Returpakkerfrapakkeshop1.Enabled := false;
 
       if SpecialVersionScanningtype = 'A' then
       begin
@@ -791,6 +839,11 @@
       end;
     end;
 
+    if SpecialVersionSted = 'DBK' then
+    begin
+      Sted := SpecialVersionSted;
+    end;
+
     if (SpecialVersionSted = '01')
     or (SpecialVersionSted = '02')
     or (SpecialVersionSted = '03')
@@ -814,18 +867,18 @@
       PanelValg7.Font.Color := clInactiveCaption;
      // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge
 
-      Automatiskvalg1.Enabled := false;
+      menuAutomatiskvalg1.Enabled := false;
 
-      Pakkernormal1.Enabled := false;
-      ReturpakkerfraDAO1.Enabled := false;
-      Returpakkerfraboghandler1.Enabled := false;
-      Budlevering1.Enabled := false;
-      Pakkeshoplevering1.Enabled := false;
-      Returpakkerfrapakkeshop1.Enabled := false;
+      menuNatXpress1.Enabled := false;
+      menuNatxpressReturDAO1.Enabled := false;
+      menuNatxpressReturfraKunde1.Enabled := false;
+      menuDaoDirekte1.Enabled := false;
+      menuPakkeshop1.Enabled := false;
+      menuPakkeshopRetur1.Enabled := false;
       if SpecialVersionScanningtype = 'A' then
       begin
         Scanningtype := '4';
-        Budlevering1.Enabled := true;
+        menuDaoDirekte1.Enabled := true;
         PanelValg4.Font.Color := clWindowText;
         PanelValg4.Enabled := true;
       end
@@ -834,41 +887,41 @@
         Scanningtype := SpecialVersionScanningtype;
         PanelValgA.Enabled := false;
         PanelValgA.Font.Color := clInactiveCaption;
-        AutomatiskValg1.Checked := false;
+        menuAutomatiskvalg1.Checked := false;
         PanelValgA.Color := clBtnFace;
         if Scanningtype = '1' then
         begin
-          Pakkernormal1.Enabled := true;
+          menuNatXpress1.Enabled := true;
           PanelValg1.Enabled := true;
           PanelValg1.Font.Color := clWindowText;
         end;
         if Scanningtype = '2' then
         begin
-          ReturpakkerfraDAO1.Enabled := true;
+          menuNatxpressReturDAO1.Enabled := true;
           PanelValg2.Enabled := true;
           PanelValg2.Font.Color := clWindowText;
         end;
         if Scanningtype = '3' then
         begin
-          Returpakkerfraboghandler1.Enabled := true;
+          menuNatxpressReturfraKunde1.Enabled := true;
           PanelValg3.Enabled := true;
           PanelValg3.Font.Color := clWindowText;
         end;
         if Scanningtype = '4' then
         begin
-          Budlevering1.Enabled := true;
+          menuDaoDirekte1.Enabled := true;
           PanelValg4.Enabled := true;
           PanelValg4.Font.Color := clWindowText;
         end;
         if Scanningtype = '5' then
         begin
-          Pakkeshoplevering1.Enabled := true;
+          menuPakkeshop1.Enabled := true;
           PanelValg5.Enabled := true;
           PanelValg5.Font.Color := clWindowText;
         end;
         if Scanningtype = '6' then
         begin
-          Returpakkerfrapakkeshop1.Enabled := true;
+          menuPakkeshopRetur1.Enabled := true;
           PanelValg6.Enabled := true;
           PanelValg6.Font.Color := clWindowText;
         end;
@@ -949,12 +1002,12 @@
 
     if Pakketype = '1' then
     begin
-      Storepakker1.Checked := true;
+      menuStorePakker.Checked := true;
       radioStorPakke.Checked := true;
     end
     else
     begin
-      Smpakker1.Checked := true;
+      menuSmaaPakker.Checked := true;
       radioLillePakke.Checked := true;
     end;
 
@@ -1014,14 +1067,14 @@
     // UBD skal p.t. ikke have adgang til flg. funktioner
     if ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
     begin
-      ReturpakkerfraDAO1.Visible := false;
-      Returpakkerfraboghandler1.Visible := false;
-      Budlevering1.Visible := false;
-      Storepakker1.Visible := false;
-      Smpakker1.Visible := false;
+      menuNatxpressReturDAO1.Visible := false;
+      menuNatxpressReturfraKunde1.Visible := false;
+      menuDaoDirekte1.Visible := false;
+      menuStorePakker.Visible := false;
+      menuSmaaPakker.Visible := false;
       Testprinter1.Visible := false;
-      Pakkeshoplevering1.Visible := false;
-      Returpakkerfrapakkeshop1.Visible := false;
+      menuPakkeshop1.Visible := false;
+      menuPakkeshopRetur1.Visible := false;
     end;
 
     if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
@@ -1425,7 +1478,7 @@
        exit;
     end;
 
-    if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
+    if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
     begin
       GemStregkode := Stregkode;
       if Pakketype = 'NatXpress' then
@@ -1454,7 +1507,16 @@
               InitPakkeshoplevering();
             end;
           end
-      // Retur kan ikke scannes med 'Automatisk valg'
+     else if Pakketype = 'PakkeshopRetur' then
+          begin
+            if Scanningtype <> '6' then
+            begin
+             VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
+
+             exit;
+            end;
+          end
+
 
       else
           begin
@@ -1466,14 +1528,14 @@
           end;
       Stregkode := GemStregkode;
     end
-    else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
+    else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
     begin
       VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
 
       exit;
     end;
 
-    if not Automatiskvalg1.Checked then
+    if not menuAutomatiskvalg1.Checked then
     begin
       if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
       begin
@@ -1486,7 +1548,7 @@
 
 
 
-    if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
+    if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
     begin
       chkScanTjekkode.Checked := false;
       for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
@@ -1499,7 +1561,7 @@
       end;
     end;
 
-    if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then
+    if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
       begin
         // Når vi ikke kræver tjekkode er alt ok her
            BoghandlerStregkode := Stregkode;
@@ -1509,7 +1571,7 @@
            Stregkode := '';
            InitScreen();
       end
-    else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then
+    else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
       begin
         // Når vi ikke kræver tjekkode er alt ok her
            PakkeshopStregkode := Stregkode;
@@ -1521,7 +1583,7 @@
            Stregkode := '';
            InitScreen();
       end
-    else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then
+    else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
       if PakkeshopText1.Caption = 'Stregkode' then
        begin
           if length(Stregkode) > 5 then
@@ -1547,17 +1609,17 @@
            PakkeshopTjekkode := Stregkode;
            BoghandlerTjekkode := Stregkode;
            PakkeshopText1.Caption := 'Stregkode';
-           if (PakkeshopLevering1.Checked) then
+           if (menuPakkeshop1.Checked) then
               MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
-           if (Pakkernormal1.Checked) then
+           if (menuNatXpress1.Checked) then
               MainForm.Color := TUtils.HexToTColor(FarveNormal);
            btnNulstil.Visible := false;
          end
         else
          begin
-              if (PakkeshopLevering1.Checked) then
+              if (menuPakkeshop1.Checked) then
                 VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
-              if (Pakkernormal1.Checked) then
+              if (menuNatXpress1.Checked) then
                 VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
                 
               StregKode := '';
@@ -1569,12 +1631,12 @@
         InitScreen();
      end;
 
-    if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
+    if not menuPakkeshop1.Checked and not menuNatXpress1.Checked or (menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (menuNatXpress1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
     begin
 
-       if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
+       if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
           StregKode := PakkeshopStregkode;
-       if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
+       if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
           StregKode := BoghandlerStregkode;
        StregkodeST.Caption := StregKode;
        try
@@ -1588,7 +1650,7 @@
 
             exit;
           end;
-          if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
+          if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
           begin
             PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
             pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
@@ -1609,10 +1671,10 @@
               MainForm.Color := clRed;
             end;
          end;
-          if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
+          if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
           begin
             MainForm.Color := TUtils.HexToTColor(Farve);
-            if Storepakker1.Checked then
+            if menuStorePakker.Checked then
             begin
               PlaySound(PWideChar(ScannetOkStorLyd));
             end
@@ -1622,10 +1684,10 @@
             end;
             btnNulstil.Visible := false;
           end
-          else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
+          else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
           begin
             MainForm.Color := TUtils.HexToTColor(Farve);
-            if Storepakker1.Checked then
+            if menuStorePakker.Checked then
             begin
               PlaySound(PWideChar(ScannetOkStorLyd));
             end
@@ -1650,9 +1712,9 @@
          if not btnNulstil.Visible then
           begin
 
-            If (Budlevering1.Checked) then
+            If (menuDaoDirekte1.Checked) then
             begin
-              if Storepakker1.Checked then
+              if menuStorePakker.Checked then
               begin
                 PlaySound(PWideChar(ScannetOkStorLyd));
               end
@@ -1746,11 +1808,12 @@
 
 
 begin
-    if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then
+    if menuDaoDirekte1.Checked or menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked or menuNatXpress1.Checked or menuIndlevering.Checked then
     begin
       for i := ListBox2.items.count-1 downto 0 do
         if pos(StregKode,ListBox2.items[i]) <> 0 then
         begin
+          wrkAntalSenere := 0;//initial Value
 
           // Ajourføring af tæller for manglende pakker (scanninger)
           wrkAntal := StaticTextManglendePakker.Caption;
@@ -1895,14 +1958,14 @@
 
 begin
   Altidprintepakkelabel1.Enabled := false;
-  Pakkernormal1.Visible := false;
-  ReturpakkerfraDAO1.Visible := false;
-  Returpakkerfraboghandler1.Visible := false;
+  menuNatXpress1.Visible := false;
+  menuNatxpressReturDAO1.Visible := false;
+  menuNatxpressReturfraKunde1.Visible := false;
   Sprgefterboghandlernummer1.Enabled := false;
   ListBox1.Visible := true;
 //  TestFunktionen := '1';
 
-  if Budlevering1.Checked then
+  if menuDaoDirekte1.Checked then
   begin
     IndlesScanningLogFil();
   end;
@@ -1926,8 +1989,8 @@
     02 :
           begin;    // BK
             Testprinter1.Visible := true;
-            Smpakker1.Enabled := true;
-            Storepakker1.Enabled := true;
+            menuSmaaPakker.Enabled := true;
+            menuStorePakker.Enabled := true;
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
@@ -1964,8 +2027,8 @@
           end;
     04 :  begin;           // DBK
             Testprinter1.Visible := true;
-            Smpakker1.Enabled := true;
-            Storepakker1.Enabled := true;
+            menuSmaaPakker.Enabled := true;
+            menuStorePakker.Enabled := true;
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
@@ -1998,7 +2061,7 @@
   end;
 
 
-  if Pakkernormal1.Checked then
+  if menuNatXpress1.Checked then
   begin
      if (BoghandlerTjekkode = '') then
      begin
@@ -2006,23 +2069,23 @@
      end;
      URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
   end
-  else if ReturpakkerfraDAO1.Checked then
+  else if menuNatxpressReturDAO1.Checked then
   begin
      URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
   end
-  else if Returpakkerfraboghandler1.Checked then
+  else if menuNatxpressReturfraKunde1.Checked then
   begin
      URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
   end
-  else if Budlevering1.Checked then
+  else if menuDaoDirekte1.Checked then
   begin
      URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
   end
-  else if Pakkeshoplevering1.Checked then
+  else if menuPakkeshop1.Checked then
   begin
      URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
   end
-  else if Returpakkerfrapakkeshop1.Checked then
+  else if menuPakkeshopRetur1.Checked then
   begin
      URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
   end
@@ -2064,7 +2127,7 @@
 
   XMLDocument1.LoadFromXML(WebSvar);
   try
-    if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
+    if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
      begin
       RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
       Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
@@ -2072,7 +2135,7 @@
       BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
       PrintNyLabel := False;
 
-      if Pakkeshoplevering1.Checked then
+      if menuPakkeshop1.Checked then
       begin
         try
           PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
@@ -2113,7 +2176,7 @@
       Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
       BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
       Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
-      if Budlevering1.Checked then
+      if menuDaoDirekte1.Checked then
         begin
         try
           SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
@@ -2148,7 +2211,7 @@
           PrintNyLabel := False;
       end;
     end
-    else if (Budlevering1.Checked) and (Leveringssted <> Sted) then
+    else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
     begin
        if (Leveringssted = 'E') and (Sted = 'DBK') then
        begin
@@ -2177,7 +2240,7 @@
   //Label1.Caption := Kommentar;   // bruges hvis der skal vises linieskift - det kan man ikke i en staticText
   BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
   List1msg := TimeToStr(now) + '; ';
-  if Pakkeshoplevering1.Checked then
+  if menuPakkeshop1.Checked then
     List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
   List1Pakkestorrelse := '';
   if radioStorPakke.Checked then
@@ -2189,21 +2252,21 @@
     List1Pakkestorrelse := 'Lille pakke';
   end;
   List1msg := List1msg + BoghandlerNavn + '; ';
-  if ReturpakkerfraDAO1.Checked then
+  if menuNatxpressReturDAO1.Checked then
   begin
     List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
   end;
-  if Returpakkerfraboghandler1.Checked then
+  if menuNatxpressReturfraKunde1.Checked then
   begin
     List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
   end;
-  if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then
+  if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
      List1msg := List1msg + '; ' + List1Pakkestorrelse;
   if length(BoghNr) > 0 then
   begin
     List1Msg := List1Msg + '; Indtastet ' + BoghNr;
   end;
-  if Budlevering1.Checked then
+  if menuDaoDirekte1.Checked then
   begin
      List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
       if (radioStorPakke.Checked) then
@@ -2215,11 +2278,11 @@
         List1msg := List1msg + '; Lille pakke';
       end;
   end;
-  if Returpakkerfrapakkeshop1.Checked then
+  if menuPakkeshopRetur1.Checked then
   begin
     List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
   end;
-  if Pakkernormal1.Checked then
+  if menuNatXpress1.Checked then
   begin
     if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
     or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
@@ -2259,7 +2322,7 @@
   kontrolKoreliste : string;
   nytRuteNummer, nyFarve : String;
 begin
-  if Budlevering1.Checked then
+  if menuDaoDirekte1.Checked then
      RuteNummerST.Color := TUtils.HexToTColor(Farve);
 
   pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
@@ -2297,7 +2360,7 @@
       end;
   end
   else
-  if Budlevering1.Checked then
+  if menuDaoDirekte1.Checked then
   begin
      if (BoghandlerNavn = 'Ukendt pakke') then
      begin
@@ -2366,7 +2429,7 @@
 
   end;
 
-  if Budlevering1.Checked then
+  if menuDaoDirekte1.Checked then
   begin
     case BladhusSted of
       00 :  begin;
@@ -2415,12 +2478,12 @@
   end;
 
 // Hvis det er normal bogpakke modtagelse til UBD skal vi p.t. ikke printe - men stopper her
-  if Pakkernormal1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
+  if menuNatXpress1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
   begin
     exit;
   end;
 
-  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
+  if menuDaoDirekte1.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
@@ -2454,13 +2517,13 @@
 
 procedure TMainForm.radioStorPakkeClick(Sender: TObject);
 begin
-    Storepakker1.Checked := true;
+    menuStorePakker.Checked := true;
     radioStorPakke.Checked := true;
 end;
 
 procedure TMainForm.radioLillePakkeClick(Sender: TObject);
 begin
-    Smpakker1.Checked := true;
+    menuSmaaPakker.Checked := true;
     radioLillePakke.Checked := true;
 end;
 
@@ -2503,7 +2566,7 @@
   end;
 end;
 
-procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);
+procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
 begin
       Scanningtype := '5';
       InitPakkeshoplevering();
@@ -2512,7 +2575,7 @@
 
 procedure TMainForm.NulstilAutomatiskValg();
 begin
-    Automatiskvalg1.Checked := false;
+    menuAutomatiskvalg1.Checked := false;
     PanelValgA.Color := clBtnFace;
     PanelValgA.Font.Color := clWindowText;
 
@@ -2524,7 +2587,7 @@
       // her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)
       PanelValgA.Enabled := false;
       PanelValgA.Font.Color := clInactiveCaption;
-      Automatiskvalg1.Enabled := false;
+      menuAutomatiskvalg1.Enabled := false;
     end;
 // 20150317: slut
 end;
@@ -2757,7 +2820,7 @@
   begin
      MainForm.Color := TUtils.HexToTColor(Farve);
   end;
-  if (Budlevering1.Checked) then
+  if (menuDaoDirekte1.Checked) then
   begin
      InitLillePakke();
   end;
@@ -2821,7 +2884,7 @@
 begin
 // Skal ikke toggle men bare sætte funktionen on
 // Fravælges ved at vælge en scanningstype
-  AutomatiskValg1.Checked := true;
+  menuAutomatiskvalg1.Checked := true;
   PanelValgA.Color := clGreen;
   PanelValgA.Font.Color := clWhite;
 
@@ -2829,7 +2892,7 @@
 
 end;
 
-procedure TMainForm.Pakkernormal1Click(Sender: TObject);
+procedure TMainForm.menuNatXpress1Click(Sender: TObject);
 begin
       Scanningtype := '1';
       NulstilAutomatiskValg();
@@ -2984,6 +3047,7 @@
 
 end;
 
+
 procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 var
@@ -3098,14 +3162,14 @@
 
 end;
 
-procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);
+procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
 begin
       Scanningtype := '2';
       NulstilAutomatiskValg();
       InitReturFraDao();
 end;
 
-procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);
+procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
 begin
       Scanningtype := '6';
       InitReturFraPakkeshop();
@@ -3114,9 +3178,9 @@
 
 procedure TMainForm.InitNatxpresslevering();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := true;
+      menuAutomatiskTjekkodeStyring.Enabled := true;
       btnNulstil.Visible := false;
-      Pakkernormal1.Checked := true;
+      menuNatXpress1.Checked := true;
       InitForm(FarveNormal,TitelNormal,UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
@@ -3128,8 +3192,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := true;
-      Smpakker1.Enabled := false;
-      Storepakker1.Enabled := false;
+      menuSmaaPakker.Enabled := false;
+      menuStorePakker.Enabled := false;
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
@@ -3150,8 +3214,8 @@
 
 procedure TMainForm.InitReturFraDao();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := false;
-      ReturpakkerfraDAO1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Enabled := false;
+      menuNatxpressReturDAO1.Checked := true;
       btnNulstil.Visible := false;
       InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
       PanelValg2.Color := clGreen;
@@ -3164,8 +3228,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
-      Smpakker1.Enabled := true;
-      Storepakker1.Enabled := true;
+      menuSmaaPakker.Enabled := true;
+      menuStorePakker.Enabled := true;
       radioStorPakke.Enabled := true;
       radioLillePakke.Enabled := true;
       ListBox1.Visible := true;
@@ -3181,8 +3245,8 @@
 
 procedure TMainForm.InitReturFraKunde();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := false;
-      Returpakkerfraboghandler1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Enabled := false;
+      menuNatxpressReturfraKunde1.Checked := true;
       btnNulstil.Visible := false;
       InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
       PanelValg3.Color := clGreen;
@@ -3194,8 +3258,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
-      Smpakker1.Enabled := true;
-      Storepakker1.Enabled := true;
+      menuSmaaPakker.Enabled := true;
+      menuStorePakker.Enabled := true;
       radioStorPakke.Enabled := true;
       radioLillePakke.Enabled := true;
       ListBox1.Visible := true;
@@ -3211,8 +3275,8 @@
 
 procedure TMainForm.InitDirektelevering();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := false;
-      Budlevering1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Enabled := false;
+      menuDaoDirekte1.Checked := true;
       btnNulstil.Visible := false;
       InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
       PanelValg4.Color := clGreen;
@@ -3225,8 +3289,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
-      Smpakker1.Enabled := true;
-      Storepakker1.Enabled := true;
+      menuSmaaPakker.Enabled := true;
+      menuStorePakker.Enabled := true;
       radioStorPakke.Enabled := true;
       radioLillePakke.Enabled := true;
       ListBox1.Visible := true;
@@ -3251,8 +3315,8 @@
 
 procedure TMainForm.InitPakkeshoplevering();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := true;
-      Pakkeshoplevering1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Enabled := true;
+      menuPakkeshop1.Checked := true;
       btnNulstil.Visible := false;
       InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
@@ -3265,8 +3329,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
-      Smpakker1.Enabled := false;
-      Storepakker1.Enabled := false;
+      menuSmaaPakker.Enabled := false;
+      menuStorePakker.Enabled := false;
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
@@ -3291,8 +3355,8 @@
 
 procedure TMainForm.InitReturFraPakkeshop();
 begin
-      AutomatiskTjekkodeStyring1.Enabled := false;
-      Returpakkerfrapakkeshop1.Checked := true;
+      menuAutomatiskTjekkodeStyring.Enabled := false;
+      menuPakkeshopRetur1.Checked := true;
       btnNulstil.Visible := false;
       InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
@@ -3305,8 +3369,8 @@
       Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;
       Sprgefterboghandlernummer1.Enabled := false;
-      Smpakker1.Enabled := false;
-      Storepakker1.Enabled := false;
+      menuSmaaPakker.Enabled := false;
+      menuStorePakker.Enabled := false;
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
@@ -3329,7 +3393,7 @@
       IdFTP1.PassiveUseControlHost := true;
 end;
 
-procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);
+procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
 begin
       Scanningtype := '3';
       NulstilAutomatiskValg();
@@ -3339,7 +3403,7 @@
 procedure TMainForm.InitIndleveringskode();
 begin
       menuIndlevering.Checked := true;
-      AutomatiskTjekkodeStyring1.Enabled := false;
+      menuAutomatiskTjekkodeStyring.Enabled := false;
 
       btnNulstil.Visible := false;
       InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
@@ -3356,8 +3420,8 @@
 
 
 
-      Smpakker1.Enabled := false;
-      Storepakker1.Enabled := false;
+      menuSmaaPakker.Enabled := false;
+      menuStorePakker.Enabled := false;
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
@@ -3382,12 +3446,12 @@
 end;
 
 
-procedure TMainForm.Storepakker1Click(Sender: TObject);
+procedure TMainForm.menuStorePakkerClick(Sender: TObject);
 begin
   InitStorPakke();
 end;
 
-procedure TMainForm.Smpakker1Click(Sender: TObject);
+procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
 begin
   InitLillePakke();
 end;
@@ -3395,14 +3459,14 @@
 procedure TMainForm.InitLillePakke();
 begin
   radioLillePakke.Checked := true;
-  Smpakker1.Checked := true;
+  menuSmaaPakker.Checked := true;
 //  Stregkode := '';
 end;
 
 procedure TMainForm.InitStorPakke();
 begin
   radioStorPakke.Checked := true;
-  Storepakker1.Checked := true;
+  menuStorePakker.Checked := true;
 // 20150310: start
 //  Stregkode := '';
 // 20150310: slut
@@ -3446,7 +3510,7 @@
      exit;
   end;
 
-  if Smpakker1.Checked then
+  if menuSmaaPakker.Checked then
      if ScannetOkLyd  <> '' then
      begin
        PlaySound(PWideChar(ScannetOkLyd));
@@ -3455,7 +3519,7 @@
      begin
        MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
      end;
-  if Storepakker1.Checked then
+  if menuStorePakker.Checked then
      if ScannetOkStorLyd  <> '' then
      begin
        PlaySound(PWideChar(ScannetOkStorLyd));
@@ -3467,7 +3531,7 @@
 end;
 
 
-procedure TMainForm.Budlevering1Click(Sender: TObject);
+procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
 begin
       Scanningtype := '4';
       NulstilAutomatiskValg();
@@ -4113,7 +4177,7 @@
   I: Integer;
   stregkode, modtagernavn, modtageradresse, kommentar : string;
   pakketype, tjekkodestatus : String;
-  pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
+  antalLiniefelter, antalFelterFundet, linienr : Integer;
   //pakketyper : TStrings;
   pakketyper : TDictionary<String, Integer>;
   tmpAntal : Integer;
@@ -4186,6 +4250,9 @@
       begin
         // Her skal vi ikke gøre noget - men vi skal forespørge igen
         WebSvar := IdHTTP1.Get(URLStr);
+
+
+
       end;
       on e:exception do
       begin
@@ -4780,6 +4847,8 @@
     KommentarST.Caption := strMessage;
   end;
 
+  Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
+
 end;
 
 function TMainForm.getProddato() : TDate;
@@ -4853,6 +4922,11 @@
 end;
 
 
+//Nedarvet fra IParentForm
+procedure TMainForm.Msg( msg : string);
+begin
+  ShowMessage(msg);
+end;
 
 //Nedarvet fra IParentForm
 procedure TMainForm.LogMessage( msg : string);