详解EBS接口开发之库存事务处理-物料批次导入

库存事务处理-物料批次导入
--系统批次表
SELECT * FROM MTL_LOT_NUMBERS T;
--API创建批次
inv_lot_api_pub.create_inv_lot(x_return_status    => l_return_status,
                                     x_msg_count        => l_msg_count,
                                     x_msg_data         => l_msg_data,
                                     x_row_id           => l_row_id,
                                     x_lot_rec          => x_mtl_lot_numbers,
                                     p_lot_rec          => l_mtl_lot_numbers,
                                     p_source           => l_source,
                                     p_api_version      => l_api_version,
                                     p_init_msg_list    => l_init_msg_list,
                                     p_commit           => l_commit,
                                     p_validation_level => l_validation_level,
                                     p_origin_txn_id    => l_origin_txn_id);
--API更新批次
inv_lot_api_pub.update_inv_lot(
            x_return_status         OUT    NOCOPY VARCHAR2
          , x_msg_count             OUT    NOCOPY NUMBER
          , x_msg_data              OUT    NOCOPY VARCHAR2
          , x_lot_rec               OUT    NOCOPY MTL_LOT_NUMBERS%ROWTYPE
          , p_lot_rec               IN     MTL_LOT_NUMBERS%ROWTYPE
          , p_source                IN     NUMBER
          , p_api_version           IN     NUMBER
          , p_init_msg_list         IN     VARCHAR2 := fnd_api.g_false
          , p_commit                IN     VARCHAR2 := fnd_api.g_false);
          
--验证批次唯一性
inv_lot_api_pub.validate_unique_lot(
    p_org_id            IN            NUMBER
  , p_inventory_item_id IN            NUMBER
  , p_lot_uniqueness    IN            NUMBER
  , p_auto_lot_number   IN            VARCHAR2
  , p_check_same_item   IN            VARCHAR2
  , x_is_unique         OUT NOCOPY    VARCHAR2
  );
  
--物料批次数量验证
-----------------------------------------------------------------------
-- Name : validate_quantities
-- Desc : This procedure is used to validate transaction quantity2
--
-- I/P Params :
--     All the relevant transaction details :
--        - organization id
--        - item_id
--        - lot, revision, subinventory
--        - transaction quantities
-- O/P Params :
--     x_rerturn_status.
-- RETURN VALUE :
--   TRUE : IF the transaction is valid regarding Quantity2 and lot indivisible
--   FALSE : IF the transaction is NOT valid regarding Quantity2 and lot indivisible
--
-----------------------------------------------------------------------
inv_lot_api_pub.validate_quantities(
  p_api_version          IN  NUMBER
, p_init_msg_list        IN  VARCHAR2 := FND_API.G_FALSE
, p_transaction_type_id  IN  NUMBER
, p_organization_id      IN  NUMBER
, p_inventory_item_id    IN  NUMBER
, p_revision             IN  VARCHAR2
, p_subinventory_code    IN  VARCHAR2
, p_locator_id           IN  NUMBER
, p_lot_number           IN  VARCHAR2
, p_transaction_quantity IN OUT  NOCOPY NUMBER
, p_transaction_uom_code IN  VARCHAR2
, p_primary_quantity     IN OUT NOCOPY NUMBER
, p_primary_uom_code	 OUT NOCOPY VARCHAR2
, p_secondary_quantity   IN OUT NOCOPY NUMBER
, p_secondary_uom_code   IN OUT NOCOPY VARCHAR2
, x_return_status        OUT NOCOPY VARCHAR2
, x_msg_count            OUT NOCOPY NUMBER
, x_msg_data             OUT NOCOPY VARCHAR2);

--简单参考例子
/**==================================================
  Procedure Name :
      create_inv_lot
  Description:
      This procedure is concurrent entry, perform:
      库存事务处理批号生成   api 
  Argument:
     p_inventory_item_id   库存物料id,
     p_organization_id     组织id,
     p_lot_number          批号: 
  History: 
      1.00  2013-10-29  cxy  Creation
  ==================================================*/
  PROCEDURE create_inv_lot(p_init_msg_list     IN VARCHAR2 DEFAULT fnd_api.g_false,
                           p_commit            IN VARCHAR2 DEFAULT fnd_api.g_false,
                           x_return_status     OUT NOCOPY VARCHAR2,
                           x_msg_count         OUT NOCOPY NUMBER,
                           x_msg_data          OUT NOCOPY VARCHAR2,
                           p_inventory_item_id IN NUMBER,
                           p_organization_id   IN NUMBER,
                           p_lot_number        VARCHAR2) IS
    l_api_name CONSTANT VARCHAR2(30) := 'create_inv_lot';
  
    
    l_count           NUMBER;
    x_mtl_lot_numbers mtl_lot_numbers%ROWTYPE;
    l_mtl_lot_numbers mtl_lot_numbers%ROWTYPE;
     /* Defined new variables for overloaded API call */
  
    l_api_version      NUMBER := 1.0;
    l_init_msg_list    VARCHAR2(100) := fnd_api.g_false; -- bug 7513308;
    l_commit           VARCHAR2(100) := fnd_api.g_false;
    l_validation_level NUMBER := fnd_api.g_valid_level_full;
    l_origin_txn_id    NUMBER := NULL;
    l_source           NUMBER := 2;
    l_return_status    VARCHAR2(1);
    l_msg_data         VARCHAR2(3000);
    l_msg_count        NUMBER;
    l_row_id           ROWID;
  
  BEGIN
    SAVEPOINT inv_lot_1;
    -- start activity to create savepoint, check compatibility
    -- and initialize message list, include debug message hint to enter api
    SELECT COUNT(1)
      INTO l_count
      FROM cux_inv_lot_number
     WHERE lot_number = p_lot_number;
  
    IF l_count = 0 THEN
      fnd_message.set_name('INV',
                           '在系统中不存在此批号：CUX_INV_LOT_NUMBER.lot_number');
      fnd_message.set_token('LOT_NUMBER', to_char(p_lot_number));
      fnd_msg_pub.add;
      RAISE fnd_api.g_exc_error;
    END IF;
  
    FOR rec_inv_lot IN cur_inv_lot LOOP
    
      l_mtl_lot_numbers.inventory_item_id      := p_inventory_item_id;
      l_mtl_lot_numbers.organization_id        := p_organization_id;
      l_mtl_lot_numbers.lot_number             := p_lot_number;
      l_mtl_lot_numbers.last_update_date       := SYSDATE;
      l_mtl_lot_numbers.last_updated_by        := g_user_id;
      l_mtl_lot_numbers.creation_date          := rec_inv_lot.lot_date;
      l_mtl_lot_numbers.created_by             := rec_inv_lot.created_by;
      l_mtl_lot_numbers.last_update_login      := g_login_id;
      l_mtl_lot_numbers.program_application_id := g_prog_appl_id;
      l_mtl_lot_numbers.program_id             := g_conc_program_id;
      l_mtl_lot_numbers.program_update_date    := SYSDATE;
      l_mtl_lot_numbers.expiration_date        := NULL;
      l_mtl_lot_numbers.disable_flag           := NULL;
      l_mtl_lot_numbers.attribute_category     := NULL;
      l_mtl_lot_numbers.attribute1             := NULL;
      l_mtl_lot_numbers.attribute2             := NULL;
      l_mtl_lot_numbers.attribute3             := NULL;
      l_mtl_lot_numbers.attribute4             := NULL;
      l_mtl_lot_numbers.attribute5             := NULL;
      l_mtl_lot_numbers.attribute6             := NULL;
      l_mtl_lot_numbers.attribute7             := NULL;
      l_mtl_lot_numbers.attribute8             := NULL;
      l_mtl_lot_numbers.attribute9             := NULL;
      l_mtl_lot_numbers.attribute10            := NULL;
      l_mtl_lot_numbers.attribute11            := NULL;
      l_mtl_lot_numbers.attribute12            := NULL;
      l_mtl_lot_numbers.attribute13            := NULL;
      l_mtl_lot_numbers.attribute14            := NULL;
      l_mtl_lot_numbers.attribute15            := NULL;
      l_mtl_lot_numbers.request_id             := NULL; 
      l_mtl_lot_numbers.gen_object_id          := NULL;
      l_mtl_lot_numbers.description            := NULL;
      l_mtl_lot_numbers.vendor_name            := NULL;
      l_mtl_lot_numbers.supplier_lot_number    := NULL;
      l_mtl_lot_numbers.country_of_origin      := NULL;
      l_mtl_lot_numbers.grade_code             := NULL;
      l_mtl_lot_numbers.origination_date       := NULL;
      l_mtl_lot_numbers.date_code              := NULL;
      l_mtl_lot_numbers.status_id              := NULL;
      l_mtl_lot_numbers.change_date            := NULL;
      l_mtl_lot_numbers.age                    := NULL;
      l_mtl_lot_numbers.retest_date            := NULL;
      l_mtl_lot_numbers.maturity_date          := NULL;
      l_mtl_lot_numbers.lot_attribute_category := NULL;
      l_mtl_lot_numbers.item_size              := NULL;
      l_mtl_lot_numbers.color                  := NULL;
      l_mtl_lot_numbers.volume                 := NULL;
      l_mtl_lot_numbers.volume_uom             := NULL;
      l_mtl_lot_numbers.place_of_origin        := NULL;
      l_mtl_lot_numbers.kill_date              := NULL;
      l_mtl_lot_numbers.best_by_date           := NULL;
      l_mtl_lot_numbers.length                 := NULL;
      l_mtl_lot_numbers.length_uom             := NULL;
      l_mtl_lot_numbers.recycled_content       := NULL;
      l_mtl_lot_numbers.thickness              := NULL;
      l_mtl_lot_numbers.thickness_uom          := NULL;
      l_mtl_lot_numbers.width                  := NULL;
      l_mtl_lot_numbers.width_uom              := NULL;
      l_mtl_lot_numbers.curl_wrinkle_fold      := NULL;
      l_mtl_lot_numbers.c_attribute1           := NULL;
      l_mtl_lot_numbers.c_attribute2           := NULL;
      l_mtl_lot_numbers.c_attribute3           := NULL;
      l_mtl_lot_numbers.c_attribute4           := NULL;
      l_mtl_lot_numbers.c_attribute5           := NULL;
      l_mtl_lot_numbers.c_attribute6           := NULL;
      l_mtl_lot_numbers.c_attribute7           := NULL;
      l_mtl_lot_numbers.c_attribute8           := NULL;
      l_mtl_lot_numbers.c_attribute9           := NULL;
      l_mtl_lot_numbers.c_attribute10          := NULL;
      l_mtl_lot_numbers.c_attribute11          := NULL;
      l_mtl_lot_numbers.c_attribute12          := NULL;
      l_mtl_lot_numbers.c_attribute13          := NULL;
      l_mtl_lot_numbers.c_attribute14          := NULL;
      l_mtl_lot_numbers.c_attribute15          := NULL;
      l_mtl_lot_numbers.c_attribute16          := NULL;
      l_mtl_lot_numbers.c_attribute17          := NULL;
      l_mtl_lot_numbers.c_attribute18          := NULL;
      l_mtl_lot_numbers.c_attribute19          := NULL;
      l_mtl_lot_numbers.c_attribute20          := NULL;
      l_mtl_lot_numbers.c_attribute21          := NULL;
      l_mtl_lot_numbers.c_attribute22          := NULL;
      l_mtl_lot_numbers.c_attribute23          := NULL;
      l_mtl_lot_numbers.c_attribute24          := NULL;
      l_mtl_lot_numbers.c_attribute25          := NULL;
      l_mtl_lot_numbers.c_attribute26          := NULL;
      l_mtl_lot_numbers.c_attribute27          := NULL;
      l_mtl_lot_numbers.c_attribute28          := NULL;
      l_mtl_lot_numbers.c_attribute29          := NULL;
      l_mtl_lot_numbers.c_attribute30          := NULL;
      l_mtl_lot_numbers.d_attribute1           := NULL;
      l_mtl_lot_numbers.d_attribute2           := NULL;
      l_mtl_lot_numbers.d_attribute3           := NULL;
      l_mtl_lot_numbers.d_attribute4           := NULL;
      l_mtl_lot_numbers.d_attribute5           := NULL;
      l_mtl_lot_numbers.d_attribute6           := NULL;
      l_mtl_lot_numbers.d_attribute7           := NULL;
      l_mtl_lot_numbers.d_attribute8           := NULL;
      l_mtl_lot_numbers.d_attribute9           := NULL;
      l_mtl_lot_numbers.d_attribute10          := NULL;
      l_mtl_lot_numbers.d_attribute11          := NULL;
      l_mtl_lot_numbers.d_attribute12          := NULL;
      l_mtl_lot_numbers.d_attribute13          := NULL;
      l_mtl_lot_numbers.d_attribute14          := NULL;
      l_mtl_lot_numbers.d_attribute15          := NULL;
      l_mtl_lot_numbers.d_attribute16          := NULL;
      l_mtl_lot_numbers.d_attribute17          := NULL;
      l_mtl_lot_numbers.d_attribute18          := NULL;
      l_mtl_lot_numbers.d_attribute19          := NULL;
      l_mtl_lot_numbers.d_attribute20          := NULL;
      l_mtl_lot_numbers.n_attribute1           := NULL;
      l_mtl_lot_numbers.n_attribute2           := NULL;
      l_mtl_lot_numbers.n_attribute3           := NULL;
      l_mtl_lot_numbers.n_attribute4           := NULL;
      l_mtl_lot_numbers.n_attribute5           := NULL;
      l_mtl_lot_numbers.n_attribute6           := NULL;
      l_mtl_lot_numbers.n_attribute7           := NULL;
      l_mtl_lot_numbers.n_attribute8           := NULL;
      l_mtl_lot_numbers.n_attribute9           := NULL;
      l_mtl_lot_numbers.n_attribute10          := NULL;
      l_mtl_lot_numbers.n_attribute11          := NULL;
      l_mtl_lot_numbers.n_attribute12          := NULL;
      l_mtl_lot_numbers.n_attribute13          := NULL;
      l_mtl_lot_numbers.n_attribute14          := NULL;
      l_mtl_lot_numbers.n_attribute15          := NULL;
      l_mtl_lot_numbers.n_attribute16          := NULL;
      l_mtl_lot_numbers.n_attribute17          := NULL;
      l_mtl_lot_numbers.n_attribute18          := NULL;
      l_mtl_lot_numbers.n_attribute19          := NULL;
      l_mtl_lot_numbers.n_attribute20          := NULL;
      l_mtl_lot_numbers.n_attribute21          := NULL;
      l_mtl_lot_numbers.n_attribute22          := NULL;
      l_mtl_lot_numbers.n_attribute23          := NULL;
      l_mtl_lot_numbers.n_attribute24          := NULL;
      l_mtl_lot_numbers.n_attribute25          := NULL;
      l_mtl_lot_numbers.n_attribute26          := NULL;
      l_mtl_lot_numbers.n_attribute27          := NULL;
      l_mtl_lot_numbers.n_attribute28          := NULL;
      l_mtl_lot_numbers.n_attribute29          := NULL;
      l_mtl_lot_numbers.n_attribute30          := NULL;
      l_mtl_lot_numbers.vendor_id              := NULL;
      l_mtl_lot_numbers.territory_code         := NULL;
      l_mtl_lot_numbers.parent_lot_number      := NULL;
      l_mtl_lot_numbers.origination_type       := NULL;
      l_mtl_lot_numbers.availability_type      := NULL;
      l_mtl_lot_numbers.expiration_action_code := NULL;
      l_mtl_lot_numbers.expiration_action_date := NULL;
      l_mtl_lot_numbers.hold_date              := NULL;
      l_mtl_lot_numbers.inventory_atp_code     := NULL;
      l_mtl_lot_numbers.reservable_type        := NULL;
      l_mtl_lot_numbers.sampling_event_id      := NULL;
    
      inv_lot_api_pub.create_inv_lot(x_return_status    => l_return_status,
                                     x_msg_count        => l_msg_count,
                                     x_msg_data         => l_msg_data,
                                     x_row_id           => l_row_id,
                                     x_lot_rec          => x_mtl_lot_numbers,
                                     p_lot_rec          => l_mtl_lot_numbers,
                                     p_source           => l_source,
                                     p_api_version      => l_api_version,
                                     p_init_msg_list    => l_init_msg_list,
                                     p_commit           => l_commit,
                                     p_validation_level => l_validation_level,
                                     p_origin_txn_id    => l_origin_txn_id);
    
      IF l_return_status = g_ret_sts_success THEN
        UPDATE cux_inv_lot_number h
           SET h.process_status     = 'COMPLETE',
               h.process_date       = SYSDATE,
               h.process_message    = NULL,
               h.row_version_number = h.row_version_number + 1,
               h.last_updated_by    = g_user_id,
               h.last_update_date   = SYSDATE,
               h.last_update_login  = g_login_id
         WHERE h.id = rec_inv_lot.id;
      ELSE
        UPDATE cux_inv_lot_number h
           SET h.process_status     = 'ERROR',
               h.process_date       = SYSDATE,
               h.process_message    = '创建批次失败-' || l_msg_data,
               h.row_version_number = h.row_version_number + 1,
               h.last_updated_by    = g_user_id,
               h.last_update_date   = SYSDATE,
               h.last_update_login  = g_login_id
         WHERE h.id = rec_inv_lot.id;
        IF l_return_status = g_ret_sts_error THEN
        
          RAISE g_exc_error;
        ELSIF l_return_status = g_ret_sts_unexp_error THEN
        
          fnd_message.set_name('INV', 'INV_PROGRAM_ERROR');
          fnd_message.set_token('PROG_NAME',
                                'inv_lot_api_pub.Create_Inv_lot');
          fnd_msg_pub.add;
          RAISE g_exc_unexpected_error;
        END IF;
      END IF;
    END LOOP;
  
    -- API end body
    -- end activity, include debug message hint to exit api
   
  EXCEPTION
  
    WHEN no_data_found THEN
      x_return_status := g_ret_sts_error;
      ROLLBACK TO inv_lot_1;
      fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
                                p_count   => x_msg_count,
                                p_data    => x_msg_data);
      IF (x_msg_count > 1) THEN
        x_msg_data := fnd_msg_pub.get(x_msg_count, fnd_api.g_false);
      END IF;
      -- print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
    WHEN g_exc_error THEN
      x_return_status := g_ret_sts_error;
      ROLLBACK TO inv_lot_1;
      fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
                                p_count   => x_msg_count,
                                p_data    => x_msg_data);
      IF (x_msg_count > 1) THEN
        x_msg_data := fnd_msg_pub.get(x_msg_count, fnd_api.g_false);
      END IF;
      --print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
    WHEN g_exc_unexpected_error THEN
      x_return_status := g_ret_sts_unexp_error;
      ROLLBACK TO inv_lot_1;
      fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
                                p_count   => x_msg_count,
                                p_data    => x_msg_data);
      IF (x_msg_count > 1) THEN
        x_msg_data := fnd_msg_pub.get(x_msg_count, fnd_api.g_false);
      END IF;
    WHEN OTHERS THEN
      x_return_status := g_ret_sts_unexp_error;
      ROLLBACK TO inv_lot_1;
      fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
                                p_count   => x_msg_count,
                                p_data    => x_msg_data);
      IF (x_msg_count > 1) THEN
        x_msg_data := fnd_msg_pub.get(x_msg_count, fnd_api.g_false);
      END IF;
    
  END create_inv_lot;