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

@ 0,10 say '*** КОРЕКЦІЯ ТА СПИСАННЯ ОЗ ***'

@ 2,2 say 'ESC-вийти, F4-підсумок F8-зписати'

ON KEY LABEL F4 DO SUMPR in m12_2.prg

on KEY LABEL F8 delete

do case

case bar=2

@ 1,2 SAY 'Визначіть відділ якій треба переглянути'

select b

activate popup m12m01

case bar=1

do browser in m12_2.prg

otherwise

return

endcase

procedure m01b1pr

parameter recn

select b

go top

goto(recn)

DVKEY1=RECN

dvkey=kodv

select a

set filter to grp=dvkey

do browser

clear windows

do dtop

deactivate popup m12m01

CLOSE DATABASES

RETURN

procedure browser