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

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

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

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

select a

go top

store 0 to x1,x2,x3,x4

do while !eof()

x1=x1+balrax

x2=x2+cena

x3=x3+oper1

x4=x4+amrt

@ 2,30 say x1

@ 3,30 say x2

@ 4,30 say x3

@ 5,30 say x4

skip(1)

enddo

clear windows

do dtop

select c

replace c.sr1 with x1

replace c.sr2 with x2

replace c.sr3 with x3

replace c.sr4 with x4

select a

do p00p

return

procedure p00p

parameter b

clear windows