• 0
Sign in to follow this  
JMRF

RADIO BUTTON EM VB.NET - Resolvido

Question

Bom dia,

Estou solicitando, por favor, a ajuda de vocês para a solução do seguinte problema:

Estou trabalhando em um programa de Controle de Estoque onde preciso do seguinte:

1 - Quando eu der ENTRADA ou SAÍDA em algum Material devo selecionar num ComboBox a opção ENTRADA ou SAÍDA.

Se eu selecionar entrada no ComboBox os campos referentes aos dados de entradas, tipo: Nº NFiscal, Data NFiscal, Valor Unitário etc devem ficar ATIVOS e os dados de saídas como: Requisição, dataRequisição, Depto Requisitante etc devem ficar DESATIVADOS e se eu selecionar no ComboBox a opção Saídas lógicamente acontecerá o contrário. Até aí tudo está funcionando legal.

2 - Só que preciso também que ao selecionar a opção ENTRADAS, e ao clicar no Botão INCLUIR, o programa ative as opções de entradas e deixe desativadas as opções de saídas. Ative por Exemplo: Entrada Normal, ative Entrada por Recebimento de Empréstimo Concedido, ative Entrada por Empréstimo Tomado E eu macarei a opção que se fizer necessária e Desative as opções de Saídas, como por exemplo: Saída Normal, desative Saída por Empréstimo Concedido e desative Saída por Pagamento Empréstimo Tomado e ao mesmo tempo verifique se tem uma dessas opções selecionada no RadioButton, de acordo como seja : ENTRADA ou SAÍDA, e isso está funcionando também, e caso não tenha nenhuma dessas opções marcadas no RadioButton, dará a mensagem "Selecionar uma Opção no Tipo de Movimentação". Acontece que com o código que estou postando abaixo, dá a mensagem, então eu marco uma das opções e clico no Botão INCLUIR e continua sem reconhecer que uma opção está marcada no RadioButton e a Mensagem acima é mostrada novamente. Eu estava usando o CheckedListBox e funciona legal só que o CheckedListBox eu posso preencher mais de uma opção ao mesmo tempo o que poderá me fazer errar por esquecimento de desmarcar a opção anterior e selecionar a nova, ficando mais de uma opção selecionada, já no RadioButton eu posso selecionar apenas uma opção, se clicar em outro RadioButton ele automaticamente desmarca a opção anterior. Dá pra ajudar a resolver onde está errado no meu código? Ou me passar um código que eu possa usar nesse caso e resolver esse problema?

Trabalo com:

VB.NET

BANCO DE DADOS : Accesss

Abaixo está o código que estou usando.

Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click

' modo de inclusão

vmodo = "I"

If RadioButton1.Checked = False Or RadioButton2.Checked = False Or RadioButton3.Checked = False Or RadioButton4.Checked = False Or RadioButton5.Checked = False Or RadioButton6.Checked = False Then

MessageBox.Show ( "Selecionar uma opção no Tipo de Movimentação " )

Else

Try

If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then

hab_campos()

hab_campos_em_comum()

hab_btn()

txtEmpenho.Text = ""

MaskedData_empenho.Text = ""

Maskedprocesso.Text = ""

txtNotas_fiscais.Text = ""

MaskedData_nota_fiscal.Text = ""

txtValor_unitario.Text = 0

txtValor_materiais_produtos.Text = 0

txtcod_materiais_produtos.Text = ""

txtMateriais_produtos.Text = ""

txtUnidade.Text = ""

MaskedData_de_entrada.Text = ""

txtEntradas.Text = ""

lblMateriais_produtos.Text = ""

txtEmpenho.Focus()

Else

hab_campos_saidas()

hab_campos_em_comum()

hab_btn()

MaskedRequisicoes.Text = ""

MaskedData_de_saida.Text = ""

txtsaidas.Text = ""

txtDepartamento_requisitante.Text = ""

txtSupervisao_requisitante.Text = ""

txtValor_unitario.Text = 0

txtValor_materiais_produtos.Text = 0

txtcod_materiais_produtos.Text = ""

txtMateriais_produtos.Text = ""

txtUnidade.Text = ""

MaskedRequisicoes.Focus()

'Para colocar o cursosr depois de SE no MaskedRequisicoes

Me.MaskedRequisicoes.SelectionStart = 2

End If

Catch ex As Exception

MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try

End If

End Sub

Aguardo a costumeira ajuda de todos.

Um abraço

JMRF

Edited by JMRF

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Boa tarde,

Resolvido assim:

Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click

vmodo = "I"

Try

If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then

RadioButton1.Enabled = True

RadioButton2.Enabled = True

RadioButton3.Enabled = True

RadioButton4.Enabled = False

RadioButton5.Enabled = False

RadioButton6.Enabled = False

btnCancelar.Enabled = True

If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then

MessageBox.Show("Selecionar uma opção no Tipo de Movimentação")

Else

hab_campos()

hab_campos_em_comum()

hab_btn()

txtEmpenho.Text = ""

MaskedData_empenho.Text = ""

Maskedprocesso.Text = ""

txtNotas_fiscais.Text = ""

MaskedData_nota_fiscal.Text = ""

txtValor_unitario.Text = 0

txtValor_materiais_produtos.Text = 0

txtcod_materiais_produtos.Text = ""

txtMateriais_produtos.Text = ""

txtUnidade.Text = ""

MaskedData_de_entrada.Text = ""

txtEntradas.Text = ""

lblMateriais_produtos.Text = ""

txtEmpenho.Focus()

End If

End If

If CmbEnt_sai_estoque.Text = "Saidas no Estoque" Then

RadioButton1.Enabled = False

RadioButton2.Enabled = False

RadioButton3.Enabled = False

RadioButton4.Enabled = True

RadioButton5.Enabled = True

RadioButton6.Enabled = True

btnCancelar.Enabled = True

If RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then

MessageBox.Show("Selecionar uma opção no Tipo de Movimentação")

Else

hab_campos_saidas()

hab_campos_em_comum()

hab_btn()

MaskedRequisicoes.Text = ""

MaskedData_de_saida.Text = ""

txtsaidas.Text = ""

txtDepartamento_requisitante.Text = ""

txtSupervisao_requisitante.Text = ""

txtValor_unitario.Text = 0

txtValor_materiais_produtos.Text = 0

txtcod_materiais_produtos.Text = ""

txtMateriais_produtos.Text = ""

txtUnidade.Text = ""

MaskedRequisicoes.Focus()

'Para colocar o cursor depois dmáscara SE no MaskedRequisicoes

Me.MaskedRequisicoes.SelectionStart = 2

End If

End If

Catch ex As Exception

MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try

End Sub

Obrigado aos que ajudaram

JMRF

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this