<!-- #include file="Conexion.asp" -->
<%
'Declarando Variables
dim tipo
dim sql
dim rs
dim pagina
dim mensaje

set tipo = Request.Form("tipo")
if tipo="" then
	tipo=Request.QueryString("tipo")
end if


' tipo = 1 : Realiza la validacion Si el usuario existe
if tipo=1 then 
Session("SesCodclte") 	= ""
Session("sesCodLocal") 	= ""
Session("sesSvName") 	= ""
Session("usuario") 		= ""
	dim usuario
	dim clave
	
	set usuario = Request.Form("txtUsuario")
	set clave   = Request.Form("txtClave")
		sql 	= "sp_GranjaVilla_0001 '"+usuario+"','"+clave+"'"
	Set rs		= Conex.Execute(sql)	

	if rs.eof  then
		mensaje = "Usuario No Existe"
		pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=1"
	else
		if rs.Fields("cUserActi").value = 1 then
			Session("usuario") = usuario
			mensaje = "Bienvenido(a)"
			pagina  = "frmprincipal.asp"
			'pagina  = "frmprincipal.asp?mensaje="+mensaje 
			'pagina  = "frmInicial.asp"
		else 
			mensaje = "Usuario No se encuentra Activo"
			pagina  = "MensajeSistema.asp?mensaje="+mensaje
		end if 
	end if	

	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing			
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()
	
		
end if

if tipo=2 then
	dim ParamBusqueda
	dim rdBusqueda
	set rdBusqueda=Request.Form("rdBusqueda")
	if rdBusqueda=1 then
		ParamBusqueda = Request.Form("txtNombreComp")
	else
		ParamBusqueda = Request.Form("txtnroTarjeta")
	end if
	
	pagina="frmPrincipalResultadoBusqueda.asp?tipobusq="+rdBusqueda+"&parametrobusq="+ParamBusqueda	
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing	
end if

'Inserta datos del nuevo cliente
if tipo=3 then
dim txtNroTarjeta
dim txtCodLocal
dim txtApellidos
dim txtNombres
dim txtDpto
dim txtProv
dim txtDist
dim txaDireccion
dim txtTelefono
dim cbLocal
dim txtEmail
dim txtTipoC
dim dc
dim txtVIPi
dim txtRutaFotoI
	
	txtRutaFotoI = Session("sRutaFoto")
	set txtNroTarjeta = Request.Form("txtNroTarjeta")
	set txtCodLocal = Request.Form("txtCodLocal")
	set txtApellidos = Request.Form("txtApellidos")
	set txtNombres = Request.Form("txtNombres")
	set txtDpto = Request.Form("txtDpto")
	set txtProv = Request.Form("txtProv")
	set txtDist = Request.Form("txtDist")
	set txaDireccion = Request.Form("txaDireccion")
	set txtTelefono = Request.Form("txtTelefono")
	set cbLocal = Request.Form("cbLocal")
	set txtEmail = Request.Form("txtEmail")
	set txtTipoC = Request.Form("txtTipoC")
	set dc = Request.Form("dc")
	set txtVIPi = Request.Form("txtVIP")
	
	sql 	= "sp_GranjaVilla_0009 '"+txtNroTarjeta+"','"+txtCodLocal+"','"+txtApellidos+"','"+txtNombres+"','"+txaDireccion+"','"+txtDist+"','"+txtProv+"','"+txtDpto+"','"+txtTelefono+"','"+txtEmail+"','"+dc+"','"+txtTipoC+"','"+txtRutaFotoI+"',"+txtVIPi
	Set rs		= Conex.Execute(sql)	
	
	sql		= "sp_GranjaVilla_0010 '"+txtNroTarjeta+"','"+Session("usuario")+"','"+txtCodLocal+"'"
	Set rs		= Conex.Execute(sql)
	
	mensaje = "Cliente Registrado Correctamente"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=2"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	

end if

if tipo=4  then
dim codLocal
dim codtbusq
dim parametrobusq
dim codclte
dim pagactual
dim contreg
dim enviarCod

set codclte  = Request.Form("codclte")
set codLocal = Request.Form("codLocal")
set codtbusq = Request.Form("codtbusq")
set parambus = Request.Form("parambus")
set SvName	 = Request.Form("SvName")
set paginaactual=Request.Form("mostrarpagina")
set enviarCod = Request.Form("enviarCod")

Session("SesCodclte") 	= codclte
Session("sesCodLocal") 	= codLocal
Session("sesSvName") 	= SvName

pagina			= "frmPrincipalResultadoBusqueda.asp?tipobusq="+codtbusq+"&parametrobusq="+parambus+"&paginaactual="+paginaactual+"&SvName="+SvName+"&enviarCod="+enviarCod
'pagina			= "frmPrincipalResultadoBusqueda.asp"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	

end if


if tipo=5 then
dim txtNroTarjetau
dim txtCodLocalu
dim txtApellidosu
dim txtNombresu
dim txtDptou
dim txtProvu
dim txtDistu
dim txaDireccionu
dim txtTelefonou
dim cbLocalu
dim txtEmailu
dim txtTipoCu
dim dcu
dim txtVIPu
dim txtRutaFotoU
	
	txtNroTarjetau = Session("SesCodclte")
	txtCodLocalu = Session("sesCodLocal")
	txtRutaFotoU = Session("sRutaFoto")
	set txtApellidosu = Request.Form("txtApellidos")
	set txtNombresu = Request.Form("txtNombres")
	set txtDptou = Request.Form("txtDpto")
	set txtProvu = Request.Form("txtProv")
	set txtDistu = Request.Form("txtDist")
	set txaDireccionu = Request.Form("txaDireccion")
	set txtTelefonou = Request.Form("txtTelefono")
	set cbLocalu = Request.Form("cbLocal")
	set txtEmailu = Request.Form("txtEmail")
	set txtTipoCu = Request.Form("txtTipoC")
	set dcu = Request.Form("dc")
	set txtVIPu = Request.Form("txtVIP")
	
	sql =	"sp_GranjaVilla_0013 '"+txtNroTarjetau+"','"+txtCodLocalu+"','"+txtApellidosu+"','"+txtNombresu+"','"+txaDireccionu+"','"+txtDistu+"','"+txtProvu+"','"+txtDptou+"','"+txtTelefonou+"','"+txtEmailu+"','"+dcu+"','"+txtTipoCu+"','"+txtRutaFotoU+"',"+txtVIPu
	'sql =	"sp_GranjaVilla_0013 '"+txtNroTarjetau+"','"+txtApellidosu+"','"+txtNombresu+"','"+txaDireccionu+"','"+txtDistu+"','"+txtProvu+"','"+txtDptou+"','"+txtTelefonou+"','"+txtEmailu+"','"+dcu+"','"+txtTipoCu+"'"
	Set rs		= Conex.Execute(sql)
	
	mensaje = "Cliente Actualizado Correctamente"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=3"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	

end if

if tipo=6 then 
	txtNroTarjetau = Session("SesCodclte")
	txtCodLocalu = Session("sesCodLocal")
	sql =	"sp_GranjaVilla_0014 '"+txtNroTarjetau+"','"+txtCodLocalu+"'"
	Set rs		= Conex.Execute(sql)
	
	mensaje = "Cliente Eliminado Correctamente"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=3"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
end if

if tipo=7 then 
	mensaje = "Cliente Verificado Correctamente"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=3"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
end if

if tipo=8 then 
	mensaje = "Cliente Seleccionado"
	pagina  = "MensajeSistema.asp?mensaje="+mensaje+"&cod=3"
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
end if

'Valida si existe el cliente
if tipo=9 then
	dim Apellidos
	dim Nombre 
	dim Local
	dim Dato
	set Apellidos = Request.QueryString("Apellidos")
	set Nombre = Request.QueryString("Nombre")
	set Local  = Request.QueryString("Local")
	Dato = Apellidos+" "+Nombre
	sql 	= "sp_GranjaVilla_0018 '"+Dato+"','"+Local+"'"
	Set rs		= Conex.Execute(sql)	
	if  rs.eof	  then
	'Cliente no existe
		pagina  = "frmCliente.asp?GestionTipo=1&MensajeVal=1&Apellidos="+Apellidos+"&Nombre="+Nombre
	else
	'Cliente Ya existe
		pagina  = "frmCliente.asp?GestionTipo=1&MensajeVal=2&Apellidos="+Apellidos+"&Nombre="+Nombre
	end if
	
	response.buffer = true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
end if

'Cerrar Sesion
if tipo = 100 then
	Session("SesCodclte") 	= ""
	Session("sesCodLocal") 	= ""
	Session("sesSvName") 	= ""
	Session("usuario") 		= ""
	pagina  				= "Default.asp"
	response.buffer 		= true 
	Response.Clear()
	Response.Redirect(pagina)
	Response.End()	
end if
%>
