--- Main.dfm	2015/08/20 20:12:11	2645
+++ dao/DelphiScanner/Main.dfm	2015/08/23 16:17:56	2664
@@ -2,9 +2,11 @@
   Left = 300
   Top = 131
   Caption = 'Scanning af pakker'
-  ClientHeight = 672
+  ClientHeight = 858
   ClientWidth = 1000
   Color = clBtnFace
+  Constraints.MinHeight = 750
+  Constraints.MinWidth = 1000
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -16
@@ -3627,7 +3629,7 @@
   OnKeyPress = FormKeyPress
   DesignSize = (
     1000
-    672)
+    858)
   PixelsPerInch = 96
   TextHeight = 19
   object Image1: TImage
@@ -3905,9 +3907,9 @@
     ParentFont = False
     TabOrder = 2
   end
-  object CheckBox1: TCheckBox
+  object chkSporgEfterKunde: TCheckBox
     Left = 24
-    Top = 261
+    Top = 257
     Width = 446
     Height = 26
     Hint = 
@@ -3919,7 +3921,7 @@
     Margins.Bottom = 5
     Caption = 'Sp'#248'rg efter kundenummer ved ukendte pakker'
     TabOrder = 3
-    OnClick = CheckBox1Click
+    OnClick = chkSporgEfterKundeClick
   end
   object KommentarST: TStaticText
     Left = 24
@@ -3939,7 +3941,7 @@
     ParentFont = False
     TabOrder = 4
   end
-  object RadioButton1: TRadioButton
+  object radioStorPakke: TRadioButton
     Left = 216
     Top = 285
     Width = 170
@@ -3951,9 +3953,9 @@
     Margins.Bottom = 5
     Caption = 'Stor pakke'
     TabOrder = 5
-    OnClick = RadioButton1Click
+    OnClick = radioStorPakkeClick
   end
-  object RadioButton2: TRadioButton
+  object radioLillePakke: TRadioButton
     Left = 24
     Top = 285
     Width = 170
@@ -3965,13 +3967,13 @@
     Margins.Bottom = 5
     Caption = 'Lille pakke'
     TabOrder = 6
-    OnClick = RadioButton2Click
+    OnClick = radioLillePakkeClick
   end
   object ListBox1: TListBox
-    Left = 17
-    Top = 352
+    Left = 8
+    Top = 391
     Width = 874
-    Height = 145
+    Height = 163
     Hint = 'Log vindue viser handlinger og meddelelser fra programmet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight]
@@ -3980,8 +3982,8 @@
     OnDrawItem = ListBox1DrawItem
   end
   object DownloadButton01: TButton
-    Left = 905
-    Top = 401
+    Left = 904
+    Top = 445
     Width = 88
     Height = 47
     Hint = 'Hent rute kontrol filen fra DAO ftp server'
@@ -3993,10 +3995,10 @@
     OnClick = DownloadButton01Click
   end
   object ListBox2: TListBox
-    Left = 17
-    Top = 506
+    Left = 8
+    Top = 560
     Width = 874
-    Height = 145
+    Height = 277
     Hint = 'Status vindue viser hvad der endnu ikke er scannet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight, akBottom]
@@ -4006,7 +4008,7 @@
   end
   object OpdaterListenButton01: TButton
     Left = 905
-    Top = 604
+    Top = 790
     Width = 88
     Height = 47
     Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'
@@ -4018,8 +4020,8 @@
     OnClick = OpdaterListenButton01Click
   end
   object UploadButton01: TButton
-    Left = 905
-    Top = 352
+    Left = 904
+    Top = 391
     Width = 88
     Height = 47
     Hint = 'Sender log filen til DAO ftp server'
@@ -4031,8 +4033,8 @@
     OnClick = UploadButton01Click
   end
   object DownloadButton03: TButton
-    Left = 905
-    Top = 450
+    Left = 904
+    Top = 498
     Width = 88
     Height = 47
     Hint = 'Henter ruteskift fil fra DAO ftp server'
@@ -4053,7 +4055,7 @@
     TabOrder = 15
     Visible = False
   end
-  object CheckBox2: TCheckBox
+  object chkAltidPrintLabel: TCheckBox
     Left = 505
     Top = 261
     Width = 446
@@ -4061,11 +4063,11 @@
     Hint = 'Markeres n'#229'r der '#248'nskes print af pakkelabel med ruteinformation'
     Caption = 'Altid printe pakkelabel'
     TabOrder = 17
-    OnClick = CheckBox2Click
+    OnClick = chkAltidPrintLabelClick
   end
   object EKLoverforsel: TButton
     Left = 905
-    Top = 554
+    Top = 740
     Width = 88
     Height = 47
     Hint = 'Overf'#248'r de scannede pakker til EKL systemet'
@@ -4090,7 +4092,7 @@
     ParentFont = False
     TabOrder = 19
   end
-  object CheckBox3: TCheckBox
+  object chkScanTjekkode: TCheckBox
     Left = 24
     Top = 310
     Width = 353
@@ -4098,10 +4100,10 @@
     Hint = 'Markeres n'#229'r der ogs'#229' skal scannes en tjekkode label'
     Caption = 'Scan ogs'#229' tjekkoden'
     TabOrder = 20
-    OnClick = CheckBox3Click
+    OnClick = chkScanTjekkodeClick
   end
   object PanelValgA: TPanel
-    Left = 808
+    Left = 807
     Top = 7
     Width = 185
     Height = 41
@@ -4114,7 +4116,7 @@
     OnClick = PanelValgAClick
   end
   object PanelValg1: TPanel
-    Left = 808
+    Left = 807
     Top = 59
     Width = 185
     Height = 41
@@ -4124,11 +4126,12 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   DAO NAT X-PRESS'
+    ParentBackground = False
     TabOrder = 22
     OnClick = PanelValg1Click
   end
   object PanelValg2: TPanel
-    Left = 808
+    Left = 807
     Top = 101
     Width = 185
     Height = 41
@@ -4138,11 +4141,12 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   Retur fra DAO'
+    ParentBackground = False
     TabOrder = 23
     OnClick = PanelValg2Click
   end
   object PanelValg3: TPanel
-    Left = 808
+    Left = 807
     Top = 143
     Width = 185
     Height = 41
@@ -4152,11 +4156,12 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   Retur fra kunde'
+    ParentBackground = False
     TabOrder = 24
     OnClick = PanelValg3Click
   end
   object PanelValg4: TPanel
-    Left = 808
+    Left = 807
     Top = 196
     Width = 185
     Height = 41
@@ -4164,11 +4169,12 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   DAO DIREKTE'
+    ParentBackground = False
     TabOrder = 25
     OnClick = PanelValg4Click
   end
   object PanelValg5: TPanel
-    Left = 808
+    Left = 807
     Top = 249
     Width = 185
     Height = 41
@@ -4176,11 +4182,12 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   DAO PAKKESHOP'
+    ParentBackground = False
     TabOrder = 26
     OnClick = PanelValg5Click
   end
   object PanelValg6: TPanel
-    Left = 808
+    Left = 807
     Top = 291
     Width = 185
     Height = 41
@@ -4190,6 +4197,7 @@
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
     Caption = '   Retur fra pakkeshop'
+    ParentBackground = False
     TabOrder = 27
     OnClick = PanelValg6Click
   end
@@ -4335,16 +4343,36 @@
     TabOrder = 34
     Visible = False
   end
+  object PanelValg7: TPanel
+    Left = 807
+    Top = 338
+    Width = 185
+    Height = 41
+    Hint = 
+      'V'#230'lges n'#229'r der skal scannes DAO PAKKESHOP pakker der skal return' +
+      'eres til leverand'#248'ren'
+    Alignment = taLeftJustify
+    Anchors = [akTop, akRight]
+    Caption = '   Indleveringskode'
+    ParentBackground = False
+    TabOrder = 35
+    OnClick = PanelValg7Click
+  end
   object IdHTTP1: TIdHTTP
     AllowCookies = True
     ProxyParams.BasicAuthentication = False
     ProxyParams.ProxyPort = 0
     Request.ContentLength = -1
+    Request.ContentRangeEnd = -1
+    Request.ContentRangeStart = -1
+    Request.ContentRangeInstanceLength = -1
     Request.ContentType = 'text/html'
     Request.Accept = 'text/html, */*'
     Request.BasicAuthentication = False
     Request.Host = 'omdeling.info'
     Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
+    Request.Ranges.Units = 'bytes'
+    Request.Ranges = <>
     HTTPOptions = [hoForceEncodeParams]
     Left = 88
     Top = 384
@@ -4435,6 +4463,11 @@
         RadioItem = True
         OnClick = Returpakkerfrapakkeshop1Click
       end
+      object menuIndlevering: TMenuItem
+        Caption = 'Pakke med indleverings kode'
+        RadioItem = True
+        OnClick = menuIndleveringClick
+      end
       object N4: TMenuItem
         Caption = '-'
       end
@@ -4505,9 +4538,12 @@
   end
   object IdFTP1: TIdFTP
     IPVersion = Id_IPv4
-    AutoLogin = True
     Passive = True
     PassiveUseControlHost = True
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
     ProxySettings.ProxyType = fpcmNone
     ProxySettings.Port = 0
     Left = 264