• FORM 中提交报表并查看结果


    、首先在FORM中引入 FNDCONC.pll

    2、调用请求,并等待请求完成,附代码如下:

    PROCEDURE BTN_CLICK(p_btn_name varchar2) is
    X_REQ_ID                 NUMBER;
            L_PHASE_CODE             VARCHAR2(1);
            L_STATUS_CODE            VARCHAR2(1);
            START_DATE               DATE;
            CUR_DATE                 DATE;
            DUMMY                    VARCHAR2(10);
            P_USER_ID   VARCHAR2(30) :=FND_PROFILE.VALUE('USER_ID');
            l_result                 boolean;
    BEGIN

    l_result := fnd_request.add_layout(
                                                                                template_appl_name => 'CUX',
                                                                                template_code => 'CUXGLCASHFLOWS',
                                                                                template_language => null,
                                                                                template_territory => null,
                                                                                output_format => 'PDF'
                                       );    
       
    X_REQ_ID := fnd_request.submit_request(    'CUX'
                                                  ,'CUXGLCASHFLOWS'
                                                  ,''
                                                  ,''
                                                  ,FALSE
                                                  ,'8000'
                                                  ,'2001'
                                                  ,'2009-06'
                                                  ,'CNY'
                                                  ,chr(0)
                                                  ,'','','','','','','','','','','','','','',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '',
                                                                                        '','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','',
                                                                                        '','','','','','','','','','');
            IF X_REQ_ID = 0 THEN
             FND_MESSAGE.set_string('请求提交失败');
             FND_MESSAGE.ERROR;
          ELSE
            COMMIT;
            FND_MESSAGE.SET_STRING('请求已提交,请等待');
            FND_MESSAGE.show;
          END IF;
          SELECT SYSDATE
            INTO START_DATE
            FROM DUAL;
          DBMS_LOCK.SLEEP(7);
          LOOP
              SELECT A.PHASE_CODE,
                    A.STATUS_CODE,
                    SYSDATE
                INTO
                    L_PHASE_CODE,
                    L_STATUS_CODE,
                    CUR_DATE
              FROM FND_CONC_REQ_SUMMARY_V A
              WHERE A.REQUEST_ID = X_REQ_ID;
             
             EXIT WHEN (L_PHASE_CODE = 'C' AND L_STATUS_CODE = 'C') OR (CUR_DATE - START_DATE)>= 0.002400;
               DBMS_LOCK.SLEEP(7);
         END LOOP;
        EDITOR_PKG.REPORT(X_REQ_ID, 'Y');
    END BTN_CLICK;

  • 相关阅读:
    Aseprite+Cocos:打包像素画图,导入到cocos里并动起来
    自定义博客园个人皮肤
    埃航和737MAX坠毁:软件优先级问题
    淘宝网——软件质量属性场景分析
    王概凯《架构漫谈》阅读笔记
    2965 -- The Pilots Brothers' refrigerator
    UVa10082 -- WERTYU
    1753 -- Flip Game
    1083 -- Moving Tables
    2159 -- Ancient Cipher
  • 原文地址:https://www.cnblogs.com/liuweicong39/p/2530630.html
Copyright © 2020-2023  润新知