20 |
IdExplicitTLSClientServerBase, IdFTP, IdException, |
IdExplicitTLSClientServerBase, IdFTP, IdException, |
21 |
ShellApi, ClipBrd, Buttons, wininet, |
ShellApi, ClipBrd, Buttons, wininet, |
22 |
UITypes, |
UITypes, |
23 |
PakkeshopLabels, |
LabelData, |
24 |
Utils, |
Utils, |
25 |
ParentForm, |
ParentForm, |
26 |
LabelPrint, |
LabelPrint, |
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 |
|
|
1932 |
pakkestorrelse : String; |
pakkestorrelse : String; |
1933 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
1934 |
|
|
1935 |
PakkeshopLabel: TPakkeshopLabel; |
PakkeshopLabel: TLabelData; |
1936 |
begin |
begin |
1937 |
if radioStorPakke.Checked then |
if radioStorPakke.Checked then |
1938 |
begin |
begin |
2041 |
if (Kommentar = 'Ok') then |
if (Kommentar = 'Ok') then |
2042 |
begin |
begin |
2043 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2044 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2045 |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
2046 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2047 |
|
|
2090 |
begin |
begin |
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]); |