Form中导入数据代码,EBS代码库,德仔网

代码语言
代码分类
【EBS】 Form中导入数据
作者:Martin / 发布于2016/3/17/ 791
DECLARE

  access_id     NUMBER;

  l_server_url  VARCHAR2(100);

  l_parameters  VARCHAR2(100);

  button_choice INTEGER;

  l_file_id     VARCHAR2(100);

  l_gfm_id      INTEGER;

BEGIN

  IF :file.import_type IS NULL OR :file.template_name IS NULL THEN

    fnd_message.set_string('请先输入完整数据.');

    fnd_message.show;

    RAISE form_trigger_failure;

  END IF;

  access_id := fnd_gfm.authorize(NULL);

  -- BUG 2589587 FND File Upload form is not displayed consistently

  -- in the correct language - now using fnd_function.execute to enforce

  -- ICX security and NLS issues.   

  fnd_profile.get('APPS_WEB_AGENT',

                  l_server_url);

  l_parameters := 'access_id=' || access_id || ' l_server_url=' || l_server_url;

  fnd_function.EXECUTE(function_name => 'FND_FNDFLUPL',

                       open_flag     => 'Y',

                       session_flag  => 'Y',

                       other_params  => l_parameters);

  -- Display a modal message for user to indicate file upload

  -- is completed.

  fnd_message.set_name('FND',

                       'ATCHMT-FILE-UPLOAD-COMPLETE');

 

  button_choice := fnd_message.question(button1     => 'YES',

                                        button2     => NULL,

                                        button3     => 'NO',

                                        default_btn => 1,

                                        cancel_btn  => 3,

                                        icon        => 'question');

  IF (button_choice = 3) THEN

    NULL;

  ELSIF (button_choice = 1) THEN

    DELETE FROM cfnd_matrix_cells;

    COMMIT;

    l_file_id := '';

    copy(l_file_id,

         'document_header.file_name_display');

    l_gfm_id := fnd_gfm.get_file_id(access_id);

    IF l_gfm_id IS NOT NULL THEN

      copy(to_char(l_gfm_id),

           'document_header.media_id');

   

      SELECT decode(instr(file_name,

                          '/'),

                    0,

                    file_name,

                    substr(file_name,

                           instr(file_name,

                                 '/') + 1))

        INTO l_file_id

        FROM fnd_lobs

       WHERE file_id = l_gfm_id;

      IF l_file_id IS NOT NULL THEN

        :file.filename := l_file_id;

        SELECT cfnd_matrix_cells_s1.NEXTVAL

          INTO :file.working_id

          FROM dual;

        cfnd_upl_pkg.extract_blob(l_gfm_id,

                                  :file.file_cs,

                                  chr(:file.delimiter),

                                  :file.working_id);

        go_item('CFND_MATRIX_CELLS.LINE_NO');

        clear_block(no_validate);

        execute_query;

        DELETE FROM fnd_lobs

         WHERE file_id = l_gfm_id;

        forms_ddl('commit');

     

        forms_ddl('commit');

      END IF;

    END IF;

  END IF;

END;
试试其它关键字
　Form中导入数据　
同语言下
可能有用的
Martin贡献的其它代码(3)