Цикл вычислений заработков рабочих в последние 4 месяца и отображение в Итоговом Документе

да нет

FlMN.TextMatrix(Nstr, J) = (Data1.Recordset.Fields(J-1)*Data2.Recordset.Fields(2)) * 0.86

Next J

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

Таблицы DET

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

Таблицы ISP

Data1.Recordset.MoveNext

Next I

Имеются ли записи в созданном Документе ?

нет

да Упорядочение записей Документа

по алфавиту фамиилий

T = I

начальная “лучщая ” запись Документа по

упорядочиваемому полю ( T - номер текущей

“лучщей ” записи)

Цикл поиска “лучщей ” записи в документе

нет

да

T = L

Next L

нет

Цикл перестановок записей в

да Документе по алфавиту фамилий

B = FlMN.TextMatrix(I, J)

FlMN.TextMatrix(I, J) = FlMN.TextMatrix(T, J)

FlMN.TextMatrix(T, J) = B

Fl1.TextMatrix(I, J)

Перестановка значений

J – х полей ЗАПИСЕЙ

I – ой и T – ой строк

Документа

Next J

End If

Next I

End If

да

FlMN.TextMatrix(Nstr, 0) =

“ В Документе записей НЕТ “