COMBOBOX no browse

[marcos.gurupi]

Como eu uso o COMBOBOX em um Browse?

Marcos Roberto

[sygecom]

Ex:

Código: Selecionar todos

...
...
...

   @ 11,53 BROWSE oBrowse1 ARRAY OF oTab SIZE 650,300;
   ON UPDATE {|oBrow, Colpos| BrowseUpdate(oBrow, colpos) } ;
   ON POSCHANGE {|| Atualiza_ACESSO(),SetFocus(oBrowse1:handle ) };
   FONT HFont():Add( '',0,-11,400,,,)

   oBrowse1:aArray := aARRAY_MENUS
   CreateArList( oBrowse1, aARRAY_MENUS )

   oBrowse1:aColumns[2]:lEditable := .T.
   oBrowse1:aColumns[2]:aList := {"SIM", "NÃO"}
   oBrowse1:aColumns[1]:heading := "Menus de Acessos"
   oBrowse1:aColumns[2]:heading := "Libera"
   oBrowse1:aColumns[3]:heading := "ID"
   oBrowse1:aColumns[1] :length := 75
   oBrowse1:aColumns[2] :length := 3
   oBrowse1:aColumns[3] :length := 3
...
...
...

Veja que na linha onde tem: oBrowse1:aColumns[2]:aList := {"SIM", "NÃO"} é onde você define as opções da combo, e na linha: oBrowse1:aColumns[2]:lEditable := .T. é onde você define que essa linha é editavel para poder usar as opções em modo de combo.

[marcos.gurupi]

Leonardo obrigado mais uma vez. Gostaria de fazer mais uma pergunta. Como ficaria isso no dbf? Ou seja, o campo no dbf q ira receber o resultado do COMBOBOX tem q ser numerico ou caractere?

Marcos Roberto.

[sygecom]

No meu exemplo acima esta em um campo caracter, onde guarda o SIM ou NÃO. Mas acredito que pode ser qualquer tipo de dados, pq o mesmo não usa o comando TEXT, onde faz que tudo seja tratado como texto nos combobox. Tudo vai depender do ARRAY aList
Se fosse numérico ficaria assim:
oBrowse1:aColumns[2]:aList := {0,1,2,3,4,5}

Faça um teste o nos retorne.

[sygecom]

Alias no caso dos numeros ainda é facil de contornar com {"0","1","2","3","4","5"} e depois só usar o STR() e VA() para transforma entre Caracter e numérico e vice-versa.

[marcos.gurupi]

No seu exemplo o q tem na variavel "aARRAY_MENUS" ?

Marcos Roberto

[sygecom]

Local aARRAY_MENUS := {}, vORD := 0
AADD(aARRAY_MENUS,{ 'Cadastrar / Alterar Tabela de Compra' ,"NÃO", 001 , vORD++ })
AADD(aARRAY_MENUS,{ 'Alterar Preços de Compra' ,"NÃO", 002 , vORD++ })
AADD(aARRAY_MENUS,{ 'Imprimir e Visualizar Todos os Produtos de Compra' ,"NÃO", 003 , vORD++ })
...
...
...

[marcos.gurupi]

ObrigaDU


Marcos Roberto.