Автоматизація господарської діяльності ВАТ "Коломийський сирзавод", Детальна інформація

select a

go top

set filter to grp=b.kodv

store 0 to x1,x2,x3,x4

do while !eof()

x1=x1+balrax

x2=x2+cena

x3=x3+oper1

x4=x4+amrt

define window i001 from 8,10 to 20,71 double shadow color scheme 4

ACTIVATE WINDOW I001

@ 0,20 say 'ІНДИКАТОР ПРОЦЕСУ'

@ 1,2 SAY 'Виводиться звіт для відділу '+b.nazvav

@ 2,2 say 'По балансовій вартості - '

@ 3,2 say 'По початковій вартості - '

@ 4,2 say 'Знос - '

@ 5,2 say 'По залишковій вартості - '

@ 2,30 say x1

@ 3,30 say x2

@ 4,30 say x3

@ 5,30 say x4

skip(1)

enddo

select c

replace c.sr1 with x1

replace c.sr2 with x2

replace c.sr3 with x3

replace c.sr4 with x4

select a