RCV_TRANSACTION_INTERFACE
RCV_LOTS_INTERFACE
PO_INTERFACE_ERRORS
MTL_TRANSACTION_LOTS_TEMP
MTL_TRANSACTION_LOTS_INTERFACE
MTL_SUPPLY
RCV_SUPPLY
MTL_SUPPLY表的作用
1、當請購單創建、審批后，MTL_SUPPLY的變化
a.當創建完請購單,MTL_SUPPLY為空
b.當審批后,MTL_SUPPLY中產生一條數據，SUPPLY_TYPE_CODE=REQ
c.當請購單審批后，請購頭與請購行存入MS.REQ_HEADER_ID, MS.REQ_LINE_ID，此時MS.SUPPLY_TYPE_CODE=REQ
2、當PO創建、審批后，MTL_SUPPLY的變化
a.當請購單轉換成po后，在未審批時，MTL_SUPPLY為空
b.當審批后,MTL_SUPPLY中原有的SUPPLY_TYPE_CODE=REQ被更改為SUPPLY_TYPE_CODE=PO
c.一般而言，當請購單自動創建為采購單時，其SUPPLY_TYPE_CODE=REQ被更改為SUPPLY_TYPE_CODE=PO
d.當審批后的po做取消時，MTL_SUPPLY中SUPPLY_TYPE_CODE=PO被更改為SUPPLY_TYPE_CODE=REQ
e.--當調用由請購單自動開采購單的程序時，如果未審批，MS.PO_HEADER_ID ,MS.PO_LINE_ID,
--MS.PO_RELEASE_ID, MS.PO_LINE_LOCATION_ID ,MS.PO_DISTRIBUTION_ID,為空，如果已審批
--MS.REQ_HEADER_ID, MS.REQ_LINE_ID被清空，MS.SUPPLY_TYPE_CODE=PO,對於在po單中修改數量或添加新的采購訂單行
--而未審批，原有已審批的采購訂單行數據不變，但新添加的行未錄入該表
--當審批后的po做取消時，MTL_SUPPLY中SUPPLY_TYPE_CODE=PO被更改為SUPPLY_TYPE_CODE=REQ,
--MS.REQ_HEADER_ID, MS.REQ_LINE_ID被填入原有的請購單的頭和行值，同時， MS.PO_HEADER_ID,MS.PO_LINE_ID,
--MS.PO_RELEASE_ID, MS.PO_LINE_LOCATION_ID,MS.PO_DISTRIBUTION_ID, MS.NEED_BY_DATE,MS.RECEIPT_DATE,
--MS.EXPECTED_DELIVERY_DATE, 被清空
3、當PO接收后，MTL_SUPPLY的變化
a.當po完全接收后，MTL_SUPPLY中原有的SUPPLY_TYPE_CODE=PO被更改為SUPPLY_TYPE_CODE=RECEIVING
b. --當采購單做完接收后，MTL_SUPPLY中SUPPLY_TYPE_CODE=PO被更改為SUPPLY_TYPE_CODE=RECEIVING,
--同時 MS.SHIPMENT_HEADER_ID,MS.SHIPMENT_LINE_ID, MS.RCV_TRANSACTION_ID ,存入shipment的頭信息，行信息，及
--rcv_transaction的transaction_id
4、當PO某行部分接收后，MTL_SUPPLY的變化
a.當PO某行部分接收后,接受行中原有的SUPPLY_TYPE_CODE=PO被更改為SUPPLY_TYPE_CODE=RECEIVING
5、當PO檢驗后，MTL_SUPPLY有什么變化
a.當PO檢驗后,接受行中原有的SUPPLY_TYPE_CODE=RECEIVING不變
6、當PO部分入庫后，MTL_SUPPLY有什么變化；全部入庫后呢
a.當PO部分入庫后,MTL_SUPPLY中該行記錄被刪除，而全部入庫則該采購單所有行記錄被刪除
涉及的表
--已審批的請購單
SELECT prh.requisition_header_id, prl.requisition_line_id,prh.segment1
from PO_REQUISITION_HEADERS_ALL PRH, PO_REQUISITION_LINES_ALL PRL
where prh.requisition_header_id = prl.requisition_header_id
and prh.requisition_header_id = 662
and prh.authorization_status = 'APPROVED'
--已審批的采購單
SELECT ph.po_header_id,pl.PO_LINE_ID,ph.segment1,ph.*
from Po_Lines_all pl,Po_Headers_All ph
where pl.PO_HEADER_ID=ph.po_header_id
/* and ph.po_header_id = 41526*/
and ph.authorization_status = 'APPROVED'
and NVL(ph.cancel_flag,'N')<>'Y'
and ph.creation_date>=trunc(sysdate)
--接收
select *
from RCV_SHIPMENT_HEADERS rsh,
rcv_shipment_lines rsl
where rsh.shipment_header_id=rsl.shipment_header_id
and rsh.creation_date>=trunc(sysdate)
and rsh.receipt_num='185631'
select *
from rcv_transactions rt
where rt.transaction_id=870339
ｔｒｍ上的解釋如下
MTL_SUPPLY stores incoming supply information for an organization.
This table forms one of the sources in Inventory's Demand-Supply form.
There are four different types of supply captured in this table:
1) Approved Requisitions
2) Approved Purchase orders
3) Shipments from suppliers
4) Intransit shipments from another organization
Types 3 and 4 could be distinguished by the presence of data in the
INTRANSIT_OWNING_ORGANIZATION_ID column, which identifies the
ownership of the items in intransit. If this column is null then it
means that the shipment supply is from a Vendor.
.
This information is used by the available to promise routine to derive
the ATP information as appropiate. Quantities of items in intransit
are also kept track of in the table.
.
Records in MTL_SUPPLY are created every time you approve a requisition
or a PO or create an intransit shipment. One record of REQ type will
be created for one requisition line when the requisition is approved.
One record of PO type will be created per PO distribution when a PO is
approved and one record per shipment line will be created when a
shipment is created.
.
Records in MTL_SUPPLY will be recreated whenever there are
transactions such as return to receiving, return to vendor or
cancellation of purchase orders.
.
Records in MTL_SUPPLY are deleted every time you change the document
status to not approved. For example, a PO would require approval if
you change the line and shipment quantity.
If such a PO is re-approved then the PO supply will be recreated for
the new quantity.
.
The supply type code of a REQ supply record is changed to PO every
time a requisition is autocreated. Similarly the supply type code is
changed from PO to RECEIVING when a PO is fully received. If a PO is
partially received then a supply with the supply type code of
RECEIVING will be created for the quantity received. When the receipt
is delivered the RECEIVING supply is deleted. SHIPMENT supply works in
the same way as PO supply.
.
There is a database trigger on MTL_SUPPLY with the name MTL_SUPPLY_T.
This trigger fires on insert, update or deletion of records in
MTL_SUPPLY. It inserts records into MRP_RELIEF_INTERFACE table
RCV：處理模式
此選項指明在保存對接收事務處理所做的工作之后使用的處理模式：
聯機—直接調用“接收事務處理程序”。
即期—將事務處理傳送至接口表，並為自上一次保存所做的工作之后輸入的事務處理組調用“接收事務處理處理程序”。
批—將事務處理傳送至接口表（“接收事務處理處理程序”在下一次運行時將從接口表中挑選這些事務處理）
更新接口表數據
更新接口表數據，讓錯誤數據重新提交
|
UPDATE RCV_HEADERS_INTERFACE T
SET T.PROCESSING_REQUEST_ID = NULL,
T.RECEIPT_HEADER_ID = NULL,
T.VALIDATION_FLAG = 'Y',
T.PROCESSING_STATUS_CODE = 'PENDING'
WHERE T.HEADER_INTERFACE_ID IN
(SELECT RTI.HEADER_INTERFACE_ID FROM RCV_TRANSACTIONS_INTERFACE RTI);
UPDATE PO.RCV_TRANSACTIONS_INTERFACE T
SET T.REQUEST_ID = NULL,
T.PROCESSING_REQUEST_ID = NULL,
T.ORDER_TRANSACTION_ID = NULL,
T.PRIMARY_QUANTITY = NULL,
T.PRIMARY_UNIT_OF_MEASURE = NULL,
T.INTERFACE_TRANSACTION_QTY = NULL,
T.VALIDATION_FLAG = 'Y',
T.PROCESSING_STATUS_CODE = 'PENDING',
T.TRANSACTION_STATUS_CODE = 'PENDING',
T.SHIPMENT_HEADER_ID = NULL
|
接收入庫的例子
|
CREATE
OR
REPLACE
PACKAGE
BODY XXUTS_O2C_PO_RECEIPT_PKG
AS
PROCEDURE
MAIN(ERRBUF
OUT
VARCHAR2,
RETCODE
OUT
NUMBER,
P_ORGANIZATION_ID
IN
NUMBER,
P_PO_LAST_TWO
IN
VARCHAR2)
IS
V_INTERFACE_TRANSACTION_ID
NUMBER;
V_GROUP_ID
NUMBER;
V_SHIPMENT_HEADER_ID
NUMBER;
V_SHIPMENT_LINE_ID
NUMBER;
V_LINE_LOCATION_ID
NUMBER;
V_PO_DISTRIBUTION_ID
NUMBER;
V_HEADER_INTERFACE_ID
NUMBER;
V_DELIVER_TO_PERSON_ID
NUMBER;
L_REQUEST_ID
NUMBER;
L_REQUEST_ID2
NUMBER;
V_DESTINATION_TYPE_CODE
VARCHAR2(100);
V_EXPECTED_RECEIPT_DATE
DATE;
V_COUNTRY_OF_ORIGIN_CODE
VARCHAR2(100);
V_LOT_CONTROL
NUMBER;
V_USE_MTL_SERIAL
NUMBER;
V_RCV_QTY
NUMBER;
V_TRANS_QTY
NUMBER;
V_LOCATOR_ID
NUMBER;
V_LOCATION_ID
NUMBER;
L_PHASE
VARCHAR2(10);
L_STATUS
VARCHAR2(10);
L_DEV_PHASE
VARCHAR2(10);
L_DEV_STATUS
VARCHAR2(10);
L_MESSAGE
VARCHAR2(10);
L_REQUEST_LAUCH1_STATUS
BOOLEAN;
V_INTERFACE_ID
NUMBER;
V_USER_ID
NUMBER;
V_COUNT
NUMBER;
CURSOR CUR_PO_INFO
IS
SELECT PHA.SEGMENT1,
PHA.CURRENCY_CODE,
PHA.VENDOR_ID,
PHA.VENDOR_SITE_ID,
PHA.SHIP_TO_LOCATION_ID,
PDA.PO_DISTRIBUTION_ID,
PDA.DESTINATION_TYPE_CODE,
PDA.DELIVER_TO_PERSON_ID,
PDA.QUANTITY_ORDERED,
PDA.LINE_LOCATION_ID,
NVL(PDA.QUANTITY_ORDERED, 0) -
NVL(PDA.QUANTITY_DELIVERED, 0) TRANS_QTY,
PLA.*
FROM PO_HEADERS_ALL PHA, PO_LINES_ALL PLA, PO_DISTRIBUTIONS_ALL PDA
WHERE PHA.PO_HEADER_ID = PLA.PO_HEADER_ID
AND PHA.ORG_ID = PLA.ORG_ID
AND PHA.ORG_ID = 104
--OU:HUTS
AND PHA.AUTHORIZATION_STATUS = 'APPROVED'
AND PHA.TYPE_LOOKUP_CODE = 'STANDARD'
AND PDA.PO_HEADER_ID = PLA.PO_HEADER_ID
AND PDA.PO_LINE_ID = PLA.PO_LINE_ID
AND
EXISTS
(
SELECT 1
FROM PO_LINE_LOCATIONS_ALL PLLA
WHERE PLLA.PO_HEADER_ID = PLA.PO_HEADER_ID
AND PLLA.PO_LINE_ID = PLA.PO_LINE_ID
AND (PLLA.QUANTITY - PLLA.QUANTITY_RECEIVED -
PLLA.QUANTITY_CANCELLED) > 0
AND PLLA.SHIP_TO_ORGANIZATION_ID = P_ORGANIZATION_ID)
AND PHA.SEGMENT1
LIKE '%' || P_PO_LAST_TWO;
BEGIN
V_USER_ID := FND_GLOBAL.USER_ID;
UPDATE PO_HEADERS_ALL PHA
SET PHA.RATE_TYPE = 'User'
WHERE PHA.CURRENCY_CODE <> 'RMB'
AND PHA.ORG_ID = 104
--OU:HUTS
AND PHA.AUTHORIZATION_STATUS = 'APPROVED'
AND PHA.TYPE_LOOKUP_CODE = 'STANDARD'
--and pha.wf_item_type = 'POAPPRV'
AND PHA.RATE_TYPE
IS
NULL
AND PHA.SEGMENT1
LIKE '%' || P_PO_LAST_TWO;
COMMIT;
BEGIN
SELECT MIL.INVENTORY_LOCATION_ID
INTO V_LOCATOR_ID
FROM MTL_ITEM_LOCATIONS MIL
WHERE MIL.SUBINVENTORY_CODE = 'NA01'
AND MIL.ORGANIZATION_ID = P_ORGANIZATION_ID
AND
ROWNUM = 1;
EXCEPTION
WHEN
OTHERS
THEN
FND_FILE.PUT_LINE(1,
'Please define subinventory:NA01 and it is locator:NA01......;');
RETURN;
END;
BEGIN
SELECT
COUNT(*)
INTO V_COUNT
FROM MTL_SECONDARY_INVENTORIES MSI
WHERE MSI.SECONDARY_INVENTORY_NAME = 'NA01'
AND MSI.ORGANIZATION_ID = P_ORGANIZATION_ID;
IF V_COUNT = 0
THEN
FND_FILE.PUT_LINE(1, 'Please define subinventory:NA01;');
RETURN;
END
IF;
END;
IF P_ORGANIZATION_ID = 122
THEN
BEGIN
SELECT LOC.LOCATION_ID
INTO V_LOCATION_ID
FROM HR_LOCATIONS LOC
WHERE LOC.LOCATION_CODE = 'HUTS-HQ Hangzhou'
AND LOC.INVENTORY_ORGANIZATION_ID = P_ORGANIZATION_ID
AND
ROWNUM = 1;
EXCEPTION
WHEN
OTHERS
THEN
FND_FILE.PUT_LINE(1, 'Location: HUTS-HQ Hangzhou not found!');
RETURN;
END;
END
IF;
SELECT RCV_INTERFACE_GROUPS_S.NEXTVAL
INTO V_GROUP_ID
FROM DUAL;
FOR C_PO_INFO
IN CUR_PO_INFO
LOOP
SELECT RCV_TRANSACTIONS_INTERFACE_S.NEXTVAL
INTO V_INTERFACE_TRANSACTION_ID
FROM DUAL;
--Select RCV_INTERFACE_GROUPS_S.nextval into v_group_id from dual;
SELECT RCV_SHIPMENT_HEADERS_S.NEXTVAL
INTO V_SHIPMENT_HEADER_ID
FROM DUAL;
SELECT RCV_SHIPMENT_LINES_S.NEXTVAL
INTO V_SHIPMENT_LINE_ID
FROM DUAL;
SELECT RCV_HEADERS_INTERFACE_S.NEXTVAL
INTO V_HEADER_INTERFACE_ID
FROM DUAL;
SELECT MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL
INTO V_INTERFACE_ID
FROM DUAL;
BEGIN
SELECT MSIB.LOT_CONTROL_CODE
INTO V_LOT_CONTROL
FROM MTL_SYSTEM_ITEMS_B MSIB
WHERE MSIB.INVENTORY_ITEM_ID = C_PO_INFO.ITEM_ID
AND MSIB.ORGANIZATION_ID = P_ORGANIZATION_ID;
--p_organization_id; --HUTS
EXCEPTION
WHEN
OTHERS
THEN
V_LOT_CONTROL :=
NULL;
END;
IF V_LOT_CONTROL
IS
NULL
THEN
V_USE_MTL_SERIAL :=
NULL;
ELSE
V_USE_MTL_SERIAL := 1;
END
IF;
--Get po line location informations
BEGIN
SELECT PLLA.LINE_LOCATION_ID,
PLLA.NEED_BY_DATE,
PLLA.COUNTRY_OF_ORIGIN_CODE
--(plla.quantity - plla.quantity_received)
INTO V_LINE_LOCATION_ID,
V_EXPECTED_RECEIPT_DATE,
V_COUNTRY_OF_ORIGIN_CODE
--v_trans_qty
FROM PO_LINE_LOCATIONS_ALL PLLA
WHERE PLLA.PO_HEADER_ID = C_PO_INFO.PO_HEADER_ID
AND PLLA.PO_LINE_ID = C_PO_INFO.PO_LINE_ID
AND PLLA.LINE_LOCATION_ID = C_PO_INFO.LINE_LOCATION_ID
AND
ROWNUM = 1;
EXCEPTION
WHEN
OTHERS
THEN
V_LINE_LOCATION_ID :=
NULL;
V_EXPECTED_RECEIPT_DATE :=
NULL;
V_COUNTRY_OF_ORIGIN_CODE :=
NULL;
--v_trans_qty := 0;
END;
V_PO_DISTRIBUTION_ID := C_PO_INFO.PO_DISTRIBUTION_ID;
V_DESTINATION_TYPE_CODE := C_PO_INFO.DESTINATION_TYPE_CODE;
V_DELIVER_TO_PERSON_ID := C_PO_INFO.DELIVER_TO_PERSON_ID;
V_TRANS_QTY :=
NVL(C_PO_INFO.TRANS_QTY, 0);
IF P_ORGANIZATION_ID <> 122
THEN
V_LOCATION_ID := C_PO_INFO.SHIP_TO_LOCATION_ID;
END
IF;
IF V_TRANS_QTY > 0
THEN
--Insert into header interface
INSERT
INTO RCV_HEADERS_INTERFACE
(HEADER_INTERFACE_ID,
GROUP_ID,
PROCESSING_STATUS_CODE,
RECEIPT_SOURCE_CODE,
TRANSACTION_TYPE,
AUTO_TRANSACT_CODE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATION_DATE,
CREATED_BY,
VENDOR_ID,
SHIP_TO_ORGANIZATION_ID,
EXPECTED_RECEIPT_DATE,
VALIDATION_FLAG)
VALUES
(V_HEADER_INTERFACE_ID,
--Header_Interface_Id
V_GROUP_ID,
--Group_Id
'PENDING',
--Processing_Status_Code
'VENDOR',
--Receipt_Source_Code
'NEW',
--Transaction_Type
'DELIVER',
--Auto_Transact_Code
SYSDATE,
--Last_Update_Date
V_USER_ID,
--Last_Updated_By
V_USER_ID,
--Last_Update_Login
SYSDATE,
--Creation_Date
V_USER_ID,
--Created_By
C_PO_INFO.VENDOR_ID,
--Vendor_Id
P_ORGANIZATION_ID,
--Ship_To_Organization_Id,
SYSDATE,
--Expected_Receipt_Date
'Y'
--Validation_Flag
);
INSERT
INTO RCV_TRANSACTIONS_INTERFACE
(INTERFACE_TRANSACTION_ID,
GROUP_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
TRANSACTION_TYPE,
TRANSACTION_DATE,
PROCESSING_STATUS_CODE,
PROCESSING_MODE_CODE,
TRANSACTION_STATUS_CODE,
QUANTITY,
UNIT_OF_MEASURE,
ITEM_ID,
ITEM_DESCRIPTION,
EMPLOYEE_ID,
AUTO_TRANSACT_CODE,
SHIP_TO_LOCATION_ID,
RECEIPT_SOURCE_CODE,
VENDOR_ID,
SOURCE_DOCUMENT_CODE,
PO_HEADER_ID,
PO_LINE_ID,
PO_LINE_LOCATION_ID,
DESTINATION_TYPE_CODE,
PO_DISTRIBUTION_ID,
DELIVER_TO_PERSON_ID,
LOCATION_ID,
DELIVER_TO_LOCATION_ID,
SUBINVENTORY,
LOCATOR_ID,
HEADER_INTERFACE_ID,
DOCUMENT_NUM,
TO_ORGANIZATION_ID,
CURRENCY_CONVERSION_TYPE,
VALIDATION_FLAG)
VALUES
(V_INTERFACE_TRANSACTION_ID,
--INTERFACE_TRANSACTION_ID,
V_GROUP_ID,
--GROUP_ID,
SYSDATE,
--LAST_UPDATE_DATE,
V_USER_ID,
--LAST_UPDATED_BY,
SYSDATE,
--CREATION_DATE,
V_USER_ID,
--CREATED_BY,
V_USER_ID,
--LAST_UPDATE_LOGIN,
'RECEIVE',
--TRANSACTION_TYPE,
SYSDATE,
--TRANSACTION_DATE,
'PENDING',
--PROCESSING_STATUS_CODE,
'IMMEDIATE',
--PROCESSING_MODE_CODE,
'PENDING',
--TRANSACTION_STATUS_CODE,
V_TRANS_QTY,
--QUANTITY,
C_PO_INFO.UNIT_MEAS_LOOKUP_CODE,
--UNIT_OF_MEASURE,
C_PO_INFO.ITEM_ID,
--ITEM_ID,
C_PO_INFO.ITEM_DESCRIPTION,
--ITEM_DESCRIPTION
0,
--EMPLOYEE_ID,
'DELIVER',
--AUTO_TRANSACT_CODE,
V_LOCATION_ID,
--c_po_info.ship_to_location_id, --SHIP_TO_LOCATION_ID,
'VENDOR',
--RECEIPT_SOURCE_CODE,
C_PO_INFO.VENDOR_ID,
--VENDOR_ID,
'PO',
--SOURCE_DOCUMENT_CODE,
C_PO_INFO.PO_HEADER_ID,
--PO_HEADER_ID,
C_PO_INFO.PO_LINE_ID,
--PO_LINE_ID,
V_LINE_LOCATION_ID,
--PO_LINE_LOCATION_ID,
V_DESTINATION_TYPE_CODE,
--DESTINATION_TYPE_CODE,
V_PO_DISTRIBUTION_ID,
--po_distribution_id
V_DELIVER_TO_PERSON_ID,
--DELIVER_TO_PERSON_ID,
V_LOCATION_ID,
--200,--LOCATION_ID,
V_LOCATION_ID,
--200,--DELIVER_TO_LOCATION_ID,
'NA01',
--SUBINVENTORY,
V_LOCATOR_ID,
--locator_id,
V_HEADER_INTERFACE_ID,
--HEADER_INTERFACE_ID,
C_PO_INFO.SEGMENT1,
--DOCUMENT_NUM,
P_ORGANIZATION_ID,
--TO_ORGANIZATION_ID,
'Corporate',
'Y'
--VALIDATION_FLAG
);
IF V_LOT_CONTROL = 2
THEN
INSERT
INTO MTL_TRANSACTION_LOTS_INTERFACE
(TRANSACTION_INTERFACE_ID,
ORIGINATION_TYPE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LOT_NUMBER,
TRANSACTION_QUANTITY,
PRIMARY_QUANTITY,
--SERIAL_TRANSACTION_TEMP_ID,
PRODUCT_CODE,
PRODUCT_TRANSACTION_ID)
VALUES
(V_INTERFACE_ID,
--TRANSACTION_INTERFACE_ID
3,
--ORIGINATION_TYPE
SYSDATE,
--LAST_UPDATE_DATE
V_USER_ID,
--LAST_UPDATED_BY
SYSDATE,
--CREATION_DATE
V_USER_ID,
--CREATED_BY
V_USER_ID,
--LAST_UPDATE_LOGIN
'Un-invoiced-CON',
--LOT_NUMBER
V_TRANS_QTY,
--TRANSACTION_QUANTITY
V_TRANS_QTY,
--PRIMARY_QUANTITY
--0,--MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL, --SERIAL_TRANSACTION_TEMP_ID
'RCV',
--PRODUCT_CODE
V_INTERFACE_TRANSACTION_ID
--PRODUCT_TRANSACTION_ID
);
END
IF;
END
IF;
END
LOOP;
L_REQUEST_ID := FND_REQUEST.SUBMIT_REQUEST('PO',
--APPLICATIONI SHORT NAME;
'RVCTP',
--PROGRAME SHORT NAME;
'', '',
FALSE, 'IMMEDIATE',
V_GROUP_ID
--104--104,
--CHR(0)
);
L_REQUEST_ID2 := FND_REQUEST.SUBMIT_REQUEST('PO',
--APPLICATIONI SHORT NAME;
'RCVDLPDT',
--PROGRAME SHORT NAME;
'', '',
FALSE,
'P_group_id=' || V_GROUP_ID,
'P_receipt_source_type=Supplier',
'P_qty_precision=2',
'P_org_id=' ||
P_ORGANIZATION_ID);
FND_FILE.PUT_LINE(2,
'Receiving Transaction Processor: ' || L_REQUEST_ID ||
' Receipt Traveller Concurrent program: ' ||
L_REQUEST_ID2);
FND_FILE.PUT_LINE(2, 'Group Id: ' || V_GROUP_ID);
COMMIT;
END
MAIN;
END XXUTS_O2C_PO_RECEIPT_PKG;
|