[Home] [Help]
2733: END IF;
2734:
2735: fnd_flex_descval.set_column_value
2736: (g_lot_attributes_tbl (k).column_name
2737: , fnd_date.canonical_to_date
2738: (g_lot_attributes_tbl (k).column_value
2739: )
2740: );
2741: END IF;
3369: END IF;
3370:
3371: fnd_flex_descval.set_column_value
3372: (g_lot_ser_attributes_tbl (k).column_name
3373: , fnd_date.canonical_to_date
3374: (g_lot_ser_attributes_tbl (k).column_value
3375: )
3376: );
3377: END IF;
5046: --lot exp. date from the parent lot MTLN - pass the starting lot number.
5047: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
5048: THEN
5049: BEGIN
5050: SELECT fnd_date.date_to_canonical (expiration_date)
5051: INTO l_lotexpdate
5052: FROM mtl_lot_numbers
5053: WHERE inventory_item_id = p_item_id
5054: AND organization_id = p_organization_id
5074:
5075: -- Update all the resulting lots with this exp date
5076: FOR i IN 1 .. p_rs_lot_exp_tbl.COUNT
5077: LOOP
5078: p_rs_lot_exp_tbl (i) := fnd_date.canonical_to_date (l_lotexpdate);
5079: END LOOP;
5080:
5081: print_debug ('Lot exp date after split2 ' || l_lotexpdate
5082: , 'Compute Lot Exp'
5084:
5085: BEGIN
5086: UPDATE mtl_transaction_lots_interface mtli
5087: SET lot_expiration_date =
5088: fnd_date.canonical_to_date (l_lotexpdate)
5089: WHERE transaction_interface_id IN (
5090: SELECT transaction_interface_id
5091: FROM mtl_transactions_interface mti
5092: WHERE mti.parent_id = p_parent_id
5113: -- pass the resulting lot. if the resulting lot doesnt exist, then
5114: -- get the starting lot with the highest/rep lot and get the
5115: -- expiration DATE of that lot from the table. pass both in this case.
5116: BEGIN
5117: SELECT fnd_date.date_to_canonical (expiration_date)
5118: INTO l_lotexpdate
5119: FROM mtl_lot_numbers
5120: WHERE inventory_item_id = p_item_id
5121: AND organization_id = p_organization_id
5123: EXCEPTION
5124: WHEN NO_DATA_FOUND
5125: THEN -- then get the exp date of the lot
5126: --either WITH the highet qty OR the rep. lot
5127: SELECT fnd_date.date_to_canonical (expiration_date)
5128: INTO l_lotexpdate
5129: FROM mtl_lot_numbers
5130: WHERE inventory_item_id = p_item_id
5131: AND organization_id = p_organization_id
5143: fnd_msg_pub.ADD;
5144: RAISE fnd_api.g_exc_unexpected_error;
5145: END IF;
5146:
5147: p_rs_lot_exp_tbl (1) := fnd_date.canonical_to_date (l_lotexpdate);
5148:
5149: -- update the resulting lot with the exp. date.
5150: BEGIN
5151: UPDATE mtl_transaction_lots_interface mtli
5149: -- update the resulting lot with the exp. date.
5150: BEGIN
5151: UPDATE mtl_transaction_lots_interface mtli
5152: SET lot_expiration_date =
5153: fnd_date.canonical_to_date (l_lotexpdate)
5154: WHERE transaction_interface_id IN (
5155: SELECT transaction_interface_id
5156: FROM mtl_transactions_interface mti
5157: WHERE mti.parent_id = p_parent_id
5176:
5177: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
5178: THEN
5179: BEGIN
5180: SELECT fnd_date.date_to_canonical (expiration_date)
5181: INTO l_lotexpdate
5182: FROM mtl_lot_numbers
5183: WHERE inventory_item_id = p_item_id
5184: AND organization_id = p_organization_id
5204:
5205: BEGIN
5206: UPDATE mtl_transaction_lots_interface mtli
5207: SET lot_expiration_date =
5208: fnd_date.canonical_to_date (l_lotexpdate)
5209: WHERE transaction_interface_id IN (
5210: SELECT transaction_interface_id
5211: FROM mtl_transactions_interface mti
5212: WHERE mti.parent_id = p_parent_id
5234: -- get all the child records and check to see if the lot is
5235: -- specified. If it is, then use it. - else get the exp. date
5236: -- from the starting lot.
5237: BEGIN
5238: SELECT fnd_date.date_to_canonical (expiration_date)
5239: INTO l_lotexpdate
5240: FROM mtl_lot_numbers
5241: WHERE inventory_item_id = p_item_id
5242: AND organization_id = p_organization_id
5257: FOR i IN 1 .. p_rs_lot_exp_tbl.COUNT
5258: LOOP
5259: IF (p_rs_lot_exp_tbl (i) IS NULL)
5260: THEN
5261: p_rs_lot_exp_tbl (i) := fnd_date.canonical_to_date (l_lotexpdate);
5262: END IF;
5263: END LOOP;
5264:
5265: print_debug ('Lot exp date user defined :split2 ' || l_lotexpdate
5275:
5276: BEGIN
5277: UPDATE mtl_transaction_lots_interface mtli
5278: SET lot_expiration_date =
5279: fnd_date.canonical_to_date (l_lotexpdate)
5280: WHERE transaction_interface_id IN (
5281: SELECT transaction_interface_id
5282: FROM mtl_transactions_interface mti
5283: WHERE mti.parent_id = p_parent_id
5305: THEN
5306: l_update := TRUE;
5307:
5308: BEGIN
5309: SELECT fnd_date.date_to_canonical (expiration_date)
5310: INTO l_lotexpdate
5311: FROM mtl_lot_numbers
5312: WHERE inventory_item_id = p_item_id
5313: AND organization_id = p_organization_id
5321:
5322: IF (p_rs_lot_exp_tbl (1) IS NULL)
5323: THEN
5324: BEGIN
5325: SELECT fnd_date.date_to_canonical (expiration_date)
5326: INTO l_lotexpdate
5327: FROM mtl_lot_numbers
5328: WHERE inventory_item_id = p_item_id
5329: AND organization_id = p_organization_id
5364:
5365: BEGIN
5366: UPDATE mtl_transaction_lots_interface mtli
5367: SET lot_expiration_date =
5368: fnd_date.canonical_to_date (l_lotexpdate)
5369: WHERE transaction_interface_id IN (
5370: SELECT transaction_interface_id
5371: FROM mtl_transactions_interface mti
5372: WHERE mti.parent_id = p_parent_id
5395: THEN
5396: IF (p_rs_lot_exp_tbl (1) IS NULL)
5397: THEN
5398: BEGIN
5399: SELECT fnd_date.date_to_canonical (expiration_date)
5400: INTO l_lotexpdate
5401: FROM mtl_lot_numbers
5402: WHERE inventory_item_id = p_item_id
5403: AND organization_id = p_organization_id
5424:
5425: BEGIN
5426: UPDATE mtl_transaction_lots_interface mtli
5427: SET lot_expiration_date =
5428: fnd_date.canonical_to_date (l_lotexpdate)
5429: WHERE transaction_interface_id IN (
5430: SELECT transaction_interface_id
5431: FROM mtl_transactions_interface mti
5432: WHERE mti.parent_id = p_parent_id