Página 1 de 1
COMBOBOX no browse
Enviado: 26 Jun 2009 01:11
por marcos.gurupi
Como eu uso o COMBOBOX em um Browse?
Marcos Roberto
Re: COMBOBOX no browse
Enviado: 26 Jun 2009 09:06
por 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.
Re: COMBOBOX no browse
Enviado: 27 Jun 2009 10:16
por 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.
Re: COMBOBOX no browse
Enviado: 27 Jun 2009 12:42
por 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.
Re: COMBOBOX no browse
Enviado: 27 Jun 2009 12:46
por 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.
Re: COMBOBOX no browse
Enviado: 27 Jun 2009 15:09
por marcos.gurupi
No seu exemplo o q tem na variavel "aARRAY_MENUS" ?
Marcos Roberto
Re: COMBOBOX no browse
Enviado: 01 Jul 2009 13:46
por 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++ })
...
...
...
Re: COMBOBOX no browse
Enviado: 03 Jul 2009 21:13
por marcos.gurupi
ObrigaDU
Marcos Roberto.