282 |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
283 |
begin |
begin |
284 |
|
|
285 |
// 20150309: startr |
|
286 |
StaticTextManglendePakker.Caption := ''; |
StaticTextManglendePakker.Caption := ''; |
287 |
// 20150309: slut |
|
288 |
|
|
289 |
Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component |
Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component |
290 |
|
|
1888 |
PanelManglendePakker6.Visible := false; |
PanelManglendePakker6.Visible := false; |
1889 |
end; |
end; |
1890 |
end; |
end; |
1891 |
// 20150310: slut |
|
1892 |
ListBox2.items.delete(i); |
ListBox2.items.delete(i); |
1893 |
end; |
end; |
1894 |
end; |
end; |
1924 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
1925 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
1926 |
// TestFunktionen := '1'; |
// TestFunktionen := '1'; |
1927 |
// 20150317: start |
|
|
(* |
|
|
if TestFunktionen = '1' then |
|
|
begin |
|
|
Testforbindelsen1.Visible := true; |
|
|
Testprinter1.Visible := true; |
|
|
Testlyd1.Visible := true; |
|
|
Testlyd2.Visible := true; |
|
|
end |
|
|
else if TestFunktionen = '2' then |
|
|
begin |
|
|
Testforbindelsen1.Enabled := false; |
|
|
Testprinter1.Enabled := false; |
|
|
Testlyd1.Enabled := false; |
|
|
Testlyd2.Enabled := false; |
|
|
end |
|
|
else |
|
|
begin |
|
|
Testforbindelsen1.Visible := false; |
|
|
Testprinter1.Visible := false; |
|
|
Testlyd1.Visible := false; |
|
|
Testlyd2.Visible := false; |
|
|
end; |
|
|
Testprinter1.Visible := false; |
|
|
AlarmLyd := 'Sounds\Alarm.wav'; |
|
|
if not FileExists(AlarmLyd) then |
|
|
begin |
|
|
AlarmLyd := ''; |
|
|
end; |
|
|
ScannetOkLyd := 'Sounds\Ok.wav'; |
|
|
if not FileExists(ScannetOkLyd) then |
|
|
begin |
|
|
ScannetOkLyd := ''; |
|
|
end; |
|
|
ScannetOkStorLyd := 'Sounds\Ok_stor.wav'; |
|
|
if not FileExists(ScannetOkStorLyd) then |
|
|
begin |
|
|
ScannetOkStorLyd := ''; |
|
|
end; |
|
|
*) |
|
|
// 20150317: slut |
|
1928 |
if Budlevering1.Checked then |
if Budlevering1.Checked then |
1929 |
begin |
begin |
1930 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
2831 |
if Farve <> '' then |
if Farve <> '' then |
2832 |
begin |
begin |
2833 |
MainForm.Color := TUtils.HexToTColor(Farve); |
MainForm.Color := TUtils.HexToTColor(Farve); |
|
// 20150312: start |
|
|
(* |
|
|
end |
|
|
else |
|
|
begin |
|
|
ShowMessage('Programmet afbrydes...'); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
*) |
|
|
// 20150312: slut |
|
2834 |
end; |
end; |
2835 |
if (Budlevering1.Checked) then |
if (Budlevering1.Checked) then |
2836 |
begin |
begin |
3542 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
3543 |
StedKode := Sted; |
StedKode := Sted; |
3544 |
URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]); |
URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]); |
3545 |
// 20150330: start |
|
3546 |
if PanelValg5.Color = clGreen then |
if PanelValg5.Color = clGreen then |
3547 |
begin |
begin |
3548 |
URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]); |
URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]); |
3549 |
end; |
end; |
3550 |
// 20150330: slut |
|
3551 |
|
|
3552 |
try |
try |
3553 |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
4438 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4439 |
if (tjekkodestatus = '-1') then |
if (tjekkodestatus = '-1') then |
4440 |
begin |
begin |
4441 |
// 20150306: start |
|
|
// stregkoderMedTjekkodeArray[linienr] := stregkode; |
|
4442 |
if (pos(' ', stregkode) > 0) then |
if (pos(' ', stregkode) > 0) then |
4443 |
begin |
begin |
4444 |
stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2); // Fjerner lige en evt. fremtidig dato fra feltet |
stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2); // Fjerner lige en evt. fremtidig dato fra feltet |