[Home] [Help]
135:
136: PROCEDURE insert_pla_others
137: (ERRBUF OUT NOCOPY VARCHAR2,
138: RETCODE OUT NOCOPY VARCHAR2,
139: p_previous_serial_no IN JAI_CMN_RG_PLA_TRXS.slno%TYPE,
140: p_tax_type IN JAI_CMN_RG_OTHERS.tax_type%TYPE,
141: p_register_id IN JAI_CMN_RG_PLA_TRXS.register_id%TYPE)
142: AS
143:
137: (ERRBUF OUT NOCOPY VARCHAR2,
138: RETCODE OUT NOCOPY VARCHAR2,
139: p_previous_serial_no IN JAI_CMN_RG_PLA_TRXS.slno%TYPE,
140: p_tax_type IN JAI_CMN_RG_OTHERS.tax_type%TYPE,
141: p_register_id IN JAI_CMN_RG_PLA_TRXS.register_id%TYPE)
142: AS
143:
144: Cursor rg_others_cur( p_register_id IN Number, p_tax_type JAI_CMN_RG_OTHERS.tax_type%TYPE ) IS
145: Select * from JAI_CMN_RG_OTHERS
870: v_ec_code Varchar2(50);
871:
872: Cursor pla_cur(p_register_id IN Number) IS
873: Select *
874: From JAI_CMN_RG_PLA_TRXS a
875: Where a.register_id = p_register_id;
876: pla_rec pla_cur%ROWTYPE;
877:
878: Cursor pla_register_id_cur(p_ec_code IN Varchar2) IS
876: pla_rec pla_cur%ROWTYPE;
877:
878: Cursor pla_register_id_cur(p_ec_code IN Varchar2) IS
879: Select register_id
880: From JAI_CMN_RG_PLA_TRXS a, JAI_CMN_INVENTORY_ORGS b
881: Where ( a.posted_flag IS NULL OR a.posted_flag = 'N' ) --rchandan for bug#4428980
882: And ( a.master_flag IS NULL OR a.master_flag = 'N' ) --rchandan for bug#4428980
883: And a.organization_id = b.organization_id
884: And a.location_id = b.location_id
889:
890: Cursor serial_no_cur(p_organization_id IN Number, p_location_id IN Number,
891: p_fin_year IN Number /*, p_register_type Char */ ) IS
892: Select nvl(MAX(slno),0) , nvl(MAX(slno),0) + 1
893: From JAI_CMN_RG_PLA_TRXS
894: Where organization_id = p_organization_id
895: And location_id = nvl(p_location_id,0)
896: And fin_year = p_fin_year ;
897: -- And register_type = p_register_type
901:
902: Cursor opening_balance_cur(p_previous_serial_no IN NUMBER, p_organization_id IN Number, p_location_id IN Number,
903: p_fin_year IN Number /*, p_register_type Char*/ ) IS
904: Select nvl(opening_balance,0), nvl(closing_balance,0)
905: From JAI_CMN_RG_PLA_TRXS
906: Where slno = p_previous_serial_no
907: And organization_id = p_organization_id
908: And location_id = nvl(p_location_id,0)
909: -- And register_type = p_register_type
918: and FIN_ACTIVE_FLAG='Y';
919:
920: Cursor c_final_balance_pla(p_organization_id IN NUMBER,p_location_id IN NUMBER,p_fin_year IN NUMBER) IS
921: SELECT NVL(CLOSING_BALANCE,0)
922: FROM JAI_CMN_RG_PLA_TRXS
923: WHERE ORGANIZATION_ID = P_ORGANIZATION_ID
924: AND LOCATION_ID = P_LOCATION_ID
925: AND FIN_YEAR = P_FIN_YEAR
926: AND SLNO IN
923: WHERE ORGANIZATION_ID = P_ORGANIZATION_ID
924: AND LOCATION_ID = P_LOCATION_ID
925: AND FIN_YEAR = P_FIN_YEAR
926: AND SLNO IN
927: (SELECT NVL(MAX(SLNO),0) FROM JAI_CMN_RG_PLA_TRXS
928: WHERE ORGANIZATION_ID = P_ORGANIZATION_ID
929: AND LOCATION_ID = P_LOCATION_ID
930: AND FIN_YEAR = P_FIN_YEAR
931: );
1038: if v_debug_flag = 'Y' THEN
1039: FND_FILE.PUT_LINE(FND_FILE.LOG, '1.7 The v_opening_balance is ' || v_opening_balance);
1040: FND_FILE.PUT_LINE(FND_FILE.LOG, '1.8 The v_closing_balance is ' || v_closing_balance);
1041: end if;
1042: INSERT INTO JAI_CMN_RG_PLA_TRXS (register_id,
1043: fin_year,
1044: slno,
1045: tr6_challan_no,
1046: tr6_challan_date,
1121: pla_rec.last_update_login,
1122: pla_rec.other_tax_credit,
1123: pla_rec.other_tax_debit);
1124:
1125: UPDATE JAI_CMN_RG_PLA_TRXS
1126: SET posted_flag = 'Y',
1127: master_flag = 'N'
1128: WHERE register_id = pla_rec.register_id;
1129: