Carlos Rocha

alguém me da um help nisso?

alguém me da um help nisso?

alguém me da um help nisso?

1) Com o código abaixo, cada vez que cliko nbo menu para abrir o formulario de clientes, eu abro uma nova instancia do formulario, ou seja, abro ele varias vezes e fica ele aberto "n" vezes. Mas, o que eu quero é que quando abero outro formuilario e o de clientes já tiver sido aberto antes, o form de Clientes fique por cima e não abra uma nova instancia: Dim Clientes As New Clientes() If IsNothing(Clientes) = False Then Clientes.MdiParent = Me Clientes.Show() End If 2) O Primeiro formulario que abro, ainda que a propriedade windows.state esteja setado como maximized, não abre maximizado de jeito nenhum. já do segundo form aberto em diante já abre maximizado. Como resolver isso? 3) como faço para verificar uma datagridview, se não tiver nem uma linha clikada (selecionada) forçar o usuario a selecionar pelo menos 1 linha? Um Feliz Natal a todos e um Feliz Ano Novo com Jesus Cristo no coração!

como faço para verificar uma datagridview, se não tiver nem uma linha clikada (selecionada) forçar o usuario a selecionar pelo menos 1 linha?

Ok turma era só converter o campo cpf_cnpj na SQL de BIGINT para CHAR. Vejam: select * from clientes where cast(cpf_cnpj as char) like '5%' um abraço a todos e feliz natal!

Só para aproveitar o tópico, como faço para verificar uma datagridview, se não tiver nem uma linha clikada (selecionada) forçar o usuario a selecionar pelo menos 1 linha?

sim., qualquer valor não encontra. Acho que pode ter algo haver com o Tipo BIGINT

Veja: é só teste ta?

(rsrs) Sabia que alguém ia perguntar isso! Mas não! não acha. Fiz esse testa tambem O problema é que por possuir 14 caracters o campo aí não rola tipo INT que só se não me engano até 11 dai em diante só BIGINT

Ola turma. Feliza natal a todos! Tenho um campo na tabela clientes do tipo bigint como o nome cpf_cnpj Ele grava valores de CPF'S e CNPJ'S Então, estou fazendo a seguinte consulta no MySql Front (e no VB.Net tambem): Select * from clientes where ativo='S' and cpf_cnpj like '5%' Existe um registro que começa com 5 mas a consulta não ach nada e nem da erro. O que pode ser?

Consegui galera: Ficou assim: If CondPgto.Visible = True Then For Idx = 0 To CondPgto.Items.Count - 1 If CondPgto.GetItemChecked(Idx) Then 'está marcado o indice Idx envio o seu indice Idy = Idy + CondPgto.Items.Item(Idx) + " " End If Next Else Idy = "" End If

Ola pessoal. Preciso de um help aqui com minha checkelistbox. É o seguinte: Tenho uma checkelistbox com 04 itens. São eles: 01-> texto = "07" 02-> texto = "14" 03-> texto = "21" 04-> texto = "28" Ela marca prazos para pagmento de pedidos em 07 e/ou 14 e/ou 21 e/ou 28 dias. Acontece que preciso gravar as opções do cliente em uma string para enviar para o banco com os valores marcados na CheckListBox em form de uma string em que seus valores fiquem separados por um espaço. Dessa forma: "07 14 21" Cheguei a fazer um código mas só consigo gravar os índice e não os valores. Vejam: Dim Idx As Integer Dim Idy As String = "" If CondPgto.Visible = True Then For Idx = 0 To CondPgto.Items.Count - 1 If CondPgto.CheckedItems(Idx) Then 'MsgBox(Idx) 'Dim idx2 As String = "" 'If CondPgto.CheckedItems(Idx) = 0 Then idx2 = "07" 'If CondPgto.CheckedItems(Idx) = 1 Then idx2 = "14" 'If CondPgto.CheckedItems(Idx) = 2 Then idx2 = "21" 'If CondPgto.CheckedItems(Idx) = 3 Then idx2 = "28" Idy = Idy + Convert.ToString(Idx) + " " End If Next Idx Else Idy = "" End If A CheckListBox´tem só 04 ítems. Obrigado para me ajudar com mais essa! E um Feliz Natal para todos!

alguém me ajuda nessa ai pessoal!

É mas como adapto: If CondPgto.GetSelected(0) Then 'está marcado o indice 0 End If No código abaixo para, formar a string com os valorers mostrados nas checkboxs e não os seus índices? If CondPgto.Visible = True Then For Idx = 0 To CondPgto.Items.Count - 1 If CondPgto.CheckedItems(Idx) Then MsgBox(Idx) Dim idx2 As String = "" If CondPgto.CheckedItems(Idx) = 0 Then idx2 = "07" If CondPgto.CheckedItems(Idx) = 1 Then idx2 = "14" If CondPgto.CheckedItems(Idx) = 2 Then idx2 = "21" If CondPgto.CheckedItems(Idx) = 3 Then idx2 = "28" Idy = Idy + Convert.ToString(idx2) + " " End If Next Idx Else Idy = "" End If Como faço para pegar o valor referente aquele indice da chekedlistbox?

Ok pessoal essa tambem já consegui graças a voces. Agora to com um outro problema dentro do mesmo assunto. Porem, na ordem inversa: Voces me ajudaram a preecher(marcar) a CheckedListBox a partir de valores que vem do banco como string em valores separados por um espaço. Agora preciso o contrario: Enviar para o banco os valores marcados na CheckListBox em form de uma string em valores separados por um espaço. Cheguei a fazer um código mas só consigo gravar os índice e não os valores. Vejam: SnippetIf CondPgto.Visible = True Then For Idx = 0 To CondPgto.Items.Count - 1 If CondPgto.CheckedItems(Idx) Then Dim idx2 As String = "" If CondPgto.CheckedItems(Idx) = 0 Then idx2 = "07" If CondPgto.CheckedItems(Idx) = 1 Then idx2 = "14" If CondPgto.CheckedItems(Idx) = 2 Then idx2 = "21" If CondPgto.CheckedItems(Idx) = 3 Then idx2 = "28" Idy = Idy + Convert.ToString(idx2) + " " End If Next Idx Else Idy = "" End If A CheckListBox´tem só 04 ítems. Ah, ah proposito o código que faz a marcação da CheckedListBox a partir de valores que vem do banco como string em valores separados por um espaço. Segue: SnippetPrivate Sub InicializaListaPgto() Dim o As Integer 'Percorre todos os itens que existem no CheckedListBox For o = 0 To Me.CondPgto.Items.Count - 1 'Desmarca (Uncheck) cada um dos itens Me.CondPgto.SetItemChecked(o, False) Next Dim OpStr As String = Trim(dr.Item("CondPgto")) 'Cria um array com os valores, colocando-os separados por espaco em diferentes elementos do array Dim listaValores As String() listaValores = OpStr.Split(" ") Dim item As String Dim indice As Integer 'Percorre todos os itens que existem no seu array For Each item In listaValores 'Procura o item no CheckedListBox 'Se encontrar, retorna o ndice do item 'Se no encontrar, retorna -1 indice = Me.CondPgto.Items.IndexOf(item) 'Encontrou o item na lista? If (indice > 0) Then 'Sim, ento faz a marcao (Checked) Me.CondPgto.SetItemChecked(indice, True) ElseIf (indice = 0) Then 'Sim, ento faz a marcao (Checked) Me.CondPgto.SetItemChecked(0, True) End If Next End Sub

O código abaixo esta uncionando correto com um pormenor: A cada pedido que eu mostro, ele guarda na chequelistbox o ítem dele. Tipo: Pedido 1 -> Cliente pediu compra a prazo para pagar com 07 e 14 dias Pedido 2 -> Cliente pediu compra a prazo para pagar com 21 e 28 dias na hora de eu mostrar o Pedido 1, ele mostra mas na hora de eu mostrar o Pedido 2 ele marca os do 2 e tambem o do 1 se eu voltar no pediddo 1 continua mostrando os do 2 e o do 1 tambem. Como resolve isso? Private Sub InicializaListaPgto() Dim OpStr As String = Trim(dr.Item("CondPgto")) 'Cria um array com os valores, colocando-os separados por espaco em diferentes elementos do array Dim listaValores As String() listaValores = OpStr.Split(" ") Dim item As String Dim indice As Integer 'Percorre todos os itens que existem no seu array For Each item In listaValores 'Procura o item no CheckedListBox 'Se encontrar, retorna o ndice do item 'Se não encontrar, retorna -1 indice = Me.CondPgto.Items.IndexOf(item) 'Encontrou o item na lista? If (indice > 0) Then 'Sim, então faz a marcao (Checked) Me.CondPgto.SetItemChecked(indice, True) ElseIf (indice = 0) Then 'Sim, ento faz a marcao (Checked) Me.CondPgto.SetItemChecked(0, True) End If Next End Sub

No caso abaixo, onde eu colocari a sua inclusão? item = CondPgto.FindString("07") Private Sub InicializaListaPgto() Dim idx As Integer Dim opstr As String For idx = 0 To CondPgto.Items.Count - 1 CondPgto.SetItemChecked(idx, False) 'marca selecionados, conforme foi gravado opstr = Trim(dr.Item("condpgto").ToString) While opstr <> "" idx = InStr(opstr, " ") MessageBox.Show(idx) If idx > 0 Then CondPgto.SetItemChecked(Int(opstr.substring(1, idx - 1)), True) 'condpgto.checkeditems.indexof(int(opstr.substring(1, idx - 1))) opstr.remove(1, idx) Else CondPgto.SetItemChecked(Int(opstr), True) 'condpgto.checkeditems.indexof(int(opstr.substring(1, idx - 1))) opstr = "" End If End While Next idx End Sub

Ola pessoal vou tentar se mais específico. seguinte: tenho a string Dim OpStr as string = "" 07 14" e tenho uma checkedlistbox com os ítens 07 14 21 e 28 Eu preciso criar uma matriz com os valores que estão na string OpStr tirando os espaços e de cada índice dessa matriz(Os seus valores 07 ou 14) e ver se existe na checkedlistbox algum item comesse valor, se tiver, marca-lo. Como fazer isso?

Como faço para comparar se algum dos ítens de uma matriz é iguam à algum dos ítens de uma checklisbox e, se for igual, marcar o ítem da checklistbox?

Ola, tentei do jeito abaixo mas ta dando o seguiunte erro: CheckedListBox.CheckedItemCollection é somente leitura Como resolve-lo? No Delphi não da isso! Sub InicializaListaPgto() Dim Idx As Integer Dim OpStr As String For Idx = 0 To CondPgto.Items.Count - 1 CondPgto.CheckedItems(Idx) = False 'marca selecionados, conforme foi gravado OpStr = Trim(dr.Item("CondPgto").ToString) While OpStr <> "" Idx = InStr(" ", OpStr) If Idx > 0 Then CondPgto.CheckedItems(Int(OpStr.Substring(1, Idx - 1))) = True OpStr.Remove(1, Idx) Else CondPgto.CheckedItems(Int(OpStr)) = True OpStr = "" End If End While Next Idx End Sub

Galera. Consegui traduzir para VB.Net. Só que na hora de marcar os campos nma checklistbox, da erro e diz que ela é somente leitura.; Como posso resolver isso? Ficou assim: Private Sub InicializaListaPgto() Dim Idx As Integer Dim OpStr As String For Idx = 0 To CondPgto.Items.Count - 1 CondPgto.CheckedItems(Idx) = False 'marca selecionados, conforme foi gravado OpStr = Trim(dr.Item("CondPgto")) While OpStr <> "" Idx = InStr(" ", OpStr) If Idx > 0 Then CondPgto.CheckedItems(Convert.ToInt32(OpStr.Substring(1, Idx - 1))) = True OpStr.Remove(1, Idx) Else CondPgto.CheckedItems(Convert.ToInt32(OpStr)) = True OpStr = "" End If End While Next Idx End Sub

Dois dificuldades; 1) Peguei o código Delphi abaixo e preciso passa-lo para VB.Net. Será quie alguém pode me ajudar? procedure TCPedidos.InicializaListaPgto; var Idx :Integer; OpStr : string; begin // limpa seleção for Idx := 0 to CLBpgto.Items.Count -1 do CLBpgto.Checked[Idx] := False; // marca selecionados, conf. foi gravado OpStr := Trim(QryPedidosListaPgto.AsString); while OpStr <> '' do begin Idx := Pos(' ', OpStr); if Idx > 0 then begin CLBpgto.Checked[StrToInt(Copy(OpStr, 1, Idx -1))] := True; Delete(OpStr, 1, Idx); end else begin CLBpgto.Checked[StrToInt(OpStr)] := True; OpStr := ''; end; end; end; A ideia aqui é pegar o resultado de listbox gravado no banco que chega separado por virgula e Popula a listbox. 2) O código abaixo é um código que faz validação de campos vazios no formulario. Mas, não sei porque cargas d'água o código sai dando as mensagens de campo vazio 1 por 1 e só para (faz o exit sub) só no endereco.text: Veja: Private Function Valida() As Boolean Dim ret As Boolean = True ' Assume sucesso na validao. If tipo1.Checked = False Then If tipo2.Checked = False Then MessageBox.Show("Escolha o tipo da pessoa se fsica ou jurdica!") tipo1.Focus() ret = False End If End If If Nome.Text = "" Then If tipo1.Checked = True Then MessageBox.Show("Preencha o Nome!") Nome.Focus() ret = False ElseIf tipo2.Checked = True Then MessageBox.Show("Preencha a Razo Social!") Nome.Focus() ret = False End If End If If cpf_cnpj.Text = "" Or cpf_cnpj.Text = "___.___.___-__" Or cpf_cnpj.Text = "__.___.___/____-__" Then If tipo1.Checked = True Then MessageBox.Show("Preencha o CPF!") cpf_cnpj.Focus() ret = False ElseIf tipo2.Checked = True Then MessageBox.Show("Preencha o CNPJ!") cpf_cnpj.Focus() ret = False End If End If If Len(cpf_cnpj.Text) = 14 Then If Not ValidaCPF(cpf_cnpj.Text) Then MessageBox.Show("CPF Invlido!") cpf_cnpj.Focus() ret = False End If ElseIf Len(cpf_cnpj.Text) = 18 Then If Not ValidaCNPJ(cpf_cnpj.Text) Then MessageBox.Show("CNPJ Invlido!") cpf_cnpj.Focus() ret = False End If End If If Endereco.Text = "" Then MessageBox.Show("Preencha campo Endereo!") Endereco.Focus() ret = False End If If Bairro.Text = "" Then MessageBox.Show("Preencha campo Bairro!") Bairro.Focus() ret = False End If If Cidade.Text = "" Then MessageBox.Show("Preencha campo Cidade!") Cidade.Focus() ret = False End If If Estado.Text = "" Then MessageBox.Show("Preencha campo Estado!") Estado.Focus() ret = False End If If Telefone.Text = "" Then MessageBox.Show("Preencha campo Telefone!") Telefone.Focus() ret = False End If Return ret End Function E para chamar: Assim: Private Sub Novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Novo.Click If Novo.Text = "Novo" Then For Each c As Control In Me.grpClientes.Controls If TypeOf c Is TextBox OrElse TypeOf c Is MaskedTextBox Then c.Text = "" End If Next Codigo.Enabled = False cpf_cnpj.Visible = False Nome.Visible = False LabelNome.Visible = False data.Visible = False Codigo.Visible = False LabelCodigo.Visible = False IE.Visible = False LabelIE.Visible = False LabelCPF.Visible = False Atualizar.Enabled = False Eliminar.Enabled = False tipo1.Checked = False tipo2.Checked = False Encerrar.Text = "Cancela" Novo.Text = "Incluir" habilita() Nome.Focus() ElseIf Novo.Text = "Incluir" Then If Not Valida() Then Exit Sub End If dr = dt.NewRow incluirRegistro(dr) Novo.Text = "Novo" Encerrar.Text = "Encerrar" Atualizar.Enabled = True Eliminar.Enabled = True desabilita() End If End Sub Onde será que esta o erro?

Será que alguém pode me ajudar? Tudo o que eu quero é o seguinte. Na minha tabela de clientes, tem um campo "tipo" que guarda se o cliente é f ou j (Fisica ou Juridica) Tem outro campo que guarda o CPF ou CNPJ dependendo do tipo de pessoa que é selecionada na hora de preencher o formulario. O campo se chama cpof_cnpj. No formulario, tenho uma textbox que recebe e envia para o banco o valor da coluna cpf_cnpj Eu quero é fazer uma mascara de cpf na textbox ou na maskedtextox se na textbox não tiver jeito que quando o checkbox tipo1 estiver "checked", e quan do o checkbox tipo2 estiver "checked", colocar uma mascara de cnpj. Só isso! Será que não tem uma forma mais facil não? Um abç!

Será que alguém pode me ajudar? Tudo o que eu quero é o seguinte. Na minha tabela de clientes, tem um campo "tipo" que guarda se o cliente é f ou j (Fisica ou Juridica) Tem outro campo que guarda o CPF ou CNPJ dependendo do tipo de pessoa que é selecionada na hora de preencher o formulario. O campo se chama cpof_cnpj. No formulario, tenho uma textbox que recebe e envia para o banco o valor da coluna cpf_cnpj Eu quero é fazer uma mascara de cpf na textbox ou na maskedtextox se na textbox não tiver jeito que quando o checkbox tipo1 estiver "checked", e quan do o checkbox tipo2 estiver "checked", colocar uma mascara de cnpj. Só isso! Será que não tem uma forma mais facil não? Um abç!