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]Numeração Ano + caracter

    Compartilhe
    avatar
    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 336
    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,
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    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.
    avatar
    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 336
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4113
    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: Ter 27 Jun 2017, 11:21