This document provides information on how to add columns to a standard Query facet.
The process described below demonstrates how to use a standard Query facet as the basis for an enhanced Query facet that includes the original and additional columns.
[data type code]_RSTD to populate the column values in the Query facet. $METHODS
Case CURPTH
When ""
Case ACTION
When "AQUERY_TRANS_AFTER : Gosub AQUERY_TRANS_AFTER
Endcase
Endcase
Return
$AQUERY_TRANS_AFTER
Local Char PROPERTY1(30), PROPERTY2(30)
If (PROPERTY1 <> "" & PROPERTY1 <> "1") # ignore blank and first '- Select -' option
this.PROPERTY1 = mess(val(PROPERTY1), [local menu code], 1)
Else
this.PROPERTY1 = ""
Endif
If (PROPERTY2 <> "" & PROPERTY2 <> "1") # ignore blank and first '- Select -' option
this.PROPERTY2 = mess(val(PROPERTY2), [local menu code], 1)
Else
this.PROPERTY2 = ""
Endif
Return