ValidaCNPJ

A função ValidaCNPJ recebe uma string com um CNPJ e verifica se é um CNPJ é válido fazendo duas verificações:

  • Se possui 14 dígitos, descartando eventuais espaços em branco no início e no final da string e também descartando os caracteres ".", "-" e "/".
  • Calcula os dígitos verificadores com base nos 12 primeiros dígitos e considera válido se os dígitos calculados forem iguais aos que vieram na string.

Tipo de Retorno

Integer

Pacote

A função ValidaCNPJ está definida dentro do pacote ValidaCNPJ.pkg.

Sintaxe

Move (ValidaCNPJ({sCNPJ})) to {iRet}

Onde:

  • {sCNPJ} é o CNPJ que será validado;
  • {iRet} é a variável que receberá o resultado da função, sendo que 1 (um) indica que o CNPJ é válido, e 0 (zero), caso contrário.

Exemplo

Abaixo um exemplo de função que faz a validação do CNPJ e apresenta um erro se o CNPJ não for válido:

Function Valida_CNPJ Integer iCampo String sValor Returns Integer
    If (sValor = "00000000000000" or ValidaCNPJ(sValor) = 0) Begin
        Error Dferr_Operator "Número de CNPJ inválido!"
        Function_Return 1
    End
End_Function // Valida_CNPJ
Set Field_Validate_Msg Field Cliente.CNPJ to Get_Valida_CNPJ

Tópicos relacionados