ValidaCNPJ

A função ValidaCNPJ recebe uma string com um CNPJ e verifica se é um CNPJ válido.

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 .

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 (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