--- dao/DelphiScanner/Main.dfm	2015/12/17 19:04:09	2794
+++ dao/DelphiScanner/Main.dfm	2016/08/23 14:08:44	3107
@@ -2,8 +2,8 @@
   Left = 300
   Top = 131
   Caption = 'Scanning af pakker'
-  ClientHeight = 858
-  ClientWidth = 1000
+  ClientHeight = 883
+  ClientWidth = 1065
   Color = clBtnFace
   Constraints.MinHeight = 750
   Constraints.MinWidth = 1000
@@ -3628,8 +3628,8 @@
   OnDestroy = FormDestroy
   OnKeyPress = FormKeyPress
   DesignSize = (
-    1000
-    858)
+    1065
+    883)
   PixelsPerInch = 96
   TextHeight = 19
   object Image1: TImage
@@ -3823,6 +3823,21 @@
     Proportional = True
     Transparent = True
   end
+  object KommentarST: TLabel
+    Left = 24
+    Top = 200
+    Width = 763
+    Height = 104
+    AutoSize = False
+    Caption = '<Kommentar>'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    WordWrap = True
+  end
   object btnNulstil: TButton
     Left = 712
     Top = 29
@@ -3832,7 +3847,7 @@
       'Nulstiller en fejlmelding s'#229' programmet er klar til n'#230'ste scanni' +
       'ng'
     Caption = 'Nulstil'
-    TabOrder = 16
+    TabOrder = 15
     Visible = False
     OnClick = btnNulstilClick
   end
@@ -3849,7 +3864,7 @@
     BevelOuter = bvLowered
     ParentBackground = False
     ParentColor = True
-    TabOrder = 7
+    TabOrder = 6
   end
   object StregkodeST: TStaticText
     Left = 126
@@ -3891,7 +3906,7 @@
   end
   object BoghandlerNavnST: TStaticText
     Left = 24
-    Top = 147
+    Top = 149
     Width = 254
     Height = 43
     Margins.Left = 5
@@ -3909,7 +3924,7 @@
   end
   object chkSporgEfterKunde: TCheckBox
     Left = 24
-    Top = 257
+    Top = 312
     Width = 446
     Height = 26
     Hint = 
@@ -3923,27 +3938,9 @@
     TabOrder = 3
     OnClick = chkSporgEfterKundeClick
   end
-  object KommentarST: TStaticText
-    Left = 24
-    Top = 204
-    Width = 215
-    Height = 43
-    Margins.Left = 5
-    Margins.Top = 5
-    Margins.Right = 5
-    Margins.Bottom = 5
-    Caption = '<Kommentar>'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -32
-    Font.Name = 'Tahoma'
-    Font.Style = []
-    ParentFont = False
-    TabOrder = 4
-  end
   object radioStorPakke: TRadioButton
     Left = 216
-    Top = 285
+    Top = 340
     Width = 170
     Height = 26
     Hint = 'Markeres n'#229'r der skal scannes en stor pakke'
@@ -3952,12 +3949,12 @@
     Margins.Right = 5
     Margins.Bottom = 5
     Caption = 'Stor pakke'
-    TabOrder = 5
+    TabOrder = 4
     OnClick = radioStorPakkeClick
   end
   object radioLillePakke: TRadioButton
     Left = 24
-    Top = 285
+    Top = 340
     Width = 170
     Height = 26
     Hint = 'Markeres n'#229'r der skal scannes en lille pakke'
@@ -3966,81 +3963,81 @@
     Margins.Right = 5
     Margins.Bottom = 5
     Caption = 'Lille pakke'
-    TabOrder = 6
+    TabOrder = 5
     OnClick = radioLillePakkeClick
   end
   object ListBox1: TListBox
     Left = 8
-    Top = 391
-    Width = 874
+    Top = 486
+    Width = 939
     Height = 163
     Hint = 'Log vindue viser handlinger og meddelelser fra programmet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight]
     ItemHeight = 19
-    TabOrder = 9
+    TabOrder = 8
     OnDrawItem = ListBox1DrawItem
   end
   object BtnDownloadKontrolfil: TButton
-    Left = 904
-    Top = 445
+    Left = 969
+    Top = 484
     Width = 88
     Height = 47
     Hint = 'Hent rute kontrol filen fra DAO ftp server'
     Anchors = [akTop, akRight]
     Caption = 'Download kontrol fil'
     Enabled = False
-    TabOrder = 10
+    TabOrder = 9
     WordWrap = True
     OnClick = BtnDownloadKontrolfilClick
   end
   object ListBox2: TListBox
     Left = 8
-    Top = 560
-    Width = 874
-    Height = 277
+    Top = 655
+    Width = 939
+    Height = 225
     Hint = 'Status vindue viser hvad der endnu ikke er scannet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight, akBottom]
     ItemHeight = 19
-    TabOrder = 11
+    TabOrder = 10
     OnDrawItem = ListBox1DrawItem
   end
   object BtnOpdaterListen: TButton
-    Left = 904
-    Top = 793
+    Left = 969
+    Top = 833
     Width = 88
     Height = 47
     Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'
     Anchors = [akRight, akBottom]
     Caption = 'Opdater listen'
     Enabled = False
-    TabOrder = 12
+    TabOrder = 11
     WordWrap = True
     OnClick = BtnOpdaterListenClick
   end
   object BtnUploadLogfil: TButton
-    Left = 904
-    Top = 391
+    Left = 969
+    Top = 430
     Width = 88
     Height = 47
     Hint = 'Sender log filen til DAO ftp server'
     Anchors = [akTop, akRight]
     Caption = 'Upload  log fil'
     Enabled = False
-    TabOrder = 13
+    TabOrder = 12
     WordWrap = True
     OnClick = BtnUploadLogfilClick
   end
   object BtnDownloadRuteskiftFil: TButton
-    Left = 904
-    Top = 498
+    Left = 969
+    Top = 537
     Width = 88
     Height = 47
     Hint = 'Henter ruteskift fil fra DAO ftp server'
     Anchors = [akTop, akRight]
     Caption = 'Download ruteskift fil'
-    TabOrder = 14
+    TabOrder = 13
     Visible = False
     WordWrap = True
     OnClick = BtnDownloadRuteskiftFilClick
@@ -4052,29 +4049,29 @@
     Height = 23
     Hint = 'Viser hvad programmet forventer i input feltet'
     Caption = 'Stregkode'
-    TabOrder = 15
+    TabOrder = 14
     Visible = False
   end
   object chkAltidPrintLabel: TCheckBox
     Left = 505
-    Top = 261
+    Top = 316
     Width = 446
     Height = 26
     Hint = 'Markeres n'#229'r der '#248'nskes print af pakkelabel med ruteinformation'
     Caption = 'Altid printe pakkelabel'
-    TabOrder = 17
+    TabOrder = 16
     OnClick = chkAltidPrintLabelClick
   end
   object BtnEKLoverforsel: TButton
-    Left = 905
-    Top = 740
+    Left = 969
+    Top = 780
     Width = 88
     Height = 47
     Hint = 'Overf'#248'r de scannede pakker til EKL systemet'
     Anchors = [akRight, akBottom]
     Caption = 'Overf'#248'r   til EKL'
     Enabled = False
-    TabOrder = 18
+    TabOrder = 17
     WordWrap = True
     OnClick = BtnEKLoverforselClick
   end
@@ -4090,20 +4087,21 @@
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 19
+    TabOrder = 18
   end
   object chkScanTjekkode: TCheckBox
-    Left = 24
-    Top = 310
+    Left = 64
+    Top = 537
     Width = 353
     Height = 26
     Hint = 'Markeres n'#229'r der ogs'#229' skal scannes en tjekkode label'
     Caption = 'Scan ogs'#229' tjekkoden'
-    TabOrder = 20
+    TabOrder = 19
+    Visible = False
     OnClick = chkScanTjekkodeClick
   end
   object PanelValgA: TPanel
-    Left = 807
+    Left = 872
     Top = 7
     Width = 185
     Height = 41
@@ -4112,11 +4110,11 @@
     Anchors = [akTop, akRight]
     Caption = '   Automatisk valg'
     ParentBackground = False
-    TabOrder = 21
+    TabOrder = 20
     OnClick = PanelValgAClick
   end
   object PanelValg1: TPanel
-    Left = 807
+    Left = 872
     Top = 59
     Width = 185
     Height = 41
@@ -4127,12 +4125,12 @@
     Anchors = [akTop, akRight]
     Caption = '   DAO NAT X-PRESS'
     ParentBackground = False
-    TabOrder = 22
+    TabOrder = 21
     OnClick = PanelValg1Click
   end
   object PanelValg2: TPanel
-    Left = 807
-    Top = 101
+    Left = 872
+    Top = 100
     Width = 185
     Height = 41
     Hint = 
@@ -4140,13 +4138,13 @@
       'rneres til leverand'#248'ren fra scanningsstedet'
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
-    Caption = '   Retur fra DAO'
+    Caption = '   NatX /Retur fra DAO'
     ParentBackground = False
-    TabOrder = 23
+    TabOrder = 22
     OnClick = PanelValg2Click
   end
   object PanelValg3: TPanel
-    Left = 807
+    Left = 872
     Top = 143
     Width = 185
     Height = 41
@@ -4155,13 +4153,13 @@
       'rneres til leverand'#248'ren fra kunden'
     Alignment = taLeftJustify
     Anchors = [akTop, akRight]
-    Caption = '   Retur fra kunde'
+    Caption = '   NatX /Retur fra kunde'
     ParentBackground = False
-    TabOrder = 24
+    TabOrder = 23
     OnClick = PanelValg3Click
   end
   object PanelValg4: TPanel
-    Left = 807
+    Left = 872
     Top = 196
     Width = 185
     Height = 41
@@ -4170,11 +4168,11 @@
     Anchors = [akTop, akRight]
     Caption = '   DAO DIREKTE'
     ParentBackground = False
-    TabOrder = 25
+    TabOrder = 24
     OnClick = PanelValg4Click
   end
   object PanelValg5: TPanel
-    Left = 807
+    Left = 872
     Top = 249
     Width = 185
     Height = 41
@@ -4183,11 +4181,11 @@
     Anchors = [akTop, akRight]
     Caption = '   DAO PAKKESHOP'
     ParentBackground = False
-    TabOrder = 26
+    TabOrder = 25
     OnClick = PanelValg5Click
   end
   object PanelValg6: TPanel
-    Left = 807
+    Left = 872
     Top = 291
     Width = 185
     Height = 41
@@ -4198,12 +4196,12 @@
     Anchors = [akTop, akRight]
     Caption = '   Retur fra pakkeshop'
     ParentBackground = False
-    TabOrder = 27
+    TabOrder = 26
     OnClick = PanelValg6Click
   end
   object Button1: TButton
-    Left = 436
-    Top = 401
+    Left = 675
+    Top = 435
     Width = 125
     Height = 38
     Margins.Left = 5
@@ -4211,13 +4209,13 @@
     Margins.Right = 5
     Margins.Bottom = 5
     Caption = 'Tjek stregkode'
-    TabOrder = 8
+    TabOrder = 7
     Visible = False
     OnClick = Button1Click
   end
   object StaticTextManglendePakker: TStaticText
-    Left = 528
-    Top = 294
+    Left = 593
+    Top = 349
     Width = 272
     Height = 52
     Hint = 
@@ -4233,10 +4231,10 @@
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 28
+    TabOrder = 27
   end
   object PanelManglendePakker1: TPanel
-    Left = 953
+    Left = 1018
     Top = 54
     Width = 46
     Height = 23
@@ -4250,11 +4248,11 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 29
+    TabOrder = 28
     Visible = False
   end
   object PanelManglendePakker2: TPanel
-    Left = 954
+    Left = 1019
     Top = 96
     Width = 46
     Height = 23
@@ -4268,11 +4266,11 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 30
+    TabOrder = 29
     Visible = False
   end
   object PanelManglendePakker3: TPanel
-    Left = 954
+    Left = 1019
     Top = 137
     Width = 46
     Height = 23
@@ -4286,11 +4284,11 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 31
+    TabOrder = 30
     Visible = False
   end
   object PanelManglendePakker4: TPanel
-    Left = 954
+    Left = 1019
     Top = 191
     Width = 46
     Height = 23
@@ -4304,11 +4302,11 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 32
+    TabOrder = 31
     Visible = False
   end
   object PanelManglendePakker5: TPanel
-    Left = 954
+    Left = 1019
     Top = 244
     Width = 46
     Height = 23
@@ -4322,11 +4320,11 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 33
+    TabOrder = 32
     Visible = False
   end
   object PanelManglendePakker6: TPanel
-    Left = 954
+    Left = 1019
     Top = 286
     Width = 46
     Height = 23
@@ -4340,12 +4338,12 @@
     Font.Style = []
     ParentBackground = False
     ParentFont = False
-    TabOrder = 34
+    TabOrder = 33
     Visible = False
   end
   object PanelValg7: TPanel
-    Left = 806
-    Top = 338
+    Left = 871
+    Top = 377
     Width = 185
     Height = 41
     Hint = 
@@ -4355,17 +4353,33 @@
     Anchors = [akTop, akRight]
     Caption = '   Indleveringskode'
     ParentBackground = False
-    TabOrder = 35
+    TabOrder = 34
     OnClick = PanelValg7Click
   end
   object chkForstorTilDirekte: TCheckBox
     Left = 24
-    Top = 347
-    Width = 353
-    Height = 17
-    Caption = 'For stor til DAO Direkte'
+    Top = 374
+    Width = 321
+    Height = 22
+    Caption = 'For stor til DAO Direkte (Shop/Direkte)'
+    TabOrder = 35
+  end
+  object chkEmballageRepareret: TCheckBox
+    Left = 24
+    Top = 402
+    Width = 181
+    Height = 22
+    Caption = 'Emballage Repareret'
     TabOrder = 36
   end
+  object chkUdenforSpecifikation: TCheckBox
+    Left = 24
+    Top = 430
+    Width = 254
+    Height = 17
+    Caption = 'Pakke over m'#229'l - returneres'
+    TabOrder = 37
+  end
   object IdHTTP1: TIdHTTP
     AllowCookies = True
     ProxyParams.BasicAuthentication = False
@@ -4382,22 +4396,22 @@
     Request.Ranges.Units = 'bytes'
     Request.Ranges = <>
     HTTPOptions = [hoForceEncodeParams]
-    Left = 88
-    Top = 384
+    Left = 128
+    Top = 703
   end
   object XMLDocument1: TXMLDocument
-    Left = 200
-    Top = 424
+    Left = 240
+    Top = 743
     DOMVendorDesc = 'MSXML'
   end
   object ApplicationEvents1: TApplicationEvents
     OnIdle = ApplicationEvents1Idle
-    Left = 336
-    Top = 392
+    Left = 376
+    Top = 711
   end
   object MainMenu1: TMainMenu
-    Left = 136
-    Top = 408
+    Left = 176
+    Top = 727
     object Afslut1: TMenuItem
       Caption = 'Afslut'
       object Lukprogrammet1: TMenuItem
@@ -4422,54 +4436,54 @@
         Caption = 'Scan ogs'#229' tjekkoden'
         OnClick = Scanogstjekkoden1Click
       end
-      object Automatisktjekkodestyring1: TMenuItem
+      object menuAutomatiskTjekkodeStyring: TMenuItem
         AutoCheck = True
         Caption = 'Automatisk tjekkode styring'
-        OnClick = Automatisktjekkodestyring1Click
+        OnClick = menuAutomatiskTjekkodeStyringClick
       end
       object N2: TMenuItem
         Caption = '-'
       end
-      object Automatiskvalg1: TMenuItem
+      object menuAutomatiskvalg1: TMenuItem
         AutoCheck = True
         Caption = 'Automatisk valg af pakketype modtagelse'
-        OnClick = Automatiskvalg1Click
+        OnClick = menuAutomatiskvalg1Click
       end
-      object Pakkernormal1: TMenuItem
+      object menuNatXpress1: TMenuItem
         AutoCheck = True
         Caption = 'DAO NAT X-PRESS pakker'
         RadioItem = True
-        OnClick = Pakkernormal1Click
+        OnClick = menuNatXpress1Click
       end
-      object ReturpakkerfraDAO1: TMenuItem
+      object menuNatxpressReturDAO1: TMenuItem
         AutoCheck = True
         Caption = 'Returpakker fra DAO'
         RadioItem = True
-        OnClick = ReturpakkerfraDAO1Click
+        OnClick = menuNatxpressReturDAO1Click
       end
-      object Returpakkerfraboghandler1: TMenuItem
+      object menuNatxpressReturfraKunde1: TMenuItem
         AutoCheck = True
         Caption = 'Returpakker fra kunde'
         RadioItem = True
-        OnClick = Returpakkerfraboghandler1Click
+        OnClick = menuNatxpressReturfraKunde1Click
       end
-      object Budlevering1: TMenuItem
+      object menuDaoDirekte1: TMenuItem
         AutoCheck = True
         Caption = 'DAO DIREKTE pakker'
         RadioItem = True
-        OnClick = Budlevering1Click
+        OnClick = menuDaoDirekte1Click
       end
-      object Pakkeshoplevering1: TMenuItem
+      object menuPakkeshop1: TMenuItem
         AutoCheck = True
         Caption = 'DAO PAKKESHOP pakker'
         RadioItem = True
-        OnClick = Pakkeshoplevering1Click
+        OnClick = menuPakkeshop1Click
       end
-      object Returpakkerfrapakkeshop1: TMenuItem
+      object menuPakkeshopRetur1: TMenuItem
         AutoCheck = True
         Caption = 'Returpakker fra pakkeshop'
         RadioItem = True
-        OnClick = Returpakkerfrapakkeshop1Click
+        OnClick = menuPakkeshopRetur1Click
       end
       object menuIndlevering: TMenuItem
         Caption = 'Pakke med indleverings kode'
@@ -4479,19 +4493,19 @@
       object N4: TMenuItem
         Caption = '-'
       end
-      object Storepakker1: TMenuItem
+      object menuStorePakker: TMenuItem
         AutoCheck = True
         Caption = 'Store pakker'
         GroupIndex = 1
         RadioItem = True
-        OnClick = Storepakker1Click
+        OnClick = menuStorePakkerClick
       end
-      object Smpakker1: TMenuItem
+      object menuSmaaPakker: TMenuItem
         AutoCheck = True
         Caption = 'Sm'#229' pakker'
         GroupIndex = 1
         RadioItem = True
-        OnClick = Smpakker1Click
+        OnClick = menuSmaaPakkerClick
       end
     end
     object Hjlp1: TMenuItem
@@ -4554,13 +4568,13 @@
     NATKeepAlive.IntervalMS = 0
     ProxySettings.ProxyType = fpcmNone
     ProxySettings.Port = 0
-    Left = 264
-    Top = 392
+    Left = 304
+    Top = 711
   end
   object Timer1: TTimer
     Interval = 60000
     OnTimer = Timer1Timer
-    Left = 40
-    Top = 392
+    Left = 80
+    Top = 711
   end
 end