EBS实践—PO内部申请自动接收入库
来源:互联网 发布:北京立方米网络 编辑:程序博客网 时间:2024/05/21 09:43
declare
CURSOR cur_req_data IS
SELECT prl.*
FROM po_requisition_lines_all prl,
po_requisition_headers_all prh
WHERE prh.requisition_header_id = prl.requisition_header_id
AND prl.requisition_line_id = p_requisition_line_id;
l_iface_hdr_rec po.rcv_headers_interface%ROWTYPE;
l_iface_rcv_rec po.rcv_transactions_interface%ROWTYPE;
l_shipment_number VARCHAR2(30);
BEGIN
BEGIN
SELECT rsh.shipment_num
INTO l_shipment_number
FROM rcv_shipment_headers rsh,
rcv_shipment_lines rsl
WHERE rsh.shipment_header_id = rsl.shipment_header_id
AND rsl.requisition_line_id = p_requisition_line_id
AND rsl.shipment_line_id = p_shipment_line_id;
EXCEPTION
WHEN no_data_found THEN
l_shipment_number := NULL;
WHEN OTHERS THEN
l_shipment_number := NULL;
END;
FOR l_req_data IN cur_req_data
LOOP
BEGIN
SELECT po.rcv_headers_interface_s.NEXTVAL
INTO l_iface_hdr_rec.header_interface_id
FROM dual;
/*SELECT po.rcv_interface_groups_s.NEXTVAL
INTO l_iface_hdr_rec.group_id
FROM dual;*/
l_iface_hdr_rec.group_id := g_receipt_group_id;
l_iface_hdr_rec.last_update_date := SYSDATE;
l_iface_hdr_rec.last_updated_by := fnd_global.user_id;
l_iface_hdr_rec.creation_date := SYSDATE;
l_iface_hdr_rec.created_by := fnd_global.user_id;
l_iface_hdr_rec.last_update_login := fnd_global.login_id;
l_iface_rcv_rec.last_update_date := SYSDATE;
l_iface_rcv_rec.last_updated_by := fnd_global.user_id;
l_iface_rcv_rec.creation_date := SYSDATE;
l_iface_rcv_rec.created_by := fnd_global.user_id;
l_iface_rcv_rec.last_update_login := fnd_global.login_id;
l_iface_hdr_rec.processing_status_code := 'PENDING';
l_iface_hdr_rec.receipt_source_code := 'INTERNAL ORDER';
l_iface_hdr_rec.transaction_type := 'NEW';
l_iface_hdr_rec.receipt_num := l_shipment_number; --Automatic Number
l_iface_hdr_rec.expected_receipt_date := SYSDATE;
l_iface_hdr_rec.validation_flag := 'Y';
l_iface_hdr_rec.ship_to_organization_id := l_req_data.destination_organization_id;
INSERT INTO rcv_headers_interface
VALUES l_iface_hdr_rec;
SELECT rcv_transactions_interface_s.NEXTVAL
INTO l_iface_rcv_rec.interface_transaction_id
FROM dual;
--l_requisition_line_id := l_req_data.requisition_line_id;
l_iface_rcv_rec.header_interface_id := l_iface_hdr_rec.header_interface_id;
l_iface_rcv_rec.group_id := l_iface_hdr_rec.group_id;
l_iface_rcv_rec.processing_status_code := 'PENDING';
l_iface_rcv_rec.transaction_status_code := 'PENDING';
l_iface_rcv_rec.processing_mode_code := 'IMMEDIATE';
l_iface_rcv_rec.validation_flag := 'Y';
--l_iface_rcv_rec.receipt_source_code := 'VENDOR';
l_iface_rcv_rec.requisition_line_id := l_req_data.requisition_line_id;
l_iface_rcv_rec.source_document_code := 'REQ'; --po
l_iface_rcv_rec.transaction_type := 'RECEIVE';
l_iface_rcv_rec.destination_type_code := 'RECEIVING';
l_iface_rcv_rec.transaction_date := SYSDATE;
l_iface_rcv_rec.employee_id := l_req_data.to_person_id;
l_iface_rcv_rec.auto_transact_code := 'DELIVER';
l_iface_rcv_rec.receipt_source_code := 'INTERNAL ORDER';
l_iface_rcv_rec.from_organization_id := l_req_data.source_organization_id;
l_iface_rcv_rec.to_organization_id := l_req_data.destination_organization_id;
l_iface_rcv_rec.requisition_line_id := l_req_data.requisition_line_id;
l_iface_rcv_rec.req_distribution_id := 959926;
l_iface_rcv_rec.shipment_num := l_iface_hdr_rec.receipt_num;
-- l_iface_rcv_rec.freight_carrier_code := l_req_data.unit_meas_lookup_code; #B001
l_iface_rcv_rec.location_id := l_req_data.deliver_to_location_id;
l_iface_rcv_rec.deliver_to_location_id := l_req_data.deliver_to_location_id;
l_iface_rcv_rec.interface_source_code := 'NOT INSPECTED';
l_iface_rcv_rec.routing_header_id := 3;
l_iface_rcv_rec.routing_step_id := 1;
l_iface_rcv_rec.interface_source_code := 'NOT INSPECTED';
l_iface_rcv_rec.destination_type_code := 'INVENTORY';
l_iface_rcv_rec.subinventory := p_subinventory_code; --实际入至子库存
l_iface_rcv_rec.destination_context := 'INVENTORY';
l_iface_rcv_rec.source_doc_quantity := p_quantity;--实际入库数量
l_iface_rcv_rec.source_doc_unit_of_measure := l_req_data.unit_meas_lookup_code;
l_iface_rcv_rec.item_id := l_req_data.item_id;
l_iface_rcv_rec.category_id := l_req_data.category_id;
l_iface_rcv_rec.item_description := l_req_data.item_description;
l_iface_rcv_rec.quantity := p_quantity;
l_iface_rcv_rec.unit_of_measure := l_req_data.unit_meas_lookup_code; --Not Code
l_iface_rcv_rec.ship_to_location_id := l_req_data.deliver_to_location_id;
l_iface_rcv_rec.location_id := l_req_data.line_location_id;
l_iface_rcv_rec.interface_source_code := 'PO Requisition';
l_iface_rcv_rec.interface_source_line_id := '123456789';
INSERT INTO rcv_transactions_interface
VALUES l_iface_rcv_rec;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Exception in calling po_requisition_process:' || SQLERRM);
END;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Exception in calling po_requisition_process:' || SQLERRM);
end;
- EBS实践—PO内部申请自动接收入库
- EBS-PO接收控制状态的处理
- PO Receiving: 从接收到入库过程中的财务处理
- EBS标准功能-->PR自动创建PO的逻辑
- EBS标准功能-->PR自动创建PO的逻辑
- EBS 采购订单入库
- 详解EBS接口开发之库事务处理带提前发运通知(ASN)采购接收入库-补充
- oracle ebs ---po
- EBS --PO采购订单
- Oracle EBS 11i 表结构——PO模块
- 通过外来系统抛ERP采购接收接口,系统自动接收入库
- EBS 采购检验-入库接口
- Oracle EBS:追踪PO全过程
- Oracle EBS PO问题杂记
- EBS采购申请创建
- PO收料到入库的分析
- PO收料到入库的分析
- EBS采购订单接收
- sprintf使用详解(转)
- i am a tiny bird-7
- 进度条
- C语言文件传输客户端
- 自定义Android Toasts风格
- EBS实践—PO内部申请自动接收入库
- C语言文件传输客户端
- 索引的一种组织形式
- 文件传输协议的服务器
- vbs脚本:WriteText
- 手把手教你用vmware安装oracle10g RAC(一)
- 51单片机的串口通讯
- 这里有些东西需要看!
- 提高程序执行效率,Web开发技巧30条