65 |
Returpakkerfrapakkeshop1: TMenuItem; |
Returpakkerfrapakkeshop1: TMenuItem; |
66 |
Altidprintepakkelabel1: TMenuItem; |
Altidprintepakkelabel1: TMenuItem; |
67 |
chkAltidPrintLabel: TCheckBox; |
chkAltidPrintLabel: TCheckBox; |
68 |
EKLoverforsel: TButton; |
BtnEKLoverforsel: TButton; |
69 |
N5: TMenuItem; |
N5: TMenuItem; |
70 |
Uploadlogfil1: TMenuItem; |
Uploadlogfil1: TMenuItem; |
71 |
Manual1: TMenuItem; |
Manual1: TMenuItem; |
152 |
|
|
153 |
procedure Altidprintepakkelabel1Click(Sender: TObject); |
procedure Altidprintepakkelabel1Click(Sender: TObject); |
154 |
procedure chkAltidPrintLabelClick(Sender: TObject); |
procedure chkAltidPrintLabelClick(Sender: TObject); |
155 |
procedure EKLoverforselClick(Sender: TObject); |
procedure BtnEKLoverforselClick(Sender: TObject); |
156 |
procedure Uploadlogfil1Click(Sender: TObject); |
procedure Uploadlogfil1Click(Sender: TObject); |
157 |
procedure Manual1Click(Sender: TObject); |
procedure Manual1Click(Sender: TObject); |
158 |
procedure Timer1Timer(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
3543 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3544 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3545 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3546 |
EKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3547 |
InitLillePakke(); |
InitLillePakke(); |
3548 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3549 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3576 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3577 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3578 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3579 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3580 |
InitLillePakke(); |
InitLillePakke(); |
3581 |
end; |
end; |
3582 |
|
|
3602 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3603 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3604 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3605 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3606 |
InitLillePakke(); |
InitLillePakke(); |
3607 |
end; |
end; |
3608 |
|
|
3631 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3632 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3633 |
BtnDownloadRuteskiftFil.Visible := false; |
BtnDownloadRuteskiftFil.Visible := false; |
3634 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3635 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3636 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3637 |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
3667 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3668 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3669 |
|
|
3670 |
EKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3671 |
|
|
3672 |
InitLillePakke(); |
InitLillePakke(); |
3673 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3703 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3704 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3705 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3706 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3707 |
InitLillePakke(); |
InitLillePakke(); |
3708 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3709 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3750 |
|
|
3751 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3752 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3753 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3754 |
InitLillePakke(); |
InitLillePakke(); |
3755 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3756 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3859 |
CheckCode(); |
CheckCode(); |
3860 |
end; |
end; |
3861 |
|
|
3862 |
procedure TMainForm.EKLoverforselClick(Sender: TObject); |
procedure TMainForm.BtnEKLoverforselClick(Sender: TObject); |
3863 |
var |
var |
3864 |
WebSvar : String; |
WebSvar : String; |
3865 |
URLStr : String; |
URLStr : String; |
3869 |
status, kommentar : String; |
status, kommentar : String; |
3870 |
|
|
3871 |
begin |
begin |
3872 |
EKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3873 |
|
|
3874 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL'); |
3875 |
logTekst := 'Overfører de scannede pakker til EKL'; |
logTekst := 'Overfører de scannede pakker til EKL'; |
3932 |
end; |
end; |
3933 |
end; |
end; |
3934 |
|
|
3935 |
EKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3936 |
|
|
3937 |
ListBox1.SetFocus; // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
ListBox1.SetFocus; // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
3938 |
|
|