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

? SYS (2002,1)

LOOP

ENDIF

IF r=1

DO WHILE.not.sof()

REPLACE mes WITH mes1, plan WITH 0, potr with o

*repl mes with mes1, potr with 0

REPLACE ostc WITH ostc1, cenc WITH cenc1

SKIP

ENDDO

SELECT 2

DO while.not. EOF()

REPLACE ostc1 WITH 0, cenc1 wiyh 0, kv WITH 0, sym1 WITH 0, src WITH 0, rasx WITH 0, srcrac WITH 0, cens WITH 0

SKIP

ENDDO

SELECT 1

ENDIF

ENDIF

EXIT

ENDDO

CLEAR

SET COLOR TO +w/b

return

procedure VPOSC

CLEAR

GO top

@ 24,0 say 'ENTER – ввод PgDn-экранвниз PgUp – экранвверх Ctrl/ End – выход / сохр Esc – выход Home – начполя'

DEFINE WINDOW okn1;

from 0,0;