ITPub博客

首页 > Linux操作系统 > Linux操作系统 > PO接收入库

PO接收入库

原创 Linux操作系统 作者:qgw521 时间:2013-05-10 13:31:15 0 删除 编辑
-- Created on 2013-5-8 by ADMINISTRATOR
declare
  -- Local variables here
  i integer;
  l_iface_rcv_header_rec rcv_headers_interface%rowtype;
  l_iface_rcv_transaction_rec rcv_transactions_interface%rowtype;
begin
  -- Test statements here
  mo_global.init('INV');
  mo_global.set_policy_context('S',204);
  fnd_global.APPS_INITIALIZE(user_id => 1068,resp_id => 53394,resp_appl_id => 385);
 
  select po.rcv_transactions_interface_s.nextval
    into l_iface_rcv_transaction_rec.interface_transaction_id
  from dual;
  select po.rcv_interface_groups_s.nextval
  into   l_iface_rcv_transaction_rec.group_id
  from dual;
  dbms_output.put_line('group id:'||l_iface_rcv_transaction_rec.group_id);
 
  l_iface_rcv_transaction_rec.processing_status_code := 'PENDING';
  l_iface_rcv_transaction_rec.transaction_status_code := 'PENDING';
  l_iface_rcv_transaction_rec.processing_mode_code := 'BATCH';
  l_iface_rcv_transaction_rec.validation_flag := 'Y';
  l_iface_rcv_transaction_rec.receipt_source_code := 'VENDOR';
  l_iface_rcv_transaction_rec.vendor_id := 600;
  l_iface_rcv_transaction_rec.vendor_site_id := 1414;
  l_iface_rcv_transaction_rec.source_document_code := 'PO';
  l_iface_rcv_transaction_rec.po_header_id := 121311;
  l_iface_rcv_transaction_rec.po_line_id := 184238;
  l_iface_rcv_transaction_rec.po_line_location_id := 275383;
  l_iface_rcv_transaction_rec.po_release_id := null;
  l_iface_rcv_transaction_rec.transaction_type := 'DELIVER';
  l_iface_rcv_transaction_rec.auto_transact_code := null;
  l_iface_rcv_transaction_rec.destination_type_code := 'INVENTORY';
  l_iface_rcv_transaction_rec.shipment_header_id := 4820908;
  l_iface_rcv_transaction_rec.parent_transaction_id := 4901363;
  l_iface_rcv_transaction_rec.item_id := 6068;
  l_iface_rcv_transaction_rec.transaction_date := sysdate;
  l_iface_rcv_transaction_rec.quantity := 5;
  l_iface_rcv_transaction_rec.unit_of_measure := 'Each';
  l_iface_rcv_transaction_rec.to_organization_id := 207;
  l_iface_rcv_transaction_rec.ship_to_location_id := 207;
  l_iface_rcv_transaction_rec.location_id := null;
  l_iface_rcv_transaction_rec.subinventory := 'FGI';
  l_iface_rcv_transaction_rec.interface_source_code := 'RANBO TEST';
  l_iface_rcv_transaction_rec.interface_source_line_id := 2013050901;
  l_iface_rcv_transaction_rec.last_update_date := sysdate;
  l_iface_rcv_transaction_rec.last_updated_by := -1;
  l_iface_rcv_transaction_rec.creation_date := sysdate;
  l_iface_rcv_transaction_rec.created_by := -1;
  insert into rcv_transactions_interface values l_iface_rcv_transaction_rec;
 -- rcv_roi_preprocessor.Preprocessor(x_request_id => 1,x_group_id => l_iface_rcv_header_rec.group_id); 
end;

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/13387766/viewspace-760768/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: 更新PO
下一篇: 创建SO
请登录后发表评论 登录
全部评论

注册时间:2008-06-06

  • 博文量
    128
  • 访问量
    304327