[Home] [Help]
2784: END IF;
2785:
2786: fnd_flex_descval.set_column_value
2787: (g_lot_attributes_tbl (k).column_name
2788: , fnd_date.canonical_to_date
2789: (g_lot_attributes_tbl (k).column_value
2790: )
2791: );
2792: END IF;
3410: END IF;
3411:
3412: fnd_flex_descval.set_column_value
3413: (g_lot_ser_attributes_tbl (k).column_name
3414: , fnd_date.canonical_to_date
3415: (g_lot_ser_attributes_tbl (k).column_value
3416: )
3417: );
3418: END IF;
5075: --lot exp. date from the parent lot MTLN - pass the starting lot number.
5076: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
5077: THEN
5078: BEGIN
5079: SELECT fnd_date.date_to_canonical (expiration_date)
5080: INTO l_lotexpdate
5081: FROM mtl_lot_numbers
5082: WHERE inventory_item_id = p_item_id
5083: AND organization_id = p_organization_id
5103:
5104: -- Update all the resulting lots with this exp date
5105: FOR i IN 1 .. p_rs_lot_exp_tbl.COUNT
5106: LOOP
5107: p_rs_lot_exp_tbl (i) := fnd_date.canonical_to_date (l_lotexpdate);
5108: END LOOP;
5109:
5110: print_debug ('Lot exp date after split2 ' || l_lotexpdate
5111: , 'Compute Lot Exp'
5113:
5114: BEGIN
5115: UPDATE mtl_transaction_lots_interface mtli
5116: SET lot_expiration_date =
5117: fnd_date.canonical_to_date (l_lotexpdate)
5118: WHERE transaction_interface_id IN (
5119: SELECT transaction_interface_id
5120: FROM mtl_transactions_interface mti
5121: WHERE mti.parent_id = p_parent_id
5142: -- pass the resulting lot. if the resulting lot doesnt exist, then
5143: -- get the starting lot with the highest/rep lot and get the
5144: -- expiration DATE of that lot from the table. pass both in this case.
5145: BEGIN
5146: SELECT fnd_date.date_to_canonical (expiration_date)
5147: INTO l_lotexpdate
5148: FROM mtl_lot_numbers
5149: WHERE inventory_item_id = p_item_id
5150: AND organization_id = p_organization_id
5152: EXCEPTION
5153: WHEN NO_DATA_FOUND
5154: THEN -- then get the exp date of the lot
5155: --either WITH the highet qty OR the rep. lot
5156: SELECT fnd_date.date_to_canonical (expiration_date)
5157: INTO l_lotexpdate
5158: FROM mtl_lot_numbers
5159: WHERE inventory_item_id = p_item_id
5160: AND organization_id = p_organization_id
5172: fnd_msg_pub.ADD;
5173: RAISE fnd_api.g_exc_unexpected_error;
5174: END IF;
5175:
5176: p_rs_lot_exp_tbl (1) := fnd_date.canonical_to_date (l_lotexpdate);
5177:
5178: -- update the resulting lot with the exp. date.
5179: BEGIN
5180: UPDATE mtl_transaction_lots_interface mtli
5178: -- update the resulting lot with the exp. date.
5179: BEGIN
5180: UPDATE mtl_transaction_lots_interface mtli
5181: SET lot_expiration_date =
5182: fnd_date.canonical_to_date (l_lotexpdate)
5183: WHERE transaction_interface_id IN (
5184: SELECT transaction_interface_id
5185: FROM mtl_transactions_interface mti
5186: WHERE mti.parent_id = p_parent_id
5205:
5206: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
5207: THEN
5208: BEGIN
5209: SELECT fnd_date.date_to_canonical (expiration_date)
5210: INTO l_lotexpdate
5211: FROM mtl_lot_numbers
5212: WHERE inventory_item_id = p_item_id
5213: AND organization_id = p_organization_id
5233:
5234: BEGIN
5235: UPDATE mtl_transaction_lots_interface mtli
5236: SET lot_expiration_date =
5237: fnd_date.canonical_to_date (l_lotexpdate)
5238: WHERE transaction_interface_id IN (
5239: SELECT transaction_interface_id
5240: FROM mtl_transactions_interface mti
5241: WHERE mti.parent_id = p_parent_id
5263: -- get all the child records and check to see if the lot is
5264: -- specified. If it is, then use it. - else get the exp. date
5265: -- from the starting lot.
5266: BEGIN
5267: SELECT fnd_date.date_to_canonical (expiration_date)
5268: INTO l_lotexpdate
5269: FROM mtl_lot_numbers
5270: WHERE inventory_item_id = p_item_id
5271: AND organization_id = p_organization_id
5286: FOR i IN 1 .. p_rs_lot_exp_tbl.COUNT
5287: LOOP
5288: IF (p_rs_lot_exp_tbl (i) IS NULL)
5289: THEN
5290: p_rs_lot_exp_tbl (i) := fnd_date.canonical_to_date (l_lotexpdate);
5291: END IF;
5292: END LOOP;
5293:
5294: print_debug ('Lot exp date user defined :split2 ' || l_lotexpdate
5304:
5305: BEGIN
5306: UPDATE mtl_transaction_lots_interface mtli
5307: SET lot_expiration_date =
5308: fnd_date.canonical_to_date (l_lotexpdate)
5309: WHERE transaction_interface_id IN (
5310: SELECT transaction_interface_id
5311: FROM mtl_transactions_interface mti
5312: WHERE mti.parent_id = p_parent_id
5334: THEN
5335: l_update := TRUE;
5336:
5337: BEGIN
5338: SELECT fnd_date.date_to_canonical (expiration_date)
5339: INTO l_lotexpdate
5340: FROM mtl_lot_numbers
5341: WHERE inventory_item_id = p_item_id
5342: AND organization_id = p_organization_id
5350:
5351: IF (p_rs_lot_exp_tbl (1) IS NULL)
5352: THEN
5353: BEGIN
5354: SELECT fnd_date.date_to_canonical (expiration_date)
5355: INTO l_lotexpdate
5356: FROM mtl_lot_numbers
5357: WHERE inventory_item_id = p_item_id
5358: AND organization_id = p_organization_id
5393:
5394: BEGIN
5395: UPDATE mtl_transaction_lots_interface mtli
5396: SET lot_expiration_date =
5397: fnd_date.canonical_to_date (l_lotexpdate)
5398: WHERE transaction_interface_id IN (
5399: SELECT transaction_interface_id
5400: FROM mtl_transactions_interface mti
5401: WHERE mti.parent_id = p_parent_id
5424: THEN
5425: IF (p_rs_lot_exp_tbl (1) IS NULL)
5426: THEN
5427: BEGIN
5428: SELECT fnd_date.date_to_canonical (expiration_date)
5429: INTO l_lotexpdate
5430: FROM mtl_lot_numbers
5431: WHERE inventory_item_id = p_item_id
5432: AND organization_id = p_organization_id
5453:
5454: BEGIN
5455: UPDATE mtl_transaction_lots_interface mtli
5456: SET lot_expiration_date =
5457: fnd_date.canonical_to_date (l_lotexpdate)
5458: WHERE transaction_interface_id IN (
5459: SELECT transaction_interface_id
5460: FROM mtl_transactions_interface mti
5461: WHERE mti.parent_id = p_parent_id