358 |
else if (Sted = 'BR') then |
else if (Sted = 'BR') then |
359 |
begin StedNavn := 'Brøndby: '; end |
begin StedNavn := 'Brøndby: '; end |
360 |
else if (Sted = 'BK') then |
else if (Sted = 'BK') then |
361 |
begin StedNavn := 'Bladkompagniet: '; end |
begin StedNavn := 'Bladkompagniet/ISV: '; end |
362 |
|
else if (Sted = 'TK') then |
363 |
|
begin StedNavn := 'BK/Trykkompagniet: '; end |
364 |
else if (Sted = 'DBK') then |
else if (Sted = 'DBK') then |
365 |
begin StedNavn := 'DBK Køge: '; end |
begin StedNavn := 'DBK/Køge: '; end |
366 |
else if (Sted = '1') then |
else if (Sted = '1') then |
367 |
begin StedNavn := 'Ålborg: '; end |
begin StedNavn := 'Ålborg: '; end |
368 |
else if (Sted = '2') then |
else if (Sted = '2') then |
691 |
{$IfDef STED_BK} |
{$IfDef STED_BK} |
692 |
SpecialVersionSted := 'BK'; |
SpecialVersionSted := 'BK'; |
693 |
{$EndIf} |
{$EndIf} |
694 |
|
{$IfDef STED_TK} |
695 |
|
SpecialVersionSted := 'TK';// BK-Trykkompagniet |
696 |
|
{$EndIf} |
697 |
{$IfDef STED_DBK} |
{$IfDef STED_DBK} |
698 |
SpecialVersionSted := 'DBK'; |
SpecialVersionSted := 'DBK'; |
699 |
{$EndIf} |
{$EndIf} |
731 |
SpecialVersionScanningtype := '4'; |
SpecialVersionScanningtype := '4'; |
732 |
end; |
end; |
733 |
|
|
734 |
if SpecialVersionSted = 'BK' then |
if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then |
735 |
begin |
begin |
736 |
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
737 |
Sted := SpecialVersionSted; |
Sted := SpecialVersionSted; |
772 |
PanelValg5.Font.Color := clInactiveCaption; |
PanelValg5.Font.Color := clInactiveCaption; |
773 |
PanelValg6.Enabled := false; |
PanelValg6.Enabled := false; |
774 |
PanelValg6.Font.Color := clInactiveCaption; |
PanelValg6.Font.Color := clInactiveCaption; |
775 |
PanelValg7.Enabled := false; |
|
|
PanelValg7.Font.Color := clInactiveCaption; |
|
776 |
|
|
777 |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
778 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
1131 |
or (NumberString = 'DAO PAKKESHOP') |
or (NumberString = 'DAO PAKKESHOP') |
1132 |
or (NumberString = 'DAO PAKKESHOP') |
or (NumberString = 'DAO PAKKESHOP') |
1133 |
or (LowerCase(NumberString) = 'for stor hjemmelevering' ) |
or (LowerCase(NumberString) = 'for stor hjemmelevering' ) |
1134 |
|
or (LowerCase(NumberString) = 'for stor daodirekte' ) |
1135 |
or (NumberString = 'Retur fra pakkeshop') then |
or (NumberString = 'Retur fra pakkeshop') then |
1136 |
|
|
1137 |
begin |
begin |
1196 |
exit; |
exit; |
1197 |
end; |
end; |
1198 |
|
|
1199 |
if LowerCase(StregKode) = 'for stor hjemmelevering' then |
if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') then |
1200 |
begin |
begin |
1201 |
if chkForstorTilDirekte.Enabled then |
if chkForstorTilDirekte.Enabled then |
1202 |
begin |
begin |