Index _qquery 4gl --- _qquery 4gl revision 610 _qquery 4gl working cop

 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
Index: _qquery.4gl
===================================================================
--- _qquery.4gl (revision 610)
+++ _qquery.4gl (working copy)
@@ -457,7 +457,12 @@
IF (kk = 0) OR full_poli THEN
IF NOT full_poli THEN
LET cu_diags[1].serv_cnt = tmp_cnt
+ # обычно в cu_reestr.summa поданная сумма, но в данном случае --
+ # оплаченная. Так удобнее. Иначе бы пришлось выбирать в d_0811a и поданную
+ # и оплаченную сумму, модифицировать d_0812b и заводить новые переменные.
LET cu_reestr.summa = tmp_sum
+ ELSE
+ LET cu_reestr.summa = cu_reestr.summa - cu_reestr.u_summa
END IF
# --- Удалим район
LET ii = ContainsString(cu_reestr.address, "Р-Н,", 1)
@@ -629,7 +634,7 @@
cu_diags[1].mkb[1,5], " ",
cu_diags[1].serv_cnt USING "###", " ",
cu_diags[1].ukl USING "#&.&&",
- (cu_reestr.summa - cu_reestr.u_summa) USING "######&.&&"
+ cu_reestr.summa USING "######&.&&" # обычно в cu_reestr.summa -- поданная сумма, но в данному случае это оплаченная, так удобней
PRINT " ",
cu_reestr.c_num[1,13], " ",
cu_reestr.p_num USING "#######", " ",