<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="Conexion.asp" -->
<%
Response.Buffer = True
Response.Flush

Dim sql
Dim rsDpto
Dim rsProvincia
Dim rsDistrito
Dim rsLocal
Dim rsNroTarjeta
Dim GestionTipo
Dim sApellido, sNombre, sDepar, sProv, sDist, sDirec, sTelef, slocal, semail, stipo, sfnac, iClienteVIP
'sw
dim oArchivo
dim sFoto
dim cadenaASP

GestionTipo = Request.QueryString("GestionTipo")
'response.write GestionTipo
sql = "sp_GranjaVilla_0003"
Set rsDpto	= Conex.Execute(sql)
sql = "sp_GranjaVilla_0004"
Set rsProvincia	= Conex.Execute(sql)
sql = "sp_GranjaVilla_0005"
Set rsDistrito	= Conex.Execute(sql)
sql = "sp_GranjaVilla_0006"
set rsLocal = Conex.Execute(sql)
sql = "sp_GranjaVilla_0007"
set rsTipoClte = Conex.Execute(sql)

if (GestionTipo=1) then
sql = "sp_GranjaVilla_0008"
set rsNroTarjeta = Conex.Execute(sql)
titulo = "Nuevo Cliente"
end if
if (GestionTipo=2) then
titulo = "Editar Cliente"
end if
if (GestionTipo=3) then
titulo = "Eliminar Cliente"
end if
if (GestionTipo=4) then
titulo = "Ver Cliente"
end if
sql = "sp_GranjaVilla_0012 '"+Session("SesCodclte")+"','"+Session("sesCodLocal")+"'"
if (GestionTipo<>1) then


	'sql = "sp_GranjaVilla_0012 '1','2'"
	set rsDatosClientes = Conex.Execute(sql)
	if  rsDatosClientes.eof	  then
		sApellido 	= ""
		sNombre		= ""
		sDepar		= ""
		sProv		= ""
		sDist		= ""
		sDirec		= ""
		sTelef		= ""
		slocal		= ""
		semail		= ""
		stipo		= ""
		sfnac		= ""
		iClienteVIP = 0
		sFoto		= ""
		Session("sRutaFoto") = ""
	else
		sApellido 	= rsDatosClientes.Fields("sClieApel").value
		sNombre		= rsDatosClientes.Fields("sClieName").value
		sDepar		= rsDatosClientes.Fields("cDepaCode").value
		sProv		= rsDatosClientes.Fields("cProvCode").value
		sDist		= rsDatosClientes.Fields("cDistCode").value 
		sDirec		= rsDatosClientes.Fields("sClieAddr").value
		sTelef		= rsDatosClientes.Fields("sClieTelf").value 
		slocal		= rsDatosClientes.Fields("idLocal").value
		semail		= rsDatosClientes.Fields("sClieMail").value
		stipo		= rsDatosClientes.Fields("iTipo").value
		sfnac		= rsDatosClientes.Fields("dNacmDate").value
		iClienteVIP = rsDatosClientes("bClienteVIP").value
		sFoto		= rsDatosClientes("sClieRout").value
		Session("sRutaFoto") = sFoto
	end if

end if
x = 0
%>

<script language="javascript">
function Trim(s) 
{
  while ((s.substring(0,1) == '\n') || (s.substring(0,1) == '\r'))
  {
    s = s.substring(1,s.length);
  }
  while ((s.substring(s.length-1,s.length) == '\n') || (s.substring(s.length-1,s.length) == '\r'))
  {
    s = s.substring(0,s.length-1);
  }
  return s;
}

<!--Opcion permite llenar el 2do combo Dependiente : Provincia-->
function sublist(inform, selecteditem)
{
	var primero=0;
	inform.txtProv.length = 0;
	inform.txtDist.length = 0;
<%
	count=0
	y=0

do while not rsProvincia.eof
%>

x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = "<%=(rsProvincia("sLocaName")) %>";
subcatagoryof = "<%=(rsProvincia("cDepaCode"))%>";
subcatagoryid = "<%=(rsProvincia("cProvCode"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;

if (subcat[x,1] == selecteditem) 
{
	if (primero==0)
	{
	primero=subcat[x,2];
	}	
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.txtProv.options[inform.txtProv.length]=option<%= trim(count)%>;
<%if GestionTipo=2 then%>
inform.txtProv.value=<%=sProv%>
<%end if%>
<%if GestionTipo=3 then%>
inform.txtProv.value=<%=sProv%>
<%end if%>
<%if GestionTipo=4 then%>
inform.txtProv.value=<%=sProv%>
<%end if%>
}
<%
count = count + 1
y = y + 1
rsProvincia.movenext
loop

%>
<%if GestionTipo=1 then%>
subsublist(inform,primero)
<%else%>
subsublist(inform,<%=sProv%>)
<%end if%>

}

<!--Opcion permite llenar el 3do combo Dependiente : Distrito-->
function subsublist(inform, selecteditem)
{
inform.txtDist.length = 0
subcat = new Array();
<%
	count=0
	y=0
	conta=0

do while not rsDistrito.eof
%>
x = <%= trim(y) %>;

subcatagorys = Trim("<%=(rsDistrito("sLocaName")) %>");
subcatagoryof = "<%=(rsDistrito("cProvCode"))%>";
subcatagoryid = "<%=(rsDistrito("cDistCode"))%>";

subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;

if (subcat[x,1] == selecteditem) 
{
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.txtDist.options[inform.txtDist.length]=option<%= trim(count)%>;
<%if GestionTipo=2 then%>
inform.txtDist.value=<%=sDist%>
<%end if%>
<%if GestionTipo=3 then%>
inform.txtDist.value=<%=sDist%>
<%end if%>
<%if GestionTipo=4 then%>
inform.txtDist.value=<%=sDist%>
<%end if%>
}
<%
count = count + 1
y = y + 1
rsDistrito.movenext
loop

%>
}

function val01(inform){
	if (inform.chkFNac.checked)
	{
		inform.btnFNac.disabled=false
	}
	else
	{
		inform.btnFNac.disabled=true
		inform.dc.value=""
	}
}

function Grabar(){

	if ((document.frmCliente.txtApellidos.value=="")&(document.frmCliente.txtNombres.value=="")&(document.frmCliente.txtDpto.selectedIndex==0)&(document.frmCliente.txtProv.selectedIndex==-1)&(document.frmCliente.txtDist.selectedIndex==-1))
	{
		alert ("No ha Ingresado Datos")
		document.frmCliente.txtApellidos.focus()
		return 0;
	}
	
	if (document.frmCliente.txtApellidos.value=="")
	{
		alert ("Debe Ingresar Apellidos")
		document.frmCliente.txtApellidos.focus()
		return 0;
	}	
	if (document.frmCliente.txtNombres.value=="")
	{
		alert ("Debe Ingresar Nombres")
		document.frmCliente.txtNombres.focus()
		return 0;
	}	
	if (document.frmCliente.txtDpto.selectedIndex==0)
	{
		alert ("Debe Seleccionar Departamento")
		document.frmCliente.txtDpto.focus()
		return 0;
	}	
	if (document.frmCliente.txtProv.selectedIndex==-1)
	{
		alert ("Debe Seleccionar Provincia")
		document.frmCliente.txtProv.focus()
		return 0;
	}
	if (document.frmCliente.txtDist.selectedIndex==-1)
	{
		alert ("Debe Seleccionar Distrito");
		document.frmCliente.txtDist.focus();
		return 0;
	}
	//sw Add para validar el ingreso de Fec. Nac.
	if (document.frmCliente.dc.value=="")
	{
		alert ("Debe indicar la Fecha de Nacimiento.");
		document.frmCliente.dc.focus();
		return 0;
	}
	
	document.frmCliente.method = "post";
	document.frmCliente.action = "Validacion.asp"; 
	document.frmCliente.submit();  
}

function CodTarjetaNueva(){
<% if GestionTipo=1 then  %>	
	var Cod
	Cod = document.frmCliente.cbLocal.value;
	document.frmCliente.txtCodLocal.value = Cod;
	document.frmCliente.txtNroTarjeta.value=<%=rsNroTarjeta.Fields("nume").value %>
	document.frmCliente.btnAceptar.disabled = true;
	<% 
		dim Apellidos
		dim Nombre 
		set Apellidos = Request.QueryString("Apellidos")
		set Nombre = Request.QueryString("Nombre")
		MensajeVal = Request.QueryString("MensajeVal")
		if MensajeVal = 1 then
		
	%>
		document.frmCliente.txtValidarCliente.value= "Cliente No existe";
		document.frmCliente.txtApellidos.value="<%=Apellidos%>"
		document.frmCliente.txtNombres.value="<%=Nombre%>"
		document.frmCliente.btnAceptar.disabled = false;
	<% end if %>
	<% if MensajeVal = 2 then %>	
			document.frmCliente.txtValidarCliente.value = "Cliente Ya Existe";
			document.frmCliente.txtApellidos.value="<%=Apellidos%>"
			document.frmCliente.txtNombres.value="<%=Nombre%>"	
		a = confirm("Cliente Ya existe. Desea Continuar?");
		//alert(a);
		if(a==true)
		{
			document.frmCliente.btnAceptar.disabled = false;
		}
		else
		{
			document.frmCliente.btnAceptar.disabled = true;
		}		
	<% end if %>
	
<% end if%>
<% if GestionTipo=2 then  %>	
	sublist(document.frmCliente,<%=sDepar%>)
<% end if%>

<% if GestionTipo=3 then  %>	
	document.frmCliente.txtApellidos.disabled=true;
	document.frmCliente.txtNombres.disabled=true;
	document.frmCliente.txtDpto.disabled=true;
	document.frmCliente.txtProv.disabled=true;
	document.frmCliente.txtDist.disabled=true;
	document.frmCliente.txaDireccion.disabled=true;
	document.frmCliente.txtTelefono.disabled=true;
	document.frmCliente.txtEmail.disabled=true;
	document.frmCliente.txtTipoC.disabled=true;
	document.frmCliente.btnFNac.disabled=true;
	document.frmCliente.chkFNac.disabled=true;
	document.frmCliente.chkVIP.disabled=true;

	sublist(document.frmCliente,<%=sDepar%>)
<% end if%>

<% if GestionTipo=4 then  %>	
	document.frmCliente.txtApellidos.disabled=true;
	document.frmCliente.txtNombres.disabled=true;
	document.frmCliente.txtDpto.disabled=true;
	document.frmCliente.txtProv.disabled=true;
	document.frmCliente.txtDist.disabled=true;
	document.frmCliente.txaDireccion.disabled=true;
	document.frmCliente.txtTelefono.disabled=true;
	document.frmCliente.txtEmail.disabled=true;
	document.frmCliente.txtTipoC.disabled=true;
	document.frmCliente.btnFNac.disabled=true;
	document.frmCliente.chkFNac.disabled=true;
	document.frmCliente.chkVIP.disabled=true;
	sublist(document.frmCliente,<%=sDepar%>)
<% end if%>

}

function Salir(){
	window.close();
	}

function BuscarValidacion()
{
	var Datos;
	var Apellidos = document.frmCliente.txtApellidos.value
	var Nombre = document.frmCliente.txtNombres.value;
	var Local = document.frmCliente.cbLocal.value;
	if (document.frmCliente.txtApellidos.value=="")
	{
		alert ("Ingresar Apellidos para Validación")
		document.frmCliente.txtApellidos.focus()
		return 0;
	}
	if (document.frmCliente.txtNombres.value=="")
	{
		alert ("Ingresar Nombre para Validación")
		document.frmCliente.txtNombres.focus()
		return 0;
	}
	location.href("Validacion.asp?tipo=9&Apellidos="+Apellidos+"&Nombre="+Nombre+"&Local="+Local);
	
}

function setVIP(form) {
	if (form.chkVIP.checked) {
		form.txtVIP.value = "1";
	} else {
		form.txtVIP.value = "0";
	}
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Css/Stdw.css" type="text/css">
<title><%=titulo%></title>
<style>
 .combos01{
 font-size:12px;
 font-family:"Times New Roman", Times, serif;

 }
 
 .OmniClient{
 font-size:35px;
 font-family:Arial;
 font-style:normal }
 
 .BotonFotografiar{
 width:180px;
 height:25px;
 font-family:Geneva, Arial, Helvetica, sans-serif
 }
 
  .BotonPiePag{
 width:120px;
 height:25px;
 font-family:Geneva, Arial, Helvetica, sans-serif
 }
 .fondo3
 {
 	
 }
 .Campotxt{
 
 }
.style11 {font-size: x-large}
.style12 {
	color: #2A5FAA;
	font-weight: bold;
}
</style>

</head>

<body onLoad="CodTarjetaNueva(); setVIP(document.frmCliente);" bgcolor="#CFE5F7" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<DIV id=popCal 
style="BORDER-RIGHT: 2px ridge; BORDER-TOP: 2px ridge; Z-INDEX: 100; VISIBILITY: hidden; BORDER-LEFT: 2px ridge; WIDTH: 10px; BORDER-BOTTOM: 2px ridge; POSITION: absolute" 
onclick=event.cancelBubble=true><IFRAME name=popFrame 
src= "popcjs.htm" 
frameBorder=0 width=183 scrolling=no height=188></IFRAME></DIV>
<table width="100%" bgcolor="#2A5FAA" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" height="20" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<!--<hr color="#990033" width="100%">-->
<FORM  name="frmCliente" >
<table align="center" cellpadding="0" cellspacing="0">
<tr>
	<td>
		<table cellpadding="0" cellspacing="0">
		<!-- validar esta parte ya que existen 3 casos : nuevo, actualizar y vista-->
		<% if GestionTipo="1" then  %>
		<tr>
			<td width="150"><font class="Etiqueta2"><b>Nuevo Nro. tarjeta</b></font></td>
			<td><input type="text" style="width:100px" name="txtNroTarjeta" class="Campotxt" readonly="">-<input type="text" style="width:20px; text-align:center" name="txtCodLocal" class="Campotxt" readonly=""><input name="button" type="button" class="Boton1" value="Validar" onClick="BuscarValidacion()">
			<input type="text" style="border:0px; background-color:#CFE5F7;width:160px; text-align:center; color:#FF0000;font-size:12px; font-family:'Times New Roman', Times, serif" value="Validar Cliente" name="txtValidarCliente">
			</td>
		</tr>
		<% else %>
		<tr>
			<td width="150"></td>
			<td></td>
		</tr>		
		<% end if %>
		<tr>
			<td><font class="Etiqueta2"><b>Apellidos</b></font><font class="Etiqueta1Obg">&nbsp;*</font></b></font></td>
			<td><input type="text" style="width:340px" name="txtApellidos" value="<%=sApellido%>" class="Campotxt"></td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Nombres</b></font><font class="Etiqueta1Obg">&nbsp;*</font></b></font></td>
			<td><input type="text" style="width:340px" name="txtNombres" value="<%=sNombre%>"class="Campotxt"></td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Departamento</b></font><font class="Etiqueta1Obg">&nbsp;*</font></b></font></td>
			<td>
			<!--Combo Departamento-->
				<select name="txtDpto" class="Tabla2" id="txtDpto" style="width:220px" onChange = "javascript:sublist(this.form, txtDpto.value);">				
				<option value="0">Seleccionar</option>
				<%				
				do while not rsDpto.EOF	
				%>
				<option value="<%=rsDpto.Fields("cDepaCode").value %>" <%if rsDpto.Fields("cDepaCode").value=sDepar then%> selected="selected" <%end if%>><%=rsDpto.Fields("sLocaName").value%></option>
				<% 
				rsDpto.MoveNext
				Loop 
				rsDpto.close
				%>
			  </select>
				<input type="text" style="width:115px" name="txtDptoOtro" class="Campotxt">			</td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Provincia</b></font><font class="Etiqueta1Obg">&nbsp;*</font></b></font></td>
			<td>
				<!--Combo Provincia-->
				<SELECT name="txtProv" size="1" class="Tabla2" id="txtProv" style="width:220px" onChange = "javascript:subsublist(this.form, txtProv.value);">
		        </SELECT>																		
				<input type="text" style="width:115px" name="txtProvOtro" class="Campotxt">			</td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Distrito</b></font><font class="Etiqueta1Obg">&nbsp;*</font></b></font></td>
			<td>
				<!--Combo Distrito-->
				<SELECT name="txtDist" size="1" class="Tabla2" id="txtDist" style="width:220px">
		      </SELECT>
				<input type="text" style="width:115px" name="txtDistOtro"class="Campotxt">			</td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Direcci&oacute;n</b></font></td>
			<td><textarea style=" width:340px; height:40" name="txaDireccion" class="Tabla1"><%=sDirec%></textarea></td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Tel&eacute;fonos</b></font></td>
			<td><input type="text" style="width:160px" name="txtTelefono" value="<%=sTelef%>"class="Campotxt">
			<font class="Etiqueta2"><b>Local</b></font>
			  <select style="width:150px" class="Tabla2" disabled="disabled" name="cbLocal">
                <% do while not rsLocal.EOF %>
                <option value="<%=rsLocal.Fields("idLocal").value %>" selected="selected"><%=rsLocal.Fields("DscLocal").value%></option>
                <% 
				rsLocal.MoveNext
				Loop 
				rsLocal.Close
				%>
              </select></td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>E-Mail</b></font></td>
			<td><input type="text" style="width:340px" name="txtEmail" value="<%=semail%>"class="Campotxt"></td>
		</tr>
		<tr>
			<td><font class="Etiqueta2"><b>Tipo</b></font></td>
			<td>
			<select style="width:80px" class="Tabla2" name="txtTipoC">			
				<% do while not rsTipoClte.EOF %>
				<option value="<%=rsTipoClte.Fields("cliente_tipo_id").value %>" ><%=rsTipoClte.Fields("cliente_tipo_desc").value%></option>
				<% 
				rsTipoClte.MoveNext
				Loop 
				rsTipoClte.Close
				%>
			</select>
			<input type="checkbox" name="chkFNac" onClick="javascript:val01(this.form);" checked="checked" ><font class="Etiqueta2"><b>F. Nacimiento</b></font>
			<input style="TEXT-ALIGN: center; width:150px" readonly name=dc value="<%=sfnac%>" class="Campotxt">
			<INPUT onClick="popFrame.fPopCalendar(dc,dc,popCal);return false" type=button value=V name="btnFNac">			</td>
		</tr>
		<tr>
			<td></td>
			<td>
			<input type="checkbox" name="chkVIP" <%if iClienteVIP=1 then%>checked="checked"<%end if%> onClick="JavaScript:setVIP(this.form);"><font class="Etiqueta2"><b>Cliente VIP</b></font>
			<input type="hidden" name="txtVIP" value='<%=iClienteVIP%>' >
			</td>
		</tr>
		</table>
	</td>		
	<td>
		<table>
		
		<tr>
		  <td><div align="center" class="style11 style12">OmniClient</div></td>
		  </tr>
		<tr>
			<td>
				<%cadenaASP="cargarFoto.asp?sFoto="&Replace(sFoto, "\", "|")&"&GestionTipo="&GestionTipo%>
				<iframe id="fCargarFoto" width="200px" height="245px" scrolling="No" src="<%=cadenaASP%>">				</iframe>			</td>
		</tr>
		<!--
		<tr>
			<td align="center"><input type="button" name="btnFotografiar" value="Fotografiar" class="BotonFotografiar"></td>
		</tr>
		-->
		</table>		
	</td>
</tr>
<tr>
	<% if GestionTipo=1 then%>
	<td><input type="hidden" name="tipo" value="3"></td>
    <% end if %>
	<% if GestionTipo=2 then%>
	<td><input type="hidden" name="tipo" value="5"></td>
    <% end if %>    
	<% if GestionTipo=3 then%>
	<td><input type="hidden" name="tipo" value="6"></td>
    <% end if %>  
	<% if GestionTipo=4 then%>
	<td><input type="hidden" name="tipo" value="7"></td>
    <% end if %>  		
</tr>
</table>

<table align="center" width="100%"  border="0" cellpadding="0" cellspacing="0">
<tr>
	<td colspan="2">   
    	<iframe style="width:100%; height:220px; " src="frmClienteDetalle.asp?gestionT=<%=Request.QueryString("GestionTipo")%>" frameborder="0" name="frmClienteDetalle">
        </iframe>
   
    </td>
</tr>
<tr><!--
	<td align="left">
    	<input type="button" name="btnAcumulacion" value="Acumulaci&oacute;n" class="BotonPiePag">  
        <input type="button" name="btnCanje" value="Canje" class="BotonPiePag">  
    </td>-->
	<td align="right" colspan="2">
    	<input type="button" name="btnAceptar" value="Aceptar" class="Boton1" onClick="JavaScript:Grabar()" style="width:100px">  
    	<input type="button" name="btnCancelar" value="Cancelar" class="Boton1" onClick="JavaScript:Salir()" style="width:100px">
    </td>
</tr>
</table>
<br><br>
<table width="100%" bgcolor="#2A5FAA" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" height="30" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
</FORM>
</body>
</html>