Kbase P19888: How to add dynamic browse columns that correspond to array field extents?
Autor |
  Progress Software Corporation - Progress |
Acesso |
  Público |
Publicação |
  16/10/2008 |
|
Status: Verified
GOAL:
How to add dynamic browse columns that correspond to array field extents?
FACT(s) (Environment):
Progress 9.1x
OpenEdge 10.x
FIX:
To add one column corresponding to the 3rd array field extent:
hBrowse:ADD-LIKE-COLUMN("salesrep.Month-Quota[3]").
To add the columns corresponding to the odd numbered (1, 3, 5, 7, 9, 11) array field extents:
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
FIND FIRST salesrep.
DO iLoop = 1 TO EXTENT (Month-Quota) :
IF iLoop MODULO 2 <> 0 THEN
hBrowse:ADD-LIKE-COLUMN(
SUBSTITUTE("salesrep.Month-Quota[&1]", STRING(iloop))
).
END.