Показать сообщение отдельно
Старый 13.07.2007, 17:30   #10  
satir is offline
satir
Участник
Аватар для satir
 
77 / 10 (1) +
Регистрация: 09.06.2006
Цитата:
Сообщение от mefodiy Посмотреть сообщение
Сортировка следующая:

SORTING(Posting date,Old period,Vendor Name,VAT Doc Date,VAT Doc No.,Doc No.) ORDER(Ascending)

Записи повторяются по значению поля "VAT Doc No.", причем, такие записи следуют друг за другом.
Пишется примерно следующее
Код:
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
Должно работать
Кажется немного опоздал