MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Dúvida sobre o valor extenso

    avatar
    willyamsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/02/2011

    [Resolvido]Dúvida sobre o valor extenso Empty Dúvida sobre o valor extenso

    Mensagem  willyamsantos 22/2/2011, 01:15

    Caros Amigos,

    Estou iniciando no Access 2007,

    Estou tentando fazer um relatório onde gera um folha de impressão de cheques, conseguir o valor por extenso na internet, mais preciso de mais, pois além no valor por extenso preciso que esteja entre parêntenses e no final tenha alguns algarismo repetidos, e que cai na segunda linha mais a frente como vem no cheque, como por exemplo:


    (QUARENTA REAIS E SETENTA CENTAVOS)X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-



    (QUATROCENTOS E CINQUENTA E OITO MIL, TREZENTOS E QUARENTA E QUATRO
    REAIS E SETENTA E SETE CENTAVOS)X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X

    Aqui esta no que consegui na internet

    Function UF_Extenso(nValor As Double) As String
    If IsNull(nValor) Or nValor <= 0 Or nValor > 999999999999.99 Then
    Exit Function
    End If

    Dim Contador As Integer
    Dim Tamanho As Integer
    Dim Valor As String
    Dim Parte As String
    Dim Final As String
    Dim Grupo(5) As String
    Dim Texto(5) As String
    Dim Unidade(19) As String
    Unidade(1) = "UM "
    Unidade(2) = "DOIS "
    Unidade(3) = "TRES "
    Unidade(4) = "QUATRO "
    Unidade(5) = "CINCO "
    Unidade(6) = "SEIS "
    Unidade(7) = "SETE "
    Unidade(Cool = "OITO "
    Unidade(9) = "NOVE "
    Unidade(10) = "DEZ "
    Unidade(11) = "ONZE "
    Unidade(12) = "DOZE "
    Unidade(13) = "TREZE "
    Unidade(14) = "QUATORZE "
    Unidade(15) = "QUINZE "
    Unidade(16) = "DEZESSEIS "
    Unidade(17) = "DEZESSETE "
    Unidade(18) = "DEZOITO "
    Unidade(19) = "DEZENOVE "
    Dim Dezena(9) As String
    Dezena(1) = "DEZ "
    Dezena(2) = "VINTE "
    Dezena(3) = "TRINTA "
    Dezena(4) = "QUARENTA "
    Dezena(5) = "CINQUENTA "
    Dezena(6) = "SESSENTA "
    Dezena(7) = "SETENTA "
    Dezena(Cool = "OITENTA "
    Dezena(9) = "NOVENTA "
    Dim Centena(9) As String
    Centena(1) = "CENTO "
    Centena(2) = "DUZENTOS "
    Centena(3) = "TREZENTOS "
    Centena(4) = "QUATROCENTOS "
    Centena(5) = "QUINHENTOS "
    Centena(6) = "SEISCENTOS "
    Centena(7) = "SETECENTOS "
    Centena(Cool = "OITOCENTOS "
    Centena(9) = "NOVECENTOS "
    Valor = Format(nValor, "000000000000.00")
    Grupo(1) = Mid(Valor, 1, 3)
    Grupo(2) = Mid(Valor, 4, 3)
    Grupo(3) = Mid(Valor, 7, 3)
    Grupo(4) = Mid(Valor, 10, 3)
    Grupo(5) = "0" + Mid(Valor, 14, 2)

    For Contador = 1 To 5
    Parte = Grupo(Contador)
    Tamanho = Switch(Val(Parte) < 10, 1, Val(Parte) < 100, 2, Val(Parte) < 1000, 3)

    If Tamanho = 3 Then
    If Right(Parte, 2) <> "00" Then
    Texto(Contador) = Texto(Contador) & Centena(Left(Parte, 1)) + "E "
    Tamanho = 2
    Else
    Texto(Contador) = Texto(Contador) & IIf(Left(Parte, 1) = "1", "CEM ", Centena(Left(Parte, 1)))
    End If
    End If

    If Tamanho = 2 Then
    If Val(Right(Parte, 2)) < 20 Then
    Texto(Contador) = Texto(Contador) & Unidade(Right(Parte, 2))
    Else
    Texto(Contador) = Texto(Contador) & Dezena(Mid(Parte, 2, 1))
    If Right(Parte, 1) <> "0" Then
    Texto(Contador) = Texto(Contador) & "E "
    Tamanho = 1
    End If
    End If
    End If

    If Tamanho = 1 Then
    Texto(Contador) = Texto(Contador) & Unidade(Right(Parte, 1))
    End If

    Next Contador
    Final = ""

    If Val(Grupo(1) + Grupo(2) + Grupo(3) + Grupo(4)) = 0 And Val(Grupo(5)) > 0 Then
    Final = Texto(5) & IIf(Val(Grupo(5)) = 1, "CENTAVO", "CENTAVOS")
    Else
    Final = Final & IIf(Val(Grupo(1)) > 0, Texto(1) & IIf(Val(Grupo(1)) > 1, "BILHÕES ", "BILHÃO "), "")
    Final = Final & IIf(Val(Grupo(2)) > 0, Texto(2) & IIf(Val(Grupo(2)) > 1, "MILHÕES ", "MILHÃO "), "")
    If Val(Grupo(2) + Grupo(3) + Grupo(4)) = 0 Then
    Final = Final & "DE "
    Else
    Final = Final & IIf(Val(Grupo(3)) > 0, Texto(3) & "MIL ", "")
    End If
    Final = Final & Texto(4) + IIf(Val(Grupo(1) + Grupo(2) + Grupo(3) + Grupo(4)) = 1, "REAL ", "REAIS ")
    Final = Final & IIf(Val(Grupo(5)) > 0, "E " & Texto(5) & IIf(Val(Grupo(5)) = 1, "CENTAVO", "CENTAVOS"), "")
    End If

    UF_Extenso = Final

    End Function

    Grato pela ajuda antecipada.




    Editado pelo Moderador Dilson - Data/hora: Ter Fev 22, 2011 2:36 pm - Motivação: Uso indevido de letras maiúsculas.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  chsestrem 22/2/2011, 02:43

    Vc gostaria de ver um exemplo para impressão de cheques?

    O exemplo abaixo gera um relatorio de Frente e verso de cheques

    é bem interessante:

    Imprime Cheques

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    willyamsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/02/2011

    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  willyamsantos 22/2/2011, 11:31

    Caro, amigo, muito obriga pelo retorno,

    Gostei muito do programa, porém preciso para implantar o sistema de impressão de um programa da desenvolvido, pois o programa é muito específico a Fundação da qual eu relatei, teria como liberar o código desse extenso e no número no relatório da impreesão de cheque.



    Editado pelo Moderador Dilson - Data/hora: Ter Fev 22, 2011 2:40 pm - Motivação: Uso indevido de letras maiúsculas.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  chsestrem 22/2/2011, 11:48

    O codigo é aberto Amigo,

    Abra com a tecla Shift pressionada.

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    willyamsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/02/2011

    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  willyamsantos 23/2/2011, 00:02

    Caro Amigo,

    Muito Obrigado,

    Sou iniciante, e a cada dia gosta mais do ACCESS, aos poucos estou descobrindo através da curiosidade que dar pra fazer muita coisa nesse programa.

    Gostaria também de parabenizar a todos que fazer e colaboram com o fórum.

    Simplesmente muito BOM.

    Obrigado amigo, te devo uma.

    Abraços

    Willyam Santos
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  chsestrem 23/2/2011, 00:23

    Valeu Amigão,

    Obrigado pelo retorno,


    Bem Vindo a Selva.

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    edumendes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 30/07/2011

    [Resolvido]Dúvida sobre o valor extenso Empty Imprimir formulario Continuo

    Mensagem  edumendes 30/7/2011, 20:36

    Boa Tarde,Charles

    Será que seria possivel, que esse arquivo que disponibilizou imprimisse 4 cheques de uma unica vez, é porque no meu caso aqui é um formulario continuo, então tem hora que imprimo 1 e até 4 cheques de uma só vez.

    Desde já agradeço pela atenção!!!

    Conteúdo patrocinado


    [Resolvido]Dúvida sobre o valor extenso Empty Re: [Resolvido]Dúvida sobre o valor extenso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:53