88 |
PanelManglendePakker4: TPanel; |
PanelManglendePakker4: TPanel; |
89 |
PanelManglendePakker5: TPanel; |
PanelManglendePakker5: TPanel; |
90 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
91 |
|
menuIndlevering: TMenuItem; |
92 |
|
|
93 |
|
|
94 |
function Explode(var a: TStrArray; Border, S: string): Integer; |
function Explode(var a: TStrArray; Border, S: string): Integer; |
184 |
procedure TjekkerUrls(); |
procedure TjekkerUrls(); |
185 |
// 20150310: start |
// 20150310: start |
186 |
procedure RoundCornerOf(Control: TWinControl); |
procedure RoundCornerOf(Control: TWinControl); |
187 |
|
procedure menuIndleveringClick(Sender: TObject); |
188 |
|
|
189 |
|
|
190 |
// 20150310: slut |
// 20150310: slut |
3468 |
end; |
end; |
3469 |
end; |
end; |
3470 |
|
|
3471 |
|
procedure TMainForm.menuIndleveringClick(Sender: TObject); |
3472 |
|
begin |
3473 |
|
Scanningtype := '7'; |
3474 |
|
NulstilAutomatiskValg(); |
3475 |
|
InitIndleveringskode(); |
3476 |
|
end; |
3477 |
|
|
3478 |
procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject); |
procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject); |
3479 |
begin |
begin |
3480 |
|
|
3706 |
|
|
3707 |
procedure TMainForm.InitIndleveringskode(); |
procedure TMainForm.InitIndleveringskode(); |
3708 |
begin |
begin |
3709 |
|
menuIndlevering.Checked := true; |
3710 |
AutomatiskTjekkodeStyring1.Enabled := false; |
AutomatiskTjekkodeStyring1.Enabled := false; |
3711 |
Returpakkerfrapakkeshop1.Checked := true; |
|
3712 |
PakkeshopNulstil.Visible := false; |
PakkeshopNulstil.Visible := false; |
3713 |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
3714 |
PanelValg7.Color := clGreen; |
PanelValg7.Color := clGreen; |
3734 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
3735 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3736 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3737 |
// InitLillePakke(); |
InitLillePakke(); |
3738 |
// IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3739 |
// if BladhusSted = 0 then |
if BladhusSted = 0 then |
3740 |
// begin |
begin |
3741 |
// IndlesManglendeScanninger(); |
IndlesManglendeScanninger(); |
3742 |
// end; |
end; |
3743 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3744 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3745 |
end; |
end; |