Цикл проверки шифров в соответствии с заданием

нет

да

VirKv1 = 0 : VirKv2 = 0

Цикл вычислений квартальных выработок и

Формирования информации в Справку №3

да

J < 3

нет

VirKv1 = VirKv1 + Data1.Recordset.Fields(J+1).Value*

Data2.Recordset.Fields(2).Value

VirKv2 = VirKv2 + Data1.Recordset.Fields(J+1).Value*

Data2.Recordset.Fields(2).Value

Next J

нет

да

FlMN.Rows = FlMN.Rows + 1

Nstr = Nstr + 1

FlMN.TextMatrix(Nstr, 0) = Nstr

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

FlMN.TextMatrix(Nstr, 2) = Data1.Recordset.Fields(1).Value

FlMN.TextMatrix(Nstr, 3) = VirKv1

FlMN.TextMatrix(Nstr, 4) = VirKv2

Data1.Recordset.MoveFirst

Переход к следующей записи

Таблицы ISP

Next U

Переход к следующей записи

Таблицы DET

Data2.Recordset.MoveNext