Window Accounting Define Event Even Type Action Name Command makeacct ACCOUNTING MAKEACCT READEACH ACCOUNT_READ_EACH The next sample code shows a user-defined event that performs common logic and contains a GUI statement. --- | --- EVENT ACTION accounts_pb_list_click | | SET LAST OF export_account TO 0 | | SET local_ief_supplied_command to READEACH | | USE tirevent | --- WHICH IMPORTS: Work_Viewlocal_ief_supplied | | --- EVENT ACTION account_read_each | | --- READ EACH account | | | SORTED BY ASCENDING account_number | | | WHERE DESIRED account_number IS GREATER OR EQUAL TO | | | input_account_number | | | ADD EMPTY ROW TO export_account AFTER LAST OF export_account | | | SET SUBSCRIPT OF export_account TO LAST OF export_account | | | MOVE account TO export_line_account | | | --- IF LAST OF export_account IS EQUAL TO MAX OF export_account | | | --- ESCAPE | | --- | --- SET output_account_type TO "E" ---
To trigger the user-defined event, the event type READEACH is passed to TIREVENT.
The event is executed when the current event handler or procedure logic is complete.
If a single event handler triggers multiple user-defined events, they are placed in a first-in first-out (FIFO) queue and executed in turn when the original logic completes execution.
|
Copyright © 2013 CA.
All rights reserved.
|
|