16 |
|
|
17 |
procedure CheckPrintQue(tjektype : string; PrinterNavn : String); |
procedure CheckPrintQue(tjektype : string; PrinterNavn : String); |
18 |
|
|
19 |
|
procedure PrintLabel( Stregkode : String); |
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 PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel); |
procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); |
24 |
|
|
25 |
|
|
26 |
procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; |
procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; |
27 |
|
|
51 |
Windows, |
Windows, |
52 |
SysUtils, //Format |
SysUtils, //Format |
53 |
Math, // DegToRad() bruges i PrintPakkeshopLabel |
Math, // DegToRad() bruges i PrintPakkeshopLabel |
54 |
Forms |
Forms, |
55 |
|
IdHTTP |
56 |
; |
; |
57 |
|
|
58 |
|
|
229 |
end; |
end; |
230 |
|
|
231 |
|
|
232 |
|
procedure TLabelPrint.PrintLabel( Stregkode : String); |
233 |
|
var |
234 |
|
url: String; |
235 |
|
response: String; |
236 |
|
|
237 |
|
httpClient: TIdHTTP; |
238 |
|
|
239 |
|
|
240 |
|
|
241 |
|
begin |
242 |
|
url := Config.BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=' + Trim(Stregkode); |
243 |
|
|
244 |
|
httpClient := TIdHTTP.Create(); |
245 |
|
httpClient.ReadTimeout := 1000;//max 1 secound |
246 |
|
httpClient.ConnectTimeout := 1000; |
247 |
|
|
248 |
|
response := httpClient.Get(url); |
249 |
|
httpClient.Free(); |
250 |
|
|
251 |
|
|
252 |
|
|
253 |
|
|
254 |
|
end; |
255 |
|
|
256 |
procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); |
procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); |
257 |
begin |
begin |
258 |
with Printer do |
with Printer do |
298 |
|
|
299 |
|
|
300 |
// ToDo: PrintPakkeshopLabel() |
// ToDo: PrintPakkeshopLabel() |
301 |
procedure TLabelPrint.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel); |
procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); |
302 |
var |
var |
303 |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
304 |
Angle: integer; |
Angle: integer; |
325 |
|
|
326 |
|
|
327 |
// Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte |
// Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte |
328 |
if ( (PakkeshopLabel.Shop2Direkte = '') OR (PakkeshopLabel.Shop2Direkte = '0') ) then |
if ( PakkeshopLabel.PakkeshopNavn <> '' ) then |
329 |
begin |
begin |
330 |
Canvas.TextOut(110, 240, 'Pakkeshop:'); |
Canvas.TextOut(110, 240, 'Pakkeshop:'); |
331 |
|
Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn); |
332 |
|
Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr); |
333 |
|
Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr); |
334 |
|
|
335 |
end; |
end; |
336 |
|
|
337 |
|
|
|
Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn); |
|
|
Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr); |
|
|
Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr); |
|
338 |
|
|
339 |
Canvas.TextOut(350, 240, 'Afsender:'); |
Canvas.TextOut(350, 240, 'Afsender:'); |
340 |
Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn); |
Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn); |