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