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.
-
Anuncie Aqui ! Entre em contato fdantas@4each.com.br -
-