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

procedure pr02

parameter bar



do case

case bar=1

replace a.fgrp with 1

case bar=2

replace a.fgrp with 2

case bar=3

replace a.fgrp with 3

otherwise

replace a.fgrp with 0

deactivate popup r2

endcase

deactivate popup r2

return

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

parameter bar

close databases

set talk off

set date german

clear windows

clear

do dtop

select a

use amortiz

select b

use dovvid

define popup mg01 from 0,33