Hủy bút toán pending khoản vay

Hủy bút toán pending khoản vay

  Lỗi trên chạy thủ tục hủy phía dưới -- ma khoan vay SELECT * FROM INTELLECT.M_INTEREST_DTLS_ADV WHERE MIDA_CUST_ID||MIDA_CON_ID||MIDA... tháng 12 29, 2023

 

Lỗi trên chạy thủ tục hủy phía dưới

-- ma khoan vay

SELECT * FROM INTELLECT.M_INTEREST_DTLS_ADV WHERE MIDA_CUST_ID||MIDA_CON_ID||MIDA_PROJ_ID IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751')

SELECT * FROM INTELLECT.WF110TB wh WHERE CBA_NO IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751') AND AUTH_ID IS NULL AND STATUS NOT IN ('ER')

UPDATE INTELLECT.WF110TB SET STATUS ='R' WHERE CBA_NO IN ('2000094150539710','2000094148953104','2000094150503733','2000094149398658','2000094150501489','2000094152305751') AND AUTH_ID IS NULL AND STATUS NOT IN ('ER')$$

UPDATE INTELLECT.WF130TB ACTIVITY ='R' WHERE REF_NO IN ('2000094150539710','2000094148953104','2000094150503733','2000094149398658','2000094150501489','2000094152305751')

AND ACTIVITY ='ER'

SELECT * FROM INTELLECT.WF130TB WHERE REF_NO IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751')

select *from INTELLECT.M_PROJ_INFO where MPI_LEGACY_ID IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751') ---LAY MÃ MPI_FKEY CHAY THU TUC DUOI

SELECT * FROM intellect.wf110tb WHERE ref_no IN ('3466424','','','')

select * from INTELLECT.M_PROJ_MODIFY WHERE MPM_CUST_ID||MPM_CON_ID||MPM_PROJ_ID IN (select MPI_CUST_ID||MPI_CON_ID||MPI_PROJ_ID from INTELLECT.M_PROJ_INFO

where MPI_LEGACY_ID IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751') ) AND REC_ST ='M'

DELETE INTELLECT.M_PROJ_MODIFY WHERE MPM_CUST_ID||MPM_CON_ID||MPM_PROJ_ID IN (select MPI_CUST_ID||MPI_CON_ID||MPI_PROJ_ID from INTELLECT.M_PROJ_INFO

where MPI_LEGACY_ID IN ('2000094150539710','2000094148953104','2000094149398658','2000094152305751') ) AND REC_ST ='M'

----

select REC_ST , MPIA_LEGACY_ID , MKR_ID , MPIA_ORG_POS_CD, a. * from intellect.m_proj_info_adv a where MPIA_CUST_ID='3060111560' AND rEC_ST <> 'A'

-- khoan vay dang pen ding

--- Chay thu tuc huy but toan

DECLARE

PN_ERR_CD NUMBER;

PV_ERR_MSG VARCHAR2(200);

PN_FKEY NUMBER;

PN_MOD_KEY VARCHAR2(200);

PV_MAKERID VARCHAR2(200);

PV_LANG_CD VARCHAR2(200);

BEGIN

PN_ERR_CD := NULL;

PV_ERR_MSG := NULL;

PN_FKEY := NULL;

PN_MOD_KEY := 3; --- 3 : mo khoan vay , -- 6 : book lich tra no

PV_MAKERID := NULL;

PV_LANG_CD := NULL;

DBMS_OUTPUT.ENABLE;

SP_CANCEL ( PN_ERR_CD, PV_ERR_MSG, 3466424, PN_MOD_KEY, PV_MAKERID, PV_LANG_CD );

DBMS_OUTPUT.ENABLE;

DBMS_OUTPUT.Put_Line('PN_ERR_CD = ' || TO_CHAR(PN_ERR_CD));

DBMS_OUTPUT.Put_Line('PV_ERR_MSG = ' || PV_ERR_MSG);

END;

Lỗi báo user cập nhật lại lịch, trường hợp không được thì chạy thủ tục dưới

insert into intellect.m_disb_schd

(mds_fkey, mds_cust_id, mds_con_id, mds_proj_id, mds_disb_slno, mds_disb_dt, mds_disb_amt, mds_disb_amt_ccy, mds_pay_flag, mds_mode_disb, mkr_id, mkr_dt, auth_id, auth_dt,

rec_st, mds_txn_city_cd, mds_txn_pos_cd, mds_org_city_cd, mds_org_pos_cd)

select MPI_FKEY, MDI_CUST_ID, MDI_CON_ID, MDI_PROJ_ID, MDI_DISB_SLNO, MDI_DISB_DT, MDI_DISB_AMT,

MDI_DISB_CCY, 'P', MDI_MODE_DISB, a.MKR_ID, a.MKR_DT, a.AUTH_ID, a.AUTH_DT, a.REC_ST, MDI_TXN_CITY_CD, MDI_TXN_POS_CD, MDI_ORG_CITY_CD, MDI_ORG_POS_CD

from intellect.m_disb_info  a, intellect.m_proj_info  b

where MDI_CUST_ID = MPI_CUST_ID and MDI_CON_ID = MPI_CON_ID and MDI_PROJ_ID = MPI_PROJ_ID 

and MDI_CUST_ID||MDI_con_ID||MDI_proj_ID in ('01010364490010040','01010364490010044','01010364490010037')