Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Use &NameFd

* Формирование шапки таблицы

L='+---------------------+---------------+---------------------+'

@ 7,10 Say L

@ 8,10 Say '| Вид продукции | Общий объем | Суммарная стоимость |'

@ 9,10 Say L

* Сортировка данных по виду продукции

Index On VidProd to &NameFd && Создание индексного файла

Use &NameFd Index &NameFd

* Формирование строк таблицы

Row=10 && Текущий номер строки для вывода данных

Do While .Not.EOF()

VP=VidProd

RNom=RecNo() && Запомнить номер текущей записи

Sum Volum For VidProd=VP to AllVol && Общий объем

Sum Volum*Price For VidProd=VP to AllPrice && Суммарная стоимость

GoTo RNom && Вернуться на текущую запись

@ Row,10 Say '|'

@ Row,12 Say VidProd

@ Row,32 Say '|'

@ Row,37 Say AllVol Picture '### ###'

@ Row,48 Say '|'

@ Row,55 Say AllPrice Picture '### ###.##'

@ Row,70 Say '|'

* Пропуск записей с отработанным видом продукции

Рекомендуем скачать другие рефераты по теме: инновационный менеджмент, курсовая работа.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки