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)
Pergunta
JMRF
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 JMRFLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.