52 |
Testlyd1: TMenuItem; |
Testlyd1: TMenuItem; |
53 |
ListBox1: TListBox; |
ListBox1: TListBox; |
54 |
Budlevering1: TMenuItem; |
Budlevering1: TMenuItem; |
55 |
DownloadButton01: TButton; |
BtnDownloadKontrolfil: TButton; |
56 |
IdFTP1: TIdFTP; |
IdFTP1: TIdFTP; |
57 |
Image1: TImage; |
Image1: TImage; |
58 |
ListBox2: TListBox; |
ListBox2: TListBox; |
134 |
procedure Button1Click(Sender: TObject); |
procedure Button1Click(Sender: TObject); |
135 |
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); |
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); |
136 |
procedure Budlevering1Click(Sender: TObject); |
procedure Budlevering1Click(Sender: TObject); |
137 |
procedure DownloadButton01Click(Sender: TObject); |
procedure BtnDownloadKontrolfilClick(Sender: TObject); |
138 |
procedure OpdaterListenButton01Click(Sender: TObject); |
procedure OpdaterListenButton01Click(Sender: TObject); |
139 |
procedure DownloadBladhusRuteskiftfil(); |
procedure DownloadBladhusRuteskiftfil(); |
140 |
procedure DownloadBladhusKontrolfil(); |
procedure DownloadBladhusKontrolfil(); |
1980 |
01 : |
01 : |
1981 |
begin; // NS |
begin; // NS |
1982 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
1983 |
DownloadButton01.Enabled := true; |
BtnDownloadKontrolfil.Enabled := true; |
1984 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
1985 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
1986 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
1996 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
1997 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
1998 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
1999 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2000 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2001 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2002 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
2013 |
begin |
begin |
2014 |
DownloadButton03.Visible := false; |
DownloadButton03.Visible := false; |
2015 |
end; |
end; |
2016 |
DownloadButton01.Enabled := true; |
BtnDownloadKontrolfil.Enabled := true; |
2017 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2018 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2019 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
2034 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
2035 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
2036 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
2037 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2038 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2039 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2040 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3657 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
3658 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3659 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3660 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3661 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3662 |
DownloadButton03.Visible := false; |
DownloadButton03.Visible := false; |
3663 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3693 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3694 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3695 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3696 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3697 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3698 |
|
|
3699 |
EKLoverforsel.Enabled := true; |
EKLoverforsel.Enabled := true; |
3730 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3731 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3732 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3733 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3734 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3735 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3736 |
InitLillePakke(); |
InitLillePakke(); |
3777 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3778 |
ListBox1.Items.Clear(); |
ListBox1.Items.Clear(); |
3779 |
|
|
3780 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3781 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3782 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3783 |
InitLillePakke(); |
InitLillePakke(); |
4540 |
ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
4541 |
end; |
end; |
4542 |
|
|
4543 |
procedure TMainForm.DownloadButton01Click(Sender: TObject); |
procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject); |
4544 |
begin |
begin |
4545 |
DownloadBladhusKontrolfil(); |
DownloadBladhusKontrolfil(); |
4546 |
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |