ValidaCNPJ
Veja também:
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