2223 |
kontrolKoreliste : string; |
kontrolKoreliste : string; |
2224 |
nytRuteNummer, nyFarve : String; |
nytRuteNummer, nyFarve : String; |
2225 |
begin |
begin |
2226 |
|
if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then |
2227 |
|
begin |
2228 |
|
LabelPrint.PrintLabel( Stregkode ); |
2229 |
|
end; |
2230 |
|
|
2231 |
|
|
2232 |
|
exit; |
2233 |
|
|
2234 |
if menuDaoDirekte1.Checked then |
if menuDaoDirekte1.Checked then |
2235 |
RuteNummerST.Color := TUtils.HexToTColor(Farve); |
RuteNummerST.Color := TUtils.HexToTColor(Farve); |
2236 |
|
|
2295 |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
2296 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2297 |
|
|
2298 |
if (Config.PrinterNavn = 'Ingen') then |
// if (Config.PrinterNavn = 'Ingen') then |
2299 |
begin |
// begin |
2300 |
PrintNyLabel := false; |
// PrintNyLabel := false; |
2301 |
end; |
// end; |
2302 |
|
|
2303 |
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 |
2304 |
begin |
begin |
2416 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2417 |
|
|
2418 |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
2419 |
|
|
2420 |
end; |
end; |
2421 |
end; |
end; |
2422 |
|
|
2847 |
SmsKode := '999999'; |
SmsKode := '999999'; |
2848 |
DBKbane := '999'; |
DBKbane := '999'; |
2849 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2850 |
|
|
2851 |
|
|
2852 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2853 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2854 |
end; |
end; |
2866 |
SmsKode : String; |
SmsKode : String; |
2867 |
DBKbane : String; |
DBKbane : String; |
2868 |
Leveringssted : String; |
Leveringssted : String; |
2869 |
|
LabelData : TLabelData; |
2870 |
begin |
begin |
2871 |
RuteNummer := 'Rutenr'; |
RuteNummer := 'Rutenr'; |
2872 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
2878 |
begin |
begin |
2879 |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
2880 |
end |
end |
2881 |
else if Config.PrinterNavn = 'Ingen' then |
// else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer |
2882 |
begin |
// begin |
2883 |
ShowMessage('Der er fravalgt printer i dette program.'); |
// ShowMessage('Der er fravalgt printer i dette program.'); |
2884 |
end |
// end |
2885 |
else |
else |
2886 |
begin |
begin |
2887 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
2888 |
SmsKode := '999999'; |
// SmsKode := '999999'; |
2889 |
DBKbane := '999'; |
// DBKbane := '999'; |
2890 |
Leveringssted := 'XXX'; |
// Leveringssted := 'XXX'; |
2891 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2892 |
|
|
2893 |
|
|
2894 |
|
LabelData := TLabelData.Create(nil); |
2895 |
|
LabelData.LabelType := 'simpel'; |
2896 |
|
LabelData.SimpelLinie1 := '999999'; |
2897 |
|
LabelData.SimpelLinie2 := '999'; |
2898 |
|
LabelData.SimpelLinie3 := 'xxx'; |
2899 |
|
LabelPrint.PrintLabelData(Labeldata); |
2900 |
|
|
2901 |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
2902 |
|
|
2903 |
|
LabelData.Free(); |
2904 |
|
|
2905 |
end; |
end; |
2906 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2907 |
end; |
end; |