[Home] [Help]
134: | |
135: +============================================================================*/
136:
137: PROCEDURE next_trans_id
138: (v_new_trans_id OUT NOCOPY IC_TRAN_PND.TRANS_ID%TYPE,
139: v_next_id_status OUT NOCOPY BOOLEAN) -- yannamal GSCC b4403407
140: AS
141:
142: /* CURSOR NTRANS_ID_CUR IS
1271: | _validate to check for a valid |
1272: | Inventory calendar |
1273: | 02/04/99 Tony Ricci use correct variable for um2 |
1274: | when inserting/updating |
1275: | ic_tran_pnd BUG#814841 |
1276: | 04/19/00 N Chekuri Added appropriate error messages |
1277: | for Inventory calendar validation|
1278: | routine GMICAL.trans_date_validate
1279: | ().Bug#1274130. |
1276: | 04/19/00 N Chekuri Added appropriate error messages |
1277: | for Inventory calendar validation|
1278: | routine GMICAL.trans_date_validate
1279: | ().Bug#1274130. |
1280: | 14/18/2001 Pushkar Upakare In ic_tran_pnd(TRANS_UM) |
1281: | inserted primary UOM instead of |
1282: | order UOM. |
1283: | 05/21/2001 Uday Phadtare B1795095 In ic_tran_pnd set delete_mark|
1284: | to 1 if po is closed and set to |
1279: | ().Bug#1274130. |
1280: | 14/18/2001 Pushkar Upakare In ic_tran_pnd(TRANS_UM) |
1281: | inserted primary UOM instead of |
1282: | order UOM. |
1283: | 05/21/2001 Uday Phadtare B1795095 In ic_tran_pnd set delete_mark|
1284: | to 1 if po is closed and set to |
1285: | if PO is opened. |
1286: | 05/22/2001 P. Arvind Dath Added code to synch Attributes to|
1287: | OPM |
1499: v_ship_vendor_id PO_VEND_MST.VENDOR_ID%TYPE;
1500: v_pay_vendor_id PO_VEND_MST.VENDOR_ID%TYPE;
1501: v_frtbill_mthd OP_FRGT_MTH.FRTBILL_MTHD%TYPE;
1502: v_terms_code OP_TERM_MST.TERMS_CODE%TYPE;
1503: v_new_trans_id IC_TRAN_PND.TRANS_ID%TYPE;
1504: v_co_code SY_ORGN_MST.CO_CODE%TYPE;
1505: v_old_order_qty1 PO_ORDR_DTL.ORDER_QTY1%TYPE;
1506: v_old_order_qty2 PO_ORDR_DTL.ORDER_QTY2%TYPE;
1507: v_old_order_um1 PO_ORDR_DTL.ORDER_UM1%TYPE;
2466:
2467: END IF; /*int_rec.transaction_type = 'PLANNED' */
2468: /* END - Bug 1854280*/
2469:
2470: /*insert into the ic_tran_pnd table*/
2471:
2472:
2473: OPEN co_code_cur(int_rec.orgn_code);
2474: FETCH co_code_cur
2486: retcode :=1;
2487: raise_application_error(-20001, err_msg);
2488: END IF;
2489:
2490: BEGIN /*insert into ic_tran_pnd*/
2491: /* T. Ricci 5/12/98 changed who columns for GEMMS 5.0*/
2492:
2493: INSERT INTO ic_tran_pnd
2494: ( item_id,
2489:
2490: BEGIN /*insert into ic_tran_pnd*/
2491: /* T. Ricci 5/12/98 changed who columns for GEMMS 5.0*/
2492:
2493: INSERT INTO ic_tran_pnd
2494: ( item_id,
2495: line_id,
2496: trans_id,
2497: co_code,
2565:
2566: EXCEPTION
2567: WHEN OTHERS THEN
2568: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd');
2570: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2571: err_num := SQLCODE;
2572: err_msg := SUBSTRB (SQLERRM, 1, 100);
2573: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2574: /** MC BUG# 1360002**/
2575: /** removed the comment from the below 2 lines **/
2576: retcode :=1;
2577: raise_application_error(-20001, err_msg);
2578: END; /* insert into ic_tran_pnd;*/
2579:
2580:
2581: /* update the ic_summ_inv table*/
2582:
2837:
2838: /* Bug# 1357575 - The delete_mark is set to one only of the po is cancelled added the if condition */
2839: /* Uday Phadtare B1795095 commented the if condition */
2840: --IF int_rec.cancellation_code IS NOT NULL THEN
2841: UPDATE ic_tran_pnd
2842: SET delete_mark = 1 /* only column changed by GEMMS */
2843: WHERE doc_type = v_doc_type
2844: AND doc_id = v_po_id
2845: AND line_id = v_line_id;
3228:
3229:
3230:
3231: /* Added the code below to get the total received qty since only the delta should
3232: be added to the ic_tran_pnd table - Preetam Bamb */
3233:
3234: v_total_received_qty := Get_total_Received_qty(v_po_id,v_line_id,v_item_id,v_item_um1);
3235:
3236: IF v_item_um2 IS NOT NULL
3246:
3247:
3248: /* T. Ricci 5/12/98 changed who columns for GEMMS 5.0*/
3249: BEGIN
3250: UPDATE ic_tran_pnd
3251: SET item_id = v_item_id,
3252: /* co_code = nvl(v_co_code, '-1'),
3253: orgn_code = nvl(int_rec.orgn_code, '-1'), */
3254: whse_code = int_rec.to_whse,
3274: AND line_id = v_line_id;
3275: EXCEPTION
3276: WHEN OTHERS THEN
3277: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_tran_pnd');
3279: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3280: err_num := SQLCODE;
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3282: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3282: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3283: /* retcode :=1;
3284: raise_application_error(-20001, err_msg);*/
3285: END; /*update ic_tran_pnd*/
3286:
3287: /* For Standard/PPO release/Blanket release*/
3288:
3289: IF ic_summ_inv_view_exists = 0 THEN /* Bug 3019986 Mohit Kapoor */
3471: FETCH old_po_line_status_cur INTO v_old_po_status,v_old_cancellation_code;
3472: CLOSE old_po_line_status_cur;
3473:
3474: BEGIN
3475: UPDATE ic_tran_pnd
3476: SET delete_mark = 1 /* only column changed by GEMMS */
3477: WHERE doc_type = v_doc_type
3478: AND doc_id = v_po_id
3479: AND line_id = v_line_id;
3479: AND line_id = v_line_id;
3480: EXCEPTION
3481: WHEN OTHERS THEN
3482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3483: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd')
3484: ;
3485: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3486: err_num := SQLCODE;
3487: err_msg := SUBSTRB (SQLERRM, 1, 100);
3487: err_msg := SUBSTRB (SQLERRM, 1, 100);
3488: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3489: /* retcode :=1;
3490: raise_application_error(-20001, err_msg);*/
3491: END; /*update ic_tran_pnd*/
3492:
3493: BEGIN
3494: IF v_old_po_status <> 20
3495: THEN