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, |
202 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
203 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
204 |
function GetFormObject() : TForm; |
function GetFormObject() : TForm; |
205 |
|
function GetXMLDocument() : TXMLDocument; |
206 |
|
|
207 |
|
|
208 |
|
|
1933 |
pakkestorrelse : String; |
pakkestorrelse : String; |
1934 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
1935 |
|
|
1936 |
PakkeshopLabel: TPakkeshopLabel; |
PakkeshopLabel: TLabelData; |
1937 |
begin |
begin |
1938 |
if radioStorPakke.Checked then |
if radioStorPakke.Checked then |
1939 |
begin |
begin |
2042 |
if (Kommentar = 'Ok') then |
if (Kommentar = 'Ok') then |
2043 |
begin |
begin |
2044 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2045 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2046 |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
2047 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2048 |
|
|
2091 |
begin |
begin |
2092 |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
2093 |
begin |
begin |
2094 |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; |
2095 |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
2096 |
end; |
end; |
2097 |
end |
end |
2098 |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
2099 |
begin |
begin |
2100 |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; |
2101 |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
2102 |
end; |
end; |
2103 |
except on e:exception do |
except on e:exception do |
4858 |
Result := self; |
Result := self; |
4859 |
end; |
end; |
4860 |
|
|
4861 |
|
//Nedarvet fra IParentForm |
4862 |
|
function TMainForm.GetXMLDocument() : TXMLDocument; |
4863 |
|
begin |
4864 |
|
Result := XMLDocument1 |
4865 |
|
end; |
4866 |
|
|
4867 |
|
|
4868 |
end. |
end. |
4869 |
|
|