'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Documento VB Script '


' 06/11/2002 '

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Validar Campos cad_cpf

function ValidarCampos()

if ConfereCIC(cadastro.cad_cpf) then

cadastro.submit 

end if

end function

'Fim Validar cad_cpf

'''''''''''''''''''''''''''''''''''''''''''''''''''''

' Função Verificar CPF_CNPJ '

'Chamada= onBlur="VerificaCPF_CNPJ()" '

'''''''''''''''''''''''''''''''''''''''''''''''''''''

function VerificaCPF_CNPJ()



if ConfereCIC(cadastro.CPF_CNPJ) then



if Len(cadastro.item("CPF_CNPJ").value) > 14 then



end if



end if 



end function

' Fim da Função Verificar CPF_CNPJ