'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Documento VB Script                                  '
'  Francisco C Paulino - Tofinha - fcptofinha@globo.com '
'  06/11/2002                                           '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Validar Campos CPF_CNPJ
function ValidarCampos()
	if  ConfereCIC(form_int.CPF_CNPJ_INT) then
		form_int.submit 
	end if
end function
'Fim Validar CPF_CNPJ
''''''''''''''''''''''''''''''''''''''''''
' Função Verificar CPF_CNPJ
'Chamada= onBlur="VerificaCPF_CNPJ_INT()"
function VerificaCPF_INT()

	'if form_int.item("").value = false then	
		if  ConfereCIC(form_int.CPF_INT) then
	
			if Len(form_int.item("CPF_INT").value) > 11 then

			end if
	
		end if	
	'end if
			
end function

function VerificaCNPJ_INT()

	'if form_int.item("").value = false then	
		if  ConfereCNPJ(form_int.CNPJ_INT) then
	
			if Len(form_int.item("CNPJ_INT").value) > 14 then

			end if
	
		end if	
	'end if
			
end function
' Fim da Função Verificar CPF_CNPJ
''''''''''''''''''''''''''''''''''''''''''

function VerificaCPF_INT2()

	'if form_int.item("").value = false then	
		if  ConfereCIC2(form_int.CPF_INT2) then
	
			if Len(form_int.item("CPF_INT2").value) > 11 then

			end if
	
		end if	
	'end if
			
end function

function VerificaCNPJ_INT2()

	'if form_int.item("").value = false then	
		if  ConfereCNPJ2(form_int.CNPJ_INT) then
	
			if Len(form_int.item("CNPJ_INT").value) > 14 then

			end if
	
		end if	
	'end if
			
end function

function VerificaCPF_CNPJ_INT()

		if  ConfereCIC(form_int.CPF_CNPJ_INT) then
	
			if Len(form_int.item("CPF_CNPJ_INT").value) > 11 then

			end if
	
		end if	

	'if form_int.item("").value = false then	
		if  ConfereCNPJ(form_int.CPF_CNPJ_INT) then
	
			if Len(form_int.item("CPF_CNPJ_INT").value) > 14 then

			end if
	
		end if	
	'end if
			
end function