MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Compartilhe
    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Seg 22 Dez 2014, 12:06

    Bom dia

    Alguém pode acender uma luz, a dias venho modificando o Exemplo do Mestre Avelino Sampaio, mais não gera o boleto.

    Esta aqui o Banco de dados.
    Anexos
    BoletosConnekta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (434 Kb) Baixado 40 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Ter 23 Dez 2014, 10:59

    Bom dia

    Alguém???


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Qua 24 Dez 2014, 17:01

    Up, alguém ?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Sex 26 Dez 2014, 10:41

    Alguém com conhecimento sobre boleto?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Sex 26 Dez 2014, 11:18

    Bom dia

    Vi no proprio site do Avelino a mesma dúvida que a minha.

    Mais não consigo resolver o erro. Veja:

    Function fncCalculaDVCodBarras(sequencia)
    Dim fator As Byte
    Dim total
    Dim numero
    Dim resto
    Dim resultado
    Dim i As Integer

    fator = 2
    total = 0
    For i = 43 To 1 Step -1
    numero = Mid(sequencia, i, 1)
    If fator > 9 Then
    fator = 2
    End If
    numero = numero * fator
    total = total + numero
    fator = fator + 1
    Next
    resto = total Mod 11
    resultado = 11 - resto
    If resultado >= 10 Or resultado = 0 Then
    fncCalculaDVCodBarras = 1
    Else
    fncCalculaDVCodBarras = resultado
    End If
    End Function

    Alguém pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    lh programas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 24/12/2014

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  lh programas em Sex 26 Dez 2014, 21:51

    vi hoje sua mesagen de ajuda mas niquen ajuda cherry cherry


    o codigo teria que ser no relatorio
    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Sex 26 Dez 2014, 22:08

    Não entendi, será que você pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Dom 28 Dez 2014, 21:39

    Help.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 995
    Registrado : 01/07/2011

    Re: [Resolvido]Avelino Sampaio - Erro no Codigo para Emissão de Boleto do Banco Itau

    Mensagem  Connekta Informatica em Ter 30 Dez 2014, 02:01

    Resolvido.

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





      Data/hora atual: Seg 20 Nov 2017, 15:29