--- dao/DelphiScanner/Main.pas	2016/06/27 12:18:07	3055
+++ dao/DelphiScanner/Main.pas	2016/07/27 15:25:24	3073
@@ -107,6 +107,7 @@
     chkForstorTilDirekte: TCheckBox;
     chkEmballageRepareret: TCheckBox;
     KommentarST: TLabel;
+    chkUdenforSpecifikation: TCheckBox;
 
 
 
@@ -841,34 +842,7 @@
 
     if SpecialVersionSted = 'DBK' then
     begin
-      //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
       Sted := SpecialVersionSted;
-      // her skal vi også disable de knapper DBK 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;
-
-
-     // her skal vi også disable de menupunkter DBK ikke kan bruge
-      menuNatxpressReturDAO1.Enabled := false;
-      menuNatxpressReturfraKunde1.Enabled := false;
-
-      menuPakkeshop1.Enabled := false;
-      menuPakkeshopRetur1.Enabled := false;
-
-      if SpecialVersionScanningtype = 'A' then
-      begin
-         Scanningtype := '1';
-      end
-      else
-      begin
-        Scanningtype := SpecialVersionScanningtype;
-      end;
     end;
 
     if (SpecialVersionSted = '01')
@@ -1840,6 +1814,7 @@
       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;
@@ -2233,11 +2208,11 @@
     begin
       if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
       begin
-          Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';
+          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
           PrintNyLabel := False;
       end;
     end
-    else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
+    else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
     begin
        if (Leveringssted = 'E') and (Sted = 'DBK') then
        begin
@@ -2245,7 +2220,7 @@
        end
        else
        begin
-          Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';
+          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
           PrintNyLabel := False;
        end;
     end;
@@ -4203,7 +4178,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;