WEB ADI 注册功能的SQL 语句

来源：互联网发布：彩虹岛网络传输异常编辑：程序博客网时间：2024/05/18 03:05

1.删除集成器：bne_integrator_utils.delete_integrator

2.注册功能

DECLARE
x_APPL_ID FND_APPLICATION.APPLICATION_ID%TYPE;
x_FORM_ID FND_FORM.FORM_ID%TYPE;
x_ROWID    VARCHAR2(100);
x_FUNC_ID NUMBER;
x_menu_id number;
l_integ_code VARCHAR2(30);
l_param VARCHAR2(300);
l_map_code VARCHAR2(30);
l_layout_code VARCHAR2(30);
l_cont_code VARCHAR2(30);
BEGIN
--应用
SELECT APPLICATION_ID
    INTO x_APPL_ID
    FROM FND_APPLICATION
   WHERE APPLICATION_SHORT_NAME = 'CUX';

SELECT bi.integrator_code
INTO   l_integ_code
FROM   bne_integrators_vl bi
WHERE bi.user_name = 'CRC_B17_AR_收款导入_ADI_2' --集成器的名称
AND    bi.application_id = x_APPL_ID;

SELECT l.layout_code
INTO l_layout_code
FROM bne_layouts_b l
WHERE l.integrator_code = l_integ_code;

SELECT c.content_code
INTO l_cont_code
FROM bne_contents_b c
WHERE c.integrator_code = l_integ_code
AND ROWNUM = 1;

/*SELECT m.MAPPING_CODE
INTO l_map_code
FROM bne_mappings_vl m
WHERE m.integrator_code = l_integ_code
AND ROWNUM = 1;*/

l_param := 'bne:page=BneCreateDoc'
      ||'&'||'bne:viewer=231:EXCEL2003'
      ||'&'||'bne:reporting=N'
      ||'&'||'bne:integrator='||x_appl_id||':'||l_integ_code
      ||'&'||'bne:layout='||x_appl_id||':'||l_layout_code
      --||'&'||'bne:map='||x_appl_id||':'||l_map_code
      ||'&'||'bne:content='||x_appl_id||':'||l_cont_code;

--调用ADI功能
SELECT FND_FORM_FUNCTIONS_S.NEXTVAL
INTO   X_FUNC_ID
FROM DUAL;
FND_FORM_FUNCTIONS_PKG.INSERT_ROW(X_ROWID => x_ROWID,
                                    X_FUNCTION_ID => X_FUNC_ID,
                                    X_WEB_HOST_NAME => NULL,
                                    X_WEB_AGENT_NAME => NULL,
                                    X_WEB_HTML_CALL => 'BneApplicationService',
                                    X_WEB_ENCRYPT_PARAMETERS => '',
                                    X_WEB_SECURED => 'N',
                                    X_WEB_ICON => NULL,
                                    X_OBJECT_ID => NULL,
                                    X_REGION_APPLICATION_ID => NULL,
                                    X_REGION_CODE => NULL,
                                    X_FUNCTION_NAME => 'CUX17ARRECEIPTADI',
                                    X_APPLICATION_ID => NULL,
                                    X_FORM_ID => NULL,
                                    X_PARAMETERS => l_param,
                                    X_TYPE => 'SERVLET',
                                    X_USER_FUNCTION_NAME =>'CUX_17_批量收款ADI',
                                    X_DESCRIPTION => 'CUX_17_批量收款ADI',
                                    X_CREATION_DATE => sysdate,
                                    X_CREATED_BY => -1,
                                    X_LAST_UPDATE_DATE => sysdate,
                                    X_LAST_UPDATED_BY => -1,
                                    X_LAST_UPDATE_LOGIN => -1);

COMMIT;
--将功能挂到适当的菜单中，如：采购管理系统超级用户 GUI
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ( '出错' );

END;