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

define bar 1 of mg01 prompt '1 група'

define bar 2 of mg01 prompt '2 група'

define bar 3 of mg01 prompt '3 група'

on selection popup mg1 do prg01 with bar() in m2_1.prg

define popup zmd01 prompt field nazvav shadow

on selection popup zmd01 do prmd01 with recno() in M2_1.prg

do case

case bar=1

DEFINE WINDOW w01 FROM 0,0 TO 24,79 COLOR SCHEME 1

ACTIVATE WINDOW w01

@ 1,0 say ' Для яко• групи вивести звіт ? '

activate popup mg01

NG=GGG()

case bar=2

select b

activate popup zmd01

NV=kv()

case bar=3

do prprint

case bar=5

set filter to

otherwise

do dtop

return

endcase





procedure prg01

parameter b1,GGG

do case