A função abaixo recebe como parâmetro uma string contendo 13 dígitos de um código de barras no padrão EAN-14, e calcula o dígito verificador correspondente ao código informado, também retornado como uma string.
/* Função U_EAN14() Descrição Calcula Digito verificador para EAN14 Parâmetro String com 13 digitos Retorno String contendo dígito verificador */ User function EAN14(cCod13) Local nOdd := 0 Local nEven := 0 Local nI Local nDig Local nMul := 10 For nI := 1 to 13 If (nI%2) == 0 nEven += val(substr(cCod13,nI,1)) Else nOdd += val(substr(cCod13,nI,1)) Endif Next nDig := nEven + (nOdd*3) While nMul
