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

nv=' '

@ 1,0 get nv

READ



NV=ALLTRIM(NV)

select b

go top

do while !eof()

if nazvav=nv

define window w02 from 7,7 to 16,70 double shadow color scheme 7

activate window w02

@ 0,8 say ' Такий відділ вже існує !'

@ 1,0 say ' Внесення даного відділу сприятиме виникненню помилок під час'

@ 2,0 say ' роботи оператора, оскільки існує висока імовірність переплу-'

@ 3,0 say ' тати відділи з оинаковими назвами !'



@ 5,10 prompt 'Внести відділ'

@ 5,40 prompt 'Відміна'

menu to r

deactivate window w02

if r=2

return

else

endif

else

endif

skip(1)

enddo

go bottom

x=kodv