do not kown

最新推荐文章于 2024-12-28 17:19:34 发布

转载最新推荐文章于 2024-12-28 17:19:34 发布 · 133 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Bigbirdblog/p/4816786.html

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

转载于:https://www.cnblogs.com/Bigbirdblog/p/4816786.html