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

set date german

set century on

do dtop

select B

erase M1_111.idx

use dovvid

index on nazvav to M1_111.idx compact

define popup v01 prompt field nazvav from 5,5 shadow

on selection popup v01 do perv in M1_11 with recno()

define popup v02 prompt field nazvav from 5,5 shadow

on selection popup v02 do delv in M1_11 with recno()

define window p002 from 2,30 to 20,75 double shadow color scheme 1

define popup v03 prompt field nazvav from 3,5 shadow

on selection popup v03 do p23 in M1_11 with recno()

define popup p1 from 5,5 shadow

define bar 1 of p1 prompt 'Новий відділ'

define bar 2 of p1 prompt 'Перейменувати відділ'

define bar 3 of p1 prompt '\-'

define bar 4 of p1 prompt 'Знищити відділ'

on selection popup p1 do proc1 with bar()

activate popup p1

procedure proc1

parameter bar

do case

case bar=1

@ 2,10 say '*** ВНЕСЕННЯ НОВОГО ВІДДІЛУ ***'



DEFINE WINDOW w01 FROM 5,20 TO 9,65 double shadow COLOR SCHEME 1

ACTIVATE WINDOW w01

@ 0,4 say 'Введіть назву нового відділу'