Имеется 20 пунктов, 1 пункт – это итог, который составляет сумму 2-20 пунктов.
Необходимо исключить 20 пункт из итога, т.е. чтобы в 1 пункте не суммировались данные 20 пункта.
В каждый пункт входят определенные коды KODOP, в пунктах не бывает одинаковых KODOP
Часть кода
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
DIMENSION KODR(60)
KODR(1) = ' 1'
…
KODR(59) = '20.00'
NL = 0
NST = 0
@ 0, 0 CLEAR TO 24, 79
@ 5, 25 SAY ' ” Ћ ђ Њ Ђ 111 '
@ 7, 20 SAY '123’ 123 ‘ — … ’ '
IF .NOT.FILES('rabf111.dbf')
SELECT 9
USE strufl
COPY TO strkart STRUCTURE
USE
SELECT 8
USE strkart
APPEND BLANK
REPLACE FIELD_NAME WITH 'KOD'
REPLACE FIELD_TYPE WITH 'C'
REPLACE FIELD_LEN WITH 5
REPLACE FIELD_DEC WITH 0
APPEND BLANK
REPLACE FIELD_NAME WITH 'OPERWS'
REPLACE FIELD_TYPE WITH 'N'
REPLACE FIELD_LEN WITH 6
REPLACE FIELD_DEC WITH 0
APPEND BLANK
REPLACE FIELD_NAME WITH 'OPERDETI'
REPLACE FIELD_TYPE WITH 'N'
REPLACE FIELD_LEN WITH 7
REPLACE FIELD_DEC WITH 0
APPEND BLANK
REPLACE FIELD_NAME WITH 'UMEROPER'
REPLACE FIELD_TYPE WITH 'N'
REPLACE FIELD_LEN WITH 6
REPLACE FIELD_DEC WITH 0
USE
SELECT 3
CREATE rabf111 FROM strkart
USE
ERASE strkart.dbf
ELSE
USE rabf111
ZAP
USE
ENDIF
CLOSE ALL
SET PROCEDURE TO prf111
SELECT 3
USE rabf111
INDEX ON KOD TO inrab111
USE
SELECT 4
USE zagfor11 INDEXES inzagf11
SELECT 3
USE rabf111 INDEXES inrab111
I = 1
DO WHILE I<60
APPEND BLANK
REPLACE KOD WITH KODR(I)
I = I+1
LOOP
ENDDO
GOTO TOP
SELECT 1
USE kartwib
SET FILTER TO (DATW>=MINDAT.AND.DATW<=MAXDAT).AND.SRDOOP>0)
brow
GOTO TOP
SELECT 2
USE operwib INDEXES inoperp
@ 21, 10 SAY 123 '+STR(OBRZAP,6)
SELECT 1
KODOPR = 0
UM = 0
ITOGO = 0
DO WHILE .NOT.EOF()
OBRZAP = OBRZAP+1
@ 21, 31 SAY STR(OBRZAP,6)
WOZR = INT((DATP-DATR)/365)
DSRAB = TRIM(DSSTAT)
IF EFFEKT=6
UM = UM+1
ENDIF
SELECT 2
SEEK (A->INDEF)
IF .NOT.FOUND()
SELECT 1
SKIP
LOOP
ENDIF
ITOGO = ITOGO+1
INDEFR = INDEF
III = 0
III1 = 0
III2 = 0
III3 = 0
SELECT 3
SEEK (KODR(1))
IF FOUND()
IF A->EFFEKT=6
REPLACE UMEROPER WITH UMEROPER+1
ENDIF
ENDIF
SELECT 2
DO WHILE INDEF=INDEFR
III = 0
III1 = 0
III2 = 0
III3 = 0
KODOPR = KODOP
IF KODOP>0.AND.KODOP<9999
SELECT 3
III = 1
SEEK (KODR(1))
DO CHET
ELSE
SELECT 2
SKIP
LOOP
ENDIF
DO WHILE .T.
SELECT 3
*Џ“ЌЉ’ 2.00
IF B->KODOP=199.OR.(B->KODOP>=501.and.B->KODOP<=516);
.OR.(B->KODOP>=518.and.B->KODOP<=546);
.OR.(B->KODOP>=548.and.B->KODOP<=564)
III = 2
SEEK (KODR(2))
DO CHET
IF (B->KODOP>=501.and.B->KODOP<=510).OR.(B->KODOP>=512.and.B;
->KODOP<=516).OR.(B->KODOP>=518.and.B->KODOP<=524);
.OR.(B->KODOP>=535.and.B->KODOP<=546);
.OR.(B->KODOP>=548.and.B->KODOP<=563)
III1 = 3
SEEK (KODR(3))
DO CHET
EXIT
ENDIF
IF B->KODOP=199.OR.B->KODOP=511.OR.(B->KODOP>=525;
.and.B->KODOP<=534).OR.B->KODOP=564;
III1 = 4
SEEK (KODR(4))
DO CHET
EXIT
ENDIF
EXIT
ENDIF
…
*
* Џ“ЌЉ’ 20.00
*
IF (B->KODOP>=1.and.B->KODOP<=14);
.OR.(B->KODOP>=17.and.B->KODOP<=22).OR.B->KODOP=205
III = 59
SEEK (KODR(59))
DO CHET
EXIT
ENDIF
? B -> KODOP, ' indef=', A -> INDEF
WAIT
III = 59
SEEK (KODR(59))
DO CHET
EXIT
ENDDO
SELECT 2
SKIP
LOOP
ENDDO
IF III=0
III = 48
? 'indef=', A -> INDEF
WAIT
ENDIF
