获取帐户帐套，帐户代码,EBS代码库,德仔网

代码语言
代码分类
【EBS】获取帐户帐套，帐户
作者:奕轩 / 发布于2016/3/17/ 803
/*=====================================

      ** PROCEDURE:     pre_form

      **=====================================*/

      procedure pre_form is

       

            cursor sob_cur(sob_id number) is

       SELECT sob.set_of_books_id,

                          sob.currency_code,

                          sob.chart_of_accounts_id

                    FROM gl_sets_of_books sob

                   WHERE sob.set_of_books_id = sob_id ;

           

            l_coa_id    number;

            l_sob_id  number;

            l_currency_code varchar2(15);

            l_org_id    number;

            l_order_num_mode varchar2(10);

      begin

       

     

       -- Set of Books ID

        l_sob_id := fnd_profile.value('GL_SET_OF_BKS_ID');

       

        -- org id

        l_org_id := fnd_profile.value('ORG_ID');

       if (l_org_id is null) then

          fnd_message.set_name('FND', 'PROFILES-CANNOT READ');

          fnd_message.set_token('OPTION', 'ORG_ID');

          fnd_message.error;

          raise form_trigger_failure;

       end if;

      

       open sob_cur(l_sob_id) ;

       fetch sob_cur into l_sob_id, l_currency_code,l_coa_id;

       close sob_cur;

       :parameter.currency_code := l_currency_code ;

      

      

       l_order_num_mode := fnd_profile.value('TRN_PO_ORDER_NUM_TYPE_036');

      

       -- Stash values away for future reference

   --  :parameter.org_id := to_number(l_org_id);

       --:parameter.set_of_books_id := to_number(l_sob_id);

      

       :parameter.chart_of_accounts_id := to_number(l_coa_id);

    :parameter.order_number_mode := l_order_num_mode;

           

            -- set amount mask

            set_amount_mask;

      end pre_form;    

     

procedure set_amount_mask is

      begin      

            -------------------------------------

            -- setup amount field's format mask

            -- ----------------------------------          

            set_item_property('HEADERS.TOTAL_AMOUNT',FORMAT_MASK,

                        fnd_currency.get_format_mask(

                        :parameter.currency_code,

                  get_item_property('HEADERS.TOTAL_AMOUNT', MAX_LENGTH)));

           

            set_item_property('LINES.LINE_AMOUNT',FORMAT_MASK,

                        fnd_currency.get_format_mask(

                        :parameter.currency_code,

                        get_item_property('LINES.LINE_AMOUNT', MAX_LENGTH)));

                                   

      end set_amount_mask;
试试其它关键字
同语言下
可能有用的
奕轩贡献的其它代码(11)