107 |
chkForstorTilDirekte: TCheckBox; |
chkForstorTilDirekte: TCheckBox; |
108 |
chkEmballageRepareret: TCheckBox; |
chkEmballageRepareret: TCheckBox; |
109 |
KommentarST: TLabel; |
KommentarST: TLabel; |
110 |
|
chkUdenforSpecifikation: TCheckBox; |
111 |
|
|
112 |
|
|
113 |
|
|
2208 |
begin |
begin |
2209 |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
2210 |
begin |
begin |
2211 |
Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution'; |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2212 |
PrintNyLabel := False; |
PrintNyLabel := False; |
2213 |
end; |
end; |
2214 |
end |
end |
2215 |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
2216 |
begin |
begin |
2217 |
if (Leveringssted = 'E') and (Sted = 'DBK') then |
if (Leveringssted = 'E') and (Sted = 'DBK') then |
2218 |
begin |
begin |
2220 |
end |
end |
2221 |
else |
else |
2222 |
begin |
begin |
2223 |
Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution'; |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2224 |
PrintNyLabel := False; |
PrintNyLabel := False; |
2225 |
end; |
end; |
2226 |
end; |
end; |