8 |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
9 |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
10 |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
11 |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, |
12 |
|
UITypes |
13 |
|
|
14 |
; |
; |
15 |
|
|
16 |
type |
type |
260 |
procedure IndlesScanningLogFil(); |
procedure IndlesScanningLogFil(); |
261 |
procedure SkrivScanningLogFil(var tekst : string); |
procedure SkrivScanningLogFil(var tekst : string); |
262 |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
263 |
procedure VisAlarmSkaerm(var List1msg: string); |
procedure VisAlarmSkaerm(strMessage: string); |
264 |
|
|
265 |
public |
public |
266 |
{ Public declarations } |
{ Public declarations } |
537 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
538 |
var |
var |
539 |
printerInd : integer; |
printerInd : integer; |
|
i : Integer; |
|
|
// 20150310: start |
|
540 |
gemScanningtype : String; |
gemScanningtype : String; |
|
// 20150310: slut |
|
541 |
|
|
542 |
begin |
begin |
543 |
// Initierer nogle variabler |
// Initierer nogle variabler |
1152 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
1153 |
Koreliste : String; |
Koreliste : String; |
1154 |
PrintNyLabel : Boolean; |
PrintNyLabel : Boolean; |
|
List1msg : String; |
|
1155 |
pakkeErScannet : Integer; |
pakkeErScannet : Integer; |
1156 |
pakkeForkertSted : Integer; |
pakkeForkertSted : Integer; |
1157 |
tjekkodeMangler : Integer; |
tjekkodeMangler : Integer; |
1207 |
begin |
begin |
1208 |
if (Length(Trim(Stregkode)) = 0) then |
if (Length(Trim(Stregkode)) = 0) then |
1209 |
begin |
begin |
1210 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'Der skal scannes en stregkode...' ); |
1211 |
List1msg := 'Der skal scannes en stregkode...'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1212 |
exit; |
exit; |
1213 |
end; |
end; |
1214 |
|
|
1220 |
|
|
1221 |
if PakkeshopNulstil.Visible then |
if PakkeshopNulstil.Visible then |
1222 |
begin |
begin |
1223 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' ); |
|
List1msg := 'HUSK at klikke Nulstil før ny scanning...'; |
|
1224 |
|
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
KommentarST.Caption := List1msg; |
|
|
Stregkode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1225 |
exit; |
exit; |
1226 |
end; |
end; |
1227 |
|
|
1233 |
end |
end |
1234 |
else |
else |
1235 |
begin |
begin |
1236 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1237 |
end; |
end; |
1238 |
Stregkode := ''; |
Stregkode := ''; |
1239 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1248 |
end |
end |
1249 |
else |
else |
1250 |
begin |
begin |
1251 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1252 |
end; |
end; |
1253 |
Stregkode := ''; |
Stregkode := ''; |
1254 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1270 |
end |
end |
1271 |
else |
else |
1272 |
begin |
begin |
1273 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1274 |
end; |
end; |
1275 |
Stregkode := ''; |
Stregkode := ''; |
1276 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1292 |
end |
end |
1293 |
else |
else |
1294 |
begin |
begin |
1295 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1296 |
end; |
end; |
1297 |
Stregkode := ''; |
Stregkode := ''; |
1298 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1307 |
end |
end |
1308 |
else |
else |
1309 |
begin |
begin |
1310 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); |
1311 |
end; |
end; |
1312 |
Stregkode := ''; |
Stregkode := ''; |
1313 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1323 |
end |
end |
1324 |
else |
else |
1325 |
begin |
begin |
1326 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); |
1327 |
end; |
end; |
1328 |
Stregkode := ''; |
Stregkode := ''; |
1329 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1338 |
end |
end |
1339 |
else |
else |
1340 |
begin |
begin |
1341 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1342 |
end; |
end; |
1343 |
Stregkode := ''; |
Stregkode := ''; |
1344 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1353 |
end |
end |
1354 |
else |
else |
1355 |
begin |
begin |
1356 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1357 |
end; |
end; |
1358 |
Stregkode := ''; |
Stregkode := ''; |
1359 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1368 |
end |
end |
1369 |
else |
else |
1370 |
begin |
begin |
1371 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1372 |
end; |
end; |
1373 |
Stregkode := ''; |
Stregkode := ''; |
1374 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1383 |
end |
end |
1384 |
else |
else |
1385 |
begin |
begin |
1386 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1387 |
end; |
end; |
1388 |
Stregkode := ''; |
Stregkode := ''; |
1389 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1398 |
end |
end |
1399 |
else |
else |
1400 |
begin |
begin |
1401 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1402 |
end; |
end; |
1403 |
Stregkode := ''; |
Stregkode := ''; |
1404 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1459 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
1460 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
1461 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1462 |
VisAlarmSkaerm(List1msg); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1463 |
|
|
1464 |
exit; |
exit; |
1465 |
end; |
end; |
1496 |
// Retur kan ikke scannes med 'Automatisk valg' |
// Retur kan ikke scannes med 'Automatisk valg' |
1497 |
|
|
1498 |
else |
else |
1499 |
begin // Her skal komme en alarm og rød skærm |
begin |
1500 |
PlaySound(PWideChar(AlarmLyd)); |
// Her skal komme en alarm og rød skærm |
1501 |
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; |
|
1502 |
|
|
1503 |
exit; |
exit; |
1504 |
end; |
end; |
1506 |
end |
end |
1507 |
else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then |
else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then |
1508 |
begin |
begin |
1509 |
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; |
|
1510 |
|
|
1511 |
exit; |
exit; |
1512 |
end; |
end; |
1515 |
begin |
begin |
1516 |
if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then |
if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then |
1517 |
begin |
begin |
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
List1msg := 'Pakke findes som pakketype: ' + Pakketype; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
1518 |
|
|
1519 |
RuteNummerST.Caption := ''; |
VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype ); |
|
BoghandlerNavnST.Caption := ''; |
|
1520 |
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1521 |
exit; |
exit; |
1522 |
end; |
end; |
1523 |
end; |
end; |
1567 |
PakkeshopStregkode := Stregkode; |
PakkeshopStregkode := Stregkode; |
1568 |
BoghandlerStregkode := Stregkode; |
BoghandlerStregkode := Stregkode; |
1569 |
PakkeshopText1.Caption := 'Tjekkode'; |
PakkeshopText1.Caption := 'Tjekkode'; |
1570 |
// 20150317: start |
|
1571 |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
1572 |
// 20150317: slut |
|
1573 |
end |
end |
1574 |
else |
else |
1575 |
begin |
begin |
1576 |
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; |
|
1577 |
end; |
end; |
1578 |
Stregkode := ''; |
Stregkode := ''; |
1579 |
InitScreen(); |
InitScreen(); |
1594 |
else |
else |
1595 |
begin |
begin |
1596 |
if (PakkeshopLevering1.Checked) then |
if (PakkeshopLevering1.Checked) then |
1597 |
List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode; |
VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode); |
1598 |
if (Pakkernormal1.Checked) then |
if (Pakkernormal1.Checked) then |
1599 |
List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode; |
VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode); |
1600 |
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 |
|
1601 |
StregKode := ''; |
StregKode := ''; |
1602 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1603 |
// 20150323: slut |
|
1604 |
exit; |
exit; |
1605 |
end; |
end; |
1606 |
Stregkode := ''; |
Stregkode := ''; |
1678 |
end |
end |
1679 |
else if Copy(Kommentar,1,8) = 'OPRETTET' then |
else if Copy(Kommentar,1,8) = 'OPRETTET' then |
1680 |
begin |
begin |
1681 |
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; |
|
1682 |
end |
end |
1683 |
else if Kommentar = StregKode then // budlevering til 'Ukendt tur' |
else if Kommentar = StregKode then // budlevering til 'Ukendt tur' |
1684 |
begin |
begin |
1691 |
end; |
end; |
1692 |
if not PakkeshopNulstil.Visible then |
if not PakkeshopNulstil.Visible then |
1693 |
begin |
begin |
1694 |
// 20150310: start |
|
|
// SletStregkodelinieFraListboks2(StregKode); |
|
|
// 20150310: slut |
|
1695 |
If (Budlevering1.Checked) then |
If (Budlevering1.Checked) then |
1696 |
begin |
begin |
1697 |
if Storepakker1.Checked then |
if Storepakker1.Checked then |
1705 |
InitLillePakke(); |
InitLillePakke(); |
1706 |
end; |
end; |
1707 |
end; |
end; |
1708 |
// 20150310: start |
|
1709 |
SletStregkodelinieFraListboks2(StregKode); |
SletStregkodelinieFraListboks2(StregKode); |
1710 |
// 20150310: slut |
|
1711 |
PakkeshopStregkode := ''; |
PakkeshopStregkode := ''; |
1712 |
PakkeshopTjekkode := ''; |
PakkeshopTjekkode := ''; |
1713 |
BoghandlerStregkode := ''; |
BoghandlerStregkode := ''; |
1927 |
end; |
end; |
1928 |
|
|
1929 |
procedure TMainForm.InitBladhus(); |
procedure TMainForm.InitBladhus(); |
|
var |
|
|
LogFilnavn : string; |
|
1930 |
|
|
1931 |
begin |
begin |
1932 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
2415 |
end; |
end; |
2416 |
end; |
end; |
2417 |
01 : begin; |
01 : begin; |
2418 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2419 |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
2420 |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
2421 |
begin |
begin |
2429 |
end; |
end; |
2430 |
end; |
end; |
2431 |
03 : begin; |
03 : begin; |
2432 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2433 |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
2434 |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
2435 |
begin |
begin |
3210 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3211 |
Koreliste : String; |
Koreliste : String; |
3212 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3213 |
SmsKode : String; |
SmsKode : String; |
3214 |
DBKbane : String; |
DBKbane : String; |
3215 |
Leveringssted : String; |
Leveringssted : String; |
3236 |
else |
else |
3237 |
begin |
begin |
3238 |
Falsk := False; |
Falsk := False; |
3239 |
Sand := True; |
|
3240 |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
3241 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
3242 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3256 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3257 |
Koreliste : String; |
Koreliste : String; |
3258 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3259 |
SmsKode : String; |
SmsKode : String; |
3260 |
DBKbane : String; |
DBKbane : String; |
3261 |
Leveringssted : String; |
Leveringssted : String; |
3264 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
3265 |
BoghandlerNavn := 'Modtagernavn'; |
BoghandlerNavn := 'Modtagernavn'; |
3266 |
Falsk := False; |
Falsk := False; |
3267 |
Sand := True; |
|
3268 |
|
|
3269 |
if (Printer.Printers.Count = 0) then |
if (Printer.Printers.Count = 0) then |
3270 |
begin |
begin |
3822 |
|
|
3823 |
// Hvorfor virker ovenstående ikke ??? |
// Hvorfor virker ovenstående ikke ??? |
3824 |
S := ''; |
S := ''; |
3825 |
Str(iVer[1],Result); |
Str(iVer[1], Result); |
3826 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3827 |
Str(iVer[2],Result); |
Str(iVer[2], Result); |
3828 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3829 |
Str(iVer[3],Result); |
Str(iVer[3], Result); |
3830 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3831 |
Str(iVer[4],Result); |
Str(iVer[4], Result); |
3832 |
S := S+Result+''; |
S := S+Result+''; |
3833 |
Result := S; |
Result := S; |
3834 |
end; |
end; |
4662 |
antlinIdag := 0; |
antlinIdag := 0; |
4663 |
antlinSenere := 0; |
antlinSenere := 0; |
4664 |
|
|
|
antalFelterFundet := 0; |
|
4665 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4666 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4667 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4931 |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
4932 |
var |
var |
4933 |
SomeTxtFile : TextFile; |
SomeTxtFile : TextFile; |
|
buffer : string; |
|
|
S: string; |
|
4934 |
idag, imorgen : TDateTime; |
idag, imorgen : TDateTime; |
4935 |
imorgenYmd : string; |
imorgenYmd : string; |
4936 |
logFilnavn : string; |
logFilnavn : string; |
5198 |
result := svar; |
result := svar; |
5199 |
end; |
end; |
5200 |
|
|
5201 |
procedure TMainForm.VisAlarmSkaerm(var List1msg: string); |
procedure TMainForm.VisAlarmSkaerm(strMessage: string); |
5202 |
begin |
begin |
5203 |
//ShowMessage('Ændring ikke tilladt'); |
//ShowMessage('Ændring ikke tilladt'); |
5204 |
// Her skal komme en 'rød skærm' alarm |
// Her skal komme en 'rød skærm' alarm |
5205 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(AlarmLyd)); |
5206 |
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
|
5207 |
ListBox1.Items.Insert(0, List1Msg); |
ListBox1.Items.Insert(0, strMessage); |
5208 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
5209 |
RuteNummerST.Caption := ''; |
RuteNummerST.Caption := ''; |
5210 |
BoghandlerNavnST.Caption := ''; |
BoghandlerNavnST.Caption := ''; |
5211 |
KommentarST.Caption := List1msg; |
KommentarST.Caption := strMessage; |
5212 |
PakkeshopNulstil.Visible := true; |
PakkeshopNulstil.Visible := true; |
5213 |
end; |
end; |
5214 |
|
|