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 *****'; |
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; |