COMBOBOX + ENTER ( resolvido )

[JUDSON]

Galera defino todos os meus combobox dessa forma:

REDEFINE COMBOBOX oComboUF VAR wfede ID 109 OF oDlg02 ITEMS w_fede

quando dou enter para passar para outro campo a tela ta fechando sem ir para o proximo campo , mais isso so nas novas telas que estou montando nas anterior esta funcionando blz. o que pode ser ?

*obs: to usando o workshop para gerar as telas.

[reneumg]

Bom dia

Primeiro ve se não tem nada de diferente da tela que vc ta fazendo com as anteriores do workshop, e tente o exemplo abaixo.

No workshop na Dialog q vc fez clique botão direito e entre em Edit as Text... vc vai ver se os fontes são iguais.

********************************************************************************************************

Local aUF, oUF, oCmb

aUF := { "AC","AL","AM","AP","BA","CE","DF","ES","GO","MA","MG","MT","MS","PA",;

"PB","PE","PI","PR","RJ","RN","RO","RR","RS","SC","SE","SP","TO" }

oUF:="SP"

REDEFINE COMBOBOX oCmb Var oUF ITEMS aUF ID 109 OF oDlg02 UPDATE

[kapiaba]

O seu combo está CBS_DROPDOWNLIST?

Verifique a tela que funciona e veja se esta igual a que apresenta problema, está igual ou se corrupta?

[JUDSON]

ola pessoal ja verifiquei os senhores pediram

COMBOBOX 109, 117, 119, 108, 129, CBS_DROPDOWNLIST | WS_TABSTOP

na tela que esta o erro e nas que estao certo a escrita esta a mesma.

[kapiaba]

Podeis proporcionar um exemplo com o conteudo e disponibilizar para download? Pode ser no www.4shared.com

com o fonte e o arquivo.rc ou .res para entendermos o que ocorre...

Em contrário, fica dificil, se um funciona e outro não funciona, it is impossible to help you.

abs.

[JUDSON]

pessoal ja verifiquei aqui no forum varios post sobre esse meu problema mas nao vi nenhuma solucao , se alguem resolveu da uma alo ai. obrigado

[reneumg]

Esse seu problema ta muito estranho já que vc disse que está funcionando em outro lugar, tente sair do campo com TAB ou de outra maneira sem usar o enter e vê se da o mesmo erro, as vezes o erro esta no próximo campo ou em outro lugar num when ou valid, sei lá. é muito dificil saber o que ta errado no sistema.

[JUDSON]

querido , com tab vai blz , nao tem valid e nem when , relamente e muito estranho , quando dou enter no combo ele sair do ACTIVATE DIALOG:

DEFINE ICON oIco02 RESOURCE "AGFARMA"

DEFINE DIALOG oDlg02 TITLE vtitu[iif(l_par2="I",1,if(l_par2="A",2,3))] ;

RESOURCE "CAD_ASSOCIADO" ;

ICON oIco02

oDlg02:lHelpIcon := .F.

REDEFINE BITMAP RESOURCE "BARVERT" ID 160 OF oDlg02

// Get's

REDEFINE GET oGet01 VAR wcdco ID 101 OF oDlg02 PICTURE "@K9" VALID f_cadassociado( 5, wcdco, l_par2 )

REDEFINE GET oGet02 VAR wcdas ID 102 OF oDlg02 PICTURE "@K9" VALID f_cadassociado( 2, wcdas, l_par2 )

REDEFINE GET oGet03 VAR wncar ID 103 OF oDlg02 PICTURE "@r 999.999.999"

REDEFINE GET oGet04 VAR wnome ID 104 OF oDlg02 PICTURE "@!" VALID !empty(wnome)

REDEFINE GET oGet05 VAR wapel ID 105 OF oDlg02 PICTURE "@!"

REDEFINE GET oGet06 VAR wende ID 106 OF oDlg02

REDEFINE GET oGet07 VAR wbair ID 107 OF oDlg02

REDEFINE GET oGet08 VAR wcida ID 108 OF oDlg02

REDEFINE SAY oSayconvenio PROMPT wconvenio ID 301 OF odlg02 COLOR CLR_RED, CLR_LGREEN FONT vfonts[17]

REDEFINE COMBOBOX oGet20 VAR westa ID 123 OF oDlg02 PICTURE "@!" ITEMS w_fede //------->COM ERRO

REDEFINE GET oGet09 VAR wcep_ ID 110 OF oDlg02 picture "@r 99.999-99"

REDEFINE GET oGet10 VAR wci__ ID 111 OF oDlg02

REDEFINE GET oGet11 VAR wcpf_ ID 112 OF oDlg02 picture "@r 999.999.999-99"

REDEFINE GET oGet12 VAR wloca ID 113 OF oDlg02

REDEFINE GET oGet13 VAR wvlrd ID 114 OF oDlg02 picture "@e 999,999.99"

REDEFINE GET oGet14 VAR wocup ID 115 OF oDlg02

REDEFINE GET oGet15 VAR wfone ID 116 OF oDlg02 picture "@r (99)9999-9999"

REDEFINE GET oGet16 VAR wemai ID 117 OF oDlg02

REDEFINE GET oGet17 VAR wdias ID 118 OF oDlg02 picture "999"

REDEFINE GET oGet18 VAR wpdes ID 119 OF oDlg02 picture "999.99"

REDEFINE GET oGet19 VAR wlimi ID 120 OF oDlg02 picture "@e 99,999.99"

REDEFINE COMBOBOX oComboBloq VAR wbloq ID 121 OF oDlg02 UPDATE ITEMS { "Sim", "Não" } //------->COM ERRO

REDEFINE COMBOBOX oComboSitu VAR wativ ID 122 OF oDlg02 UPDATE ITEMS { "Ativo", "Inativo" } //------->COM ERRO

// Botoes

REDEFINE BTNBMP oBtn01 RESOURCE "BMP_ATIVADO" LEFT ID 201 OF oDlg02 2007 ;

PROMPT "&Confirma" FONT oFontBotao ;

TOOLTIP "Gravar dados" ACTION ( f_cadassociado( 3, l_Par2 ) )

REDEFINE BTNBMP oBtn02 RESOURCE "BMP_DEL" LEFT ID 202 OF oDlg02 2007 ;

PROMPT "&Sair" FONT oFontBotao ;

TOOLTIP "Cancelar" ACTION ( wsair:=.t. , oDlg02:end(), dbgotop() , oBro01:refresh(),;

oBro01:SetFocus() )

REDEFINE BTNBMP oBtn03 RESOURCE "LUPA" CENTER ID 203 OF oDlg02 2007;

TOOLTIP "Pesquisa de Convênios" ;

ACTION (h_help(7102," ",""),oget01:refresh(),oget01:setfocus())

oBtn03:CTITLE:=""

REDEFINE BTNBMP oBtn04 RESOURCE "LUPA" CENTER ID 204 OF oDlg02 2007;

TOOLTIP "Pesquisa de Associados" ;

ACTION (h_help(7101," ",""),oGet02:refresh(),oGet02:setfocus())

oBtn04:CTITLE:=""

ACTIVATE DIALOG oDlg02 CENTER ON INIT (xsetfocus(oget01)) // valid ( wsair )

dbselectarea("asso") ; dbgotop()

xsetfocus(oDlg01)

[JUDSON]

bem pessoal resolvi o problema

criei uma ou dialog e fui copiando objeto por objeto da dialog anterior e num determinado via que o

um dos static style no id tava 1 em vez de -1 como esta os outros , ai fui so mudar , vai entender , ja que o problema estava no combobox e nao no static style , como eu nao defino ele no meu sistema coloco -1 . espero que ajude os outros colegas que estao com este problema. t+