SELEA
THISFORM.REFRESHO
<OTKA3>
RELEASE THISFORM
МОДУЛЬ DOC 1
< ПЕЧАТЬ>
USETABL1 INF
REPLACE PI WITH P71, P2 WITH P72
SELEC
USE TABL IN G
SET FILTER TO LEFT(MOTH,4)=P71
SELEG
GO TOP
SELEC
SCAN
SELEG
REPLACE MON WITH C.MOTH,;
VI WITHC.VYR2,;
SI WITHC.SEB2,;
PR1 WITH C.VYR2-C.SEB2,;
RE1 WITHC.RENT2 SKIP SELEC ENDSCAN
SET FILTER TO LEFT(MOTH,4)=P72
SELEG
GO TOP
SELEC
SCAN
SELEG
REPLACE V2 WITH C.VYR2,;
S2 WITH C.SEB2,;
PR2 WITH C.VYR2-C.SEB2,;
RE2 WITH C.RENT2 SKIP SELEC ENDSCAN
REPORT FORM REPORTl NOCONS PREW SELEG DELE ALL PACK USE THISFORM.REFRESHO
<OTKA3>
RELEASE THISFORM
МОДУЛЬ РОС2
<ПЕЧАТЬ>
SELED
SET FILTER TO VAL(YER)<=P81.AND.VAL(YER)>=P82
USE TABL3 IN G
SCAN
SELEG
REPLACE Y2 WITH D.MOTH,;
V2 WITH D.VYR3,;
S2 WITH D.SEB3,;
PR2 WITH D.PRIB3,;
RE2 WITH D.RENT3 SKIP SELEC ENDSCAN
REPORT FORM REPORT2 THISFORM.REFRESHO
<ОТКАЗ> RELEASE THISFORM
МОДУЛЬ ozenca < ФОРМИРОВАТЬ DIMENSION B(100), C(100), D(100) FOR 1=1 TO 100
B=ROUND()*100
C=ROUND()*100
D=ROUND()*100
ENDFOR
REPLACE MON WITH C.MOTH,;
VI WITHC.VYR2,;
SI WITHC.SEB2,;
PRl WITH C.VYR2-C.SEB2,
RE1 WITHC.RENT2 SKIP SELEC ENDSCAN
<OTKA3>