[Home] [Help]
812: BEGIN
813:
814: SELECT 1
815: INTO x_comp_exists
816: FROM bom_inventory_components
817: WHERE component_sequence_id = x_component_sequence_id;
818:
819: EXCEPTION
820: WHEN NO_DATA_FOUND THEN
1307: BEGIN
1308:
1309: SELECT 1
1310: INTO x_comp_exists
1311: FROM bom_inventory_components
1312: WHERE component_sequence_id = rec.component_sequence_id;
1313:
1314: EXCEPTION
1315: WHEN NO_DATA_FOUND THEN
2052: CURSOR C (x_bill_seq_id NUMBER)IS
2053: SELECT 1
2054: FROM sys.dual
2055: WHERE EXISTS (SELECT 1
2056: FROM bom_inventory_components bic
2057: WHERE bic.bill_sequence_id = x_bill_seq_id
2058: AND (x_disable_date is NULL
2059: OR (trunc(x_disable_date) > trunc(bic.effectivity_date)))
2060: AND ((trunc(x_effectivity_date) < trunc(bic.disable_date))
2417: l_comp_eff_date DATE;
2418: BEGIN
2419: select bic.effectivity_date
2420: into l_comp_eff_date
2421: from bom_inventory_components bic,
2422: bom_bill_of_materials bom
2423: where bom.bill_sequence_id = x_bill_sequence_id
2424: and bic.bill_sequence_id = bom.common_bill_sequence_id
2425: and bic.component_item_id = x_component_id
2521: ** to update the component details on update mode.
2522: ** Bala
2523: */
2524:
2525: UPDATE bom_inventory_components
2526: SET component_quantity = x_quantity,
2527: basis_type = decode(x_basis_type, 2, 2, null), --LBM enh
2528: disable_date = x_disable_date,
2529: effectivity_date = x_effectivity_date,
2568: ELSIF (x_error_code < 0) THEN
2569: raise e_proc_exception;
2570: END IF;
2571:
2572: UPDATE bom_inventory_components
2573: SET disable_date = sysdate
2574: WHERE component_sequence_id = x_component_sequence_id;
2575:
2576: END IF;
2688: -- components for the bill. */
2689:
2690: SELECT count (1)
2691: INTO x_count_comp
2692: FROM bom_inventory_components
2693: WHERE bill_sequence_id = S_rec.bill_sequence_id;
2694:
2695: IF (x_count_comp = 1) THEN
2696: raise e_components_exist;
2784: x_progress := '060';
2785:
2786: SELECT count(*)
2787: INTO x_count_comp
2788: FROM bom_inventory_components
2789: WHERE bill_sequence_id = x_bill_sequence_id;
2790:
2791: IF (x_count_comp = 1) THEN
2792: raise e_components_exist;
3055: ** 1. No changes
3056: ** 2. We should delete the bom_header for the secondary co-product
3057: ** when we delete it from the co-product definition because in BOM
3058: ** Header level, there is nothing like a disable date. However, we
3059: ** should NOT UPDATE the BOM_INVENTORY_COMPONENTS as it belongs to
3060: ** the primary co-product bill.
3061: ** 3. When we delete the whole co-product definition, then we should
3062: ** delete all the co-product definition as well all the bom headers
3063: ** corresponding to the co-products and all the bom_inventory_components
3059: ** should NOT UPDATE the BOM_INVENTORY_COMPONENTS as it belongs to
3060: ** the primary co-product bill.
3061: ** 3. When we delete the whole co-product definition, then we should
3062: ** delete all the co-product definition as well all the bom headers
3063: ** corresponding to the co-products and all the bom_inventory_components
3064: ** corresponding to the primary co-product' bill.
3065: ** - Bala BALAKUMAR, June 23rd, 2000.
3066: */
3067:
3088:
3089:
3090: ** If the coproduct is a primary co-product (as in deletion
3091: ** of the complete co-product group definition), then
3092: ** we need to delete the bom_inventory_components also.
3093:
3094:
3095: If NVL(x_primary_flag, 'N') = 'Y' Then
3096:
3114: END IF;
3115:
3116: x_progress := '033';
3117:
3118: delete bom_inventory_components
3119: Where bill_sequence_id = x_bill_sequence_id
3120: And component_sequence_id = x_component_sequence_id;
3121:
3122:
3364:
3365: x_progress VARCHAR2(3) := '010';
3366:
3367: CURSOR C IS SELECT *
3368: FROM bom_inventory_components
3369: WHERE bill_sequence_id = x_component_sequence_id
3370: FOR UPDATE OF component_sequence_id NOWAIT;
3371:
3372: BEGIN