841 |
|
|
842 |
if SpecialVersionSted = 'DBK' then |
if SpecialVersionSted = 'DBK' then |
843 |
begin |
begin |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
|
844 |
Sted := SpecialVersionSted; |
Sted := SpecialVersionSted; |
|
// her skal vi også disable de knapper DBK ikke kan bruge |
|
|
PanelValg2.Enabled := false; |
|
|
PanelValg2.Font.Color := clInactiveCaption; |
|
|
PanelValg3.Enabled := false; |
|
|
PanelValg3.Font.Color := clInactiveCaption; |
|
|
PanelValg5.Enabled := false; |
|
|
PanelValg5.Font.Color := clInactiveCaption; |
|
|
PanelValg6.Enabled := false; |
|
|
PanelValg6.Font.Color := clInactiveCaption; |
|
|
|
|
|
|
|
|
// her skal vi også disable de menupunkter DBK ikke kan bruge |
|
|
menuNatxpressReturDAO1.Enabled := false; |
|
|
menuNatxpressReturfraKunde1.Enabled := false; |
|
|
|
|
|
menuPakkeshop1.Enabled := false; |
|
|
menuPakkeshopRetur1.Enabled := false; |
|
|
|
|
|
if SpecialVersionScanningtype = 'A' then |
|
|
begin |
|
|
Scanningtype := '1'; |
|
|
end |
|
|
else |
|
|
begin |
|
|
Scanningtype := SpecialVersionScanningtype; |
|
|
end; |
|
845 |
end; |
end; |
846 |
|
|
847 |
if (SpecialVersionSted = '01') |
if (SpecialVersionSted = '01') |
1813 |
for i := ListBox2.items.count-1 downto 0 do |
for i := ListBox2.items.count-1 downto 0 do |
1814 |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
1815 |
begin |
begin |
1816 |
|
wrkAntalSenere := 0;//initial Value |
1817 |
|
|
1818 |
// Ajourføring af tæller for manglende pakker (scanninger) |
// Ajourføring af tæller for manglende pakker (scanninger) |
1819 |
wrkAntal := StaticTextManglendePakker.Caption; |
wrkAntal := StaticTextManglendePakker.Caption; |
4177 |
I: Integer; |
I: Integer; |
4178 |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
4179 |
pakketype, tjekkodestatus : String; |
pakketype, tjekkodestatus : String; |
4180 |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
antalLiniefelter, antalFelterFundet, linienr : Integer; |
4181 |
//pakketyper : TStrings; |
//pakketyper : TStrings; |
4182 |
pakketyper : TDictionary<String, Integer>; |
pakketyper : TDictionary<String, Integer>; |
4183 |
tmpAntal : Integer; |
tmpAntal : Integer; |