[Home] [Help]
930: WHERE entity_id = V_entity_id;
931:
932: CURSOR Cur_formulaline_id IS
933: SELECT gem5_formulaline_id_s.NEXTVAL
934: FROM dual;
935:
936: CURSOR Cur_spreadline_id IS
937: SELECT gem5_sprd_line_id_s.nextval
938: FROM dual;
934: FROM dual;
935:
936: CURSOR Cur_spreadline_id IS
937: SELECT gem5_sprd_line_id_s.nextval
938: FROM dual;
939:
940: CURSOR Cur_get_materials (Pline_id NUMBER) IS
941: SELECT *
942: FROM gmd_material_details_gtmp
1245: V_maintain_type IN NUMBER,V_text_code IN NUMBER,
1246: V_last_update_date IN DATE,V_move_order_header_id IN NUMBER) IS
1247: CURSOR Cur_sprd_id IS
1248: SELECT gem5_sprd_id_s.nextval
1249: FROM fnd_dual;
1250:
1251: CURSOR Cur_line_id IS
1252: SELECT gem5_sprd_line_id_s.nextval
1253: FROM fnd_dual;
1249: FROM fnd_dual;
1250:
1251: CURSOR Cur_line_id IS
1252: SELECT gem5_sprd_line_id_s.nextval
1253: FROM fnd_dual;
1254:
1255: CURSOR Cur_sprd_insert IS
1256: SELECT line_id,V_orgn_id,move_order_line_id,line_type,formulaline_id,
1257: material_detail_id,line_no,rollup_ind,inventory_item_id,qty,detail_uom,
1925: PROCEDURE update_formula_details (V_entity_id IN NUMBER, V_line_id IN NUMBER, V_formula_id IN NUMBER,
1926: V_line_type IN NUMBER, V_line_no IN NUMBER,V_orgn_id IN number,V_plant_id IN number) IS
1927: /* CURSOR Cur_get_formula IS
1928: SELECT a.*,b.item_no,b.item_desc1,b.qc_grade,b.item_um primary,b.item_um2 secondary,
1929: b.lot_ctl,b.sublot_ctl,b.grade_ctl,b.loct_ctl,b.dualum_ind
1930: FROM fm_matl_dtl a, ic_item_mst b
1931: WHERE a.item_id = b.item_id
1932: AND a.formula_id = V_formula_id
1933: AND a.line_type = 1
1933: AND a.line_type = 1
1934: AND a.line_no = V_line_no; */
1935:
1936: CURSOR Cur_get_formula IS
1937: SELECT a.*,b.segment1 original_item_id, b.primary_uom_code primary,b.secondary_uom_code secondary,b.dual_uom_control dualum_ind
1938: FROM fm_matl_dtl a, mtl_system_items_b b
1939: WHERE a.inventory_item_id = b.inventory_item_id
1940: and b.organization_id = V_orgn_id
1941: AND a.formula_id = V_formula_id
2009: EXIT WHEN Cur_get_formula%NOTFOUND;
2010:
2011: /* Getting the secondary qty*/
2012: l_secondary_qty := null;
2013: IF (l_formula_rec.qty > 0 AND l_formula_rec.dualum_ind <> NULL) THEN
2014: l_secondary_qty := GMICUOM.uom_conversion (pitem_id => l_formula_rec.original_item_id,
2015: plot_id => 0,
2016: pcur_qty => l_formula_rec.qty,
2017: pcur_uom => l_formula_rec.item_um,
2054: WHERE ENTITY_ID = V_entity_id
2055: AND LINE_ID = V_line_id;
2056:
2057: INSERT INTO GMD_MATERIAL_DETAILS_GTMP
2058: (ENTITY_ID,LINE_ID,LINE_TYPE,LINE_NO,ROLLUP_IND,DUALUM_IND,LOCT_CTL,ITEM_ID,EXPAND_IND,EXPIRE_DATE,
2059: LOT_ID,LOT_NO,SUBLOT_NO,QTY,SECONDARY_QTY,ITEM_UM,QC_GRADE,FORMULALINE_ID,PARENT_LINE_ID,
2060: LOT_CTL,SUBLOT_CTL,GRADE_CTL,ACTION_CODE,SECONDARY_UM,
2061: CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,
2062: SECONDARY_DEFAULT_IND,TRACKING_QUANTITY_IND)
2059: LOT_ID,LOT_NO,SUBLOT_NO,QTY,SECONDARY_QTY,ITEM_UM,QC_GRADE,FORMULALINE_ID,PARENT_LINE_ID,
2060: LOT_CTL,SUBLOT_CTL,GRADE_CTL,ACTION_CODE,SECONDARY_UM,
2061: CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,
2062: SECONDARY_DEFAULT_IND,TRACKING_QUANTITY_IND)
2063: VALUES(l_matl_rec.entity_id,l_line_id,3,l_line_no,0,l_matl_rec.dualum_ind,l_matl_rec.loct_ctl,
2064: l_matl_rec.item_id,0,l_matl_rec.expire,l_matl_rec.item_lotid,l_matl_rec.lot,l_matl_rec.sublot,0,
2065: l_secondary_qty,l_matl_rec.item_um,l_matl_rec.qc_grade,l_matl_rec.formulaline_id,l_matl_rec.formulaline_id,
2066: l_matl_rec.lot_ctl,l_matl_rec.sublot_ctl,l_matl_rec.grade_ctl,'NONE',l_matl_rec.secondary_um,
2067: l_matl_rec.created_by,l_matl_rec.creation_date,l_matl_rec.last_updated_by,l_matl_rec.last_update_date,