Сетки Fl1 сетки FlMn

FlMN.TextMatrix(0, 1) = Data2.Recordset.Fields(1).Name Заполнение нулевой

FlMN.TextMatrix(0, 2) = Data2.Recordset.Fields(2).Name строки сетки Fl1MN

FlMN.TextMatrix(0, 3) = Data2.Recordset.Fields(3).Name именами колонок таблицы DET

Переход к первой записи

Data2.Recordset.MoveFirst таблицы DET

Nstr = 0

Задавние интервала

расценок

Цикл формирования Справки № 2

В соответствии с условием задания

Условие ЗАДАНИЯ создания Справки № 2

Data2.Recordset.Fields(2).Value >= RascMin And

Data2.Recordset.Fields(2).Value <= RascMin нет

Добавление строки в в сетку FlMN

да

FlMN.Rows = FlMN.Rows + 1

Формирование номера

следующей строки сетки FlMN

FlMN,TextMatrix(Nstr. 0) = Nstr