[Resolvido]Calcular Digito Verificador de uma sequência de números

Srs, Boa tarde

Tenho uma tabela de contem vários códigos de produtos. A maioria desses códigos possui 5 posições (tamando máximo), mas outros contém menos.
Preciso de uma rotina que calcule o DV de cada um deles, armazenado-os, juntos, em um outro campo (codigo+dv).
Para nortear a construção do código objetivo, anexo uma pequena parte da tabela.
Desde já agradeço a todos,
[]'s
dedacrf

O seu banco exemplo não veio formulário, somente a tabela.

É necessário saber como se calcula o digito verificador para poder armazena-lo.

Boa noite;

Veja esse meu exemplo acredito que de uma direção a sua necessidade.

https://www.maximoaccess.com/t31253-gerador-de-cnpj-valido

Bom dia
Movi-lhe esta dúvida para sala mais apropriada
Leia e respeite as regras. As dúvidas que colocarem na sala de repositórios serão eliminadas. Damos-lhe tolerância por se tratar de membro recente

FábioGO, Boa tarde]

Primeiro agradeço a sua resposta.
Segundo realmente esqueci de anexar as regras para o cálculo do digito verificador.
Acabei de anexar um docx com essas regras. Aproveito a oportunidade para agradecer antecipadamente quem puder ajudar.
[]'s
dedacrf

Eu até iniciei uma ajuda aqui, mas não consegui aplicar sua formula para o digito

Seus números do ID_PROD, conforme você falou tem no máximo 5 dígitos, porém a fórmula que você mandou usa-se 6 dígitos, o que faz com os dígitos faltantes do ID_PROD, completa com 0?

Assim não está dando certo a fórmula

exemplo de um dos números da sua tabela:

721

transforma para:

000721

fórmula:

(0 * 9) + (0 * 8 ) + (0 * 7)  + (7 * 4) + (2 * 3) + (1 * 0) = 34

34/10 = 3,4

10-4 = 6

O resultado não bate com o ultimo dígito do número que é 1

É isso ou eu entendi errado?

Fábio, Boa Noite

Agradeço mais uma vez o empenho em construir uma fórmula.
Na realidade o número máximo que caracteres do ID_PROD é 06(seis) posições.
A última posição será considerada o DV do número. Entendeu?

[]'s
dedacrf

Eu tenho uma idéia de como fazer mas preciso que demonstre a fórmula com um exemplo prático.


Ou se alguém mais entendeu e quiser ajudar.

Boa tarde a todos;

Rosano estão meio vagas as informações de sua duvida, de qualquer forma segue um exemplo

para vermos se entendi bem o que pretende.

Aguardamos.

Fernando, Boa Noite

Primeiro gostaria de lhe agradecer, por entrar nessa empreitada tentando me ajudar.
Em segundo lugar, testei o código que você fez, mas o DV não está batendo.
Para nortear os ajustes na fórmula, anexei uma nova tabela cod_exemplo1, onde constam códigos reais com 06m (seis) posições, sendo que a sexta é o DV. Talvez isso ajude.
Outro detalhe importante é que tenho quase 11.000 códigos para calcular o DV e seria interessante um código que pudesse ser aplicável de uma única vez, registro por registro.

Esse problema começou, porque temos uma aplicação rodando em DMSII que atribui ao usuário o código automaticamente. Entretanto o limite de numeração é: 99.999 e não 999.999,
já que o sexto dígito é o DV. Então o que fiz, através desse forum consegui um VBA que descobrisse para mim, quais os códigos (buracos) que não foram utilizados para, se for viável,
reutilizarmos. Entretanto antes que executar o VBA, retirei o último dígito de cada código, transformando a numeração em sequencial. Dessa forma, consegui descobrir quais eram os
códigos que podem ser reutilizados, caso a decisão seja essa.

Estou presumindo que caso você ajuste a sua rotina para gerar os DV's, já sabendo qual é o DV de alguns, talvez fica mais claro.
Desde já agradeço mais uma vez,
[]'s
dedacrf

Boa noite, perdão passou um erro despercebido no código.

Verifique se confere agora com seus digitos ja criados.

Aguardamos.

Depois de entender a fórmula, consegui criar algo que talvez seja o que precisa.

Fernando e FabioGO, Boa tarde

Gostaria de agradecer-lhes muitíssimo.
Após analisar os códigos que ambos construiram, concluí que era isso que precisava.
Terei que fazer mais alguns testes, mas tudo indica que ambos atendem à minha necessidade.

Faço apenas uma ressalva em relação ao código do Fernando, pois o formulário está calculando o DV código por código,
Como faria para customiza-lo para calcular todos os códigos de uma só vez.

Após os testes que farei, darei o retorno definitivo e colocarei o item com o status de resolvido.
[]'s
dedacrf

Fernando e FabioGO,

Gostaria de agradecer-lhes muitíssimo.
Conforme prometido, apesar da demora, retorno aqui para dar o retorno que meu problema foi resolvido.
Agradeço mais uma vez o empenho.
[]'s
dedacrf

Boa tarde Rosano;

Agradecemos o retorno, sucesso!!