Consultor Eletrônico



Kbase P105935: How to get values from a Browse with multiple-selection attribute enabled
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   7/1/2005
Status: Unverified

GOAL:

How to get values from a Browse with multiple-selection attribute enabled

FIX:

This code can be used in any trigger that can be fired after the multi row selection.

DEF VAR vc AS CHARACTER NO-UNDO.
DEF VAR intSub AS INTEGER NO-UNDO.
DEFINE VARIABLE hField AS HANDLE.
DO intSub = 1 TO {&BROWSE-NAME}:NUM-SELECTED-ROWS IN FRAME {&FRAME-NAME} :
{&BROWSE-NAME}:FETCH-SELECTED-ROW(intSub).
/* interesting point here */
/* hBUFFER:AVAILABLE is TRUE */
/* but AVAILABLE( rowObject ) is FALSE */
hField = BUFFER {&TABLES-IN-QUERY-{&BROWSE-NAME}}:BUFFER-FIELD( "cust-num" ).
IF vc <> "" THEN
ASSIGN vc = vc + "," + STRING( hField:BUFFER-VALUE ).
ELSE
ASSIGN vc = STRING( hField:BUFFER-VALUE ).
END.