[Home] [Help]
469:
470: if( p_current_index = l_count AND l_remaining_qty > 0 ) then
471: select mtl_material_transactions_s.nextval
472: into l_transaction_interface_id --J-dev
473: FROM dual;
474: for l_mti_csr in mti_csr(p_parent_id ) LOOP
475: IF (l_debug = 1) THEN
476: inv_log_util.trace('insert into mmti is ' || l_mti_csr.transaction_interface_id, 'INV_TXN_MANAGER_GRP', 9);
477: END IF;
2467: |exp_to_ast_allowed = 1 means that the exp to ast trx are not alowed
2468: +----------------------------------------------------------------------*/
2469: SELECT FND_PROFILE.VALUE('INV:EXPENSE_TO_ASSET_TRANSFER')
2470: INTO l_profile
2471: FROM dual;
2472:
2473: IF SQL%FOUND THEN
2474: IF l_profile = '2' THEN
2475: exp_to_ast_allowed := 1;
3050: FETCH get_item_info INTO l_lot_control_code, l_tracking_quantity_ind, l_item_secondary_uom_code;
3051: --item is already validated at this point no need to check for no_data_found
3052: CLOSE get_item_info;
3053:
3054: /* bug 4178299, bypass dual qty validations for none-lot ctl items
3055: * since qty will be validated at lot level per line, at header level
3056: * we only need to check that transaction qty equals the sum of the lines total */
3057: --{
3058: IF (l_tracking_quantity_ind = 'PS') THEN
3490: */
3491:
3492: SELECT FND_PROFILE.VALUE('INV_PROJ_MISC_TXN_EXP_TYPE')
3493: INTO l_profile
3494: FROM dual;
3495:
3496: IF SQL%FOUND THEN
3497: if l_profile = '2' THEN
3498: exp_type_required := 2 ;
4520: WHEN NO_DATA_FOUND THEN
4521: IF ((p_shlfcode = 2) AND (l_lotexpdate IS NULL)) THEN
4522: SELECT fnd_date.date_to_canonical(SYSDATE + p_shlfdays)
4523: INTO l_lotexpdate
4524: FROM DUAL;
4525: END IF;
4526:
4527: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4528:
5734: -- If 'NO' then call the create_inv_lot API
5735: l_lot_exists := 0;
5736: BEGIN
5737: SELECT 1 INTO l_lot_exists
5738: FROM DUAL
5739: WHERE EXISTS(SELECT lot_number
5740: FROM mtl_lot_numbers
5741: WHERE lot_number = rec_MTLI.LOT_NUMBER
5742: AND inventory_item_id = p_item_id
6617: in autonomous mode or not*/
6618: IF (g_create_loc_at is null) THEN
6619: SELECT Nvl(FND_PROFILE.Value('INV_CREATE_LOC_AT'), 2)
6620: INTO g_create_loc_at
6621: FROM DUAL;
6622: END IF;
6623:
6624: IF (l_debug = 1) THEN
6625: inv_log_util.trace('g_create_loc_at : '||g_create_loc_at, 'INV_TXN_MANAGER_GRP', 9);
8527: *********************************************************************/
8528: BEGIN
8529: SELECT 1
8530: INTO l_count
8531: FROM DUAL
8532: WHERE EXISTS (SELECT transaction_interface_id
8533: FROM mtl_transactions_interface
8534: WHERE transaction_header_id = p_header_id
8535: AND process_flag = 1
12291: END IF;
12292:
12293: /***********************************************************************
12294: * Each MSNI can have a range of serials. Need to expand them and *
12295: * process each one individually. *
12296: ***********************************************************************/
12297:
12298:
12299: l_next_serial := l_ser_csr.fm_serial_number;
12891: *Lot Translate txns. We need to generate the MSNTs based on MTLIs and MSN. *
12892: ******************************************************************************/
12893: SELECT mtl_material_transactions_s.NEXTVAL
12894: INTO l_sequence
12895: FROM DUAL;
12896: /******************************************************************************
12897: *If this is the resulting MTIs then we need to query the against the source *
12898: *item, lot and subinventory because after lot translate these may get changed*
12899: *and there wil be no record in the MSN for the new lot etc. *
13395: IS
13396: BEGIN
13397: SELECT FND_PROFILE.value(p_prof)
13398: INTO x_ret
13399: FROM dual;
13400: END poget;
13401:
13402:
13403: