258 |
procedure IndlesScanningLogFil(); |
procedure IndlesScanningLogFil(); |
259 |
procedure SkrivScanningLogFil(var tekst : string); |
procedure SkrivScanningLogFil(var tekst : string); |
260 |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
261 |
|
procedure VisAlarmSkaerm(strMessage: string); |
262 |
|
|
263 |
public |
public |
264 |
{ Public declarations } |
{ Public declarations } |
1153 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
1154 |
Koreliste : String; |
Koreliste : String; |
1155 |
PrintNyLabel : Boolean; |
PrintNyLabel : Boolean; |
|
List1msg : String; |
|
1156 |
pakkeErScannet : Integer; |
pakkeErScannet : Integer; |
1157 |
pakkeForkertSted : Integer; |
pakkeForkertSted : Integer; |
1158 |
tjekkodeMangler : Integer; |
tjekkodeMangler : Integer; |
1169 |
URLStr : String; |
URLStr : String; |
1170 |
Pakketype : String; |
Pakketype : String; |
1171 |
Pakkescanningtype : String; |
Pakkescanningtype : String; |
1172 |
|
//List1msg : String; |
1173 |
|
|
1174 |
begin |
begin |
1175 |
|
|
1209 |
begin |
begin |
1210 |
if (Length(Trim(Stregkode)) = 0) then |
if (Length(Trim(Stregkode)) = 0) then |
1211 |
begin |
begin |
1212 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'Der skal scannes en stregkode...' ); |
1213 |
List1msg := 'Der skal scannes en stregkode...'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1214 |
exit; |
exit; |
1215 |
end; |
end; |
1216 |
|
|
1222 |
|
|
1223 |
if PakkeshopNulstil.Visible then |
if PakkeshopNulstil.Visible then |
1224 |
begin |
begin |
1225 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' ); |
|
List1msg := 'HUSK at klikke Nulstil før ny scanning...'; |
|
1226 |
|
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
KommentarST.Caption := List1msg; |
|
|
Stregkode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1227 |
exit; |
exit; |
1228 |
end; |
end; |
1229 |
|
|
1235 |
end |
end |
1236 |
else |
else |
1237 |
begin |
begin |
1238 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1239 |
end; |
end; |
1240 |
Stregkode := ''; |
Stregkode := ''; |
1241 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1250 |
end |
end |
1251 |
else |
else |
1252 |
begin |
begin |
1253 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1254 |
end; |
end; |
1255 |
Stregkode := ''; |
Stregkode := ''; |
1256 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1272 |
end |
end |
1273 |
else |
else |
1274 |
begin |
begin |
1275 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1276 |
end; |
end; |
1277 |
Stregkode := ''; |
Stregkode := ''; |
1278 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1294 |
end |
end |
1295 |
else |
else |
1296 |
begin |
begin |
1297 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1298 |
end; |
end; |
1299 |
Stregkode := ''; |
Stregkode := ''; |
1300 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1309 |
end |
end |
1310 |
else |
else |
1311 |
begin |
begin |
1312 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1313 |
end; |
end; |
1314 |
Stregkode := ''; |
Stregkode := ''; |
1315 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1325 |
end |
end |
1326 |
else |
else |
1327 |
begin |
begin |
1328 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1329 |
end; |
end; |
1330 |
Stregkode := ''; |
Stregkode := ''; |
1331 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1340 |
end |
end |
1341 |
else |
else |
1342 |
begin |
begin |
1343 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1344 |
end; |
end; |
1345 |
Stregkode := ''; |
Stregkode := ''; |
1346 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1355 |
end |
end |
1356 |
else |
else |
1357 |
begin |
begin |
1358 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1359 |
end; |
end; |
1360 |
Stregkode := ''; |
Stregkode := ''; |
1361 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1370 |
end |
end |
1371 |
else |
else |
1372 |
begin |
begin |
1373 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1374 |
end; |
end; |
1375 |
Stregkode := ''; |
Stregkode := ''; |
1376 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1385 |
end |
end |
1386 |
else |
else |
1387 |
begin |
begin |
1388 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1389 |
end; |
end; |
1390 |
Stregkode := ''; |
Stregkode := ''; |
1391 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1400 |
end |
end |
1401 |
else |
else |
1402 |
begin |
begin |
1403 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
// Her skal komme en 'rød skærm' alarm |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1404 |
end; |
end; |
1405 |
Stregkode := ''; |
Stregkode := ''; |
1406 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1461 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
1462 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
1463 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1464 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
|
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1465 |
|
|
1466 |
exit; |
exit; |
1467 |
end; |
end; |
1498 |
// Retur kan ikke scannes med 'Automatisk valg' |
// Retur kan ikke scannes med 'Automatisk valg' |
1499 |
|
|
1500 |
else |
else |
1501 |
begin // Her skal komme en alarm og rød skærm |
begin |
1502 |
PlaySound(PWideChar(AlarmLyd)); |
// Her skal komme en alarm og rød skærm |
1503 |
List1msg := 'Pakken kan ikke scannes med automatisk valg'; |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
|
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1504 |
|
|
1505 |
exit; |
exit; |
1506 |
end; |
end; |
1508 |
end |
end |
1509 |
else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then |
else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then |
1510 |
begin |
begin |
1511 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' ); |
|
List1msg := 'Pakkenummer ikke gyldigt (for kort)'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
|
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1512 |
|
|
1513 |
exit; |
exit; |
1514 |
end; |
end; |
1517 |
begin |
begin |
1518 |
if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then |
if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then |
1519 |
begin |
begin |
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := 'Pakke findes som pakketype: ' + Pakketype; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
1520 |
|
|
1521 |
RuteNummerST.Caption := ''; |
VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype ); |
|
BoghandlerNavnST.Caption := ''; |
|
1522 |
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1523 |
exit; |
exit; |
1524 |
end; |
end; |
1525 |
end; |
end; |
1569 |
PakkeshopStregkode := Stregkode; |
PakkeshopStregkode := Stregkode; |
1570 |
BoghandlerStregkode := Stregkode; |
BoghandlerStregkode := Stregkode; |
1571 |
PakkeshopText1.Caption := 'Tjekkode'; |
PakkeshopText1.Caption := 'Tjekkode'; |
1572 |
// 20150317: start |
|
1573 |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
1574 |
// 20150317: slut |
|
1575 |
end |
end |
1576 |
else |
else |
1577 |
begin |
begin |
1578 |
List1msg := 'Du skal scanne en stregkode'; |
VisAlarmSkaerm( 'Du skal scanne en stregkode' ); |
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
//logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
|
|
//SkrivScanningLogFil(logTekst); |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
PakkeshopNulstil.Visible := true; |
|
|
MainForm.Color := clRed; |
|
1579 |
end; |
end; |
1580 |
Stregkode := ''; |
Stregkode := ''; |
1581 |
InitScreen(); |
InitScreen(); |
1596 |
else |
else |
1597 |
begin |
begin |
1598 |
if (PakkeshopLevering1.Checked) then |
if (PakkeshopLevering1.Checked) then |
1599 |
List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode; |
VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode); |
1600 |
if (Pakkernormal1.Checked) then |
if (Pakkernormal1.Checked) then |
1601 |
List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode; |
VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode); |
1602 |
KommentarST.Caption := List1msg; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
//logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
|
|
//SkrivScanningLogFil(logTekst); |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
PakkeshopNulstil.Visible := true; |
|
|
MainForm.Color := clRed; |
|
|
// 20150323: start |
|
1603 |
StregKode := ''; |
StregKode := ''; |
1604 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
|
// 20150323: slut |
|
1605 |
exit; |
exit; |
1606 |
end; |
end; |
1607 |
Stregkode := ''; |
Stregkode := ''; |
1679 |
end |
end |
1680 |
else if Copy(Kommentar,1,8) = 'OPRETTET' then |
else if Copy(Kommentar,1,8) = 'OPRETTET' then |
1681 |
begin |
begin |
1682 |
List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages'; |
VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' ); |
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
PakkeshopNulstil.Visible := true; |
|
1683 |
end |
end |
1684 |
else if Kommentar = StregKode then // budlevering til 'Ukendt tur' |
else if Kommentar = StregKode then // budlevering til 'Ukendt tur' |
1685 |
begin |
begin |
1692 |
end; |
end; |
1693 |
if not PakkeshopNulstil.Visible then |
if not PakkeshopNulstil.Visible then |
1694 |
begin |
begin |
1695 |
// 20150310: start |
|
|
// SletStregkodelinieFraListboks2(StregKode); |
|
|
// 20150310: slut |
|
1696 |
If (Budlevering1.Checked) then |
If (Budlevering1.Checked) then |
1697 |
begin |
begin |
1698 |
if Storepakker1.Checked then |
if Storepakker1.Checked then |
1706 |
InitLillePakke(); |
InitLillePakke(); |
1707 |
end; |
end; |
1708 |
end; |
end; |
1709 |
// 20150310: start |
|
1710 |
SletStregkodelinieFraListboks2(StregKode); |
SletStregkodelinieFraListboks2(StregKode); |
1711 |
// 20150310: slut |
|
1712 |
PakkeshopStregkode := ''; |
PakkeshopStregkode := ''; |
1713 |
PakkeshopTjekkode := ''; |
PakkeshopTjekkode := ''; |
1714 |
BoghandlerStregkode := ''; |
BoghandlerStregkode := ''; |
5206 |
result := svar; |
result := svar; |
5207 |
end; |
end; |
5208 |
|
|
5209 |
|
procedure TMainForm.VisAlarmSkaerm(strMessage: string); |
5210 |
|
begin |
5211 |
|
//ShowMessage('Ændring ikke tilladt'); |
5212 |
|
// Her skal komme en 'rød skærm' alarm |
5213 |
|
PlaySound(PWideChar(AlarmLyd)); |
5214 |
|
|
5215 |
|
ListBox1.Items.Insert(0, strMessage); |
5216 |
|
MainForm.Color := clRed; |
5217 |
|
RuteNummerST.Caption := ''; |
5218 |
|
BoghandlerNavnST.Caption := ''; |
5219 |
|
KommentarST.Caption := strMessage; |
5220 |
|
PakkeshopNulstil.Visible := true; |
5221 |
|
end; |
5222 |
|
|
5223 |
function TMainForm.getProddato() : TDate; |
function TMainForm.getProddato() : TDate; |
5224 |
var |
var |
5225 |
idag, imorgen : TDateTime; |
idag, imorgen : TDateTime; |