[Home] [Help]
505: l_SUPP_AWT_TYPE_ID_SEQ JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_TYPE_ID%TYPE;
506: l_tax_id ap_tax_codes.tax_id%TYPE;
507: l_SUPP_AWT_TYPE_ID_TYPES JL_ZZ_AP_SUPP_AWT_TYPES.SUPP_AWT_TYPE_ID%TYPE;
508: l_VENDOR_ID PO_VENDORS.VENDOR_ID%TYPE;
509: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
510: l_INVOICE_ID_INA AP_INVOICES_ALL.INVOICE_ID%TYPE;
511: l_DISTRIBUTION_LINE_NUMBER_IND AP_INVOICE_DISTRIBUTIONS_ALL.DISTRIBUTION_LINE_NUMBER%TYPE;
512: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
513: l_START_DATE_SEC_MAX DATE := NULL;
512: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
513: l_START_DATE_SEC_MAX DATE := NULL;
514: l_END_DATE_SEC_MAX DATE := NULL;
515: l_EFFECTIVE_START_DATE_COMP DATE;
516: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
517:
518:
519: CURSOR CUR3(l_TAXPAYERID_C NUMBER) IS
520: SELECT APINA.INVOICE_ID,
1047: END;
1048:
1049: END IF;
1050:
1051: -- CODE TO UPDATE/INSERT JL_ZZ_AP_INV_DIS_WH_ALL (TDD 3.2.1.1)
1052:
1053: BEGIN
1054: -- TO GET THE CURRENT MONTH SUPP_AWT_CODE_ID FOR THE PRESENT TAX_ID
1055:
1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: IF p_debug_log = 'Y' THEN
1087: FND_FILE.PUT_LINE( FND_FILE.LOG,'22 B SELECT TAX CODE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH_ALL - '|| SQLCODE ||' -ERROR- '|| SQLERRM);
1088: END IF;
1089: END;
1090:
1091: OPEN CUR3(l_TAXPAYER_ID);
1131: FND_FILE.put_line( FND_FILE.LOG,'22 B l_SUPP_AWT_CODE_ID_CD'|| l_SUPP_AWT_CODE_ID_CD);
1132: FND_FILE.put_line( FND_FILE.LOG,'22 B INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1133: END IF;
1134:
1135: BEGIN ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1136:
1137: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1138: (INV_DISTRIB_AWT_ID,
1139: INVOICE_ID,
1652: FND_FILE.put_line( FND_FILE.LOG,'45 INV_REC.DISTRIBUTION_LINE_NUMBER'|| INV_REC.DISTRIBUTION_LINE_NUMBER);
1653: FND_FILE.put_line( FND_FILE.LOG,'45 l_SUPP_AWT_CODE_ID_CD'|| l_SUPP_AWT_CODE_ID_CD);
1654: FND_FILE.put_line( FND_FILE.LOG,'45 INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1655: END IF;
1656: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1657: BEGIN
1658:
1659: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1660: (INV_DISTRIB_AWT_ID,
1862: l_SUPP_AWT_TYPE_ID_CD JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_TYPE_ID%TYPE;
1863: l_tax_id ap_tax_codes.tax_id%TYPE;
1864: l_SUPP_AWT_TYPE_ID_TYPES JL_ZZ_AP_SUPP_AWT_TYPES.SUPP_AWT_TYPE_ID%TYPE;
1865: l_VENDOR_ID PO_VENDORS.VENDOR_ID%TYPE;
1866: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1867: l_INVOICE_ID_INA AP_INVOICES_ALL.INVOICE_ID%TYPE;
1868: l_DISTRIBUTION_LINE_NUMBER_IND AP_INVOICE_DISTRIBUTIONS_ALL.DISTRIBUTION_LINE_NUMBER%TYPE;
1869: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
1870: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1866: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1867: l_INVOICE_ID_INA AP_INVOICES_ALL.INVOICE_ID%TYPE;
1868: l_DISTRIBUTION_LINE_NUMBER_IND AP_INVOICE_DISTRIBUTIONS_ALL.DISTRIBUTION_LINE_NUMBER%TYPE;
1869: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
1870: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1871: l_SUPP_AWT_CODE_ID_SEQ JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_CODE_ID%TYPE;
1872:
1873:
1874: --WHO COLUMNS:
2224:
2225: END;
2226:
2227:
2228: -- code to UPDATE/insert jl_zz_ap_inv_dis_wh_all
2229:
2230: BEGIN
2231: -- To get the current month Supp_Awt_Code_id for the present tax_id
2232:
2271: LOOP
2272: FETCH CUR4 INTO INV_REC;
2273: EXIT WHEN CUR4%NOTFOUND;
2274:
2275: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
2276:
2277: BEGIN
2278:
2279: AWT_CODE_INV_AVAIL_FLAG := 'N';