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;