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

parameter ddd

define window w0201 from 6,1 to 21,78 DOUBLE

activate window w0201

browse title 'Oсновні засоби відділу - '+b.nazvav fields invnom :h='інв.N',;

grupa :h='група', nrax :h='рахунок', Nazva :h='Назва ОЗ',balrax :h='балансова вартість',;

cena :h='варт.на початок кврт',;

oper1 :h='Знос за кв.',amrt :h='замортизована варт'

return

procedure sumpr

parameter k

select a

go top

select d

use sumator

replace d.sbalv with 0

replace d.scena with 0

replace d.soper with 0

replace d.samrt with 0

do while !eof()

select a

replace d.sbalv with d.sbalv+a.balrax

replace d.scena with d.scena+a.cena

replace d.soper with d.soper+a.oper1

replace d.samrt with d.samrt+a.amrt

skip(1)

enddo

define window w044 from 17,1 to 24,77 double shadow color scheme 1 title 'ПІДСУМКИ'

activate window w044

@ 0,1 say 'Cумарна балансова вартість ОЗ відділу='

@ 0,40 say d.sbalv