说明性弹性域的开发步骤，开发界面的朋友可以当作参考；[@more@]

五金入库界面开发行弹性域

1. 建立表WUJ_TRANSACTION_LINES

-- Create table
create table WUJ.WUJ_TRANSACTION_LINES
(
LINE_ID NUMBER not null,
HEADER_ID NUMBER not null,
LINE_NUMBER NUMBER not null,
ORGANIZATION_ID NUMBER not null,
INVENTORY_ITEM_ID NUMBER not null,
REVISION VARCHAR2(10),
FROM_SOURCE_ID NUMBER,
FROM_ORGANIZATION_ID NUMBER,
FROM_SUBINVENTORY_ID NUMBER,
FROM_SUBINVENTORY_CODE VARCHAR2(10),
FROM_LOCATION_ID NUMBER,
FROM_COST_GROUP_ID NUMBER,
TO_DEPARTMENT_ID NUMBER,
TO_ORGANIZATION_ID NUMBER,
TO_SUBINVENTORY_ID NUMBER,
TO_SUBINVENTORY_CODE VARCHAR2(10),
TO_LOCATION_ID NUMBER,
TO_ACCOUNT_ID NUMBER,
TO_COST_GROUP_ID NUMBER,
LOT_NUMBER VARCHAR2(30),
SERIAL_NUMBER_START VARCHAR2(30),
SERIAL_NUMBER_END VARCHAR2(30),
UOM_CODE VARCHAR2(10) not null,
QUANTITY NUMBER not null,
REQUIRED_QUANTITY NUMBER,
UNIT_SELLING_PRICE NUMBER not null,
MONEY NUMBER not null,
TRANS_MONEY NUMBER,
QUANTITY_DELIVERED NUMBER,
QUANTITY_DETAILED NUMBER,
DATE_REQUIRED DATE not null,
EXPAND_DATE DATE,
REASON_ID NUMBER,
REFERENCE VARCHAR2(240),
REFERENCE_TYPE_CODE NUMBER,
REFERENCE_ID NUMBER,
PROJECT_ID NUMBER,
TASK_ID NUMBER,
TRANSACTION_HEADER_ID NUMBER,
LINE_STATUS NUMBER not null,
PAYMENT_NUMBER VARCHAR2(40),
STATUS_DATE DATE,
LAST_UPDATED_BY NUMBER not null,
LAST_UPDATE_LOGIN NUMBER,
LAST_UPDATE_DATE DATE not null,
CREATED_BY NUMBER,
CREATION_DATE DATE not null,
REQUEST_ID NUMBER,
PROGRAM_APPLICATION_ID NUMBER,
PROGRAM_ID NUMBER,
PROGRAM_UPDATE_DATE DATE,
ATTRIBUTE1 VARCHAR2(150),
ATTRIBUTE2 VARCHAR2(150),
ATTRIBUTE3 VARCHAR2(150),
ATTRIBUTE4 VARCHAR2(150),
ATTRIBUTE5 VARCHAR2(150),
ATTRIBUTE6 VARCHAR2(150),
ATTRIBUTE7 VARCHAR2(150),
ATTRIBUTE8 VARCHAR2(150),
ATTRIBUTE9 VARCHAR2(150),
ATTRIBUTE10 VARCHAR2(150),
ATTRIBUTE11 VARCHAR2(150),
ATTRIBUTE12 VARCHAR2(150),
ATTRIBUTE13 VARCHAR2(150),
ATTRIBUTE14 VARCHAR2(150),
ATTRIBUTE15 VARCHAR2(150),
ATTRIBUTE_CATEGORY VARCHAR2(30),
TXN_SOURCE_ID NUMBER,
TXN_SOURCE_LINE_ID NUMBER,
TXN_SOURCE_LINE_DETAIL_ID NUMBER,
TRANSACTION_TYPE_ID NUMBER not null,
TRANSACTION_SOURCE_TYPE_ID NUMBER
);

grant all on WUJ.WUJ_TRANSACTION_LINES to apps;
create unique index WUJ.WUJ_TRANSACTION_LINES_U1 on WUJ.WUJ_TRANSACTION_LINES (LINE_ID);
create unique index WUJ.WUJ_TRANSACTION_LINES_U2 on WUJ.WUJ_TRANSACTION_LINES (HEADER_ID, LINE_NUMBER);

create sequence WUJ_TRANSACTION_LINES_S
minvalue 1
maxvalue 9999999999999
start with 1
increment by 1
cache 20;
-- apps/apps
create or replace synonym WUJ_TRANSACTION_LINES for WUJ.WUJ_TRANSACTION_LINES;

2. 在form中建立DFLEX，放置弹性域，具体参考此FORM的开发，主要是：

n 上面数据块中建立了字段DFLEX

n WHEN-NEW-FORM-INSTANCE

fnd_descr_flex.define(

BLOCK=>'LINE',

FIELD=>'DFLEX',

APPL_SHORT_NAME=>'WUJ',

DESC_FLEX_NAME=>'WUJ_TRANSACTION_LINES);

3. 执行语句，EXECUTE ad_dd.register_table('WUJ', 'WUJ_TRANSACTION_LINES','T',8,10,90);

4. 执行完上面语句后，进入-应用开发者-应用-数据库-表，查看是否存在了上面的表信息；

5. 上面看到没有行，下面执行语句，注册列

EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'LINE_ID', 1, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'HEADER_ID', 2, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'LINE_NUMBER', 3, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'ORGANIZATION_ID',4, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'INVENTORY_ITEM_ID',5, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'REVISION',6, 'VARCHAR2', 10, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_SOURCE_ID',7, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_ORGANIZATION_ID',8, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_SUBINVENTORY_ID',9, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_SUBINVENTORY_CODE',10, 'VARCHAR2', 10, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_LOCATION_ID',11, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'FROM_COST_GROUP_ID',12, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_DEPARTMENT_ID',13, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_ORGANIZATION_ID',14, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_SUBINVENTORY_ID',15, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_SUBINVENTORY_CODE',16, 'VARCHAR2', 10, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_LOCATION_ID',17, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_ACCOUNT_ID',18, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TO_COST_GROUP_ID',19, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'LOT_NUMBER',20, 'VARCHAR2', 30, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'SERIAL_NUMBER_START',21, 'VARCHAR2', 30, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'SERIAL_NUMBER_END',22, 'VARCHAR2', 30, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'UOM_CODE',23, 'VARCHAR2', 10, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'QUANTITY',24, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'REQUIRED_QUANTITY',25, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'UNIT_SELLING_PRICE',26, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'MONEY',27, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'TRANS_MONEY',28, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'QUANTITY_DELIVERED',29, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'QUANTITY_DETAILED',30, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'DATE_REQUIRED',31, 'NUMBER', 15, 'N', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'EXPAND_DATE',32, 'NUMBER', 15, 'Y', 'N');
EXECUTE ad_dd.register_column('WUJ', 'WUJ_TRANSACTION_LINES', 'REASON_ID',33,

来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/563594/viewspace-997120/ ，如需转载，请注明出处，否则将追究法律责任。

上一篇：幸福是什么

下一篇：没有了~

请登录后发表评论登录

全部评论

xiaoyafeizi

博文量
3
访问量

3432

ITPub博客

ORACLE ERP二次开发----说明性弹性域的开发

最新文章