[Home] [Help]
303: x_to_number => l_to_number,
304: x_errorcode => l_errorcode)) THEN
305: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
306: FND_MSG_PUB.ADD;
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309: END IF;
310:
311: -- Check that in the case of a range of serial numbers, that the
314: IF (p_from_serial_number <> p_to_serial_number) THEN
315: IF (p_tag_quantity <> l_quantity) THEN
316: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_X_QTY');
317: FND_MSG_PUB.ADD;
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320: END IF;
321:
322: -- Get the serial number length.
580: -- This shouldn't happen if the mobile form's LOV
581: -- statements are correctly set
582: FND_MESSAGE.SET_NAME('INV','INV_NO_DYNAMIC_TAGS');
583: FND_MSG_PUB.ADD;
584: --RAISE FND_API.G_EXC_ERROR;
585: END IF;
586: END IF;
587: CLOSE tag_entry_wo_serial; --bug#9772069
588: END IF;
733: -- This shouldn't happen if the mobile form's LOV
734: -- statements are correctly set
735: FND_MESSAGE.SET_NAME('INV','INV_NO_DYNAMIC_TAGS');
736: FND_MSG_PUB.ADD;
737: --RAISE FND_API.G_EXC_ERROR;
738: END IF;
739: END IF;
740: END IF;
741:
893: -- Conversion will return -99999 if unsuccessful so need to check for this
894: IF (l_tag_qty_at_standard_uom = -99999) THEN
895: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
896: FND_MSG_PUB.ADD;
897: RAISE FND_API.G_EXC_ERROR;
898: END IF;
899:
900: -- Get the outermost LPN ID for this record if necessary
901: IF (p_parent_lpn_id IS NOT NULL) THEN
919: WHEN OTHERS THEN
920: IF (l_debug = 1) THEN
921: print_debug('Unable to fetch outermost LPN for LPN ID: ' || p_parent_lpn_id);
922: END IF;
923: RAISE FND_API.G_EXC_ERROR;
924: END;
925: --Bug2935754 ends
926:
927: IF (l_debug = 1) THEN
957: EXCEPTION
958: WHEN OTHERS THEN
959: FND_MESSAGE.SET_NAME('INV', 'INV_EMP');
960: FND_MSG_PUB.ADD;
961: RAISE FND_API.G_EXC_ERROR;
962: END;
963: end if;
964: print_debug('the employee id is: ' || l_employee_id);
965:
1047: --INVCONV, NSRIVAST, END
1048: );
1049:
1050: EXCEPTION
1051: WHEN fnd_api.g_exc_error THEN
1052: raise fnd_api.g_exc_error;
1053: WHEN OTHERS THEN
1054: print_debug(SQLERRM);
1055: raise fnd_api.g_exc_unexpected_error;
1048: );
1049:
1050: EXCEPTION
1051: WHEN fnd_api.g_exc_error THEN
1052: raise fnd_api.g_exc_error;
1053: WHEN OTHERS THEN
1054: print_debug(SQLERRM);
1055: raise fnd_api.g_exc_unexpected_error;
1056:
1051: WHEN fnd_api.g_exc_error THEN
1052: raise fnd_api.g_exc_error;
1053: WHEN OTHERS THEN
1054: print_debug(SQLERRM);
1055: raise fnd_api.g_exc_unexpected_error;
1056:
1057: END insert_row;
1058:
1059:
1111: -- Conversion will return -99999 if unsuccessful so need to check for this
1112: IF (l_tag_qty_at_standard_uom = -99999) THEN
1113: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
1114: FND_MSG_PUB.ADD;
1115: RAISE FND_API.G_EXC_ERROR;
1116: END IF;
1117:
1118: -- Get the outermost LPN ID for this record if necessary
1119: IF (p_parent_lpn_id IS NOT NULL) THEN
1137: WHEN OTHERS THEN
1138: IF (l_debug = 1) THEN
1139: print_debug('Unable to fetch outermost LPN for LPN ID: ' || p_parent_lpn_id);
1140: END IF;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END;
1143: --Bug2935754 ends
1144:
1145: IF (l_debug = 1) THEN
1173: EXCEPTION
1174: WHEN OTHERS THEN
1175: FND_MESSAGE.SET_NAME('INV', 'INV_EMP');
1176: FND_MSG_PUB.ADD;
1177: RAISE FND_API.G_EXC_ERROR;
1178: END;
1179: end if;
1180: print_debug('the employee id is: ' || l_employee_id);
1181:
1358: IF (l_debug = 1) THEN
1359: print_debug('After calling label printing API: ' || l_return_status || ', ' || l_label_status || ', ' || l_msg_data);
1360: END IF;
1361:
1362: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1363: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LABEL_FAILE');
1364: FND_MSG_PUB.ADD;
1365: END IF;
1366:
1482: print_debug('Error: The corresponding adjustment_id '||l_adj_id||' is already posted');
1483: fnd_message.set_name('INV','INV_PHYSICAL_ADJ_POSTED');
1484: fnd_message.set_token('TOKEN1', l_adj_id);
1485: fnd_msg_pub.add;
1486: raise fnd_api.g_exc_error;
1487: end if;
1488: END IF;
1489:
1490:
1572: WHEN OTHERS THEN
1573: IF (l_debug = 1) THEN
1574: print_debug('Unable to fetch outermost LPN for LPN ID: ' || p_parent_lpn_id);
1575: END IF;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END;
1578: --Bug2935754 ends
1579:
1580: IF (l_debug = 1) THEN
2781: Mydebug(' Starts Processing the MMTTs.. ');
2782:
2783: l_result := inv_lpn_trx_pub.Process_lpn_trx (
2784: p_trx_hdr_id => l_transaction_header_id,
2785: p_commit => fnd_api.g_true,
2786: p_proc_mode => 1,
2787: p_process_trx => fnd_api.g_true,
2788: p_atomic => fnd_api.g_false,
2789: x_proc_msg => l_proc_msg);
2783: l_result := inv_lpn_trx_pub.Process_lpn_trx (
2784: p_trx_hdr_id => l_transaction_header_id,
2785: p_commit => fnd_api.g_true,
2786: p_proc_mode => 1,
2787: p_process_trx => fnd_api.g_true,
2788: p_atomic => fnd_api.g_false,
2789: x_proc_msg => l_proc_msg);
2790:
2791: Mydebug(' result : '||l_result);
2784: p_trx_hdr_id => l_transaction_header_id,
2785: p_commit => fnd_api.g_true,
2786: p_proc_mode => 1,
2787: p_process_trx => fnd_api.g_true,
2788: p_atomic => fnd_api.g_false,
2789: x_proc_msg => l_proc_msg);
2790:
2791: Mydebug(' result : '||l_result);
2792:
2819: Mydebug(' Starts Processing the MMTTs.. ');
2820:
2821: l_result := inv_lpn_trx_pub.Process_lpn_trx (
2822: p_trx_hdr_id => l_transaction_header_id,
2823: p_commit => fnd_api.g_true,
2824: p_proc_mode => 1,
2825: p_process_trx => fnd_api.g_true,
2826: p_atomic => fnd_api.g_false,
2827: x_proc_msg => l_proc_msg);
2821: l_result := inv_lpn_trx_pub.Process_lpn_trx (
2822: p_trx_hdr_id => l_transaction_header_id,
2823: p_commit => fnd_api.g_true,
2824: p_proc_mode => 1,
2825: p_process_trx => fnd_api.g_true,
2826: p_atomic => fnd_api.g_false,
2827: x_proc_msg => l_proc_msg);
2828:
2829: Mydebug(' result : '||l_result);
2822: p_trx_hdr_id => l_transaction_header_id,
2823: p_commit => fnd_api.g_true,
2824: p_proc_mode => 1,
2825: p_process_trx => fnd_api.g_true,
2826: p_atomic => fnd_api.g_false,
2827: x_proc_msg => l_proc_msg);
2828:
2829: Mydebug(' result : '||l_result);
2830: