Consultor Eletrônico



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.