Combo-box em linha do browse freeform 2014-02-24

Segue exemplo de como adicionar um combo-box na linha de browse freeform.

Não esqueça de curtir este código.

/*crie o browser freeform e habilite campo customer.salesrep*/

DEFINE BROWSE BROWSE-2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS BROWSE-2 C-Win _FREEFORM
QUERY BROWSE-2 DISPLAY
customer.custnum
customer.NAME
customer.salesrep
WIDTH-CHARS 5
VIEW-AS COMBO-BOX
INNER-LINES 5
DROP-DOWN-LIST
ENABLE
customer.salesrep

/*no row-entry popule os items do combo*/
ON ROW-ENTRY OF BROWSE-2 IN FRAME DEFAULT-FRAME
DO:
DEFINE VARIABLE clista AS CHARACTER NO-UNDO.

FOR EACH salesrep NO-LOCK:
IF clista = '' THEN
clista = ',' + salesrep.salesrep.
ELSE
clista = clista + ',' + salesrep.salesrep.
END.

ASSIGN
customer.salesrep:LIST-ITEMS IN BROWSE {&BROWSE-NAME} = clista.
END.