1574 |
|
|
1575 |
exit; |
exit; |
1576 |
end; |
end; |
1577 |
if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then |
if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked) then |
1578 |
begin |
begin |
1579 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel); |
1580 |
pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn); |
pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn); |
2059 |
BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text; |
BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text; |
2060 |
PrintNyLabel := False; |
PrintNyLabel := False; |
2061 |
|
|
2062 |
if menuPakkeshop1.Checked then |
try |
2063 |
|
PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text); |
2064 |
|
except on e:exception do |
2065 |
|
PrintNyLabelInteger := 0; |
2066 |
|
end; |
2067 |
|
if (PrintNyLabelInteger = 1) then |
2068 |
begin |
begin |
2069 |
try |
PrintNyLabel := True; |
|
PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text); |
|
|
except on e:exception do |
|
|
PrintNyLabelInteger := 0; |
|
|
end; |
|
|
if (PrintNyLabelInteger = 1) then |
|
|
begin |
|
|
PrintNyLabel := True; |
|
|
end; |
|
2070 |
end; |
end; |
2071 |
|
|
2072 |
end |
end |
2073 |
else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then |
else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then |
2074 |
begin |
begin |
2401 |
LabelPrint.PrintLabel( Stregkode ); |
LabelPrint.PrintLabel( Stregkode ); |
2402 |
end; |
end; |
2403 |
end; |
end; |
|
else |
|
|
ShowMessage('Ukendt Bladhus sted: ' + IntToStr(BladhusSted)); |
|
2404 |
end; |
end; |
2405 |
end; |
end; |
2406 |
|
|
2439 |
end; |
end; |
2440 |
end; |
end; |
2441 |
|
|
2442 |
|
// tilføjet 20161020 |
2443 |
|
if (menuPakkeshop1.Checked OR menuPakkeshopRetur1.Checked) then |
2444 |
|
begin |
2445 |
|
if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then |
2446 |
|
begin |
2447 |
|
LabelPrint.PrintLabel( Stregkode ); |
2448 |
|
end; |
2449 |
|
end; |
2450 |
|
|
2451 |
end; |
end; |
2452 |
|
|
2453 |
|
|
2908 |
Kommentar : String; |
Kommentar : String; |
2909 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
2910 |
Koreliste : String; |
Koreliste : String; |
2911 |
Falsk : Boolean; |
// Falsk : Boolean; |
2912 |
SmsKode : String; |
// SmsKode : String; |
2913 |
DBKbane : String; |
// DBKbane : String; |
2914 |
Leveringssted : String; |
// Leveringssted : String; |
|
LabelData : TLabelData; |
|
2915 |
begin |
begin |
2916 |
RuteNummer := 'Rutenr'; |
RuteNummer := 'Rutenr'; |
2917 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
2918 |
BoghandlerNavn := 'Modtagernavn'; |
BoghandlerNavn := 'Modtagernavn'; |
2919 |
Falsk := False; |
// Falsk := False; |
2920 |
|
|
2921 |
|
|
2922 |
if (LabelPrint.GetPrinterCount() = 0) then |
if (LabelPrint.GetPrinterCount() = 0) then |
2935 |
// Leveringssted := 'XXX'; |
// Leveringssted := 'XXX'; |
2936 |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2937 |
|
|
2938 |
|
LabelPrint.PrintTestLabel(); |
|
LabelData := TLabelData.Create(nil); |
|
|
LabelData.LabelType := 'simpel'; |
|
|
LabelData.SimpelLinie1 := '999999'; |
|
|
LabelData.SimpelLinie2 := '999'; |
|
|
LabelData.SimpelLinie3 := 'xxx'; |
|
|
LabelPrint.PrintLabelData(Labeldata); |
|
2939 |
|
|
2940 |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
2941 |
|
|
|
LabelData.Free(); |
|
|
|
|
2942 |
end; |
end; |
2943 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2944 |
end; |
end; |