Oracle EBS OPM 车间发料事务处理

--车间发料事物处理
--created by jenrry
DECLARE

  l_iface_rec      inv.mtl_transactions_interface%ROWTYPE;
  l_iface_lot_rec  inv.mtl_transaction_lots_interface%ROWTYPE;
  l_cur_mfg_org_id NUMBER := 127; --Current Inv Organization
  l_user_id        NUMBER := 6058; --User ID, Sysadmin here

  l_outcome           BOOLEAN;
  l_timeout           NUMBER := 100;
  l_error_code        VARCHAR2(4000);
  l_error_explanation VARCHAR2(4000);

BEGIN
  fnd_global.apps_initialize (user_id           => l_user_id,
                               resp_id           => 51010,
                               resp_appl_id      => 553
                              );
                               fnd_profile.put ('AFLOG_LEVEL', '1');
                               mo_global.set_policy_context('S',
                                   127);
  l_iface_rec.last_update_date  := SYSDATE;
  l_iface_rec.last_updated_by   := l_user_id;
  l_iface_rec.creation_date     := SYSDATE;
  l_iface_rec.created_by        := l_user_id;
  l_iface_rec.last_update_login := -1;

  l_iface_lot_rec.last_update_date  := SYSDATE;
  l_iface_lot_rec.last_updated_by   := l_user_id;
  l_iface_lot_rec.creation_date     := SYSDATE;
  l_iface_lot_rec.created_by        := l_user_id;
  l_iface_lot_rec.last_update_login := -1;

  SELECT mtl_material_transactions_s.NEXTVAL INTO l_iface_rec.transaction_interface_id FROM dual;

  l_iface_rec.transaction_header_id := l_iface_rec.transaction_interface_id;
  l_iface_rec.transaction_mode      := 3;
  l_iface_rec.process_flag          := 1;
  l_iface_rec.transaction_type_id   := 35; --mtl_transaction_types
  l_iface_rec.transaction_source_id := 408953; --wip_entity_id
  l_iface_rec.wip_entity_type := 10; 

  l_iface_rec.organization_id       := l_cur_mfg_org_id;
  l_iface_rec.inventory_item_id     := 623;
  l_iface_rec.subinventory_code     := 'Y02';
  l_iface_rec.transaction_quantity  := -1;
  l_iface_rec.primary_quantity  := -1;
  l_iface_rec.transaction_uom       := '个';
  l_iface_rec.transaction_date      := SYSDATE ;
  l_iface_rec.source_code           := 'Test Only';
  l_iface_rec.source_header_id      := 987654321;
  l_iface_rec.source_line_id        := 987654321;
  l_iface_rec.locator_id            := 3;
  INSERT INTO inv.mtl_transactions_interface VALUES l_iface_rec;

  l_iface_lot_rec.transaction_interface_id := l_iface_rec.transaction_interface_id;
  l_iface_lot_rec.lot_number               := '201308-001';
  l_iface_lot_rec.transaction_quantity     := l_iface_rec.transaction_quantity;
  l_iface_lot_rec.source_code              := l_iface_rec.source_code;
  l_iface_lot_rec.source_line_id           := l_iface_rec.source_line_id;

  INSERT INTO inv.mtl_transaction_lots_interface VALUES l_iface_lot_rec;

  l_timeout := 100;
  -- Auto commit whenever success or failure!!
  l_outcome := mtl_online_transaction_pub.process_online(p_transaction_header_id => l_iface_rec.transaction_header_id,
                                                         p_timeout               => l_timeout,
                                                         p_error_code            => l_error_code,
                                                         p_error_explanation     => l_error_explanation);
  IF (l_outcome = FALSE) THEN
    dbms_output.put_line('Failed to process the transaction');
    dbms_output.put_line('Error code: ' || l_error_code);
    dbms_output.put_line('Error message: ' || l_error_explanation);
    DELETE inv.mtl_transactions_interface
     WHERE transaction_header_id = l_iface_rec.transaction_header_id;
    COMMIT;
  ELSE
    dbms_output.put_line('Transaction with header id ' ||
                         to_char(l_iface_rec.transaction_header_id) ||
                         ' has been processed successfully');
    COMMIT;
  END IF;

END;