[Home] [Help]
11: | |
12: | MODIFICATION HISTORY |
13: | 10/15/97 Rajeshwari Chellam created |
14: | 14-MAY-98 T Ricci replaced sy_surg_ctl with nextval from |
15: | sys.dual for GEMMS 5.0 |
16: | |
17: +============================================================================*/
18:
19: -- yannamal GSCC b4403407
29: FOR UPDATE;*/
30:
31: CURSOR NPO_ID_CUR IS
32: SELECT GEM5_PO_ID_s.nextval
33: FROM sys.dual;
34:
35: err_msg VARCHAR2(100);
36:
37: BEGIN
64: | |
65: | MODIFICATION HISTORY |
66: | 10/15/97 Rajeshwari Chellam created |
67: | 14-MAY-98 T Ricci replaced sy_surg_ctl with nextval from |
68: | sys.dual for GEMMS 5.0 |
69: | 23-OCT-98 T Ricci added IN parm line_type |
70: | |
71: +============================================================================*/
72:
82: FOR UPDATE; */
83:
84: CURSOR npoline_id_cur IS
85: SELECT GEM5_PO_LINE_ID_s.nextval
86: FROM sys.dual;
87:
88: CURSOR nbpoline_id_cur IS
89: SELECT GEM5_BPO_LINE_ID_s.nextval
90: FROM sys.dual;
86: FROM sys.dual;
87:
88: CURSOR nbpoline_id_cur IS
89: SELECT GEM5_BPO_LINE_ID_s.nextval
90: FROM sys.dual;
91:
92: err_msg VARCHAR2(100);
93:
94: BEGIN
129: | |
130: | MODIFICATION HISTORY |
131: | 10/22/97 Kenny Jiang created |
132: | 14-MAY-98 T Ricci replaced sy_surg_ctl with nextval from |
133: | sys.dual for GEMMS 5.0 |
134: | |
135: +============================================================================*/
136:
137: PROCEDURE next_trans_id
146: FOR UPDATE; */
147:
148: CURSOR NTRANS_ID_CUR IS
149: SELECT GEM5_TRANS_ID_s.nextval
150: FROM sys.dual;
151:
152: err_msg VARCHAR2(100);
153:
154: BEGIN
399: /*============================================================================+
400: | |
401: | PROCEDURE NAME cpg_conv_duom |
402: | |
403: | DESCRIPTION Procedure to calculate order qty in dual UOM |
404: | |
405: | MODIFICATION HISTORY |
406: | 11/21/97 Kenny Jiang created |
407: | |
1494: v_item_id IC_ITEM_MST.ITEM_ID%TYPE;
1495: v_item_um2 IC_ITEM_MST.ITEM_UM2%TYPE;
1496: v_item_um1 IC_ITEM_MST.ITEM_UM%TYPE; /* PPB */
1497: v_item_desc IC_ITEM_MST.ITEM_DESC1%TYPE;
1498: v_dualum_ind IC_ITEM_MST.DUALUM_IND%TYPE;
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;
1594: AND po_line_id = v_po_line_id
1595: AND po_line_location_id = v_po_line_location_id;
1596:
1597: CURSOR item_cur(v_item_no IC_ITEM_MST.ITEM_NO%TYPE) IS
1598: SELECT item_id, nvl(item_desc1,' '), item_um, item_um2, dualum_ind, noninv_ind
1599: FROM ic_item_mst
1600: WHERE item_no = v_item_no;
1601:
1602: CURSOR co_code_cur(v_orgn_code SY_ORGN_MST.ORGN_CODE%TYPE) IS
2165: /* PO ordr header OK*/
2166: END IF; /* new PO*/
2167:
2168: OPEN item_cur(int_rec.item_no);
2169: FETCH item_cur INTO v_item_id, v_item_desc,v_item_um1, v_item_um2, v_dualum_ind,v_noninv_ind;
2170: CLOSE item_cur;
2171:
2172: /* Bug 1857224 */
2173: OPEN po_lines_all_cur (int_rec.po_header_id, int_rec.po_line_id);
2204: v_order1 := int_rec.order_qty1;
2205: END IF;
2206:
2207: /* 11/6/1998 T. Ricci added*/
2208: IF v_dualum_ind > 0 THEN
2209: v_order2 :=GMICUOM.uom_conversion
2210: (v_item_id,0,
2211: int_rec.order_qty1,
2212: int_rec.order_um1,
2610: If there is no entry for the item/warehouse/qc grade combn
2611: in ic_summ_inv table then insert a row in it.*/
2612: IF (SQL%ROWCOUNT = 0) THEN
2613: /* Get the next sequence number */
2614: select gem5_summ_inv_id_s.nextval into l_iret from dual;
2615:
2616: /* Since a row for this item does not already exists enter a row */
2617: INSERT INTO ic_summ_inv
2618: (summ_inv_id, item_id, whse_code, qc_grade,
2855: FETCH item_dtl INTO rec_item_dtl.item_id, rec_item_dtl.item_um2;
2856: CLOSE item_dtl;
2857:
2858: IF int_rec.order_qty1 <> rec_opm_po_line_dtl.order_qty1 THEN
2859: IF v_dualum_ind > 0 THEN
2860: v_order2 := GMICUOM.uom_conversion
2861: (rec_item_dtl.item_id,0,
2862: int_rec.order_qty1,
2863: int_rec.order_um1,
3120: ELSE
3121: v_old_order_base_qty := v_old_order_qty1;
3122: END IF;
3123:
3124: IF v_dualum_ind > 0 THEN
3125: v_order2 := GMICUOM.uom_conversion
3126: (v_item_id,0,
3127: int_rec.order_qty1,
3128: int_rec.order_um1,