Oracle EBS创建LPN

发布时间：2020-12-12 02:18:01 所属栏目：MySql教程来源：网络整理

导读：创建LPN PROCEDURE create_lpn(errbuf OUT VARCHAR2 , retcode OUT VARCHAR2 , p_organization_id IN NUMBER , p_lpn_prefix IN VARCHAR2 , p_lpn_suffix IN VARCHAR2 , p_lpn IN VARCHAR2 ) IS BEGIN --Initialize wms_container_pvt.generate_lpn_cp(errbu

创建LPN
PROCEDURE create_lpn(errbuf            OUT VARCHAR2, retcode           OUT VARCHAR2 , p_organization_id IN NUMBER , p_lpn_prefix      IN VARCHAR2 , p_lpn_suffix      IN VARCHAR2 , p_lpn             IN VARCHAR2 ) IS   BEGIN     --Initialize     wms_container_pvt.generate_lpn_cp(errbuf                => errbuf,                                       retcode               => retcode,                                       p_api_version         => 1,                                       p_organization_id     => p_organization_id,                                       p_container_item_id   => NULL,                                       p_revision            => NULL,                                       p_lot_number          => NULL,                                       p_from_serial_number => NULL,                                       p_to_serial_number    => NULL,                                       p_subinventory        => NULL,                                       p_locator_id          => NULL,                                       p_org_parameters      => 2,                                       p_parm_dummy_1        => 'N',                                       p_total_length        => NULL,                                       p_lpn_prefix          => p_lpn_prefix,                                       p_starting_num        => p_lpn,                                       p_ucc_128_suffix_flag => 2,                                       p_parm_dummy_2        => 'N',                                       p_lpn_suffix          => p_lpn_suffix,                                       p_quantity            => 1,                                       p_source              => NULL,                                       p_cost_group_id       => NULL);   END;
-- --------------------------------------------   -- Get LPN Id   -- --------------------------------------------   PROCEDURE get_lpn_id(x_lpn_id OUT NUMBER ,p_lpn IN VARCHAR2) IS     --l_lpn_exist NUMBER;   BEGIN     x_lpn_id := - 9999;     SELECT lpn.lpn_id       INTO x_lpn_id       FROM wms_license_plate_numbers lpn      WHERE 1 = 1        AND lpn.license_plate_number = p_lpn;   EXCEPTION     WHEN no_data_found THEN       x_lpn_id := - 1; --LPN不存在     WHEN OTHERS THEN       x_lpn_id := - 9999;   END;
--创建LPN --检查LPN是否存在 get_lpn_id(l_outer_lpn_id,p_n_lpn_num); --拆分LPN号 SELECT substr (p_n_lpn_num,-1),        substr(p_n_lpn_num, 1 , length(p_n_lpn_num) - 1)   INTO l_lpn_number,l_lpn_prefix   FROM dual; --创建LPN IF l_outer_lpn_id = -1 THEN create_lpn(errbuf            => l_errbuf,              retcode           => l_retcode,              p_organization_id => p_organization_id,              p_lpn_prefix      => l_lpn_prefix,              p_lpn_su

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!