码迷,mamicode.com
首页 > 其他好文 > 详细

do not kown

时间:2015-09-17 17:37:12      阅读:230      评论:0      收藏:0      [点我收藏+]

标签:

set_item_property(CLEARS.CLEAR_TYPE_DESC
                                     ,item_is_valid
                                     ,property_true);

IF event = PRE-UPDATE THEN
            validate_gl_date;
   ELSIF event = WHEN-NEW-ITEM-INSTANCE THEN
            set_property.clears_property;
            app_synch.menu_toolbar_sync(WHEN-NEW-ITEM-INSTANCE);
END IF;

 IF event = WHEN-VALIDATE-ITEM THEN
            app_field.clear_dependent_fields(CLEARS.CLEAR_TYPE_DESC
                                            ,CLEARS.CLEAR_TYPE);
        END IF;

IF event = WHEN-VALIDATE-ITEM THEN
            app_field.clear_fields(CLEARS.DOC_LINE_NUMBER
                                  ,CLEARS.DOC_LINE_ID
                                  ,CLEARS.DOC_DIST_NUMBER
                                  ,CLEARS.DOC_DIST_ID);
        END IF;
 

IF event = ‘FOLDER_RETURN_ACTION‘ THEN
            IF (:global.folder_action = ‘SHOW-FIELD‘) THEN
                field_name := name_in(‘global.folder_field‘);
                IF (field_name IN (‘AMOUNT‘)) THEN
                    app_item_property.set_property(‘CNTS‘ || ‘.‘ || field_name
                                                  ,alterable
                                                  ,property_on);
                END IF;
END IF;

END IF;
           set_property.cnts_property;
           app_synch.menu_toolbar_sync(‘WHEN-NEW-RECORD-INSTANCE‘);

PROCEDURE transfer(event VARCHAR2) IS
BEGIN
    IF event = ‘WHEN-BUTTON-PRESSED‘ THEN
        :control.transfer_flag := ‘Y‘;
        go_block(‘TRANSFER_CONTROL‘);
        clear_block(no_validate);
    END IF;
END transfer;

cux_ap_estimate_utl.init_cnts_data(p_doc_type => :headers.doc_type
                                              ,p_document_id => :headers.document_id
                                              ,p_header_id => :headers.header_id);

 

app_record.for_all_records(‘HEADERS‘
                           ,‘APPROVE_CHECKED‘);

 

app_folder.define(‘TOTAL_BLOCK‘
                             ,‘CNTS_SUMMARY‘);

 

app_special.instantiate(‘SPECIAL1‘
                                   ,‘&‘ || :parameter.p_menu_string1
                                   ,NULL
                                   ,TRUE);
       
            set_property.control_property;
       
            set_canvas_property(‘MAIN_TAB‘
                               ,topmost_tab_page
                               ,‘CLEARS‘);

mo_global.init(‘M‘);

 

IF event = ‘WHEN-TAB-PAGE-CHANGED‘ THEN
            l_new_tab := name_in(‘SYSTEM.TAB_NEW_PAGE‘);
            l_old_tab := name_in(‘SYSTEM.TAB_PREVIOUS_PAGE‘);
            IF l_new_tab = ‘CNTS‘ THEN
                show_view(‘CNTS_FIXED‘);
                show_view(‘CNTS_STK‘);
                hide_view(‘CLEARS_FIXED‘);
                hide_view(‘CLEARS_STK‘);
                go_item(‘CNTS.LINE_NUMBER‘);
            ELSIF l_new_tab = ‘CLEARS‘ THEN
                hide_view(‘CNTS_FIXED‘);
                hide_view(‘CNTS_STK‘);
                show_view(‘CLEARS_FIXED‘);
                show_view(‘CLEARS_STK‘);
                go_item(‘CLEARS.LINE_NUMBER‘);
            END IF;

app_field.clear_fields(‘HEADERS.VENDOR_ID‘
                                  ,‘HEADERS.VENDOR_NAME‘
                                  ,‘HEADERS.DOCUMENT_ID‘
                                  ,‘HEADERS.DOCUMENT_NUM‘
                                  ,‘HEADERS.CUST_ACCOUNT_ID‘
                                  ,‘HEADERS.CUSTOMER_NAME‘);

app_field.clear_dependent_fields(‘HEADERS.DEPT_CODE‘
                                           ,‘HEADERS.DEPT_DESC‘);

cux_ap_estimate_utl.get_apply_customs_agent(p_document_id => :headers.document_id
                                                           ,x_vendor_num => :headers.vendor_num
                                                           ,x_vendor_name => :headers.vendor_name);

cux_ap_estimate_utl.process_acct_ccid(p_org_id => :headers.org_id
                                             ,p_dept_code => :headers.dept_code
                                             ,p_exp_type => :headers.exp_type
                                             ,p_exp_detail => :headers.exp_detail
                                             ,p_cost_flag => :headers.cost_flag
                                             ,x_exp_ccid => l_exp_ccid
                                             ,x_mid_ccid => l_mid_ccid
                                             ,x_ap_ccid => l_ap_ccid
                                             ,x_return_status => l_return_status
                                             ,x_error_message => l_error_message);

cux_ap_estimate_utl.get_period_open_flag(p_org_id => :headers.org_id
                                                                          ,p_gl_date => :headers.gl_date
                                                                          ,p_application_id => 101);

cux_ap_estimate_utl.get_base_currency(p_org_id => :headers.org_id);

 

app_item_property.set_property(find_item(‘HEADERS.BBC_AMOUNT‘)
                                     ,alterable
                                     ,property_off);


 

 

技术分享

do not kown

标签:

原文地址:http://www.cnblogs.com/Bigbirdblog/p/4816786.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!