106 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
107 |
menuIndlevering: TMenuItem; |
menuIndlevering: TMenuItem; |
108 |
chkForstorTilDirekte: TCheckBox; |
chkForstorTilDirekte: TCheckBox; |
109 |
|
chkEmballageRepareret: TCheckBox; |
110 |
|
|
111 |
|
|
112 |
|
|
196 |
|
|
197 |
|
|
198 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
199 |
|
procedure Msg( msg : string); |
200 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
201 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
202 |
function GetFormObject() : TForm; |
function GetFormObject() : TForm; |
2971 |
SmsKode := '999999'; |
SmsKode := '999999'; |
2972 |
DBKbane := '999'; |
DBKbane := '999'; |
2973 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2974 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
LabelPrint.TestZpl(); |
2975 |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2976 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
2977 |
end; |
end; |
2978 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
4914 |
end; |
end; |
4915 |
|
|
4916 |
|
|
4917 |
|
//Nedarvet fra IParentForm |
4918 |
|
procedure TMainForm.Msg( msg : string); |
4919 |
|
begin |
4920 |
|
ShowMessage(msg); |
4921 |
|
end; |
4922 |
|
|
4923 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
4924 |
procedure TMainForm.LogMessage( msg : string); |
procedure TMainForm.LogMessage( msg : string); |