4 |
|
|
5 |
uses |
uses |
6 |
ParentForm, |
ParentForm, |
7 |
PakkeshopLabels, |
LabelData, |
8 |
Configuration, |
Configuration, |
9 |
StBarc; |
StBarc; |
10 |
|
|
20 |
|
|
21 |
procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); |
procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); |
22 |
|
|
23 |
procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); |
procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData); |
24 |
procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel); |
procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); |
25 |
procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel); |
procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); |
26 |
|
|
27 |
|
|
28 |
procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; |
procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; |
52 |
WinSpool, |
WinSpool, |
53 |
Windows, |
Windows, |
54 |
SysUtils, //Format |
SysUtils, //Format |
55 |
Math, // DegToRad() bruges i PrintPakkeshopLabel |
Math, // DegToRad() bruges i PrinTLabelData |
56 |
Forms, |
Forms, |
57 |
IdHTTP, |
IdHTTP, |
58 |
Graphics |
Graphics |
314 |
end; |
end; |
315 |
|
|
316 |
|
|
317 |
procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); |
procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TLabelData); |
318 |
begin |
begin |
319 |
if (Config.LabelStor = 1) then |
if (Config.LabelStor = 1) then |
320 |
begin |
begin |
330 |
end; |
end; |
331 |
|
|
332 |
// Bruges til label der passer til 60x100 |
// Bruges til label der passer til 60x100 |
333 |
procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel); |
procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); |
334 |
var |
var |
335 |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
336 |
Angle: integer; |
Angle: integer; |
454 |
|
|
455 |
|
|
456 |
// Bruges til label der passer til 100x150 |
// Bruges til label der passer til 100x150 |
457 |
procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel); |
procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); |
458 |
var |
var |
459 |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
460 |
Angle: integer; |
Angle: integer; |