Сделал такой запрос для входящих сообщений: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
m_sql="SELECT "+;
"'Входящие' as direction,"+;
"DO_KODV, DO_SUMV, DO_SUMN, DO_ST,"+;
"do_lc2 as do_lc,k.kl_stat "+;
"FROM dokod d (nolock), dbmaslc l (nolock), klient k(nolock) "+;
"WHERE DO_DATE between "+;
Convparm(m_date1)+" and "+Convparm(m_date2)+;
"and (do_lc1 like '127101022%' or do_lc1 like '127101023%' or do_lc1 like '127101024%' or do_lc1 like '127101025%' or do_lc1 like '127101026%' or do_lc1 like '127101029%') "+;
"and substring(do_lc2,4,5)<>'60303' and do_kodv<>'417' "+;
"and do_kodv=ml_kodv and do_lc2=ml_lc and d.kodb=l.kodb and l.ML_KODKL=k.kl_kod"
ok=oODED.Exec_sp(m_sql,'t1')
Записываю входящие сообщения в курсор SW
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
SELECT t1
SCAN
SELECT SW
APPEND BLANK
REPLACE sw_tip WITH t1.direction
REPLACE sw_kodv WITH t1.DO_KODV
REPLACE sw_sumv WITH t1.DO_SUMV
REPLACE sw_sumn WITH t1.DO_SUMN
REPLACE sw_strana WITH IIF(ISNULL(t1.DO_ST),0,t1.DO_ST)
REPLACE sw_lc WITH t1.do_lc
REPLACE sw_stat WITH t1.kl_stat
IF SUBSTR(sw_lc,4,5)!='20002' AND SUBSTR(sw_lc,4,5)!='20004' AND SUBSTR(sw_lc,4,5)!='20201' AND SUBSTR(sw_lc,4,5)!='20202' AND SUBSTR(sw_lc,4,5)!='20211' AND SUBSTR(sw_lc,4,5)!='20214'
AND SUBSTR(sw_lc,4,5)!='20003' AND SUBSTR(sw_lc,4,5)!='20006' AND SUBSTR(sw_lc,4,5)!='20013' AND SUBSTR(sw_lc,4,5)!='20021' AND SUBSTR(sw_lc,4,5)!='20031'
REPLACE sw_vid WITH 'Финансовые'
ENDIF
IF SUBSTR(sw_lc,4,5)='20002' OR SUBSTR(sw_lc,4,5)='20004'
REPLACE sw_vid WITH 'Торговые'
ENDIF
IF SUBSTR(sw_lc,4,5)='20201' OR SUBSTR(sw_lc,4,5)='20202' OR SUBSTR(sw_lc,4,5)='20211' OR SUBSTR(sw_lc,4,5)='20214' OR SUBSTR(sw_lc,4,5)='20003' OR SUBSTR(sw_lc,4,5)='20006'
OR SUBSTR(sw_lc,4,5)='20013' OR SUBSTR(sw_lc,4,5)='20021' OR SUBSTR(sw_lc,4,5)='20031'
REPLACE sw_vid WITH 'Переводы'
ENDIF
ENDSCAN
Сделал такой запрос для исходящих сообщений: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
m_sql="SELECT "+;
"'Исходящие' as direction,"+;
"DO_KODV, DO_SUMV, DO_SUMN, DO_ST,"+;
"do_lc1 as do_lc,k.kl_stat "+;
"FROM bankadm.dokod d (nolock), bankadm.dbmaslc l (nolock), bankadm.klient k(nolock) "+;
"WHERE DO_DATE between "+;
Convparm(m_date1)+" and "+Convparm(m_date2)+;
"and (do_lc2 like '127101022%' or do_lc2 like '127101023%' or do_lc2 like '127101024%' or do_lc2 like '127101025%' or do_lc2 like '127101026%' or do_lc2 like '127101029%') "+;
"and substring(do_lc1,4,5)<>'60303' and do_kodv<>'417' "+;
"and do_kodv=ml_kodv and do_lc1=ml_lc and l.ML_KODKL=k.kl_kod"
ok=oODED.Exec_sp(m_sql,'t2')
Записываю исходящие сообщения в курсор SW
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
SELECT t2
SCAN
SELECT SW
APPEND BLANK
REPLACE sw_tip WITH t2.direction
REPLACE sw_kodv WITH t2.DO_KODV
REPLACE sw_sumv WITH t2.DO_SUMV
REPLACE sw_sumn WITH t2.DO_SUMN
REPLACE sw_strana WITH IIF(ISNULL(t1.DO_ST),0,t1.DO_ST)
REPLACE sw_lc WITH t2.do_lc
REPLACE sw_stat WITH t2.kl_stat
IF SUBSTR(sw_lc,4,5)!='20002' AND SUBSTR(sw_lc,4,5)!='20004' AND SUBSTR(sw_lc,4,5)!='20201' AND SUBSTR(sw_lc,4,5)!='20202' AND SUBSTR(sw_lc,4,5)!='20211' AND SUBSTR(sw_lc,4,5)!='20214'
AND SUBSTR(sw_lc,4,5)!='20003' AND SUBSTR(sw_lc,4,5)!='20006' AND SUBSTR(sw_lc,4,5)!='20013' AND SUBSTR(sw_lc,4,5)!='20021' AND SUBSTR(sw_lc,4,5)!='20031'
REPLACE sw_vid WITH 'Финансовые'
ENDIF
IF SUBSTR(sw_lc,4,5)='20002' OR SUBSTR(sw_lc,4,5)='20004'
REPLACE sw_vid WITH 'Торговые'
ENDIF
IF SUBSTR(sw_lc,4,5)='20201' OR SUBSTR(sw_lc,4,5)='20202' OR SUBSTR(sw_lc,4,5)='20211' OR SUBSTR(sw_lc,4,5)='20214' OR SUBSTR(sw_lc,4,5)='20003' OR SUBSTR(sw_lc,4,5)='20006'
OR SUBSTR(sw_lc,4,5)='20013' OR SUBSTR(sw_lc,4,5)='20021' OR SUBSTR(sw_lc,4,5)='20031'
REPLACE sw_vid WITH 'Переводы'
ENDIF
ENDSCAN
Далее, создаю другой курсор R21J и записываю данные из SW: 1.
2.
3.
4.
5.
6.
CREATE CURSOR R21J (r_tip c(10), r_vid c(10), r_val c(3), r_strana int, r_sum n(15,2))
SELECT SW
SCAN
INSERT INTO R21J (r_tip,r_vid,r_val,r_strana,r_sum ) ;
VALUES (SW.sw_tip,SW.sw_vid,SW.sw_kodv,SW.sw_strana,SW.sw_sumn)
ENDSCAN
|
