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

append blank

go bottom

replace kodv with (x+1)

replace nazvav with nv

@ 2,0 say ' Новий відділ успішно внесений !'

@ 2,33 prompt ' OK '

menu to r

deactivate window w01

case bar=2

@ 2,10 say '*** ПЕРЕЙМЕНУВАННЯ ВІДДІЛУ *** '

select b

activate popup v01

case bar=4

@ 2,10 say '*** ВИДАЛЕННЯ ВІДДІЛУ *** '

select b

activate popup v02

ENDCASE

deactivate window dtop01

close databases

do dtop

deactivate popup p1

return

procedure perv

parameter r

goto(r)

define window w03 from 5,20 to 13,65 double shadow color scheme 5

activate window w03

@ 0,7 say '*** ПЕРЕЙМЕНУВАННЯ ВІДДІЛУ ***'

@ 1,0 SAY 'Стара назва відділу - '+nazvav

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