AFTER ROW block
AFTER ROW block in singular and parallel DISPLAY ARRAY, INPUT ARRAY dialogs
In a singular DISPLAY ARRAY
, INPUT ARRAY
instruction, or
when used as parallel dialog, the AFTER ROW
block is executed each time the
user moves to another row, before the current row is left. This trigger can also be executed
in other situations, such as when you delete a row, or when the user inserts a new row.
A NEXT FIELD
instruction executed in the AFTER ROW
control block will keep the user entry in the current row. Use this behavior to implement
row validation and prevent the user from leaving the list or moving to another row.
When called in this block, DIALOG.getCurrentRow()
/ arr_curr()
returns the index of the row that you are leaving.
AFTER ROW block in DISPLAY ARRAY and INPUT ARRAY of procedural DIALOG
In an INPUT
or INPUT ARRAY
sub-dialog of a procedural
DIALOG
instruction, the AFTER ROW
block is executed when a
DISPLAY ARRAY
or INPUT ARRAY
list loses the focus, or when the
user moves to another row in a list. This trigger can also be executed in other situations, for
example when you delete a row, or when the user inserts a new row.
AFTER ROW
is executed after the AFTER
FIELD
, AFTER INSERT
and before
AFTER DISPLAY
or AFTER INPUT
blocks.
When called in this block, DIALOG.getCurrentRow()
/ arr_curr()
returns the index of the of the row that you are leaving.
For both INPUT ARRAY
and DISPLAY ARRAY
sub-dialogs,
a NEXT FIELD
executed in the AFTER
ROW
control block will keep the focus in the list and
stay in the current row. Use this feature to implement row validation
and prevent the user from leaving the list or moving to another row.
AFTER ROW and temporary rows in INPUT ARRAY
AFTER ROW
block will be executed for the
temporary row, but ui.Dialog.getCurrentRow()
/arr_curr()
will be
one row greater than ui.Dialog.getArrayLength()
/ARR_COUNT()
. In
this case, it is recommended that you ignore the AFTER ROW
event. For example, it
is recommended that you avoid executing a NEXT FIELD
or CONTINUE
INPUT
instruction, and trying to access the dynamic array with a row index that is greater
than the total number of rows, otherwise the runtime system will adapt the total number of rows to
the actual number of rows in the program array.AFTER ROW
block checks the current row index and verifies a
variable value to force the focus to stay in the current row if the value is
wrong:INPUT ARRAY p_items FROM s_items.*
...
AFTER ROW
LET r = DIALOG.getCurrentRow("s_items")
IF r <= DIALOG.getArrayLength("s_items") THEN
IF NOT item_is_valid_quantity(p_item[r].item_quantity) THEN
ERROR "Item quantity is not valid"
NEXT FIELD item_quantity
END IF
END IF
AFTER ROW
is to use a flag
to know if the AFTER INSERT
block was executed. The AFTER INSERT
block is not executed if the temporary row is automatically removed. By setting a first value in
BEFORE INSERT
and changing the flag in AFTER INSERT
, you can
detect if the row was permanently added to the
list:INPUT ARRAY p_items FROM s_items.*
...
BEFORE INSERT
LET op = "T"
...
AFTER INSERT
LET op = "I"
...
AFTER ROW
IF op == "I" THEN
IF NOT item_is_valid_quantity(p_item[arr_curr()].item_quantity) THEN
ERROR "Item quantity is not valid"
NEXT FIELD item_quantity
END IF
WHENEVER ERROR CONTINUE
INSERT INTO items (item_num, item_name, item_quantity)
VALUES ( p_item[arr_curr()].* )
WHENEVER ERROR STOP
IF SQLCA.SQLCODE<0 THEN
ERROR "Could not insert the record into database!"
NEXT FIELD CURRENT
ELSE
MESSAGE "Record has been inserted successfully"
END IF
END IF
...