2903 |
Kommentar : String; |
Kommentar : String; |
2904 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
2905 |
Koreliste : String; |
Koreliste : String; |
2906 |
Falsk : Boolean; |
// Falsk : Boolean; |
2907 |
SmsKode : String; |
// SmsKode : String; |
2908 |
DBKbane : String; |
// DBKbane : String; |
2909 |
Leveringssted : String; |
// Leveringssted : String; |
|
LabelData : TLabelData; |
|
2910 |
begin |
begin |
2911 |
RuteNummer := 'Rutenr'; |
RuteNummer := 'Rutenr'; |
2912 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
2913 |
BoghandlerNavn := 'Modtagernavn'; |
BoghandlerNavn := 'Modtagernavn'; |
2914 |
Falsk := False; |
// Falsk := False; |
2915 |
|
|
2916 |
|
|
2917 |
if (LabelPrint.GetPrinterCount() = 0) then |
if (LabelPrint.GetPrinterCount() = 0) then |
2930 |
// Leveringssted := 'XXX'; |
// Leveringssted := 'XXX'; |
2931 |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2932 |
|
|
2933 |
|
LabelPrint.PrintTestLabel(); |
|
LabelData := TLabelData.Create(nil); |
|
|
LabelData.LabelType := 'simpel'; |
|
|
LabelData.SimpelLinie1 := '999999'; |
|
|
LabelData.SimpelLinie2 := '999'; |
|
|
LabelData.SimpelLinie3 := 'xxx'; |
|
|
LabelPrint.PrintLabelData(Labeldata); |
|
2934 |
|
|
2935 |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
2936 |
|
|
|
LabelData.Free(); |
|
|
|
|
2937 |
end; |
end; |
2938 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2939 |
end; |
end; |