1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Gerador Código Item

Discussão em 'EMS , HCM e Totvs 11' iniciado por Marcos Frasson, Outubro 11, 2021.

Página 1 de 3
  1. Marcos Frasson

    Marcos Frasson Membro Participativo

    Bom Dia Pessoal,

    Estou precisando desenvolver uma rotina para geração de códigos para cadatros novos de item, seguindo a lógica abaixo com digito verificador.

    “Exemplo 1 : ” 350.100-1

    “Exemplo 2: ” 350.101-6

    “Exemplo 3: ” 350.102-2

    Alguém teria algum exemplo de como fazer essa implementação?

    Agradeço antecipadamente.
    Marcos Frasson, Outubro 11, 2021
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Explica o cálculo que você precisa pra chegar nesses números
    rafael.andrade, Outubro 11, 2021
    #2
  3. Marcos Frasson

    Marcos Frasson Membro Participativo

    Seria um sequencial crescente, seguido de um digito verificador.

    Não sei se deu para entender....
    Marcos Frasson, Outubro 11, 2021
    #3
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Mas qual é o cálculo que gera o dígito verificador?

    CPF,CNPJ e RG cada um tem seu cálculo diferente, qual será o seu?
    rafael.andrade, Outubro 11, 2021
    #4
  5. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Essa melhoria seria para resolver o que?
    Pq já prestei serviço pra uma empresa em que o código dos itens era por significado, tipo

    51.1102.100.002

    51 signifcava que era extrusado, o 1102 era uma outra coisa, e assim por diante.

    Assim não seria mais útil?
    rafael.andrade, Outubro 11, 2021
    #5
  6. Marcos Frasson

    Marcos Frasson Membro Participativo

    Dim vDigito, vSomatoria, vPosicao1, vPosicao2, vPosicao3, vPosicao4, vPosicao5, vPosicao6 As Integer
    vPosicao1 = CInt(vCodigo.Substring(0, 1)) * 2
    vPosicao2 = CInt(vCodigo.Substring(1, 1)) * 3
    vPosicao3 = CInt(vCodigo.Substring(2, 1)) * 4
    vPosicao4 = CInt(vCodigo.Substring(3, 1)) * 5
    vPosicao5 = CInt(vCodigo.Substring(4, 1)) * 6
    vPosicao6 = CInt(vCodigo.Substring(5, 1)) * 7
    vSomatoria = vPosicao1 + vPosicao2 + vPosicao3 + vPosicao4 + vPosicao5 + vPosicao6
    vDigito = Math.Abs(((vSomatoria * 10) Mod 11) Mod 10)

    Esse é o exemplo do calculo
    Marcos Frasson, Outubro 11, 2021
    #6
Página 1 de 3

Compartilhe esta Página