1.堆叠画布 2.calendar日期输入器 3.tab 切换(转)

1.stacked canvas

1.设置画布属性: canvas stacked
2.when-new-form-instance : SHOW_VIEW('HEADERS_STACKED');

堆叠画布不要压住内容画布

2.calendar日期输入器

calendar
1.subclass infomation: text_item_date
2. lov choose:
enable list lamp
validate from list ->no
3. write a trigger key-listval
calendar.show

标签画布和数据块的排序一致

lov 从view 里面查询

有没有方法使得传递块名字到program unit 里面的函数?

alias required in SELECT list of cursor to avoid duplicate column names : 指针里面有重复的数据

3.tab切换

块级别触发

post-query
post-insert
when-new-record-instance

tab_page_changed .TAB_CHANGED;

PACKAGE BODY tab_page_changed IS
procedure TAB_CHANGED is
begin
if ( :HEADER.ACT_ACQ_TYPE = 'ACT') then

set_tab_page_property('LINES.ACQ', ENABLED,PROPERTY_FALSE);
set_tab_page_property('LINES.ACQ_SKN', ENABLED,PROPERTY_FALSE);
set_tab_page_property('LINES.ACT', ENABLED,PROPERTY_TRUE);
set_tab_page_property('LINES.ACT_SKN', ENABLED,PROPERTY_TRUE);
set_tab_page_property('LINES.CUSTOMER_QUERY', ENABLED,PROPERTY_TRUE);
SET_CANVAS_PROPERTY('LINES', topmost_tab_page,'ACT');

-- go_block('ACT_LINES');
-- go_block('HEADERS');
ELSE

set_tab_page_property('LINES.ACT', ENABLED,PROPERTY_FALSE);
set_tab_page_property('LINES.ACT_SKN', ENABLED,PROPERTY_FALSE);
set_tab_page_property('LINES.ACQ', ENABLED,PROPERTY_TRUE);
set_tab_page_property('LINES.ACQ_SKN', ENABLED,PROPERTY_TRUE);
set_tab_page_property('LINES.CUSTOMER_QUERY', ENABLED,PROPERTY_TRUE);
SET_CANVAS_PROPERTY('LINES', topmost_tab_page,'ACQ');
-- go_block('ACQ_LINES');
-- go_block('HEADERS');
END if ;

end TAB_changeD ;

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

转载于:http://blog.itpub.net/15725751/viewspace-615618/