MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Numeração Ano + caracter

    Compartilhe

    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 21/09/2010

    [Resolvido]Numeração Ano + caracter

    Mensagem  APJesus em Seg 11 Abr 2016, 18:26

    Boa tarde, Amigos.

    Estou usando o módulo Numeração conforme abaixo do nosso mestre JPaulo, mas estou com uma dúvida e gostaria da ajuda de vocês.
    Queria na numeração incluir o caracter (X) Xis no início da numeração e assim os números subsequentes.

    Ex:X001/2016, X002/2016, etc...

    Uso o código abaixo:

    Public Function NumeracaoAno3() As String
    'By JPaulo@2009
    Dim fazcodigo(1) As Integer, temporario As Integer

    fazcodigo(1) = Nz(DMax("Left(ControleNumero,4)", "Tab_LoteXaroparia", "Right(ControleNumero,4)=Year(Date())"), 0)

    For I = 1 To UBound(fazcodigo)
    If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
    Next

    NumeracaoAno3 = Format(temporario + 1, "000") & "/" & Year(Date)

    End Function


    ** Este código acima funciona na perfeição com números somente, mas gostaria de incluir este caracter para identificação de um setor, pois já utilizo a numeração para outro formulário e não gostaria da confusão no momento da procura, visualização, etc...

    Desde já agradeço a quem puder informar como editar este módulo para tal execução,

    Att,

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Numeração Ano + caracter

    Mensagem  good guy em Seg 11 Abr 2016, 20:01

    Olá APJesus,

    Posta o bd por favor para a gente fazer alguns testes.

    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 21/09/2010

    Re: [Resolvido]Numeração Ano + caracter

    Mensagem  APJesus em Ter 12 Abr 2016, 12:26

    Good, Meu acesso é restrito para up e donw onde trabalho.
    Muito obrigado pela atenção. Mas resolvi da seguinte maneira: criei um cx texto como espelho deste e concatenei o caracter que preciso. assim não precisei mexer no módulo/código.

    Mais uma vez agradeço a todos que visualizaram e pensaram em uma maneira de ajudar.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Numeração Ano + caracter

    Mensagem  ahteixeira em Ter 12 Abr 2016, 12:48

    Olá Alessandro, obrigado pelo retorno.

    No código ficaria assim:
    Código:
    Public Function NumeracaoAno3() As String
    'By JPaulo@2009
        Dim fazcodigo(1) As Integer, temporario As Integer
        
        fazcodigo(1) = Nz(DMax("Left(ControleNumero,4)", "Tab_LoteXaroparia", "Right(ControleNumero,4)=Year(Date())"), 0)
        
        For I = 1 To UBound(fazcodigo)
            If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
        Next
        
        NumeracaoAno3 = "X" & Format(temporario + 1, "000") & "/" & Year(Date)
    End Function

    Repare que onde está o "X" também poderia ser uma variavel ou mesmo Série selecionada num form , exemplo:
    Código:
    NumeracaoAno3 = Forms!VENDAS!SERIE & Format(temporario + 1, "000") & "/" & Year(Date)
    Não testado
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 12:14