59 |
PakkeshopNulstil: TButton; |
PakkeshopNulstil: TButton; |
60 |
Returpakkerfrapakkeshop1: TMenuItem; |
Returpakkerfrapakkeshop1: TMenuItem; |
61 |
Altidprintepakkelabel1: TMenuItem; |
Altidprintepakkelabel1: TMenuItem; |
62 |
CheckBox2: TCheckBox; |
chkAltidPrintLabel: TCheckBox; |
63 |
EKLoverforsel: TButton; |
EKLoverforsel: TButton; |
64 |
N5: TMenuItem; |
N5: TMenuItem; |
65 |
Uploadlogfil1: TMenuItem; |
Uploadlogfil1: TMenuItem; |
85 |
PanelManglendePakker4: TPanel; |
PanelManglendePakker4: TPanel; |
86 |
PanelManglendePakker5: TPanel; |
PanelManglendePakker5: TPanel; |
87 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
88 |
|
PanelValg7: TPanel; |
89 |
|
|
90 |
function Explode(var a: TStrArray; Border, S: string): Integer; |
function Explode(var a: TStrArray; Border, S: string): Integer; |
91 |
function BarCodeValid (ACode: string): boolean; |
function BarCodeValid (ACode: string): boolean; |
151 |
procedure InitDirektelevering(); |
procedure InitDirektelevering(); |
152 |
procedure InitPakkeshoplevering(); |
procedure InitPakkeshoplevering(); |
153 |
procedure InitReturFraPakkeshop(); |
procedure InitReturFraPakkeshop(); |
154 |
|
procedure InitIndleveringskode(); |
155 |
|
|
156 |
procedure Altidprintepakkelabel1Click(Sender: TObject); |
procedure Altidprintepakkelabel1Click(Sender: TObject); |
157 |
procedure CheckBox2Click(Sender: TObject); |
procedure chkAltidPrintLabelClick(Sender: TObject); |
158 |
procedure EKLoverforselClick(Sender: TObject); |
procedure EKLoverforselClick(Sender: TObject); |
159 |
procedure Uploadlogfil1Click(Sender: TObject); |
procedure Uploadlogfil1Click(Sender: TObject); |
160 |
procedure Manual1Click(Sender: TObject); |
procedure Manual1Click(Sender: TObject); |
178 |
procedure TjekkerUrls(); |
procedure TjekkerUrls(); |
179 |
// 20150310: start |
// 20150310: start |
180 |
procedure RoundCornerOf(Control: TWinControl); |
procedure RoundCornerOf(Control: TWinControl); |
181 |
|
|
182 |
|
procedure PanelValg7Click(Sender: TObject); |
183 |
// 20150310: slut |
// 20150310: slut |
184 |
|
|
185 |
private |
private |
334 |
PanelValg6.Font.Color := clWindowText; |
PanelValg6.Font.Color := clWindowText; |
335 |
end; |
end; |
336 |
|
|
337 |
|
PanelValg7.Color := clBtnFace; |
338 |
|
if PanelValg7.Enabled = true then |
339 |
|
begin |
340 |
|
PanelValg7.Font.Color := clWindowText; |
341 |
|
end; |
342 |
|
|
343 |
OpdaterListenButton01.Enabled := false; |
OpdaterListenButton01.Enabled := false; |
344 |
|
|
345 |
if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then |
if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then |
472 |
|
|
473 |
if Altidprintepakkelabel1.Checked then |
if Altidprintepakkelabel1.Checked then |
474 |
begin |
begin |
475 |
CheckBox2.Checked := true; |
chkAltidPrintLabel.Checked := true; |
476 |
end |
end |
477 |
else |
else |
478 |
begin |
begin |
479 |
CheckBox2.Checked := false; |
chkAltidPrintLabel.Checked := false; |
480 |
end; |
end; |
481 |
|
|
482 |
end; |
end; |
563 |
|
|
564 |
// Sætter lige en default panel størrelse |
// Sætter lige en default panel størrelse |
565 |
MainForm.ClientWidth := 1000; |
MainForm.ClientWidth := 1000; |
566 |
MainForm.ClientHeight := 700; |
MainForm.ClientHeight := 750; |
567 |
|
|
568 |
// Læser parametre fra ini filen |
// Læser parametre fra ini filen |
569 |
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do |
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do |
2762 |
end |
end |
2763 |
else |
else |
2764 |
begin |
begin |
2765 |
if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then |
if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then |
2766 |
begin |
begin |
2767 |
logTekst := 'Printer label type '; |
logTekst := 'Printer label type '; |
2768 |
if (CheckBox2.Checked) then |
if (chkAltidPrintLabel.Checked) then |
2769 |
begin |
begin |
2770 |
logTekst := logTekst + 'Alle '; |
logTekst := logTekst + 'Alle '; |
2771 |
end |
end |
2875 |
end; |
end; |
2876 |
|
|
2877 |
|
|
2878 |
procedure TMainForm.CheckBox2Click(Sender: TObject); |
procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject); |
2879 |
begin |
begin |
2880 |
if CheckBox2.Checked then |
if chkAltidPrintLabel.Checked then |
2881 |
begin |
begin |
2882 |
Altidprintepakkelabel1.Checked := true; |
Altidprintepakkelabel1.Checked := true; |
2883 |
end |
end |
3423 |
PrinterstatusStaticText1.Color := MainForm.Color; |
PrinterstatusStaticText1.Color := MainForm.Color; |
3424 |
end; |
end; |
3425 |
|
|
3426 |
|
|
3427 |
procedure TMainForm.PanelValg1Click(Sender: TObject); |
procedure TMainForm.PanelValg1Click(Sender: TObject); |
3428 |
begin |
begin |
3429 |
Scanningtype := '1'; |
Scanningtype := '1'; |
3466 |
NulstilAutomatiskValg(); |
NulstilAutomatiskValg(); |
3467 |
end; |
end; |
3468 |
|
|
3469 |
|
|
3470 |
|
procedure TMainForm.PanelValg7Click(Sender: TObject); |
3471 |
|
begin |
3472 |
|
Scanningtype := '7'; |
3473 |
|
InitIndleveringskode(); |
3474 |
|
NulstilAutomatiskValg(); |
3475 |
|
|
3476 |
|
end; |
3477 |
|
|
3478 |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
3479 |
begin |
begin |
3480 |
// 20150311: start |
// 20150311: start |
3816 |
PanelValg1.Color := clGreen; |
PanelValg1.Color := clGreen; |
3817 |
PanelValg1.Font.Color := clWhite; |
PanelValg1.Font.Color := clWhite; |
3818 |
CheckBox1.Enabled := true; |
CheckBox1.Enabled := true; |
3819 |
CheckBox2.Enabled := true; |
chkAltidPrintLabel.Enabled := true; |
3820 |
Altidprintepakkelabel1.Enabled := true; |
Altidprintepakkelabel1.Enabled := true; |
3821 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3822 |
CheckBox2.Checked := false; |
chkAltidPrintLabel.Checked := false; |
3823 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3824 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
3825 |
Sprgefterboghandlernummer1.Enabled := true; |
Sprgefterboghandlernummer1.Enabled := true; |
3848 |
PanelValg2.Color := clGreen; |
PanelValg2.Color := clGreen; |
3849 |
PanelValg2.Font.Color := clWhite; |
PanelValg2.Font.Color := clWhite; |
3850 |
CheckBox1.Enabled := false; |
CheckBox1.Enabled := false; |
3851 |
CheckBox2.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3852 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3853 |
CheckBox2.Checked := false; |
|
3854 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3855 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3856 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
3875 |
PanelValg3.Color := clGreen; |
PanelValg3.Color := clGreen; |
3876 |
PanelValg3.Font.Color := clWhite; |
PanelValg3.Font.Color := clWhite; |
3877 |
CheckBox1.Enabled := false; |
CheckBox1.Enabled := false; |
3878 |
CheckBox2.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3879 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
|
CheckBox2.Checked := false; |
|
3880 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3881 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3882 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
3901 |
PanelValg4.Color := clGreen; |
PanelValg4.Color := clGreen; |
3902 |
PanelValg4.Font.Color := clWhite; |
PanelValg4.Font.Color := clWhite; |
3903 |
CheckBox1.Enabled := false; |
CheckBox1.Enabled := false; |
3904 |
CheckBox2.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3905 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3906 |
CheckBox2.Checked := false; |
|
3907 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3908 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3909 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
3937 |
PanelValg5.Color := clGreen; |
PanelValg5.Color := clGreen; |
3938 |
PanelValg5.Font.Color := clWhite; |
PanelValg5.Font.Color := clWhite; |
3939 |
CheckBox1.Enabled := false; |
CheckBox1.Enabled := false; |
3940 |
CheckBox2.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3941 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3942 |
CheckBox2.Checked := false; |
|
3943 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3944 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3945 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
3975 |
PanelValg6.Color := clGreen; |
PanelValg6.Color := clGreen; |
3976 |
PanelValg6.Font.Color := clWhite; |
PanelValg6.Font.Color := clWhite; |
3977 |
CheckBox1.Enabled := false; |
CheckBox1.Enabled := false; |
3978 |
CheckBox2.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3979 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3980 |
CheckBox2.Checked := false; |
|
3981 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3982 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3983 |
CheckBox1.Checked := false; |
CheckBox1.Checked := false; |
4008 |
InitReturFraKunde(); |
InitReturFraKunde(); |
4009 |
end; |
end; |
4010 |
|
|
4011 |
|
procedure TMainForm.InitIndleveringskode(); |
4012 |
|
begin |
4013 |
|
AutomatiskTjekkodeStyring1.Enabled := false; |
4014 |
|
Returpakkerfrapakkeshop1.Checked := true; |
4015 |
|
PakkeshopNulstil.Visible := false; |
4016 |
|
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
4017 |
|
PanelValg7.Color := clGreen; |
4018 |
|
PanelValg7.Font.Color := clWhite; |
4019 |
|
CheckBox1.Enabled := false; |
4020 |
|
chkAltidPrintLabel.Enabled := false; |
4021 |
|
Altidprintepakkelabel1.Enabled := false; |
4022 |
|
|
4023 |
|
Altidprintepakkelabel1.Checked := false; |
4024 |
|
Sprgefterboghandlernummer1.Checked := false; |
4025 |
|
CheckBox1.Checked := false; |
4026 |
|
Sprgefterboghandlernummer1.Enabled := false; |
4027 |
|
Smpakker1.Enabled := false; |
4028 |
|
Storepakker1.Enabled := false; |
4029 |
|
RadioButton1.Enabled := false; |
4030 |
|
RadioButton2.Enabled := false; |
4031 |
|
ListBox1.Visible := true; |
4032 |
|
ListBox1.Items.Clear; |
4033 |
|
DownloadButton01.Enabled := false; |
4034 |
|
OpdaterListenButton01.Enabled := true; |
4035 |
|
EKLoverforsel.Enabled := false; |
4036 |
|
InitLillePakke(); |
4037 |
|
IndlesScanningLogFil(); |
4038 |
|
if BladhusSted = 0 then |
4039 |
|
begin |
4040 |
|
IndlesManglendeScanninger(); |
4041 |
|
end; |
4042 |
|
IdFTP1.Passive := true; |
4043 |
|
IdFTP1.PassiveUseControlHost := true; |
4044 |
|
end; |
4045 |
|
|
4046 |
|
|
4047 |
procedure TMainForm.Storepakker1Click(Sender: TObject); |
procedure TMainForm.Storepakker1Click(Sender: TObject); |
4048 |
begin |
begin |
4049 |
InitStorPakke(); |
InitStorPakke(); |
5560 |
function TMainForm.getProddag() : String; |
function TMainForm.getProddag() : String; |
5561 |
begin |
begin |
5562 |
// ShowMessage(LongDayNames[DayOfWeek(getProddato())]); |
// ShowMessage(LongDayNames[DayOfWeek(getProddato())]); |
5563 |
result := LongDayNames[DayOfWeek(getProddato())]; |
result := FormatSettings.LongDayNames[DayOfWeek(getProddato())]; |
5564 |
//result := 'lørdag'; // MENS VI TESTER kan vi fremtvinge lørdag situation her |
//result := 'lørdag'; // MENS VI TESTER kan vi fremtvinge lørdag situation her |
5565 |
end; |
end; |
5566 |
|
|