DECLARE CURSOR C IS SELECT MR_NO, MR_DATE, JUTEOFFICE.MR_NET(COMP_CODE, MR_NO) NET_AMOUNT, COMP_CODE, INSERTED_BY FROM JUTEOFFICE.JUTEOFFICE_MR_MAST WHERE MR_DATE BETWEEN '01-MAY-09' AND '31-AUG-09' AND COMP_CODE = 1; v_VCH_NO VARCHAR2(12); BEGIN FOR R IN C LOOP JUTEOFFICE.JUTEOFFICE_PROVISIONAL_POST (R.MR_NO, R.MR_DATE,R.NET_AMOUNT, R.COMP_CODE, R.INSERTED_BY, v_VCH_NO); UPDATE JUTEOFFICE.JUTEOFFICE_MR_MAST SET VCH_NO = v_VCH_NO WHERE MR_NO = R.MR_NO AND COMP_CODE = R.COMP_CODE; END LOOP; END; ------------ DECLARE CURSOR C IS SELECT A.MR_NO, A.MR_DATE, JUTEOFFICE.MR_NET(A.COMP_CODE, A.MR_NO) NET_AMOUNT, A.COMP_CODE, A.INSERTED_BY, (SELECT COMP_CODE FROM MREL.MREL_COMPANY_MAST WHERE PARTY_CODE = B.VENDOR_CODE) FROM_COMP_CODE FROM JUTEOFFICE.JUTEOFFICE_MR_MAST A, JUTEOFFICE.JUTEOFFICE_PO_MAST B WHERE A.PO_NO = B.PO_NO AND A.COMP_CODE = B.COMP_CODE AND A.MR_DATE BETWEEN '01-APR-09' AND '31-AUG-09' AND B.VENDOR_CODE IN (SELECT PARTY_CODE FROM MREL.MREL_COMPANY_MAST); v_VCH_NO VARCHAR2(12); v_VCH_NO1 VARCHAR2(12); BEGIN FOR R IN C LOOP JUTEOFFICE.JUTEOFFICE_PROVISIONAL_POST (R.MR_NO, R.MR_DATE,R.NET_AMOUNT, R.COMP_CODE, R.FROM_COMP_CODE, 'T', R.INSERTED_BY, v_VCH_NO, v_VCH_NO1); UPDATE JUTEOFFICE.JUTEOFFICE_MR_MAST SET VCH_NO = v_VCH_NO, VCH_NO1 = v_VCH_NO1 WHERE MR_NO = R.MR_NO AND COMP_CODE = R.COMP_CODE; END LOOP; END; ---------- DECLARE CURSOR C IS SELECT A.MR_NO, A.MR_DATE, JUTEOFFICE.MR_NET(A.COMP_CODE, A.MR_NO) NET_AMOUNT, A.COMP_CODE, A.INSERTED_BY, (SELECT COMP_CODE FROM MREL.MREL_COMPANY_MAST WHERE PARTY_CODE = B.VENDOR_CODE) FROM_COMP_CODE FROM JUTEOFFICE.JUTEOFFICE_MR_MAST A, JUTEOFFICE.JUTEOFFICE_PO_MAST B WHERE A.PO_NO = B.PO_NO AND A.COMP_CODE = B.COMP_CODE AND A.MR_DATE BETWEEN '01-AUG-09' AND '31-AUG-09' AND B.VENDOR_CODE NOT IN (SELECT PARTY_CODE FROM MREL.MREL_COMPANY_MAST WHERE PARTY_CODE IS NOT NULL) AND A.COMP_CODE = 2; v_VCH_NO VARCHAR2(12); v_VCH_NO1 VARCHAR2(12); BEGIN FOR R IN C LOOP JUTEOFFICE.JUTEOFFICE_PROVISIONAL_POST (R.MR_NO, R.MR_DATE,R.NET_AMOUNT, R.COMP_CODE, R.FROM_COMP_CODE, 'N', R.INSERTED_BY, v_VCH_NO, v_VCH_NO1); UPDATE JUTEOFFICE.JUTEOFFICE_MR_MAST SET VCH_NO = v_VCH_NO, VCH_NO1 = v_VCH_NO1 WHERE MR_NO = R.MR_NO AND COMP_CODE = R.COMP_CODE; END LOOP; END;