USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ajuda CMC7
Tbs
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/09/2005 12:29 hs            
Olá Pessoal,
 
  Estou desenvolvendo uma aplicação para captura de cheques.
  O usuario poderá também digitar campo a campo(caso ele não possua leitora).
 
 Alguém tem alguma função para CMC7 (validação ou qq outra coisa).
 
Obrigado!
 
 
   
Marcelo Amaral
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 26/09/2005 20:31 hs            
Function Valida_CMC7(Entrada As String) As Boolean
    Dim Campo1  As String, Campo2 As String, Campo3 As String
    
    Campo1 = Mid(Entrada, 1, 7)
    Campo2 = Mid(Entrada, 9, 10)
    Campo3 = Mid(Entrada, 20, 10)
    Valida_CMC7 = True
    If DacBarras(Campo1) <> Mid(Entrada, 19, 1) Then
        Valida_CMC7 = False
    Else
        If DacBarras(Campo2) <> Mid(Entrada, 8, 1) Then
            Valida_CMC7 = False
        Else
            If DacBarras(Campo3) <> Mid(Entrada, 30, 1) Then
                Valida_CMC7 = False
            End If
        End If
    End If
End Function
Public Function DacBarras(strNumero As String) As String
    Dim strDac As String, soma As Integer, Resto As Integer
    Dim i As Integer, Soma1 As Integer
    Dim MatResto

    MatResto = Array("", 2, 1, 2, 1, 2, 1, 2, 1, 2, 1)
   
    For i = 1 To Len(strNumero)
        soma = Val(Mid(strNumero, (Len(strNumero) + 1) - i, 1))
        soma = soma * MatResto(i)
        strDac = strDac & soma
    Next
    soma = 0
    For i = 1 To Len(strDac)
        Soma1 = Mid(strDac, i, 1)
        soma = soma + Soma1
    Next
   
    Resto = soma Mod 10
    strDac = 10 - Resto
    If strDac = 10 Then strDac = 0
    DacBarras = strDac
End Function
Marcelo Amaral
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página