Предыдущая страница реферата | 30  31  32  33  34  35  36  37  38  39  40 | Следующая страница реферата

FOR tr=2 TO flag_del del_str=del_str+temp+stor_ib[tr]+"'"

NEXT

DELETER(del_str,"DIA66") && Удаление из DIA66.DBF

DELETER(del_str,"OP66") && Удаление из OP66.DBF

*************************************** pack && Удаление из KARTA66.DBF

ELSE

RECALL ALL

GOTO TOP

ENDIF
ENDIF
SELECT (sel)
RETURN

*********************************************************************
* Процедура формирования отчетных документов *
*********************************************************************
FUNCTION rez
PRIVATE _OTCH,_OTCH_N,scr1
_OTCH=00
_OTCH_N=""
SAVE SCREEN TO scr1
PRIVATE sel sel=SELECT()
PRIVATE _DATE_FROM
_DATE_FROM=_today
PRIVATE _DATE_TILL
_DATE_TILL=_today
PRIVATE dep,dep_name
PRIVATE numb1
PRIVATE txt
PRIVATE pole
PRIVATE count count=1
PRIVATE _c
_c=1
PRIVATE _p
_p=1
PRIVATE OT1,OT2
PRIVATE coun,c1,v1,v2
PRIVATE f f=1
DO WHILE .T.
SELECT 0
USE BUFF8.DBF INDEX BUFF8 ALIAS BUFF8
ZAP numb1=0 txt=SPACE(100) pole=1
STORE "" TO OT1,OT2 dep=0 dep_name="" codif1("PERD",@_p)
IF _p=0

SELECT BUFF8

USE

EXIT
ELSEIF _p=2

_OTCH_N=codif1("OTCH",@_OTCH)

IF _OTCH=0

SELECT BUFF8

USE

EXIT

ENDIF
ENDIF dep_name=codif1("DEPS",@dep)
IF _p=1.AND.dep=0

SELECT BUFF8

USE

LOOP
ENDIF dep_name=IF(dep=0,"Весь стационар",dep_name)
IF period()=0 && Ввод пользователем периода отчета
SET CURSOR OFF
IF _p=1
********************* МЕСЯЧНЫЕ ОТЧЕТЫ **********************

_OTCH_N="Месячный отчет"

SELECT DIA66

SET RELATION TO SHIFR INTO BUFF8

SELECT karta

SET RELATION TO NUM_IB INTO DIA66

GO TOP

PRIVATE OT1D1,OT2D1,OT1D2,OT2D2

IF dep=2.OR.dep=11

OT1="OTD5.FRM"

OT1D1="OTD2.FRM"

OT2D1="OTD51.TXT"

ELSE

OT1="OTD.FRM"

OT1D1="OTD1.FRM"

OT2D1="OTD_1.TXT"

OT1D2="OTD2.FRM"

OT2D2="OTD_2.TXT"

ENDIF

DO show_st && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ

DO WHILE !EOF()

IF dep=KARTA->DEPARTMENT.AND.;

KARTA->DATE_END>=_DATE_FROM.AND.KARTA->DATE_ENDEND1#3.AND.DIA66->KOD1="1"

_SHIFR=DIA66->SHIFR

SELECT BUFF8

IF EOF()

APPEND BLANK

REPLACE SHIFR WITH _SHIFR mkb(1,1,@_SHIFR,@txt)

REPLACE NAME WITH txt

Рекомендуем скачать другие рефераты по теме: шпоры по философии, экзамен.





Предыдущая страница реферата | 30  31  32  33  34  35  36  37  38  39  40 | Следующая страница реферата