CNPJValido

Esta função verifica se um CNPJ informado é realmente válido.
Esta validade é determinada pelo do cálculo do dígito verificador através do módulo 11. Deve ser informada as 14 posições do CNPJ, isto é, se ele iniciar com zero deve ser passado todos os zeros a esquerda para uma validação com sucesso.

Sintaxe: CNPJValido (Alfa pNumCnpj, Alfa End PResult);

Parâmetros:

Nome Tipo Descrição
pNumCnpj Alfa Variável que recebe o número do CNPJ.
PResult Alfa Variável que retorna se o CNPJ é válido ou não (S=Válido e N=Inválido).

Tipo de retorno: pResult: Variável alfanumérica que retorna se o CNPJ é válido ou não (S=Válido e N=Inválido);

Exemplo:

Definir Alfa VNumCNPJ;
Definir Alfa VRetorno;

CNPJValido(VNumCnpj,vRetorno);

Se (vRetorno <> "S")
Mensagem(Erro,"CNPJ INVALIDO!");

Utilização da Função (dependentes): Nenhum dependente.

Este artigo ajudou você?