WEB ADI 注册功能的SQL 语句

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; \

 

 

DECLARE
l_app_id NUMBER;
l_inf_code VARCHAR2(30);
BEGIN

SELECT inf.APPLICATION_ID,inf.INTERFACE_CODE
INTO l_app_id,l_inf_code
FROM bne_integrators_vl bni
,bne_interfaces_vl inf
WHERE bni.application_id = inf.integrator_app_id
AND bni.integrator_code = inf.integrator_code
AND bni.user_name = 'CRC_B17_AR_收款导入_ADI_2';

--库存组织LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_ORG_NAME', --
P_ID_COL => 'NAME', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'NAME', -- Shown in sheet --
P_DESC_COL => 'COMMENTS', --
P_TABLE => 'HR_ORGANIZATION_UNITS', --
P_ADDL_W_C => 'ORGANIZATION_ID IN ( SELECT hoi.organization_id
FROM hr_organization_information hoi
WHERE hoi.org_information1 = ''INV'')',
P_WINDOW_CAPTION => '库存组织',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'NAME,COMMENTS',
P_TABLE_HEADERS => '名称,说明'
);


--档次LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_ATTRIBUTE6', --
P_ID_COL => 'FLEX_VALUE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'FLEX_VALUE', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'fnd_flex_values_vl', --
P_ADDL_W_C => 'ENABLED_FLAG = ''Y''
AND nvl(END_DATE_ACTIVE,SYSDATE + 1) > SYSDATE
AND FLEX_VALUE_SET_ID = ( SELECT s.flex_value_set_id
FROM fnd_flex_value_sets s
WHERE s.flex_value_set_name = ''CUX_LOV_Level'')',
P_WINDOW_CAPTION => '档次',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'FLEX_VALUE,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);

--采用综合单价LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_ATTRIBUTE7', --
P_ID_COL => 'LOOKUP_CODE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'MEANING', -- Shown in sheet --
P_DESC_COL => 'MEANING', --
P_TABLE => 'FND_LOOKUPS', --
P_ADDL_W_C => 'LOOKUP_TYPE = ''YES_NO''',
P_WINDOW_CAPTION => '采用综合单价',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'MEANING,DESCRIPTION',
P_TABLE_HEADERS => '标识,说明'
);

--建安、其他费LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_ATTRIBUTE8', --
P_ID_COL => 'FLEX_VALUE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'FLEX_VALUE', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'fnd_flex_values_vl', --
P_ADDL_W_C => 'ENABLED_FLAG = ''Y''
AND nvl(END_DATE_ACTIVE,SYSDATE + 1) > SYSDATE
AND FLEX_VALUE_SET_ID = ( SELECT s.flex_value_set_id
FROM fnd_flex_value_sets s
WHERE s.flex_value_set_name = ''CUX_LOV_Fee_Type'')',
P_WINDOW_CAPTION => '建安/其他费',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'FLEX_VALUE,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);

--计价方式LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_ATTRIBUTE9', --
P_ID_COL => 'FLEX_VALUE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'FLEX_VALUE', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'fnd_flex_values_vl', --
P_ADDL_W_C => 'ENABLED_FLAG = ''Y''
AND nvl(END_DATE_ACTIVE,SYSDATE + 1) > SYSDATE
AND FLEX_VALUE_SET_ID = ( SELECT s.flex_value_set_id
FROM fnd_flex_value_sets s
WHERE s.flex_value_set_name = ''CUX_LOV_Price_Type'')',
P_WINDOW_CAPTION => '计价方式',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'FLEX_VALUE,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);

--模板LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_TEMPLATE', --
P_ID_COL => 'TEMPLATE_NAME', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'TEMPLATE_NAME', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'mtl_item_templates_vl', --
P_ADDL_W_C => '',
P_WINDOW_CAPTION => '模板',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'TEMPLATE_NAME,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);

--专业LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_EXT_ATT1', --
P_ID_COL => 'LOOKUP_CODE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'MEANING', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'FND_LOOKUP_VALUES', --
P_ADDL_W_C => 'LANGUAGE = userenv(''LANG'')
AND ENABLED_FLAG = ''Y''
AND lookup_type = ''EMPLOYEE_CATG''
AND VIEW_APPLICATION_ID = 3
AND SECURITY_GROUP_ID = 0',
P_WINDOW_CAPTION => '专业',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'MEANING,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);

--经济技术指标分类LOV
BNE_INTEGRATOR_UTILS.CREATE_TABLE_LOV --
(P_APPLICATION_ID => l_app_id, --
P_INTERFACE_CODE => l_inf_code, --
P_INTERFACE_COL_NAME => 'P_EXT_ATT4', --
P_ID_COL => 'FLEX_VALUE', -- LOOKUP CODE UPLOADED --
P_MEAN_COL => 'FLEX_VALUE', -- Shown in sheet --
P_DESC_COL => 'DESCRIPTION', --
P_TABLE => 'fnd_flex_values_vl', --
P_ADDL_W_C => 'ENABLED_FLAG = ''Y''
AND nvl(END_DATE_ACTIVE,SYSDATE + 1) > SYSDATE
AND FLEX_VALUE_SET_ID = ( SELECT s.flex_value_set_id
FROM fnd_flex_value_sets s
WHERE s.flex_value_set_name = ''CUX_LOV_Economic_Type'')',
P_WINDOW_CAPTION => '分类',--
P_WINDOW_WIDTH => 400, --
P_WINDOW_HEIGHT => 300, --
P_TABLE_BLOCK_SIZE => 10, --
P_TABLE_SORT_ORDER => 'yes', -- sortable by meaning, not description--
P_USER_ID => 2,
P_TABLE_COLUMNS => 'FLEX_VALUE,DESCRIPTION',
P_TABLE_HEADERS => '名称,说明'
);


--修改标题
UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '物料编码'
,inc.prompt_above = '物料编码'
WHERE inc.interface_col_name = 'P_ITEM_CODE'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '物料说明'
,inc.prompt_above = '物料说明'
WHERE inc.interface_col_name = 'P_ITEM_DESC'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '详细说明'
,inc.prompt_above = '详细说明'
WHERE inc.interface_col_name = 'P_ITEM_LONG_DESC'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '单位'
,inc.prompt_above = '单位'
WHERE inc.interface_col_name = 'P_UOM'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '重量单位'
,inc.prompt_above = '重量单位'
WHERE inc.interface_col_name = 'P_WEIGHT_UOM'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '单位重量'
,inc.prompt_above = '单位重量'
WHERE inc.interface_col_name = 'P_UNIT_WEIGHT'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '类别'
,inc.prompt_above = '类别'
WHERE inc.interface_col_name = 'P_CATA'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '品种'
,inc.prompt_above = '品种'
WHERE inc.interface_col_name = 'P_GATTR1'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '模板'
,inc.prompt_above = '模板'
WHERE inc.interface_col_name = 'P_TEMPLATE'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '库存组织'
,inc.prompt_above = '库存组织'
WHERE inc.interface_col_name = 'P_ORG_NAME'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '档次'
,inc.prompt_above = '档次'
WHERE inc.interface_col_name = 'P_ATTRIBUTE6'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '采用综合单价'
,inc.prompt_above = '采用综合单价'
WHERE inc.interface_col_name = 'P_ATTRIBUTE7'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '建安费/其它费'
,inc.prompt_above = '建安费/其它费'
WHERE inc.interface_col_name = 'P_ATTRIBUTE8'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '计价方式'
,inc.prompt_above = '计价方式'
WHERE inc.interface_col_name = 'P_ATTRIBUTE9'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '专业'
,inc.prompt_above = '专业'
WHERE inc.interface_col_name = 'P_EXT_ATT1'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '名称'
,inc.prompt_above = '名称'
WHERE inc.interface_col_name = 'P_EXT_ATT2'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '规格'
,inc.prompt_above = '规格'
WHERE inc.interface_col_name = 'P_EXT_ATT3'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '经济技术指标分类'
,inc.prompt_above = '经济技术指标分类'
WHERE inc.interface_col_name = 'P_EXT_ATT4'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '材质'
,inc.prompt_above = '材质'
WHERE inc.interface_col_name = 'P_EXT_ATT5'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '型号图号'
,inc.prompt_above = '型号图号'
WHERE inc.interface_col_name = 'P_EXT_ATT6'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '装置'
,inc.prompt_above = '装置'
WHERE inc.interface_col_name = 'P_EXT_ATT7'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

UPDATE bne_interface_cols_vl inc
SET inc.prompt_left = '工程类别'
,inc.prompt_above = '工程类别'
WHERE inc.interface_col_name = 'P_EXT_ATT8'
AND inc.APPLICATION_ID = l_app_id
AND inc.INTERFACE_CODE = l_inf_code;

END;

--查询LOV是否注册上去
select * from bne_interface_cols_vl where interface_code='GENERAL_141_INTF' 

请使用浏览器的分享功能分享到微信等