56 |
radioStorPakke: TRadioButton; |
radioStorPakke: TRadioButton; |
57 |
radioLillePakke: TRadioButton; |
radioLillePakke: TRadioButton; |
58 |
N4: TMenuItem; |
N4: TMenuItem; |
59 |
Storepakker1: TMenuItem; |
menuStorePakker: TMenuItem; |
60 |
Smpakker1: TMenuItem; |
menuSmaaPakker: TMenuItem; |
61 |
Panel1: TPanel; |
Panel1: TPanel; |
62 |
Testlyd2: TMenuItem; |
Testlyd2: TMenuItem; |
63 |
Button1: TButton; |
Button1: TButton; |
85 |
Timer1: TTimer; |
Timer1: TTimer; |
86 |
chkScanTjekkode: TCheckBox; |
chkScanTjekkode: TCheckBox; |
87 |
Scanogstjekkoden1: TMenuItem; |
Scanogstjekkoden1: TMenuItem; |
88 |
Automatisktjekkodestyring1: TMenuItem; |
menuAutomatiskTjekkodeStyring: TMenuItem; |
89 |
menuAutomatiskvalg1: TMenuItem; |
menuAutomatiskvalg1: TMenuItem; |
90 |
PanelValgA: TPanel; |
PanelValgA: TPanel; |
91 |
PanelValg1: TPanel; |
PanelValg1: TPanel; |
136 |
procedure Sprgefterboghandlernummer1Click(Sender: TObject); |
procedure Sprgefterboghandlernummer1Click(Sender: TObject); |
137 |
procedure menuNatxpressReturDAO1Click(Sender: TObject); |
procedure menuNatxpressReturDAO1Click(Sender: TObject); |
138 |
procedure menuNatxpressReturfraKunde1Click(Sender: TObject); |
procedure menuNatxpressReturfraKunde1Click(Sender: TObject); |
139 |
procedure Storepakker1Click(Sender: TObject); |
procedure menuStorePakkerClick(Sender: TObject); |
140 |
procedure Smpakker1Click(Sender: TObject); |
procedure menuSmaaPakkerClick(Sender: TObject); |
141 |
procedure Testlyd1Click(Sender: TObject); |
procedure Testlyd1Click(Sender: TObject); |
142 |
procedure Testlyd2Click(Sender: TObject); |
procedure Testlyd2Click(Sender: TObject); |
143 |
procedure Button1Click(Sender: TObject); |
procedure Button1Click(Sender: TObject); |
173 |
procedure Timer1Timer(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
174 |
procedure Scanogstjekkoden1Click(Sender: TObject); |
procedure Scanogstjekkoden1Click(Sender: TObject); |
175 |
procedure chkScanTjekkodeClick(Sender: TObject); |
procedure chkScanTjekkodeClick(Sender: TObject); |
176 |
procedure Automatisktjekkodestyring1Click(Sender: TObject); |
procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject); |
177 |
procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
178 |
procedure menuAutomatiskvalg1Click(Sender: TObject); |
procedure menuAutomatiskvalg1Click(Sender: TObject); |
179 |
procedure PanelValgAClick(Sender: TObject); |
procedure PanelValgAClick(Sender: TObject); |
431 |
end; |
end; |
432 |
end; |
end; |
433 |
|
|
434 |
if Automatisktjekkodestyring1.Checked then |
if menuAutomatiskTjekkodeStyring.Checked then |
435 |
begin |
begin |
436 |
chkScanTjekkode.Enabled := false; |
chkScanTjekkode.Enabled := false; |
437 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
489 |
StregkodeST.Caption := Stregkode; |
StregkodeST.Caption := Stregkode; |
490 |
end; |
end; |
491 |
|
|
492 |
procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject); |
procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject); |
493 |
begin |
begin |
494 |
if Automatisktjekkodestyring1.Checked then |
if menuAutomatiskTjekkodeStyring.Checked then |
495 |
begin |
begin |
496 |
chkScanTjekkode.Enabled := false; |
chkScanTjekkode.Enabled := false; |
497 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
707 |
|
|
708 |
if ScanTjekkodeAutomatik = '1' then |
if ScanTjekkodeAutomatik = '1' then |
709 |
begin |
begin |
710 |
Automatisktjekkodestyring1.Checked := true; |
menuAutomatiskTjekkodeStyring.Checked := true; |
711 |
chkScanTjekkode.Enabled := false; |
chkScanTjekkode.Enabled := false; |
712 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
713 |
end; |
end; |
1029 |
|
|
1030 |
if Pakketype = '1' then |
if Pakketype = '1' then |
1031 |
begin |
begin |
1032 |
Storepakker1.Checked := true; |
menuStorePakker.Checked := true; |
1033 |
radioStorPakke.Checked := true; |
radioStorPakke.Checked := true; |
1034 |
end |
end |
1035 |
else |
else |
1036 |
begin |
begin |
1037 |
Smpakker1.Checked := true; |
menuSmaaPakker.Checked := true; |
1038 |
radioLillePakke.Checked := true; |
radioLillePakke.Checked := true; |
1039 |
end; |
end; |
1040 |
|
|
1097 |
menuNatxpressReturDAO1.Visible := false; |
menuNatxpressReturDAO1.Visible := false; |
1098 |
menuNatxpressReturfraKunde1.Visible := false; |
menuNatxpressReturfraKunde1.Visible := false; |
1099 |
menuDaoDirekte1.Visible := false; |
menuDaoDirekte1.Visible := false; |
1100 |
Storepakker1.Visible := false; |
menuStorePakker.Visible := false; |
1101 |
Smpakker1.Visible := false; |
menuSmaaPakker.Visible := false; |
1102 |
Testprinter1.Visible := false; |
Testprinter1.Visible := false; |
1103 |
menuPakkeshop1.Visible := false; |
menuPakkeshop1.Visible := false; |
1104 |
menuPakkeshopRetur1.Visible := false; |
menuPakkeshopRetur1.Visible := false; |
1575 |
|
|
1576 |
|
|
1577 |
|
|
1578 |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then |
1579 |
begin |
begin |
1580 |
chkScanTjekkode.Checked := false; |
chkScanTjekkode.Checked := false; |
1581 |
for i := 0 to length(stregkoderMedTjekkodeArray)-1 do |
for i := 0 to length(stregkoderMedTjekkodeArray)-1 do |
1701 |
if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then |
if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then |
1702 |
begin |
begin |
1703 |
MainForm.Color := TUtils.HexToTColor(Farve); |
MainForm.Color := TUtils.HexToTColor(Farve); |
1704 |
if Storepakker1.Checked then |
if menuStorePakker.Checked then |
1705 |
begin |
begin |
1706 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(ScannetOkStorLyd)); |
1707 |
end |
end |
1714 |
else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then |
else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then |
1715 |
begin |
begin |
1716 |
MainForm.Color := TUtils.HexToTColor(Farve); |
MainForm.Color := TUtils.HexToTColor(Farve); |
1717 |
if Storepakker1.Checked then |
if menuStorePakker.Checked then |
1718 |
begin |
begin |
1719 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(ScannetOkStorLyd)); |
1720 |
end |
end |
1741 |
|
|
1742 |
If (menuDaoDirekte1.Checked) then |
If (menuDaoDirekte1.Checked) then |
1743 |
begin |
begin |
1744 |
if Storepakker1.Checked then |
if menuStorePakker.Checked then |
1745 |
begin |
begin |
1746 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(ScannetOkStorLyd)); |
1747 |
end |
end |
2015 |
02 : |
02 : |
2016 |
begin; // BK |
begin; // BK |
2017 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
2018 |
Smpakker1.Enabled := true; |
menuSmaaPakker.Enabled := true; |
2019 |
Storepakker1.Enabled := true; |
menuStorePakker.Enabled := true; |
2020 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
2021 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
2022 |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2053 |
end; |
end; |
2054 |
04 : begin; // DBK |
04 : begin; // DBK |
2055 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
2056 |
Smpakker1.Enabled := true; |
menuSmaaPakker.Enabled := true; |
2057 |
Storepakker1.Enabled := true; |
menuStorePakker.Enabled := true; |
2058 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
2059 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
2060 |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2543 |
|
|
2544 |
procedure TMainForm.radioStorPakkeClick(Sender: TObject); |
procedure TMainForm.radioStorPakkeClick(Sender: TObject); |
2545 |
begin |
begin |
2546 |
Storepakker1.Checked := true; |
menuStorePakker.Checked := true; |
2547 |
radioStorPakke.Checked := true; |
radioStorPakke.Checked := true; |
2548 |
end; |
end; |
2549 |
|
|
2550 |
procedure TMainForm.radioLillePakkeClick(Sender: TObject); |
procedure TMainForm.radioLillePakkeClick(Sender: TObject); |
2551 |
begin |
begin |
2552 |
Smpakker1.Checked := true; |
menuSmaaPakker.Checked := true; |
2553 |
radioLillePakke.Checked := true; |
radioLillePakke.Checked := true; |
2554 |
end; |
end; |
2555 |
|
|
3204 |
|
|
3205 |
procedure TMainForm.InitNatxpresslevering(); |
procedure TMainForm.InitNatxpresslevering(); |
3206 |
begin |
begin |
3207 |
AutomatiskTjekkodeStyring1.Enabled := true; |
menuAutomatiskTjekkodeStyring.Enabled := true; |
3208 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3209 |
menuNatXpress1.Checked := true; |
menuNatXpress1.Checked := true; |
3210 |
InitForm(FarveNormal,TitelNormal,UrlNormal); |
InitForm(FarveNormal,TitelNormal,UrlNormal); |
3218 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3219 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3220 |
Sprgefterboghandlernummer1.Enabled := true; |
Sprgefterboghandlernummer1.Enabled := true; |
3221 |
Smpakker1.Enabled := false; |
menuSmaaPakker.Enabled := false; |
3222 |
Storepakker1.Enabled := false; |
menuStorePakker.Enabled := false; |
3223 |
radioStorPakke.Enabled := false; |
radioStorPakke.Enabled := false; |
3224 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3225 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3240 |
|
|
3241 |
procedure TMainForm.InitReturFraDao(); |
procedure TMainForm.InitReturFraDao(); |
3242 |
begin |
begin |
3243 |
AutomatiskTjekkodeStyring1.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3244 |
menuNatxpressReturDAO1.Checked := true; |
menuNatxpressReturDAO1.Checked := true; |
3245 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3246 |
InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO); |
InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO); |
3254 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3255 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3256 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3257 |
Smpakker1.Enabled := true; |
menuSmaaPakker.Enabled := true; |
3258 |
Storepakker1.Enabled := true; |
menuStorePakker.Enabled := true; |
3259 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
3260 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
3261 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3271 |
|
|
3272 |
procedure TMainForm.InitReturFraKunde(); |
procedure TMainForm.InitReturFraKunde(); |
3273 |
begin |
begin |
3274 |
AutomatiskTjekkodeStyring1.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3275 |
menuNatxpressReturfraKunde1.Checked := true; |
menuNatxpressReturfraKunde1.Checked := true; |
3276 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3277 |
InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler); |
InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler); |
3284 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3285 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3286 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3287 |
Smpakker1.Enabled := true; |
menuSmaaPakker.Enabled := true; |
3288 |
Storepakker1.Enabled := true; |
menuStorePakker.Enabled := true; |
3289 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
3290 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
3291 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3301 |
|
|
3302 |
procedure TMainForm.InitDirektelevering(); |
procedure TMainForm.InitDirektelevering(); |
3303 |
begin |
begin |
3304 |
AutomatiskTjekkodeStyring1.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3305 |
menuDaoDirekte1.Checked := true; |
menuDaoDirekte1.Checked := true; |
3306 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3307 |
InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering); |
InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering); |
3315 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3316 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3317 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3318 |
Smpakker1.Enabled := true; |
menuSmaaPakker.Enabled := true; |
3319 |
Storepakker1.Enabled := true; |
menuStorePakker.Enabled := true; |
3320 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
3321 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
3322 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3341 |
|
|
3342 |
procedure TMainForm.InitPakkeshoplevering(); |
procedure TMainForm.InitPakkeshoplevering(); |
3343 |
begin |
begin |
3344 |
AutomatiskTjekkodeStyring1.Enabled := true; |
menuAutomatiskTjekkodeStyring.Enabled := true; |
3345 |
menuPakkeshop1.Checked := true; |
menuPakkeshop1.Checked := true; |
3346 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3347 |
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering); |
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering); |
3355 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3356 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3357 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3358 |
Smpakker1.Enabled := false; |
menuSmaaPakker.Enabled := false; |
3359 |
Storepakker1.Enabled := false; |
menuStorePakker.Enabled := false; |
3360 |
radioStorPakke.Enabled := false; |
radioStorPakke.Enabled := false; |
3361 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3362 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3381 |
|
|
3382 |
procedure TMainForm.InitReturFraPakkeshop(); |
procedure TMainForm.InitReturFraPakkeshop(); |
3383 |
begin |
begin |
3384 |
AutomatiskTjekkodeStyring1.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3385 |
menuPakkeshopRetur1.Checked := true; |
menuPakkeshopRetur1.Checked := true; |
3386 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3387 |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
3395 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3396 |
chkSporgEfterKunde.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3397 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3398 |
Smpakker1.Enabled := false; |
menuSmaaPakker.Enabled := false; |
3399 |
Storepakker1.Enabled := false; |
menuStorePakker.Enabled := false; |
3400 |
radioStorPakke.Enabled := false; |
radioStorPakke.Enabled := false; |
3401 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3402 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3429 |
procedure TMainForm.InitIndleveringskode(); |
procedure TMainForm.InitIndleveringskode(); |
3430 |
begin |
begin |
3431 |
menuIndlevering.Checked := true; |
menuIndlevering.Checked := true; |
3432 |
AutomatiskTjekkodeStyring1.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3433 |
|
|
3434 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3435 |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
3446 |
|
|
3447 |
|
|
3448 |
|
|
3449 |
Smpakker1.Enabled := false; |
menuSmaaPakker.Enabled := false; |
3450 |
Storepakker1.Enabled := false; |
menuStorePakker.Enabled := false; |
3451 |
radioStorPakke.Enabled := false; |
radioStorPakke.Enabled := false; |
3452 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3453 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3472 |
end; |
end; |
3473 |
|
|
3474 |
|
|
3475 |
procedure TMainForm.Storepakker1Click(Sender: TObject); |
procedure TMainForm.menuStorePakkerClick(Sender: TObject); |
3476 |
begin |
begin |
3477 |
InitStorPakke(); |
InitStorPakke(); |
3478 |
end; |
end; |
3479 |
|
|
3480 |
procedure TMainForm.Smpakker1Click(Sender: TObject); |
procedure TMainForm.menuSmaaPakkerClick(Sender: TObject); |
3481 |
begin |
begin |
3482 |
InitLillePakke(); |
InitLillePakke(); |
3483 |
end; |
end; |
3485 |
procedure TMainForm.InitLillePakke(); |
procedure TMainForm.InitLillePakke(); |
3486 |
begin |
begin |
3487 |
radioLillePakke.Checked := true; |
radioLillePakke.Checked := true; |
3488 |
Smpakker1.Checked := true; |
menuSmaaPakker.Checked := true; |
3489 |
// Stregkode := ''; |
// Stregkode := ''; |
3490 |
end; |
end; |
3491 |
|
|
3492 |
procedure TMainForm.InitStorPakke(); |
procedure TMainForm.InitStorPakke(); |
3493 |
begin |
begin |
3494 |
radioStorPakke.Checked := true; |
radioStorPakke.Checked := true; |
3495 |
Storepakker1.Checked := true; |
menuStorePakker.Checked := true; |
3496 |
// 20150310: start |
// 20150310: start |
3497 |
// Stregkode := ''; |
// Stregkode := ''; |
3498 |
// 20150310: slut |
// 20150310: slut |
3536 |
exit; |
exit; |
3537 |
end; |
end; |
3538 |
|
|
3539 |
if Smpakker1.Checked then |
if menuSmaaPakker.Checked then |
3540 |
if ScannetOkLyd <> '' then |
if ScannetOkLyd <> '' then |
3541 |
begin |
begin |
3542 |
PlaySound(PWideChar(ScannetOkLyd)); |
PlaySound(PWideChar(ScannetOkLyd)); |
3545 |
begin |
begin |
3546 |
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); |
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); |
3547 |
end; |
end; |
3548 |
if Storepakker1.Checked then |
if menuStorePakker.Checked then |
3549 |
if ScannetOkStorLyd <> '' then |
if ScannetOkStorLyd <> '' then |
3550 |
begin |
begin |
3551 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(ScannetOkStorLyd)); |