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

go top

do while !eof()

do case

case grupa=1

replace oper1 with round(cena*a.g1P1*a.g1P2/100,2)

replace amrt with cena-oper1

case grupa=2

replace oper1 with round(cena*a.g2P1*a.g2P2/100,2)

replace amrt with cena-oper1

case grupa=3

replace oper1 with round(cena*a.g3P1*a.g3P2/100,2)

replace amrt with cena-oper1

otherwise

replace oper1 with 10101

replace amrt with 10101

endcase

skip(1)

enddo

return

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

clear windows

close databases

set talk off

do dtop

select a

use amortiz

select b

use pids

replace sbg1 with 0

replace spg1 with 0