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

  @ 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 '|'

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

     Do While VidProd = VP And .Not.EOF()

       Skip

     EndDo

     Row=Row+1

Рекомендуем скачать другие рефераты по теме: диплом о высшем, отчет о прохождении практики.



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

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