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 |
|
|