2287 |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
2288 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2289 |
|
|
2290 |
if (Config.PrinterNavn = 'Ingen') then |
// if (Config.PrinterNavn = 'Ingen') then |
2291 |
begin |
// begin |
2292 |
PrintNyLabel := false; |
// PrintNyLabel := false; |
2293 |
end; |
// end; |
2294 |
|
|
2295 |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
2296 |
begin |
begin |
2408 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2409 |
|
|
2410 |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
2411 |
|
|
2412 |
end; |
end; |
2413 |
end; |
end; |
2414 |
|
|
2867 |
begin |
begin |
2868 |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
2869 |
end |
end |
2870 |
else if Config.PrinterNavn = 'Ingen' then |
// else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer |
2871 |
begin |
// begin |
2872 |
ShowMessage('Der er fravalgt printer i dette program.'); |
// ShowMessage('Der er fravalgt printer i dette program.'); |
2873 |
end |
// end |
2874 |
else |
else |
2875 |
begin |
begin |
2876 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |