oracle系统的物料编码,关于标准form 物料编码查询 不通过lov
今天自己查看了一下 标准form 物料编码 的录入时
系统的实现逻辑:
1.when_new_form_instance;
procedure when_new_form_instance is
CURSOR csr_org_id IS
SELECT t.inventory_organization_id
FROM financials_system_params_all t
WHERE t.org_id = :parameter.mo_default_org_id;
begin
fdrcsid('$Header: CUXPOXSTAD.fmb 117.39 2015/09/05 12:52:55 pkm ship $');
app_standard.event('WHEN-NEW-FORM-INSTANCE');
-- R12 MOAC
mo_setup_utl.multi_org_event('WHEN-NEW-FORM-INSTANCE');
-- 定义文件夹
app_folder.define_folder_block(object_name => 'PO_LINES',
folder_block_name => 'PO_LINES',
prompt_block_name => 'PO_LINES_PROMPT',
folder_canvas_name => 'PO_LINE_STK',
folder_window_name => 'MAIN',
disabled_functions => '',
tab_canvas_name => '',
fixed_canvas_name => '');
app_folder.event('INSTANTIATE');
-- 定义描述性弹性域
fnd_descr_flex.define(BLOCK => 'PO_HEADERS',
field => 'DESC_FLEX',
appl_short_name => 'CUX',
desc_flex_name => 'CUX_PO_HEADERS_ALL');
fnd_descr_flex.define(BLOCK => 'PO_LINES',
field => 'DESC_FLEX',
appl_short_name => 'CUX',
desc_flex_name => 'CUX_PO_LINES_ALL');
-- 定义菜单
fnd_message.set_name('CUX', 'CUX_POX_STAD_APPROVAL_HIST');
app_special.instantiate(option_name => 'SPECIAL1',
hint => fnd_message.get,
icon => NULL,
initially_enabled => FALSE,
separator => NULL);
-- 控制QUERY_ONLY模式
IF NAME_IN('PARAMETER.QUERY_ONLY') = 'YES' THEN
SET_BLOCK_PROPERTY('PO_HEADERS', INSERT_ALLOWED, PROPERTY_FALSE);
SET_BLOCK_PROPERTY('PO_LINES', INSERT_ALLOWED, PROPERTY_FALSE);
SET_BLOCK_PROPERTY('PO_HEADERS', UPDATE_ALLOWED, PROPERTY_FALSE);
SET_BLOCK_PROPERTY('PO_LINES', UPDATE_ALLOWED, PROPERTY_FALSE);
--APP_ITEM_PROPERTY.SET_PROPERTY('CONTROL.APPROVE', ENABLED, PROPERTY_OFF);
ELSE
SET_BLOCK_PROPERTY('PO_HEADERS', INSERT_ALLOWED, PROPERTY_TRUE);
SET_BLOCK_PROPERTY('PO_LINES', INSERT_ALLOWED, PROPERTY_TRUE);
SET_BLOCK_PROPERTY('PO_HEADERS', UPDATE_ALLOWED, PROPERTY_TRUE);
SET_BLOCK_PROPERTY('PO_LINES', UPDATE_ALLOWED, PROPERTY_TRUE);
-- APP_ITEM_PROPERTY.SET_PROPERTY('CONTROL.APPROVE', ENABLED, PROPERTY_ON);
END IF;
open csr_org_id;
fetch csr_org_id into :PARAMETER.ORG_ID;
close csr_org_id;
fnd_key_flex.define(BLOCK => 'PO_LINES',
field => 'SEGMENT1',
id => 'INVENTORY_ITEM_ID',
appl_short_name => 'INV',
code => 'MSTK',
data_set => ':PARAMETER.ORG_ID',
required => 'N',
usedbflds => 'N',
allownulls => 'Y',
validate => 'FULL',
select_comb_from_view => 'MTL_SYSTEM_ITEMS_VL',
where_clause => '',
longlist => 'Y',
column =>'DESCRIPTION DESCRIPTION(*) into PO_LINES.DESCRIPTION'); --物料描述字段
Show_View('PO_LINE_STK');
end;
2. 物料编码项的属性
lov enable_list_lamp 从列表中验证 否
物料编码 项 WHEN-VALIDATE-ITEM添加
fnd_flex.event(upper('when-validate-item'));
关于单位 物料类别 其他都可以写在 这个事件里面
procedure item_number(event varchar2) is
l_uom_code VARCHAR2(10);
l_unit_of_measure VARCHAR2(10);
CURSOR csr_uom(p_inventory_item_id IN NUMBER,
p_organization_id IN NUMBER) IS
SELECT mu.unit_of_measure,
msi.primary_uom_code
FROM mtl_system_items_vl msi,
mtl_units_of_measure_vl mu
WHERE msi.primary_uom_code = mu.uom_code
AND msi.inventory_item_id = p_inventory_item_id
AND msi.organization_id = p_organization_id;
begin
if event ='WHEN-VALIDATE-ITEM' then
OPEN csr_uom(:po_lines.inventory_item_id,
:parameter.org_id);
FETCH csr_uom
INTO l_unit_of_measure,
l_uom_code;
CLOSE csr_uom;
:po_lines.PRIMARY_UNIT := l_unit_of_measure;
app_field.clear_dependent_fields('PO_LINES.SEGMENT1',
'PO_LINES.INVENTORY_ITEM_ID',
'PO_LINES.DESCRIPTION',
'PO_LINES.PRIMARY_UNIT');
else
app_exception.invalid_argument('PO_LINES.SEGMENT1',
'EVENT',
event);
end if;
end item_number;
oracle系统的物料编码,关于标准form 物料编码查询 不通过lov相关推荐
- MySQL,Oracle系统学习,以及SQL语言-----数据库篇学习笔记
Handouts MySQL和Oracle系统学习 一. 开篇立意(~~~~必看,有说明~~~~) 二. Oracle 篇 数据库存在之意义 基础概念(必须看,后面不会说明!!!) Oracle管理系 ...
- oracle stdevp函数,ORACLE 系统函数与SQLSERVER系统函数的区别是什么
ORACLE 系统函数与SQLSERVER系统函数的区别是什么 发布时间:2021-03-17 14:40:36 来源:亿速云 阅读:57 作者:Leah 栏目:数据库 这篇文章给大家介绍ORACLE ...
- “平步青云”:Oracle系统平台技术助力企业私有云建设
2019独角兽企业重金招聘Python工程师标准>>> "平步青云":Oracle系统平台技术助力企业私有云建设 Oracle采取广泛但有所侧重的云计算战略,能够 ...
- oracle系统中poord是什么,______A.tiredB.weakC.poorD.slow
______A.tiredB.weakC.poorD.slow 更多相关问题 简述肝移植后的并发症. 针灸美容术如何治疗赘瘤? 房地产保险合同的主要内容有哪些? 怎样检查机床伺服定位系统有无振荡? 容 ...
- oracle数据库查询并排序语录句,ORACLE系统查询话语
当前位置:我的异常网» 数据库 » ORACLE系统查询话语 ORACLE系统查询话语 www.myexceptions.net 网友分享于:2015-08-26 浏览:19次 ORACLE系统查 ...
- oracle系统视图作用大全
oracle系统视图作用大全 DBA学习第一步,了解system下各视图功能 -----------DBA---------------- DBA_2PC_NEIGHBORS 包含待处理事务进入连接和 ...
- Oracle系统的定义
Oracle系统,即是以Oracle关系数据库为数据存储和管理作为构架基础,构建出的数据库管理系统.
- Oracle系统用户的默认密码及功能
Oracle系统用户的默认密码及功能介绍 用户 密码 关键性 ...
- oracle临时表空间大小查询,查看oracle 系统临时表空间、undo表空间、SGA和PGA大小...
1)检查oracle系统临时表空间大小: select sum(bytes)/1024/1024 "temp size(M)" from dba_temp_files where ...
- oracle系统user$,Oracle 系统变量函数介绍
Oracle函数多种多样,系统变量函数就是其中之一,下面就为您介绍三种最常见的系统变量函数,希望对您学习Oracle能有所帮助. Oracle系统变量函数: (1)SYSDATE 该函数返回当前的日期 ...
最新文章
- 通过页面埋点做监控却不影响性能?解密ARMS前端监控数据上报技术内幕
- php怎么查询mysql_php如何查询数据库
- leetcode_add_two_numbers
- Linux parted分区工具使用示例
- matlab时域转复频域,信号与系统实验(MATLAB版)实验15连续系统的复频域分析.ppt...
- mysql 同一天多条记录只取第一条_MySQL面试高频100问(二)
- pipline 简单是使用
- 太空战机c语言源码,funcode编写的太空战机
- Filter过滤器实现登录权限拦截
- CSS——文字溢出省略成点点点
- 软件开发搞定操作系统
- xmanager 修改linux ip,Linux配置XManager
- C. Hilbert's Hotel
- 6s测试信号软件,手机信号强度测试:苹果iPhone6s不敌三星S6
- Wait延时及定时查询
- Oracle开发者中级第7课(层级查询)实验
- 计算机科学的本质与操作系统中十条哲学原理
- 大白菜U盘启动盘重装系统
- C语言结构体指针数组小结
- 手游页游和端游的服务端的架构与区别