Designing the Procedure Logic › GUI Presentation Actions › CLOSE Statement › CLOSE Statement for Errors

CLOSE Statement for Errors

--- EVENT ACTION journal_entries_open
|   --- READ period
|  |        WHERE DESIRED period status IS EQUAL TO "A"
|  |--- WHEN successful
|  |    MOVE period TO output_period period
|  |    SET export_status_period ief_supplied sort_string TO
|  |        substr (textnum(period month), 14, 2)
|  |    SET export_status_period ief_supplied sort_string TO
|  |        concat (trim(export_status_period ief_supplied sort_string),"/")
|  |    SET export_status_period ief_supplied sort_string TO
|  |        concat(trim(export_status_period ief_supplied sort_string),
|  |        substr (textnum(period year), 12,4))
|  |--- WHEN not found
|  |    EXIT STATE IS no_active_period
|   --- CLOSE Dialog Box journal_entries
 ---

This example also uses the status bar to display information about the accounting period to which journal entries are being posted.

Other uses of the CLOSE statement are listed next:

• Closing a dialog box only if an operation is successful.
• Closing a dialog box during an OPEN event if a highlighted row was expected, and no row is highlighted.