|
|
#6 |
|
Участник
|
Цитата:
Код: count := 0
rec.setrange - накладываете нужные фильтры по необходимости
rec.find('-')
repeat
rec.setrange("VAT Doc No.","VAT Doc No.")
if rec.find('-') begin
repeat
boolnext := rec.next;
until boolnext = 0
count +=1
end
rec.setrange("VAT Doc No.")
until rec.next = 0
boolnext,count - integerКажется немного опоздал
|
|
|