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

select d

use st1

go top

stor=0

DEFINE WINDOW w0\x2031\x5246\x4D4F\x3520\x312C‰\x4F54\x3120\x2C30\x3036\x6420\x756F\x6C62\x2065\x6873\x6461\x776F\x4320\x4C4F\x524F†\x4353\x4548\x454D\x3120\x0D20\x090D\x6409\x6665\x6E69\x2065\x6F70\x7570\x2070\x676D\x3130\x6620\x6F72\x206D\x2C30\x3033\x0909\x2009

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

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

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

on selection popup mg01 do prg01 with bar() in printzv.prg

define popup zmd01 prompt field nazvav shadow

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

do case

case bAr=1





ACTIVATE WINDOW w01

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

activate popup mg01

case bAr=2

DEFINE WINDOW w02 FROM 5,10 TO 15,60 COLOR SCHEME 1 double shadow

ACTIVATE WINDOW w02

@ 0,0 say 'Визначіть для якого відділу вивести звіт ?'

select b

activate popup zmd01

case bAr=3

do print01

case bAr=5

do print02

case bar=6

select a