553 |
Sted := ReadString('Settings','Sted',''); |
Sted := ReadString('Settings','Sted',''); |
554 |
StedNavn := ReadString('Settings','Stednavn',''); |
StedNavn := ReadString('Settings','Stednavn',''); |
555 |
|
|
556 |
|
Scanningtype := 'A'; //hardcoded |
557 |
|
Pakketype := '0'; |
558 |
|
|
559 |
|
|
560 |
|
|
561 |
|
|
2091 |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
2092 |
begin |
begin |
2093 |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2094 |
PrintNyLabel := False; |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
2095 |
end; |
end; |
2096 |
end |
end |
2097 |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
2098 |
begin |
begin |
2099 |
if (Leveringssted = 'E') and (Sted = 'DBK') then |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2100 |
begin |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
|
// Det er ok at DBK scanner pakker til E (Schenker) |
|
|
end |
|
|
else |
|
|
begin |
|
|
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
|
|
PrintNyLabel := False; |
|
|
end; |
|
2101 |
end; |
end; |
2102 |
except on e:exception do |
except on e:exception do |
2103 |
raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]); |
raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]); |