PO接收入库

-- 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博客 ” ，链接：http://blog.itpub.net/13387766/viewspace-760768/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13387766/viewspace-760768/