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

yr=year(date())

ms=month(date())

dt=date()

DO CASE

CASE MS<=1.AND.MS<=3

kvrt=1

CASE MS<=4.AND.MS<=6

kvrt=2

CASE MS<=7.AND.MS<=9

kvrt=3

CASE MS<=10.AND.MS<=12

kvrt=4

endcase

define window nk from 5,10 to 14,67 double shadow color scheme 7 title 'Перехід на новий квартал'

activate window nk

@ 0,10 say 'СЬОГОДНІ '+dmy(dt)

@ 1,10 say 'ПОТОЧНИЙ КВАРТАЛ '+STR(kvrt)

select b

if kvt=kvrt

@ 2,1 say 'УВАГА перехід на новий квартал проводиться завчасно !'

else

endif

@ 4,6 prompt ' ПРОВЕСТИ ПЕРЕРАХУНОК ДЛЯ НОВОГО КВАРТАЛУ '

@ 6,13 prompt ' ПРОДОВЖИТИ БЕЗ ПЕРЕРАХУНКУ '

menu to r

do case

case r=1

do case

case kvrt=1

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal1\oz1.dbf