Validar um número de CGC.
CGC (<exp.N>)
<exp.N> representa um número de CGC para verificação.
Retorna verdadeiro (.T.), se <exp.N> for um CGC válido, caso contrário retorna falso (.F.).
O exemplo a seguir mostra-nos a utilização desta função.
var_cgc = 0
@ 01,01 say "Digite o CGC de sua EMPRESA "GET var_cgc;
PIC "99.999.999/9999-99" VALID CGC; (var_cgc);
MESSAGE "CGC Nao Valido."+;
"Tente Novamente" BLINK
READ
@ ... GET, CPF(), D11() e G11().