DavidsonGomes1998

Bom dia pessoal, To quebrando a cabeça aqui ja tem um dia, nao consigo fazer funcionar minha conexao com banco oracle, na minha VPS, sendo que na minha maquina local windows funciona. Instalei o LAMP mas simplesmente nao tem as extensoes do oracle. tentei esse tutorial aqui, e mais uns varios outros, e nao funciona, alguem pode ajudar?

Cara por cor nao acho muito boa ideia. Eu faria uma coluna fazendo a mesma verificacao da formataçao condidional. E definir um indicador por exemplo. Coloquei uma verificaçao pra dizer se é numero positivo. SE(A1 > 0;"positivo";"negativo") Ai entao eu faço o somases e oculto a coluna

Galera preciso de ajuda. Quero popular uma tree view mas nao to conseguindo material que me ajude os Dados estão em um DataTable puxado do meu banco de dados. A table tem essa estrutura aqui ID | NODE | NODE_PATTERN | DESCRICAO 1 1 0 OBJETO 1 2 11 1 DES_OBJETO1 3 2 0 OBJETO 2 4 21 2 DES_OBJETO 2 5 22 2 TEL_OBJETO2 6 221 22 DES_TEL_OBJETO2 ... Ate o momento so conseguir definir os pattern Com esse codigo aqui Tree.Nodes.Clear(); foreach (DataRow dr in dt.Rows) { if (Convert.ToInt32(dr["NODE_PATTERN"].ToString()) == 0) { TreeNode node = new TreeNode(dr["DESCRICAO"].ToString()); Tree.Nodes.Add(node); } }

Quase certeza que seu problema é fonte, provavelmente ela nao ta gerando carga suficiente.

Bom dia / boa tarde / boa noite, Estou trabalhando em um sistema em C# com o visual studio, atualmente to fazendo os recibos que geram a partir da venda, criei esse modelo abaixo de carnê, e quero que ele repita de acordo com as parcelas que eu configurar na venda e coloque os dados de cada parcela, como faço isso no report viewer?

Boa tarde, Estou trabalhando em um sistema de vendas no visual basic com banco MySql, atualmente funciona da seguinte forma. Quando eu lanço o produto na venda ele grava no banco o produto com a chave id venda zerado. ou seja um registro temporario. se eu fecho o formulario sem finalizar ele exclui os produtos do banco que estão com id venda zerados, e quando registro a venda, ele altera os produtos para o id correto. o estoque é retirado da tabela de produtos no momento que adiciono o resgistro temporario, mas nao sei como fazer para o estoque retornar em caso de fechar sem concluir, no momento de excluir os registros temporarios. entao minha duvida se resume em: como fazer para pegar a quantidade no de cada produto individual retornar a quantidade pro estoque e excluir, sem precisar ir la e selecionar um por um no DataGridView? ou enta resolveria remover o estoque so no momento de fechar o pedido, mas ai me vem a mesma pergunta q fiz a cima, como pegar os valores sem precisar selecionar e pegar o ID de cada um? A tabela de detalhe de venda tem essa estrutura id - id_venda - id_produto - quantidade - valor_unit - Subtotal

@arfneto Pode me indicar um tutorial? nao entendo muito sobre o assunto, estou estudando

Bom dia amigos devs, To trabalhando atualmente em um projeto em casa no visual basic com banco MySql, usando XAMPP e o banco no localhost, mas quero trabalhar nesse projeto tambem do PC da empresa, mas nao sei como acessar o mesmo banco para trabalhar. o arquivo do visual studio te tenho como usar com ele estando em nuvem

@Basole Perfeitamente, obrigado

planilha.rar@Basole Aqui fiz rapidinho aqui o modelo. o Banco ja esta com uns dados para trabalhar.

Boa noite pessoal, Como eu posso fazer esse processo aqui so q com o banco em access? quero puxar os produtos vendidos e agrupar os produtos que se repetirem e somar o valor isso na listview aqui segue de um tutorial q achei, mas com dados nas planilhas e nao em access

Fala pessoal, estou tentando de vaaarias formas e nao consigo resolver. No meu formulario de vendas tem uma listview com os produtos, nao consigo fazer com que quando eu clicar no botão fechar compra ele grave os produtos na area específica da planilha de recibo, preciso que ele insira uma linha antes de adicionar o produto para nao passar do campo em branco. lembrando q a planilha do recibo fica em outra guia, que o usuario nao ira ter acesso!

Fala pessoal To fazendo o preenchimento de um recibo de venda, porém nao sei como adicionar os itens da listView nessa area específica da planilha, em todos os videos e foruns que acho algo sobre isso, sempre tem tem coisas a mais q me deixa confuso. como nesse video do Canal SGP - Vídeo imagem do recibo e do campo dos produtos

@Basole exatamente isso, obrigado mestre

@Basole Ta dando erro de -2147217913 Tipo de dados incompativel na expressao do criterio

@Basole eu vi algo sobre Dsoma no access pra somar valor da tabela com critérios, mas nao sei aplicar no vba, como seria?

Então deixa eu ser mais especifico. eu tenho a Label Saldo caixa nela é pra ir a soma de toda a tabela de fluxo do access mas so os itens que tiverem o "1" na coluna CodPlanoVenda e o "D" na Natureza. como faz essa soma? tentei adaptar o Select Case mas nao ta me dando o valor correto ta colocando apenas o valor da primeira linha da tabela aqui como fiz o codigo Dim Soma_Dh As Double ConectDB rs.Open "Select * From tb_fluxo", db, 3, 3 Select Case rs!CodPlanoVenda & rs!Natureza Case Is = "1" & "D" Soma_Dh = Soma_Dh + rs!valor.Value End Select FechaDb Lbl_Saldo_DinheiroCaixa = Soma_Dh

Fala pessoal, sei q to postando coisa atras de coisa kkkk, mas to aprendendo muito com isso tudo To montando meu fluxo de caixa. ele ja esta gerando a listview puxando da tabela access de acordo com o intervalo de datas a cima. agora preciso fazer as somas para o controle de caixa kkk. tipo a formula somases do excel como fazer isso nos itens filtrados pela list view? Os calculos seriam da seguinte forma somando a coluna Valor iria separar pelo cod do plano de venda 1 = dinheiro 2 = debito e por ai vai e tambem dividir pela natureza D = despeza R = Receita B = Banco print da tela do fluxo de caixa codigos da ListView

Consegui muito obrigado

Bom dia mestres, Eu to fazendo um método de pesquisa por ListView, com uma tabela no access. pimeiro fiz a condição de se todas as checkbox estiverem desmarcadas ele buscar todos os cadastros, ae ai tudo perfeito depois fui fazendo as IF para cada checkbox, fiz a ID funcionou perfeitamente, porém logo na segunda IF do cliente nao funciona. nao consigo entender por que! abaixo esta o codigo o trabalhando e uma print do Formulário! Dim ID As String Dim CLIENTE As String If Me.CheckBox_ID.Value = False And Me.CheckBox_Cliente.Value = False And Me.CheckBox_CPF.Value = False _ And Me.CheckBox_CNPJ.Value = False And Me.CheckBox_Cidade.Value = False And Me.CheckBox_UF.Value = False Then ConectDB rs.Open "Select * from tb_clientes", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs(0)) List.SubItems(1) = rs(1) List.SubItems(2) = rs(2) List.SubItems(3) = rs(4) List.SubItems(4) = rs(5) List.SubItems(5) = rs(6) List.SubItems(6) = rs(7) List.SubItems(7) = rs(8) List.SubItems(8) = rs(10) List.SubItems(9) = rs(12) rs.MoveNext Wend FechaDb End If If Me.CheckBox_ID.Value = True Then ID = Me.Txt_Busca.Text ConectDB rs.Open "Select * from tb_clientes where Codigo like '" & ID & "'", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo) List.SubItems(1) = rs!Nome List.SubItems(2) = rs!DECONTO List.SubItems(3) = rs!CPF List.SubItems(4) = rs!CNPJ List.SubItems(5) = rs!ENDERECO List.SubItems(6) = rs!CIDADE List.SubItems(7) = rs!ESTADO List.SubItems(8) = rs!TELEFNE List.SubItems(9) = rs!Email rs.MoveNext Wend FechaDb End If If Me.CheckBox_Cliente.Value = True Then CLIENTE = Me.Txt_Busca.Text ConectDB rs.Open "Select * from tb_clientes where Nome like '" & CLIENTE & "'", db, 3, 3 On Error Resume Next Me.ListView1.ListItems.Clear While Not rs.EOF Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo) List.SubItems(1) = rs!Nome List.SubItems(2) = rs!DECONTO List.SubItems(3) = rs!CPF List.SubItems(4) = rs!CNPJ List.SubItems(5) = rs!ENDERECO List.SubItems(6) = rs!CIDADE List.SubItems(7) = rs!ESTADO List.SubItems(8) = rs!TELEFNE List.SubItems(9) = rs!Email rs.MoveNext Wend FechaDb End If End Sub

ainda continua. ate alterei de combobox para txtbox. ConectDB rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3 If Not rs.EOF And Not rs.BOF Then ' * Altere abaixo o nome da textbox CIDADE e Combobox UF Me.Txt_Cidade.Value = rs.Fields(4).Value Me.Txt_Estado.Value = rs.Fields(5).Value Else MsgBox "Registro Não Encontrado" End If FechaDb adicionado 2 minutos depois na verdade funcionou, uma coisa q nao reparei é q tava com uma formatação programada, e tava ficando diferente do banco por causa dos pontos kkk, valeu mestre

Bom no evento click nao funciona porque são muuuuitos ceps, teria que ser no exit. tentei ajustar o codigo mas so passa pro msgbox. da uma olhada, o que fiz errado? ConectDB rs.Open "Select * FROM [tb_cep] WHERE [Codigo]='" & ComboBox_Cep.Text & "'", db, 3, 3 If Not rs.EOF And Not rs.BOF Then ' * Altere abaixo o nome da textbox CIDADE e Combobox UF Me.ComboBox_cidade.Text = rs.Fields(4).Value Me.ComboBox_estado.Text = rs.Fields(5).Value Else MsgBox "Registro Não Encontrado" End If FechaDb

Boa tarde mestres Como faço pra quando preencher o CEP na ComboBox ele preencher automaticamente a cidade e a UF? uso banco de dados no access segue abaixo foto dos codigos do banco e da tabela O CEP ta descriminado aqui como "Codigo"

Fala pessoal Eu achei esse codigo ai para validação de CPF na textbox porém nao to achando o mesmo para CNPJ, alguem pode me ajudar a adaptar? Codigo e fuction para validação do CPF Private Sub Txt_CPF_Exit(ByVal Cancel As MSForms.ReturnBoolean) numCPF = Txt_CPF.Value If Val(numCPF) = 0 Or validaCPF(numCPF) <> "OK" Then MsgBox "cpf invalido", vbCritical, "CPF INVALIDO" Txt_CPF = "" Exit Sub Else If Len(Txt_CPF) = 11 Then Txt_CPF = Format$(Txt_CPF, "!@@@.@@@.@@@-@@") End If End If End Sub Function validaCPF(numCPF) If Len(numCPF) < 11 Then numCPF = String(11 - Len(numCPF), "0") & numCPF For caracter = 1 To 9 DV1 = Val(Mid(numCPF, caracter, 1)) * caracter + DV1 If caracter > 1 Then DV2 = Val(Mid(numCPF, caracter, 1)) * (caracter - 1) + DV2 Next DV1 = Right(DV1 Mod 11, 1) DV2 = Right((DV2 + (DV1 * 9)) Mod 11, 1) If Mid(numCPF, 10, 1) = DV1 And Mid(numCPF, 11, 1) = DV2 Then validaCPF = "OK" End Function adicionado 43 minutos depois Acabei resolvendo da seguinte maneira achei a função da validação de CNPJ e so apliquei ao txtbox dessa forma: Private Sub Txt_CNPJ_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim CNPJ As String CNPJ = Txt_CNPJ.Value On Error GoTo erro If Val(CNPJ) = 0 Or VerificarCNPJ(CNPJ) <> "CNPJ Válido" Then MsgBox "CNPJ Inválido", vbCritical, "ERRO" Txt_CNPJ = "" erro: Else If Len(Txt_CNPJ) = 14 Then Txt_CNPJ = Format$(Txt_CNPJ, "!@@.@@@.@@@/@@@@-@@") End If End If End Sub Public Function VerificarCNPJ(sCNPJ As String) As String Dim d1 As Integer Dim d2 As Integer Dim d3 As Integer Dim d4 As Integer Dim d5 As Integer Dim d6 As Integer Dim d7 As Integer Dim d8 As Integer Dim d9 As Integer Dim d10 As Integer Dim d11 As Integer Dim d12 As Integer Dim d13 As Integer Dim d14 As Integer Dim DV1 As Integer Dim DV2 As Integer Dim UltDig As Integer 'Completa com zeros à esquerda caso não esteja com os 14 digitos If Len(sCNPJ) < 14 Then sCNPJ = String(14 - Len(sCNPJ), "0") & sCNPJ End If 'Pega a posição do último dígito UltDig = Len(sCNPJ) 'Sai da função caso a célula esteja vazia If sCNPJ = "00000000000000" Then VerificarCNPJ = "" Exit Function End If 'Pega cada dígito do CNPJ informado e 'coloca nas variáveis específicas d1 = CInt(Mid(sCNPJ, UltDig - 13, 1)) d2 = CInt(Mid(sCNPJ, UltDig - 12, 1)) d3 = CInt(Mid(sCNPJ, UltDig - 11, 1)) d4 = CInt(Mid(sCNPJ, UltDig - 10, 1)) d5 = CInt(Mid(sCNPJ, UltDig - 9, 1)) d6 = CInt(Mid(sCNPJ, UltDig - 8, 1)) d7 = CInt(Mid(sCNPJ, UltDig - 7, 1)) d8 = CInt(Mid(sCNPJ, UltDig - 6, 1)) d9 = CInt(Mid(sCNPJ, UltDig - 5, 1)) d10 = CInt(Mid(sCNPJ, UltDig - 4, 1)) d11 = CInt(Mid(sCNPJ, UltDig - 3, 1)) d12 = CInt(Mid(sCNPJ, UltDig - 2, 1)) d13 = CInt(Mid(sCNPJ, UltDig - 1, 1)) '<----- Aqui são os DVs informados d14 = CInt(Mid(sCNPJ, UltDig, 1)) '<----- no CNPJ analisado '----------- Aqui é executado o calculo para obter os digitos verificadores corretos DV1 = (d1 * 6) + (d2 * 7) + (d3 * 8) + (d4 * 9) + (d5 * 2) + (d6 * 3) + (d7 * 4) + (d8 * 5) + (d9 * 6) + (d10 * 7) + (d11 * 8) + (d12 * 9) DV1 = DV1 Mod 11 'Obtem o resto 'se o resto for igual a 10 altera pra 0 If DV1 = 10 Then DV1 = 0 End If DV2 = (d1 * 5) + (d2 * 6) + (d3 * 7) + (d4 * 8) + (d5 * 9) + (d6 * 2) + (d7 * 3) + (d8 * 4) + (d9 * 5) + (d10 * 6) + (d11 * 7) + (d12 * 8) + (DV1 * 9) DV2 = DV2 Mod 11 'Obtem o resto 'se o resto for igual a 10 altera pra 0 If DV2 = 10 Then DV2 = 0 End If '---------- Fazendo a comparação dos dvs informados ------- If d13 = DV1 And d14 = DV2 Then VerificarCNPJ = "CNPJ Válido" Else VerificarCNPJ = "CNPJ Inválido" End If End Function

Funcionou perfeitamente amigo, obrigado