6.3. Создание Справки 3 по таблицам isp и det

Справка 3. Сведения о Исполнителях, у которых выработка во втором квартале выше чем в первом для деталей с заданными шифрами.

Макет Справки 3:

Фамилия	Шифр детали	Выработки Исполнителями по кварталам (в руб.)
		1 – ый квартал	2 – ой квартал

Сведения для деталей с шифрами, начинающимися с символов “A”, “N”, “S” и “V”.

6.3.1. Алгоритм создания Справки 3 по таблицам isp и det

Описание данных и настройки интерфейса

Kzapi = Data1.Recordset.RecordCount

Jj Определение количества записей таблицы ISP

Kzapd = Data2.Recordset.RecordCount

Определение количества записей таблицы DET

FlMN.Rows = 1

FlMN.Cols = 5

Начальное количество строк Справки №3

Количество колонок Справки №3

FlMN.TextMatrix(0, 0) = “ № п.п. “

Наименование нулевой

колонки сетки FlMN

FlMN.TextMatrix(0, 1) = Data1.Recordset.Fields(0).Name

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

FlMN.TextMatrix(0, 3) = VirKv1 строки cетки FlMN именами

FlMN.TextMatrix(0, 4) = VirKv2

Data2.Recordset.MoveFirst

Переход к первой записи таблицы DET

Nstr = 0

Цикл формирования Справки №3 в соотвествии с условием задания

For I=1 To Kzapd

Data1.Recordset.MoveFirst

Переход к первой записи таблицы ISP