--- dao/DelphiScanner/Main.dfm 2015/08/20 20:16:16 2647 +++ dao/DelphiScanner/Main.dfm 2015/08/23 11:00:22 2654 @@ -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,7 +3907,7 @@ ParentFont = False TabOrder = 2 end - object CheckBox1: TCheckBox + object chkSporgEfterKunde: TCheckBox Left = 24 Top = 261 Width = 446 @@ -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 @@ -3968,10 +3970,10 @@ OnClick = RadioButton2Click 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,7 +4100,7 @@ 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 @@ -4335,16 +4337,35 @@ 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' + 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 @@ -4505,9 +4526,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