[置顶] Oracle EBS创建LPN



创建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_suffix      =>   NULL ,

             p_lpn             => l_lpn_number);

    IF   l_errbuf <>   '0'   THEN

    x_msg_data := l_msg_data ||   '创建LPN失败：'   || l_errbuf;

      RAISE   header_error;

    ELSE

      --获取创建后的LPN_ID

    get_lpn_id(l_new_lpn_id, p_n_lpn_num);

      --箱号添加毛重

    l_lpn_rec                       :=   NULL ;

    l_lpn_rec.lpn_id                := l_new_lpn_id;

    l_lpn_rec.gross_weight_uom_code :=   'kg' ;

    l_lpn_rec.gross_weight          := p_n_gross_weight;

    wms_container_pvt.modify_lpn(p_api_version   =>   1 ,

                                 p_init_msg_list => fnd_api.g_true,

                                 p_commit        => fnd_api.g_false,

                                 x_return_status => l_return_status,

                                 x_msg_count     => l_msg_count,

                                 x_msg_data      => l_msg_data,

                                 p_caller        =>   NULL ,

                                 p_lpn           => l_lpn_rec);

      IF   l_return_status <>   'S'   THEN

      x_msg_data := l_msg_data ||   '修改毛重失败'   ;

        RAISE   header_error;

      END   IF   ;

    END   IF ;