Реферат: Разработка СУБД FoxPro 2.0

LOCATE FOR ''#ALLTRIM(DTOC(B.DATA,1));

.AND.B.DATA<GOMONTH(DATE(),-6)

IF FOUND()

? ALLTRIM(STR(I)),'. ',FIO,' Hомер билета: ',NOMBIL

A=NOMBIL

ENDIF

DO WHILE FOUND()

IF ROW()=17.OR.ROW()=18

WAIT 'Hажмите клавишу для продолжения' WINDOW

CLEAR

ENDIF

IF A#NOMBIL

A=NOMBIL

I=I+1

? ALLTRIM(STR(I)),'. ',FIO,' Hомер билета: ',NOMBIL

ENDIF

? ' ',B.WRITER,B.NAME,' ',B.INVNOM,' ',B.DATA

CONTINUE

ENDDO

WAIT 'Конец списка' WINDOW

DEACTIVATE WINDOW SELECT1

CASE I=1.AND.J=2 &&Если вывод на принтер

DEACTIVATE WINDOW WHERE

IF PRINTSTATUS()

SET PRINTER ON

SET PRINTER TO LPT1

DO DOLGMEN &&Процедура вывода должников

EJECT PAGE

SET PRINTER TO