1840 |
for i := ListBox2.items.count-1 downto 0 do |
for i := ListBox2.items.count-1 downto 0 do |
1841 |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
1842 |
begin |
begin |
1843 |
|
wrkAntalSenere := 0;//initial Value |
1844 |
|
|
1845 |
// Ajourføring af tæller for manglende pakker (scanninger) |
// Ajourføring af tæller for manglende pakker (scanninger) |
1846 |
wrkAntal := StaticTextManglendePakker.Caption; |
wrkAntal := StaticTextManglendePakker.Caption; |
4204 |
I: Integer; |
I: Integer; |
4205 |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
4206 |
pakketype, tjekkodestatus : String; |
pakketype, tjekkodestatus : String; |
4207 |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
antalLiniefelter, antalFelterFundet, linienr : Integer; |
4208 |
//pakketyper : TStrings; |
//pakketyper : TStrings; |
4209 |
pakketyper : TDictionary<String, Integer>; |
pakketyper : TDictionary<String, Integer>; |
4210 |
tmpAntal : Integer; |
tmpAntal : Integer; |