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

d1=a.fdata1

d2=a.fdata2

@ 3,0 say 'Введіть початкову дату ' get d1

@ 4,0 say 'Введіть кінцеву дату ' get d2

read

replace fdata1 with d1

replace fdata2 with d2

clear windows

do dtop

return

CASE BAR=6

define window w1203 from 6,10 to 10,70 double shadow color scheme 1

activate window w1203

@ 0,1 say 'Виберіть групу '

@ 1,1 say 'яку треба переглянути'

activate popup r2

clear windows

do dtop

return

case bar=7

define window w1203 from 6,10 to 10,70 double shadow color scheme 1

activate window w1203

@ 0,1 say 'Введіть назву засобу, або перші кілька букв '

@ 1,1 get a.fnazva

read

CASE BAR=8

define window w1202 from 6,10 to 12,70 double shadow color scheme 1

activate window w1202

@ 0,1 say 'Визначіть діапазон балансово• вартості для засобів, '

@ 1,1 say 'які треба переглянути'