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

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal4\oz4.dbf

endcase

use amortiz

go top

do while !eof()

replace cena with amrt

replace oper1 with round(cena*staw*staw1/100,2)

replace amrt with cena-oper1

skip(1)

enddo

deactivate window nk

use zah

replace kvt with kvrt

close database

return

case r=2

deactivate window nk

return

endcase

else

do dtop

return

endif

do dtop

return

Лістінг модуля Pererah.prg

select a

USE ZAH

select b

use amortiz