eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
1: PACKAGE BODY pos_asn AS 2: /* $Header: POSASNEB.pls 115.16 2001/10/19 16:19:10 pkm ship $ */ 3: 4: FUNCTION set_session_info RETURN BOOLEAN is 5: BEGIN
451: 452: htp.p('
458: ' marginheight=0' || 459: ' scrolling=auto>'); 460: 461: htp.p(' 463: ' name=shiphelp' || 464: ' marginwidth=0' || 465: ' marginheight=0' || 466: ' scrolling=no>');
465: ' marginheight=0' || 466: ' scrolling=no>'); 467: 468: htp.p(' 470: ' name=shipments' || 471: ' marginwidth=5' || 472: ' marginheight=0' || 473: ' scrolling=auto>');
472: ' marginheight=0' || 473: ' scrolling=auto>'); 474: 475: htp.p(' 477: ' name=delete' || 478: ' marginwidth=5' || 479: ' marginheight=0' || 480: ' scrolling=no>');
505: '''' || but3 || '''' || 506: ')"' || 'link=blue vlink=blue alink=#ff0000>'); 507: 508: htp.p('
521: v_messageText2 VARCHAR2(2000); 522: v_messageText3 VARCHAR2(2000); 523: BEGIN 524: 525: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT1'); 526: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT2'); 527: v_messageText3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT3'); 528: 529: init_page;
522: v_messageText3 VARCHAR2(2000); 523: BEGIN 524: 525: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT1'); 526: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT2'); 527: v_messageText3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT3'); 528: 529: init_page; 530: init_body;
523: BEGIN 524: 525: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT1'); 526: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT2'); 527: v_messageText3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_SHIPMENT_HT3'); 528: 529: init_page; 530: init_body; 531:
585: ')"' || 'link=blue vlink=blue alink=#ff0000>'); 586: 587: -- Create a dummy form to allow for multi row lovs (--,--) 588: 589: htp.p('' || 590: '' || 591: '' || 592: '' || 593: '' ||
589: htp.p('
598: '' || 599: '
613: v_messageText1 VARCHAR2(2000); 614: v_messageText2 VARCHAR2(2000); 615: BEGIN 616: 617: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_COPY_BUT'); 618: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_DELETE_BUT'); 619: 620: init_page; 621: init_body;
614: v_messageText2 VARCHAR2(2000); 615: BEGIN 616: 617: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_COPY_BUT'); 618: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_DELETE_BUT'); 619: 620: init_page; 621: init_body; 622:
637: PROCEDURE show_error_page IS 638: title VARCHAR2(2000); 639: BEGIN 640: 641: title := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_MESS_WIN_T2'); 642: 643: err_htp(htf.htmlOpen); 644: err_htp('
660: v_messageText1 VARCHAR2(2000); 661: title VARCHAR2(2000); 662: BEGIN 663: 664: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_CREATED'); 665: title := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_MESS_WIN_T1'); 666: 667: err_htp(htf.htmlOpen); 668: err_htp('
661: title VARCHAR2(2000); 662: BEGIN 663: 664: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_CREATED'); 665: title := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_MESS_WIN_T1'); 666: 667: err_htp(htf.htmlOpen); 668: err_htp('
693: fnd_global.apps_initialize(l_user_id, l_responsibility_id, 178); 694: 695: htp.p('
709: htp.p('
793: 794: fnd_client_info.set_org_context(l_org_id); 795: 796: ak_query_pkg.exec_query(p_parent_region_appl_id => 178, 797: p_parent_region_code => 'POS_ASN_SHIPMENTS', 798: p_where_clause => l_where_clause, 799: p_responsibility_id => l_responsibility_id, 800: p_user_id => l_user_id, 801: p_return_parents => 'T',
871: IF item_displayed(l_attribute_index) THEN 872: IF (item_style(l_attribute_index) = 'TEXT') THEN 873: IF item_updateable(l_attribute_index) THEN 874: 875: IF item_code(l_attribute_index) = 'POS_ASN_WIP_JOB' AND 876: substrb(get_result_value(l_result_index, l_current_col), 1, 1) <> ' ' THEN 877: 878: non_updateable(l_attribute_index, l_result_index, l_current_col); 879:
878: non_updateable(l_attribute_index, l_result_index, l_current_col); 879: 880: ELSE 881: 882: IF item_code(l_attribute_index) = 'POS_ASN_WIP_JOB' THEN 883: l_wip_row := l_wip_row + 1; 884: END IF; 885: 886: updateable(l_attribute_index,l_result_index,
935: PROCEDURE print_simple_head_err_page IS 936: v_messageText1 VARCHAR2(2000); 937: BEGIN 938: 939: but3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_OK_BUT'); 940: 941: IF ship_date_error OR receipt_date_error THEN 942: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_DATE_FORMAT') || 943: l_date_format;
952: v_messageText1 VARCHAR2(2000); 953: v_messageText2 VARCHAR2(2000); 954: BEGIN 955: 956: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_HEADER_E1'); 957: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_LINES_E1'); 958: 959: l_count := 0; 960:
953: v_messageText2 VARCHAR2(2000); 954: BEGIN 955: 956: v_messageText1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_HEADER_E1'); 957: v_messageText2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_LINES_E1'); 958: 959: l_count := 0; 960: 961: FOR c_rec in c_header_err LOOP
1115: CURRENCY_CONVERSION_TYPE , 1116: CURRENCY_CONVERSION_RATE , 1117: CURRENCY_CONVERSION_DATE , 1118: 'Y' 1119: from pos_asn_shop_cart_headers 1120: where session_id = l_session_id; 1121: 1122: END create_rcv_header; 1123:
1251: END IF; 1252: 1253: END IF; 1254: 1255: update pos_asn_shop_cart_details asnd 1256: set asnd.INTERFACE_TRANSACTION_ID = l_line_id, 1257: asnd.HEADER_INTERFACE_ID = c_rec.HEADER_ID 1258: where asnd.session_id = l_session_id and 1259: asnd.asn_line_id = c_rec.asn_line_id and
1259: asnd.asn_line_id = c_rec.asn_line_id and 1260: asnd.asn_line_split_id = c_rec.asn_line_split_id; 1261: 1262: -- Bug 1345768. Document_line_num is required by the pre-processor but is 1263: -- not available from pos_asn_shop_cart_details. 1264: update rcv_transactions_interface 1265: set DOCUMENT_LINE_NUM = 1266: (select LINE_NUM 1267: from po_lines_all
1283: where line_location_id = c_rec.PO_LINE_LOCATION_ID) 1284: where INTERFACE_TRANSACTION_ID = l_line_id; 1285: 1286: -- Dest subinventory is required by the pre-processor but is 1287: -- not available from pos_asn_shop_cart_details. 1288: update rcv_transactions_interface 1289: set SUBINVENTORY = 1290: (select destination_subinventory 1291: from po_distributions_all
1358: 1359: PROCEDURE submit IS 1360: BEGIN 1361: 1362: but1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_NEW_BUT'); 1363: but2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_EXIT_BUT'); 1364: but3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_OK_BUT'); 1365: 1366: create_rcv_header;
1359: PROCEDURE submit IS 1360: BEGIN 1361: 1362: but1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_NEW_BUT'); 1363: but2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_EXIT_BUT'); 1364: but3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_OK_BUT'); 1365: 1366: create_rcv_header; 1367: create_rcv_transaction;
1360: BEGIN 1361: 1362: but1 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_NEW_BUT'); 1363: but2 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_EXIT_BUT'); 1364: but3 := fnd_message.get_string('ICX', 'ICX_POS_ASN_EDIT_OK_BUT'); 1365: 1366: create_rcv_header; 1367: create_rcv_transaction; 1368:
1371: call_wip_api; 1372: 1373: buyer_notify; 1374: 1375: delete from pos_asn_shop_cart_headers where session_id = l_session_id; 1376: delete from pos_asn_shop_cart_details where session_id = l_session_id; 1377: 1378: -- The pre-processor has already created the header record, also we do not want the 1379: -- pre-processor to be run again, so delete the header in the interface. If there is
1372: 1373: buyer_notify; 1374: 1375: delete from pos_asn_shop_cart_headers where session_id = l_session_id; 1376: delete from pos_asn_shop_cart_details where session_id = l_session_id; 1377: 1378: -- The pre-processor has already created the header record, also we do not want the 1379: -- pre-processor to be run again, so delete the header in the interface. If there is 1380: -- no header record in the interface table, the pre-processor is not run. The status
1414: PROCEDURE update_shipments(pos_quantity_shipped IN t_text_table DEFAULT g_dummy, 1415: pos_select IN t_text_table DEFAULT g_dummy, 1416: pos_unit_of_measure IN t_text_table DEFAULT g_dummy, 1417: pos_comments IN t_text_table DEFAULT g_dummy, 1418: pos_asn_line_id IN t_text_table DEFAULT g_dummy, 1419: pos_asn_line_split_id IN t_text_table DEFAULT g_dummy, 1420: pos_po_line_location_id IN t_text_table DEFAULT g_dummy, 1421: pos_po_distribution_id IN t_text_table DEFAULT g_dummy, 1422: pos_asn_wip_job IN t_text_table DEFAULT g_dummy,
1415: pos_select IN t_text_table DEFAULT g_dummy, 1416: pos_unit_of_measure IN t_text_table DEFAULT g_dummy, 1417: pos_comments IN t_text_table DEFAULT g_dummy, 1418: pos_asn_line_id IN t_text_table DEFAULT g_dummy, 1419: pos_asn_line_split_id IN t_text_table DEFAULT g_dummy, 1420: pos_po_line_location_id IN t_text_table DEFAULT g_dummy, 1421: pos_po_distribution_id IN t_text_table DEFAULT g_dummy, 1422: pos_asn_wip_job IN t_text_table DEFAULT g_dummy, 1423: pos_wip_entity_id IN t_text_table DEFAULT g_dummy,
1418: pos_asn_line_id IN t_text_table DEFAULT g_dummy, 1419: pos_asn_line_split_id IN t_text_table DEFAULT g_dummy, 1420: pos_po_line_location_id IN t_text_table DEFAULT g_dummy, 1421: pos_po_distribution_id IN t_text_table DEFAULT g_dummy, 1422: pos_asn_wip_job IN t_text_table DEFAULT g_dummy, 1423: pos_wip_entity_id IN t_text_table DEFAULT g_dummy, 1424: pos_wip_line_id IN t_text_table DEFAULT g_dummy, 1425: pos_wip_operation_seq_num IN t_text_table DEFAULT g_dummy, 1426: pos_item_id IN t_text_table DEFAULT g_dummy,
1431: BEGIN 1432: 1433: -- Update all the info --- 1434: 1435: FOR l_counter IN 1..pos_asn_line_id.count LOOP 1436: 1437: update pos_asn_shop_cart_details set 1438: quantity_shipped = fnd_number.canonical_to_number(nvl(rtrim(ltrim(pos_quantity_shipped(l_counter))), 0)), 1439: unit_of_measure = pos_unit_of_measure(l_counter),
1433: -- Update all the info --- 1434: 1435: FOR l_counter IN 1..pos_asn_line_id.count LOOP 1436: 1437: update pos_asn_shop_cart_details set 1438: quantity_shipped = fnd_number.canonical_to_number(nvl(rtrim(ltrim(pos_quantity_shipped(l_counter))), 0)), 1439: unit_of_measure = pos_unit_of_measure(l_counter), 1440: comments = pos_comments(l_counter), 1441: wip_job_info = pos_osp_job.get_wip_info(pos_po_distribution_id(l_counter)),
1444: wip_operation_seq_num = pos_wip_operation_seq_num(l_counter), 1445: wip_line_id = pos_wip_line_id(l_counter), 1446: item_id = nvl(pos_item_id(l_counter), item_id) 1447: where session_id = l_session_id and 1448: asn_line_id = pos_asn_line_id(l_counter) and 1449: asn_line_split_id = pos_asn_line_split_id(l_counter); 1450: 1451: END LOOP; 1452:
1445: wip_line_id = pos_wip_line_id(l_counter), 1446: item_id = nvl(pos_item_id(l_counter), item_id) 1447: where session_id = l_session_id and 1448: asn_line_id = pos_asn_line_id(l_counter) and 1449: asn_line_split_id = pos_asn_line_split_id(l_counter); 1450: 1451: END LOOP; 1452: 1453: -- Delete if any --
1455: IF pos_submit = 'DELETE' AND pos_select.count > 0 THEN 1456: 1457: FOR l_counter IN 1..pos_select.count LOOP 1458: 1459: delete from pos_asn_shop_cart_details 1460: where session_id = l_session_id and 1461: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1462: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1463:
1457: FOR l_counter IN 1..pos_select.count LOOP 1458: 1459: delete from pos_asn_shop_cart_details 1460: where session_id = l_session_id and 1461: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1462: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1463: 1464: END LOOP; 1465:
1458: 1459: delete from pos_asn_shop_cart_details 1460: where session_id = l_session_id and 1461: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1462: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1463: 1464: END LOOP; 1465: 1466: select count(*)
1464: END LOOP; 1465: 1466: select count(*) 1467: into d_count 1468: from pos_asn_shop_cart_details 1469: where session_id = l_session_id; 1470: 1471: IF d_count = 0 THEN 1472: delete from pos_asn_shop_cart_headers where session_id = l_session_id;
1468: from pos_asn_shop_cart_details 1469: where session_id = l_session_id; 1470: 1471: IF d_count = 0 THEN 1472: delete from pos_asn_shop_cart_headers where session_id = l_session_id; 1473: END IF; 1474: 1475: END IF; 1476:
1479: IF pos_submit = 'EXPLODE' AND pos_select.count > 0 THEN 1480: 1481: FOR l_counter IN 1..pos_select.count LOOP 1482: 1483: update pos_asn_shop_cart_details set 1484: asn_line_split_id = asn_line_split_id + 1 1485: where session_id = l_session_id and 1486: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1487: asn_line_split_id > pos_asn_line_split_id(to_number(pos_select(l_counter)));
1482: 1483: update pos_asn_shop_cart_details set 1484: asn_line_split_id = asn_line_split_id + 1 1485: where session_id = l_session_id and 1486: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1487: asn_line_split_id > pos_asn_line_split_id(to_number(pos_select(l_counter))); 1488: 1489: 1490: insert into pos_asn_shop_cart_details
1483: update pos_asn_shop_cart_details set 1484: asn_line_split_id = asn_line_split_id + 1 1485: where session_id = l_session_id and 1486: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1487: asn_line_split_id > pos_asn_line_split_id(to_number(pos_select(l_counter))); 1488: 1489: 1490: insert into pos_asn_shop_cart_details 1491: (session_id,
1486: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1487: asn_line_split_id > pos_asn_line_split_id(to_number(pos_select(l_counter))); 1488: 1489: 1490: insert into pos_asn_shop_cart_details 1491: (session_id, 1492: asn_line_id, 1493: asn_line_split_id, 1494: po_header_id,
1510: last_update_date, 1511: last_updated_by, 1512: unit_of_measure, 1513: item_id 1514: from pos_asn_shop_cart_details 1515: where session_id = l_session_id and 1516: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1517: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1518:
1512: unit_of_measure, 1513: item_id 1514: from pos_asn_shop_cart_details 1515: where session_id = l_session_id and 1516: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1517: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1518: 1519: END LOOP; 1520:
1513: item_id 1514: from pos_asn_shop_cart_details 1515: where session_id = l_session_id and 1516: asn_line_id = pos_asn_line_id(to_number(pos_select(l_counter))) and 1517: asn_line_split_id = pos_asn_line_split_id(to_number(pos_select(l_counter))); 1518: 1519: END LOOP; 1520: 1521: END IF;
1530: 1531: IF pos_submit = 'NEXT' THEN 1532: 1533: -- Show review page 1534: pos_asn_review_pkg.review_page; 1535: 1536: ELSIF substr(pos_submit, 1, 4) = 'BACK' THEN 1537: 1538: -- Show search page
1535: 1536: ELSIF substr(pos_submit, 1, 4) = 'BACK' THEN 1537: 1538: -- Show search page 1539: pos_asn_search_pkg.search_page(p_query => 'N', 1540: p_start_row => to_number(substr(pos_submit, 5, 1541: length(pos_submit)-4)) 1542: ); 1543: ELSE
1548: END IF; 1549: 1550: END update_shipments; 1551: 1552: PROCEDURE update_header ( pos_asn_shipment_num IN VARCHAR2 DEFAULT null, 1553: pos_bill_of_lading IN VARCHAR2 DEFAULT null, 1554: pos_waybill_airbill_num IN VARCHAR2 DEFAULT null, 1555: pos_ship_date IN VARCHAR2 DEFAULT null, 1556: pos_expected_receipt_date IN VARCHAR2 DEFAULT null,
1605: header_error := true; 1606: receipt_date_error := true; 1607: end; 1608: 1609: update pos_asn_shop_cart_headers set 1610: asn_type = 'NEW', 1611: shipment_num = pos_asn_shipment_num, 1612: bill_of_lading = pos_bill_of_lading, 1613: waybill_airbill_num = pos_waybill_airbill_num,
1607: end; 1608: 1609: update pos_asn_shop_cart_headers set 1610: asn_type = 'NEW', 1611: shipment_num = pos_asn_shipment_num, 1612: bill_of_lading = pos_bill_of_lading, 1613: waybill_airbill_num = pos_waybill_airbill_num, 1614: ship_date = l_ship_date, 1615: expected_receipt_date = l_receipt_date,
1679: IF NOT set_session_info THEN 1680: RETURN; 1681: END IF; 1682: 1683: END pos_asn;
[Home] [Help]