- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Desativar campo com radio button
×
Linguagem de Programação ADVPL
Perguntas Desativar campo com radio button
- marceloc
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 43
- Obrigados Recebidos: 0
10 anos 11 meses atrás #19035
por marceloc
Desativar campo com radio button foi criado por marceloc
Bom dia,
Estou trabalhando numa tela com MsDialog, estou usando Radio Button(TRadMenu) para selecionar uma opção para efetuar um calculo onde digito informações num campo TGet. Blz até ai funcional.
O problema está em:
- Ao acessar a rotina antes de selecionar uma opção os campos deveriam estar desabilitados, e somente habilitar um campo para digitar informações ao selecionar uma opção do Radio Button.
Como poderia fazer isso? Conheço muito pouco de Radio Button.
Desde já agradeço.
Estou trabalhando numa tela com MsDialog, estou usando Radio Button(TRadMenu) para selecionar uma opção para efetuar um calculo onde digito informações num campo TGet. Blz até ai funcional.
O problema está em:
- Ao acessar a rotina antes de selecionar uma opção os campos deveriam estar desabilitados, e somente habilitar um campo para digitar informações ao selecionar uma opção do Radio Button.
Como poderia fazer isso? Conheço muito pouco de Radio Button.
Desde já agradeço.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19044
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Desativar campo com radio button
Marcelo por favor, coloca o codigo ai pra gente dar uma olhada.
Geralmente é assim, pelo mesmo com checkbox
_oCheckBox:Disable() // Desabilita CheckBox
_oCheckBox:Enable() // Habilita Checkbox
Geralmente é assim, pelo mesmo com checkbox
_oCheckBox:Disable() // Desabilita CheckBox
_oCheckBox:Enable() // Habilita Checkbox
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- marceloc
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 43
- Obrigados Recebidos: 0
10 anos 11 meses atrás #19049
por marceloc
Respondido por marceloc no tópico Desativar campo com radio button
oRadio := tRadMenu():New(33,05,aOptions,{|u|if(PCount()>0,nRadio:=u,nRadio)},oPnlGrid,,,,,,,,100,20,,,,.T.)
oPeso := TGet():New( 30,65,{|u| If(PCount()>0,nPeso:=u,nPeso)},oPnlGrid,060,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","nPeso",,)
oKm := TGet():New( 41,65,{|u| If(PCount()>0,nKm:=u,nKm)},oPnlGrid,067,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"ZP0","nKm",,)
oPreco := TGet():New( 52,65,{|u| If(PCount()>0,nPreco:=u,nPreco)},oPnlGrid,060,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","nPreco",,)
Os campos nPeso, nKm, nPreco são campos digitáveis, aí quando seleciono um radio button deveria habilitar um campo destes.
Hoje todos os campos estão habilitados.
oPeso := TGet():New( 30,65,{|u| If(PCount()>0,nPeso:=u,nPeso)},oPnlGrid,060,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","nPeso",,)
oKm := TGet():New( 41,65,{|u| If(PCount()>0,nKm:=u,nKm)},oPnlGrid,067,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"ZP0","nKm",,)
oPreco := TGet():New( 52,65,{|u| If(PCount()>0,nPreco:=u,nPreco)},oPnlGrid,060,008,'@R 999,999.99',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","nPreco",,)
Os campos nPeso, nKm, nPreco são campos digitáveis, aí quando seleciono um radio button deveria habilitar um campo destes.
Hoje todos os campos estão habilitados.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19051
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Desativar campo com radio button
@ 20,10 RADIO aOpc VAR nRadCh Object oRadio
oRadio:bChange := {|| ChgCtrl(nRadCh,oGet3,oSay6)}
Static Function ChgCtrl(nRadCh,oGet,oSay)
If nRadCh == 1
oGet:lVisibleControl := .F.
oSay:lVisibleControl := .F.
elseif nRadCh == 2
oGet:lVisibleControl := .T.
oSay:lVisibleControl := .T.
Endif
Return Nil
oRadio:bChange := {|| ChgCtrl(nRadCh,oGet3,oSay6)}
Static Function ChgCtrl(nRadCh,oGet,oSay)
If nRadCh == 1
oGet:lVisibleControl := .F.
oSay:lVisibleControl := .F.
elseif nRadCh == 2
oGet:lVisibleControl := .T.
oSay:lVisibleControl := .T.
Endif
Return Nil
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- marceloc
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 43
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Desativar campo com radio button
Tempo para a criação da página:0.114 segundos