Pular para o conteúdo
Início » Advpl EANDigito

Advpl EANDigito

    Tipo: Processamento

    Calcula o dígito de controle para o código EAN usado em códigos de barras.

    Sintaxe

    EanDigito(cCod)

    Parâmetros

    cCod – Código de barras para o cálculo do dígito. É obrigatório o tamanho de 12 dígitos.

    Retorna

    cEan – Retorna o código EAN de 13 dígitos, sendo que a última posição é o dígito calculado.

    Exemplo

    // Exemplo de uso da funcao EANDIGITO:

    // Gatilho

    // Dom.: B1_CODBAR

    // CtaDom.: B1_CODBAR

    // Regra: Eandigito(PADL(AllTrim(M->B1_CODBAR),12,”0″))

    // Ou usado em um programa AdvPL:

    cCod := EanDigito(PADL(AllTrim(M->B1_CODBAR),12,”0″))

    cDig := Substr(cCod,12,1)

    Alert(“O digito calculado e’: “+cDig)

    Return