Ir para conteúdo
Fórum Script Brasil

gabrieldb

Membros
  • Total de itens

    124
  • Registro em

  • Última visita

Sobre gabrieldb

  • Data de Nascimento 27/10/1989

Perfil

  • Gender
    Male
  • Location
    São Bernardo do Campo - SP

gabrieldb's Achievements

0

Reputação

  1. Brigado Kuroi era isso mesmo que eu procurava... abraço!
  2. Bom Dia pessoal eu estou desenvolvendo um sistema, e gostaria de saber se tem como eu mudar o visual do meu sistema que tá com o visual padrão do VB, com telas mais atuais como por exemplo as cores e alguns botões do windows xp. Tem algum tipo de DLL pra isso alguém sabe se isso é possível ? Valeu!
  3. Coloca dois botões um próximo e um anterior assim você tem a movimentção de todos os dados.
  4. Cara eu passei pelo mesmo problema, dá uma olhada nesse tópico. http://scriptbrasil.com.br/forum/index.php?showtopic=140479
  5. Deu certinho com o CNPJ Kuroi mais ainda tenho dificuldade com o CPF.
  6. eu mudei só no lostfocus onde tava maskedbox eu substitui por textbox, como eu faço esse replace ?
  7. Boa tarde pessoal eu aqui mais uma vez, meu problema é o seguinte peguei na internet uma função que valida CPF/CNPJ porém no código ela estava com maskedbox eu mudei para text porque não gosto da masked, mais agora dá sempre como CPF/CNPJ inválido alguém pode dar uma olhada no meu código e ver o que está errado ? Coloquei em um módulo a função. Function calculacpf(CPF As String) As Boolean On Error GoTo Err_CPF Dim I As Integer 'utilizada nos FOR... NEXT Dim strcampo As String 'armazena do CPF que será utilizada para o cálculo Dim strCaracter As String 'armazena os digitos do CPF da direita para a esquerda Dim intNumero As Integer 'armazena o digito separado para cálculo (uma a um) Dim intMais As Integer 'armazena o digito específico multiplicado pela sua base Dim lngSoma As Long 'armazena a soma dos digitos multiplicados pela sua base(intmais) Dim dblDivisao As Double 'armazena a divisão dos digitos*base por 11 Dim lngInteiro As Long 'armazena inteiro da divisão Dim intResto As Integer 'armazena o resto Dim intDig1 As Integer 'armazena o 1º digito verificador Dim intDig2 As Integer 'armazena o 2º digito verificador Dim strConf As String 'armazena o digito verificador lngSoma = 0 intNumero = 0 intMais = 0 strcampo = Left(CPF, 9) 'Inicia cálculos do 1º dígito For I = 2 To 10 strCaracter = Right(strcampo, I - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * I lngSoma = lngSoma + intMais Next I dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If strcampo = strcampo & intDig1 'concatena o CPF com o primeiro digito verificador lngSoma = 0 intNumero = 0 intMais = 0 'Inicia cálculos do 2º dígito For I = 2 To 11 strCaracter = Right(strcampo, I - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * I lngSoma = lngSoma + intMais Next I dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If strConf = intDig1 & intDig2 'Caso o CPF esteja errado dispara a mensagem If strConf <> Right(CPF, 2) Then calculacpf = False Else calculacpf = True End If Exit Function Exit_CPF: Exit Function Err_CPF: MsgBox Error$ Resume Exit_CPF End Function Public Function CalculaCGC(Numero As String) As String Dim I As Integer Dim prod As Integer Dim mult As Integer Dim digito As Integer If Not IsNumeric(Numero) Then CalculaCGC = "" Exit Function End If mult = 2 For I = Len(Numero) To 1 Step -1 prod = prod + Val(Mid(Numero, I, 1)) * mult mult = IIf(mult = 9, 2, mult + 1) Next digito = 11 - Int(prod Mod 11) digito = IIf(digito = 10 Or digito = 11, 0, digito) CalculaCGC = Trim(Str(digito)) End Function Public Function ValidaCGC(CGC As String) As Boolean If CalculaCGC(Left(CGC, 12)) <> Mid(CGC, 13, 1) Then ValidaCGC = False Exit Function End If If CalculaCGC(Left(CGC, 13)) <> Mid(CGC, 14, 1) Then ValidaCGC = False Exit Function End If ValidaCGC = True End Function E no form pra verificar meu código tá assim. Private Sub Text1_LostFocus() If Len(Text1.Text) > 0 Then Select Case Len(Text1.Text) Case Is = 11 Text1.Text = Format$(Text1.Text, "@@@.@@@.@@@-@@") If Not calculacpf(Text1.Text) Then MsgBox "CPF com DV incorreto !!!" Text1 = "" Text1.Text = "" Text1.SetFocus End If Case Is = 14 Text1.Text = Format$(Text1.Text, "@@.@@@.@@@/@@@@-@@") If Not ValidaCGC(Text1.Text) Then MsgBox "CGC com DV incorreto !!! " Text1 = "" Text1.Text = "" Text1.SetFocus End If End Select End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 'Se teclar enter envia um TAB If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub Desde já agradeço pessoal.
  8. Fica assim Marcelo insert into cliente (codi, nome, ende, fone) values ( 'TxtCod', TxtNome','TxtEnde','TxtFone' ) Qualquer coisa posta ai
  9. vbdanilo, explique melhor o que você quer, não deu pra entender nada.
  10. gabrieldb

    Runtime error '91'

    Dá uma olhada nisso e vê se ajuda. http://msdn.microsoft.com/pt-br/library/064x715y(VS.80).aspx
  11. Bom, se já rodou em máquina sem o crystal não sei porque desse erro, eu tive problema uma vez com um sistema que tinha relatório em crystal e não rodava na minha máquina porque não tinha o crystal instalado.
  12. Você tem o crystal instalado na máquina onde quer rodar o sistema ?
  13. Faça um select "select * from tabela"
×
×
  • Criar Novo...