6.3.3. Экранная форма с результатами Справки №3 по таблицам isp и det

Рис. 6.3. Экранная форма с результатами Справки №3

по таблицам ISP и DET

4. Создание Документа

Документ. Ведомость о начислениях в последние 4 месяца.

Макет Документа:

Фамилия	Начисления по месяцам
	3-й м-ц	4-й м-ц	5-й м-ц	6-й м-ц

Записи документа упорядочить по алфавиту фамилий Исполнителей

6.4.1. Алгоритм создания Документа

Private Sub mnuIdoc_Click()

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

Kzapi = Data1.Recordset.RecordCount

Kzapd = Data2.Recordset.RecordCount

FlMN.Rows = 1

FlMN.Cols = 6

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

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

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

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

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

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

Заполнение нулевой строки

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

FlMN.TextMatrix(0, 2) = “ЗрпМес3”

FlMN.TextMatrix(0, 3) = “ЗрпМес4”

FlMN.TextMatrix(0, 4) = “ЗрпМес5”

FlMN.TextMatrix(0, 5) = “ЗрпМес6”

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

Nstr = 0

Цикл формирования

Итогового Документа

Data2.Recordset.MoveFirst

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

Цикл создания Документа в соответствии

с условием ЗАДАНИЯ

Соответствие записей таблиц ISP и DET

по шифрам деталей

нет

да

FlMN.Rows = FlMN.Rows + 1

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

Nstr = Nstr + 1

Формирование номера следующей

строки сетки FlMN

FlMN.TextMatrix(Nstr, 0) = Nstr