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

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

use zah

skv=kvt

staw=p1

staw1=p2

close databases

if skv!=kvrt

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

activate window nk

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

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

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

@ 5,17 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

case kvrt=2

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal2\oz2.dbf

case kvrt=3

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal3\oz3.dbf

case kvrt=4