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

do case

case x=1



activate window p002

@ 0,0 say 'Запропоновано перелік віділів'

@ 1,0 say 'Визначіть відділ в який перенести ОЗ'

activate popup v03

delete

pack

case x=2

k=kodv

use amortiz

delete for grp=k

pack

clear window d01

close database

clear windows

do dtop

return

case x=3

clear windows

\x0909\x0909\x6409\x206F\x7464\x706F\x0D09\x0909\x0909\x0909\x7209\x7465\x7275\x0D6E\x0909\x0909\x6509\x646E\x6163\x6573\x090D\x6163\x6573\x7920\x323D\x630D\x656C\x7261\x7720\x6E69\x6F64\x7377\x640D\x206F\x7464\x706F\x720D\x7465\x7275\x0D6E\x6E65\x6364\x7361\x0D65\x6C63\x6165\x2072\x6977\x646E\x776F\x0D73\x6F64\x6420\x6F74\x0D70\x6572\x7574\x6E72\x0D09

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

PARAMETER BAR

SET TALK OFF

clear windows

close databases

do dtop

SELECT A

USE AMORTIZ