[Resolvido]Numeração numero ano tipo 00012020.

Boa noite Amigos

No exemplo que anexo preciso de ajuda para este tipo de numeração .

Tem relação com a " Loja " e o " Tipo de Documento "

Podemos ter assim:

Loja   TipoDoc   Número
Sede  Fact - S    00012020, e depois segue a sequência, 0022020, 0032020 etc.
Sede  VD - S      00012020  e depois segue a sequência, 0022020, 0032020 etc.
Sede  FR  - S      00012020  e depois segue a sequência, 0022020, 0032020 etc.

Baia  Fact - B    00012020, e depois segue a sequência, 0022020, 0032020 etc.
Baia  VD - B      00012020  e depois segue a sequência, 0022020, 0032020 etc.
Baia  FR  - B      00012020  e depois segue a sequência, 0022020, 0032020 etc.

PROJ  Fact - P    00012020, e depois segue a sequência, 0022020, 0032020 etc.
PROJ  VD - P      00012020  e depois segue a sequência, 0022020, 0032020 etc.
PROJ  FR  - P      00012020  e depois segue a sequência, 0022020, 0032020 etc.

Obrigado

Boa Noite Assis

Da uma olhada

Saludos

Bom dia Franklin

Aqui no meu Office 2013 32 não faz a sequência, o numero é sempre igual veja a imagem.



Obrigado

Bom dia Assis,

Fiz uma demo que penso ser o que você pretende.

O exemplo cria uma numeração tipo 0001/2020, altere para o pretendido.

Esta numeração reiniciará automaticamente a cada inicio de ano.

A numeração será criada após atualizar o campo "Operacao", visto que depende deste valor a próxima numeração.

Boa sorte

Carlos

Obrigado pela atenção prestada.

Podia alterar o exemplo que postou e altera-lo.

Tirava o campo ID, e o meu campo LN é que serve de numeração automática.

Obrigado

Veja a alteração.

Carlos

Podia usar a minha tabela que está na Mensagem Nº 1 ?

Obrigado

Não consigo abrir essa versão do access, estou com o 2003 neste momento...

Carlos

Tem os campos da tabela na mensagem Nº 3

Mas a tabela tem que se chamar "Encomenda".

Veja esta versão.

Carlos

Funciona.

Tentei tirar a barra entre o numero e o ano mas deixa de somar + 1 .

Em vez de ficar assim 0001/2020

Ficava 00012020

Tem como ?

Obrigado

Altere apenas o código do Módulo.

Obrigado Carlos

Ainda não testei o ultimo mas breve informo.

Carlos

Com o sistema que tenho consigo numerar o primeiro numero de cada tipo de documento com o valor certo "00012020"

Mas quando vou registar o segundo tenho o seguinte resultado 01212020

O código é este abaixo, onde está o erro ?

Me.Encomenda = Format(Mid(DLast("encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"), 1, 3) + 1) & Year(Me.Data)

Obrigado

O exemplo que lhe enviei faz exactamente o que pretende, e ainda lhe reinicia a contagem sempre que muda de ano.

Mas se pretende continuar com a sua expressão tente assim:

Me.Encomenda = Format(Left(DLast("encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"),4) + 1 & Year(Me.Data), "00000000")

Carlos

Obrigado pela paciência, ficou perfeita a alteração que fiz.

Foi só alterar o campo "Encomenda" para texto e o seu exemplo encaixou na perfeição na minha tabela que já tem numeração de 3 anos e + ou - 5600 registos.

O único senão será no final do ano quando o computador mudar a data ara 2021 e ainda poder haver registos de 2020 para realizar.

Obrigado

Assis, posso tentar arranjar uma solução para o novo ano.

Para tal preciso que me diga qual o método que acabou por usar (minha demo ou a função DLast).

E, mais importante, se no próximo ano você SÓ irá iniciar uma nova sequência depois que todos os registos do ano anterior estiverem inseridos, ou se poderá iniciar uma nova série no novo ano, e à posteriori teria que inserir dados do ano anterior.

Boa tarde Carlos
Estou a usar o exemplo da mensagem 12.
Se para o Ano conseguir apanhar o Ano do campo "Data
seria o ideal.
Imagine já em 2021 ter um registo para fazer com a data de 30-12-2019.
Obrigado

Entendi Assis,

Na segunda feira lhe arranjarei uma solução.

Entretanto queria alertar que precisa prevenir que a autonumeração só sai no caso dos campos "Loja" e "Operacao" estão preenchidos, caso contrário, se executar com um desses campos vazios, o código irá iniciar uma nova série com esses dados, como sendo uma nova combinação de campos.

Se assim entender, posso incluir essa prevenção no próximo código.

Obrigado Carlos

No formulário já tenho a prevenção de obrigar a preencher todos os campos do formulário.

Bom fim de semana e

Obrigado

Bom dia Assis,

Como prometido aqui tem uma solução para o seu propósito.

Adaptações:

Como o sistema terá que ser informado do Ano a que se refere o registo a inserir, criei um campo desvinculado "AnosAnteriores".

Este campo no caso de NÃO preenchido, não afecta o procedimento já anteriormente testado.

No caso de preenchido com um ano qualquer, o sistema irá iniciar uma nova sequência com os dados inseridos nesse mesmo ano, caso ainda não haja nenhum registo com essa combinação. Ou cria a numeração seguinte no caso de já haver registos com essa combinação.

Existe também um novo Módulo "BasContaAnteriores" que tem uma String referente ao novo Campo "AnoData = Forms!frm_Master!AnosAnteriores", aqui terá que alterar para os nomes correspondentes à sua DB.

Outras pequenas alterações terá que fazer no código do Form, que deixei a informação em comentário.

Teste e disponha se precisar de ajuda.

Boa tarde Carlos

Obrigado ficou perfeito

De nada assis,

Fico contente por ter resultado.