--- dao/DelphiScanner/Main.dfm 2015/08/20 20:58:26 2650 +++ dao/DelphiScanner/Main.dfm 2015/12/17 19:04:09 2794 @@ -3823,7 +3823,7 @@ Proportional = True Transparent = True end - object PakkeshopNulstil: TButton + object btnNulstil: TButton Left = 712 Top = 29 Width = 88 @@ -3834,7 +3834,7 @@ Caption = 'Nulstil' TabOrder = 16 Visible = False - OnClick = PakkeshopNulstilClick + OnClick = btnNulstilClick end object Panel1: TPanel Left = 119 @@ -3907,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 = @@ -3921,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 @@ -3941,7 +3941,7 @@ ParentFont = False TabOrder = 4 end - object RadioButton1: TRadioButton + object radioStorPakke: TRadioButton Left = 216 Top = 285 Width = 170 @@ -3953,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 @@ -3967,7 +3967,7 @@ Margins.Bottom = 5 Caption = 'Lille pakke' TabOrder = 6 - OnClick = RadioButton2Click + OnClick = radioLillePakkeClick end object ListBox1: TListBox Left = 8 @@ -3981,7 +3981,7 @@ TabOrder = 9 OnDrawItem = ListBox1DrawItem end - object DownloadButton01: TButton + object BtnDownloadKontrolfil: TButton Left = 904 Top = 445 Width = 88 @@ -3992,7 +3992,7 @@ Enabled = False TabOrder = 10 WordWrap = True - OnClick = DownloadButton01Click + OnClick = BtnDownloadKontrolfilClick end object ListBox2: TListBox Left = 8 @@ -4005,11 +4005,10 @@ ItemHeight = 19 TabOrder = 11 OnDrawItem = ListBox1DrawItem - ExplicitHeight = 169 end - object OpdaterListenButton01: TButton - Left = 905 - Top = 790 + object BtnOpdaterListen: TButton + Left = 904 + Top = 793 Width = 88 Height = 47 Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget' @@ -4018,10 +4017,9 @@ Enabled = False TabOrder = 12 WordWrap = True - OnClick = OpdaterListenButton01Click - ExplicitTop = 604 + OnClick = BtnOpdaterListenClick end - object UploadButton01: TButton + object BtnUploadLogfil: TButton Left = 904 Top = 391 Width = 88 @@ -4032,9 +4030,9 @@ Enabled = False TabOrder = 13 WordWrap = True - OnClick = UploadButton01Click + OnClick = BtnUploadLogfilClick end - object DownloadButton03: TButton + object BtnDownloadRuteskiftFil: TButton Left = 904 Top = 498 Width = 88 @@ -4045,7 +4043,7 @@ TabOrder = 14 Visible = False WordWrap = True - OnClick = DownloadButton03Click + OnClick = BtnDownloadRuteskiftFilClick end object PakkeshopText1: TStaticText Left = 712 @@ -4057,7 +4055,7 @@ TabOrder = 15 Visible = False end - object CheckBox2: TCheckBox + object chkAltidPrintLabel: TCheckBox Left = 505 Top = 261 Width = 446 @@ -4065,9 +4063,9 @@ 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 + object BtnEKLoverforsel: TButton Left = 905 Top = 740 Width = 88 @@ -4078,8 +4076,7 @@ Enabled = False TabOrder = 18 WordWrap = True - OnClick = EKLoverforselClick - ExplicitTop = 554 + OnClick = BtnEKLoverforselClick end object PrinterstatusStaticText1: TStaticText Left = 119 @@ -4095,7 +4092,7 @@ ParentFont = False TabOrder = 19 end - object CheckBox3: TCheckBox + object chkScanTjekkode: TCheckBox Left = 24 Top = 310 Width = 353 @@ -4103,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 @@ -4119,7 +4116,7 @@ OnClick = PanelValgAClick end object PanelValg1: TPanel - Left = 808 + Left = 807 Top = 59 Width = 185 Height = 41 @@ -4129,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 @@ -4143,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 @@ -4157,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 @@ -4169,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 @@ -4181,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 @@ -4195,6 +4197,7 @@ Alignment = taLeftJustify Anchors = [akTop, akRight] Caption = ' Retur fra pakkeshop' + ParentBackground = False TabOrder = 27 OnClick = PanelValg6Click end @@ -4341,7 +4344,7 @@ Visible = False end object PanelValg7: TPanel - Left = 807 + Left = 806 Top = 338 Width = 185 Height = 41 @@ -4351,9 +4354,18 @@ Alignment = taLeftJustify Anchors = [akTop, akRight] Caption = ' Indleveringskode' + ParentBackground = False TabOrder = 35 OnClick = PanelValg7Click end + object chkForstorTilDirekte: TCheckBox + Left = 24 + Top = 347 + Width = 353 + Height = 17 + Caption = 'For stor til DAO Direkte' + TabOrder = 36 + end object IdHTTP1: TIdHTTP AllowCookies = True ProxyParams.BasicAuthentication = False @@ -4459,6 +4471,11 @@ RadioItem = True OnClick = Returpakkerfrapakkeshop1Click end + object menuIndlevering: TMenuItem + Caption = 'Pakke med indleverings kode' + RadioItem = True + OnClick = menuIndleveringClick + end object N4: TMenuItem Caption = '-' end