Дипломная работа: Формирование баз данных по учёту планов и остатков сырья в цехе (FoxPro)

PROCEDURE vdat

CLOSE ALL

CLEAR

DO WHILE.T.

SELECT 2

USE rsc INDEX gr

SELECT 1

USE porp INDEX gr

mes1=mes

@ 1,10 say «введитемесяцрасчета» get mes1 pict 'xxxxxxxx'

? SYS (2002,1)

READ

DO vix

IF pv

CLEAR

return to master

ENDIF

CLEAR

IFmes#mes1

@ 9,10 say 'дата нового месяца. удалить информацию за предыдущий месяц'

@ 10,10 say 'датапредыдущегомесяца'

@ 10,35 say mes pict'xxxxxxxx'

@ 11,19,13,60 box

SET COLOR TO n/w,+w/br

@ 12,20 prompt ' да '

@ 12,40 prompt ' нет '

menu to r

IF r=2

SET COLOR TO +w/b