Ir para conteúdo
Fórum Script Brasil
  • 0

RADIO BUTTON EM VB.NET - Resolvido


JMRF

Pergunta

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

Editado por JMRF
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...