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.