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

  Do While .Not.EOF()

     If VidProd=TypeProd

* Формирование строки

       @ Row,12 Say '|'

       @ Row,20 Say KodOrg

       @ Row,30 Say '|'

       @ Row,36 Say Volum Picture '# ###'

       @ Row,46 Say '|'

       @ Row,48 Say Price Picture '###.##'

       @ Row,55 Say '|'

       @ Row,57 Say Volum*Price Picture '## ###.##'

       @ Row,67 Say '|'

       Row=Row+1

     EndIf

     Skip

  EndDo

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

  @ Row,12 Say L

  Row=Row+1

  * Расчет суммарной стоимости

  Sum Volum*Price For VidProd=TypeProd to AllPrice

  * Расчет среднего выпуска

  Average Volum For VidProd=TypeProd to AvVol

  @ Row,29 Say 'Общая суммарная стоимость:'

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

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





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