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

set filter to

replace c.nvid with 0

replace c.ngrp with 0

replace c.grupa with ' '

replace c.vid with ' '

endcase

select a

set filter to

clear windows

do dtop

close databases

return









procedure prg01

parameter b1

select c

do case

case b1=1

replace ngrp with 1

replace grupa with 'Звіт по першій групі'

case b1=2

replace ngrp with 2

replace grupa with 'Звіт по другій групі'

case b1=3

replace ngrp with 3

replace grupa with 'Звіт по третій групі'

otherwise