Lalimo.ru

Система методов менеджмента

Мероприятия по безопасности жизнедеятельности персонала и эффективной организации управленческого труда в организации

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>

RELEASE THISFORM Перейти на страницу: 1 2 3 4 5 6