Código:
<%@ Register TagPrefix="uc1" TagName="DepartamentoCiudad" Src="DepartamentoCiudad.ascx" %> <%@ Control Language="vb" AutoEventWireup="false" Codebehind="DatosRecidencia.ascx.vb" Inherits="SUBSIDIADOCOMFAMA.DatosRecidencia" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %> <script type="text/javascript" language="javascript"> var MLocalidades = new Array(); var MBarrio = new Array(); var CDep = ""; var CMun = ""; </script> <% Dim rowL as System.Data.DataRow Dim Localidad As New Integra.Integra_ClComunes.Administracion.Comunes.Localidad Dim DtLocalidad As System.Data.DataTable = Localidad.Lista() Dim i As Integer = 0 For Each rowL In DtLocalidad.Rows%> AddLocalidades("<%=i%>","<%=trim(rowL("cod_depar"))%>","<%=trim(rowL("cod_ciudad"))%>","<%=trim(rowL("cod_local"))%>","<%=trim(rowL("Descrip_local"))%>") <% i=i+1 Next Dim rowB as System.Data.DataRow Dim Barrio As New Integra.Integra_ClComunes.Administracion.Comunes.Barrio Dim dtBarrios As New System.Data.DataTable dtBarrios = Barrio.Lista() i=0 For Each rowB In dtBarrios.Rows%> AddBarrio("<%=i%>","<%=Trim(rowB("Cod_depar"))%>","<%=trim(rowB("Cod_ciudad"))%>","<%=trim(rowB("Cod_local"))%>","<%=trim(rowB("Cod_Barrio"))%>","<%=Trim(rowB("Descr_barrio"))%>") <% i=i+1 Next %> <script type="text/javascript" language="javascript"> function AddLocalidades(Sec,CodDep,CodMun,CodLoc,Nombre){ MLocalidades[Sec] = new Object; MLocalidades[Sec].CodDep=CodDep; MLocalidades[Sec].CodMun=CodMun; MLocalidades[Sec].CodLoc=CodLoc; MLocalidades[Sec].Nombre=Nombre; } function AddBarrio(Sec,CodDep,CodMun,CodLoc,CodBarrio,Nombre){ MBarrio[Sec] = new Object; MBarrio[Sec].CodDep = CodDep; MBarrio[Sec].CodMun = CodMun; MBarrio[Sec].CodLoc = CodLoc; MBarrio[Sec].CodBarrio=CodBarrio; MBarrio[Sec].Nombre=Nombre; } function Localidades(CodDep,CodMun){ CDep=CodDep; CMun=CodMun; while (Form1.DatosRecidencia_LsLocalidad.length>0){ Form1.DatosRecidencia_LsLocalidad.remove(0) } for (i in MLocalidades){ if (MLocalidades[i].CodDep==CDep && MLocalidades[i].CodMun==CMun){ var Opc = document.createElement("OPTION"); Opc.text = MLocalidades[i].Nombre; Opc.value = MLocalidades[i].CodLoc; if (Form1.DatosRecidencia_HdCodLocalida.value==MLocalidades[i].CodLoc) Opc.selected=true Form1.DatosRecidencia_LsLocalidad.add(Opc); } } if (Form1.DatosRecidencia_HdCodLocalida.value=="" && Form1.DatosRecidencia_LsLocalidad.length>0) Form1.DatosRecidencia_HdCodLocalida.value=Form1.DatosRecidencia_LsLocalidad.item(0).value Barrio() } function Barrio() { var elLoc = Form1.DatosRecidencia_LsLocalidad.value; while (Form1.DatosRecidencia_LsBarrio.length>0){ Form1.DatosRecidencia_LsBarrio.remove(0) } for (i in MBarrio){ if (MBarrio[i].CodDep==CDep && MBarrio[i].CodMun==CMun && MBarrio[i].CodLoc==elLoc){ var Opc = document.createElement("OPTION"); Opc.text = MBarrio[i].Nombre; Opc.value = MBarrio[i].CodBarrio; if (Form1.DatosRecidencia_HdBarrio.value==MBarrio[i].CodBarrio){ Opc.selected=true; } Form1.DatosRecidencia_LsBarrio.add(Opc); } } //if (Form1.DatosRecidencia_HdBarrio.value=="" && Form1.DatosRecidencia_LsBarrio.length>0) //20091212_RQ2990 - SE CAMBIA EL CONDICIONAL DEBIDO A QUE NO SE ESTABAN CARGANDO LOS BARRIOS. - JHON F. VELASQUEZ. if (Form1.DatosRecidencia_LsBarrio.length>0) //Form1.DatosRecidencia_HdBarrio.value=Form1.DatosRecidencia_LsBarrio.item(0).value; Form1.DatosRecidencia_HdBarrio.value=Form1.DatosRecidencia_LsBarrio.value; } function SeleccionLocalidad() { Form1.DatosRecidencia_HdCodLocalida.value=Form1.DatosRecidencia_LsLocalidad.value; Barrio() } function SeleccionColegio() { Form1.DatosRecidencia_HdCodColegio.value=Form1.DatosRecidencia_LsColegio.value; Barrio() } function SeleccionBarrio() { Form1.DatosRecidencia_HdBarrio.value=Form1.DatosRecidencia_LsBarrio.value; } function DtsResidencia_Validar() { var ok=true var enter=String.fromCharCode(13); var mss="Datos Residencia" + enter; if (Form1.DatosRecidencia_Telefono.value=="") {ok=false;mss+=" Teléfono no pude ser vació" + enter;} if (Form1.DatosRecidencia_LsZona.value==-1) {ok=false;mss+=" Zona invalida" + enter;} if (!ok) return mss else return "" } function DtsBarrios_Validar() { var ok=true var enter=String.fromCharCode(13); var mss="Datos Barrio" + enter; if (Form1.DatosRecidencia_LsBarrio.value==-1) {ok=false;mss+=" Barrio no se ha Seleccionado" + enter;} if (!ok) return mss else return "" } function Telefono_onblur() { var campo=Form1.DatosRecidencia_Telefono.value; Form1.DatosRecidencia_Telefono.value=campo.toUpperCase() } function Direccion_onblur() { var campo=Form1.DatosRecidencia_Direccion.value; Form1.DatosRecidencia_Direccion.value=campo.toUpperCase() } </script> <table id="TablaDtsRecidencia" width="95%" runat="server"> <tr class="tabla-datos1"> <td align="left" style="WIDTH: 204px"><strong>Zona</strong></td> <td><select class="CamposFormas" id="LsZona" size="1" name="LsZona" runat="server"></select></td> <td align="left"><input id="HdCodLocalida" style="WIDTH: 88px; HEIGHT: 22px" type="hidden" size="9" runat="server" /><strong>Comuna/Sector</strong></td> <td><select class="CamposFormas" id="LsLocalidad" onchange="SeleccionLocalidad()" runat="server"></select></td> </tr> <tr class="tabla-datos1"> <td align="left" style="WIDTH: 204px"><input id="HdBarrio" style="WIDTH: 64px; HEIGHT: 22px" type="hidden" size="5" runat="server" name="HdBarrio" /><strong>Barrio/Vereda</strong></td> <td><select class="CamposFormas" id="LsBarrio" onchange="SeleccionBarrio()" runat="server" name="LsBarrio"></select></td> <td align="left"><strong>Teléfono</strong></td> <td><input class="CamposFormas" id="Telefono" onblur="Telefono_onblur()" type="text" maxlength="30" size="22" name="Telefono" runat="server" /></td> </tr> <tr class="tabla-datos1"> <td align="left" style="WIDTH: 204px"><strong>Dirección</strong></td> <td colspan="3"><input class="CamposFormas" id="Direccion" onblur="Direccion_onblur()" type="text" size="69" name="Direccion" runat="server" /><input id="Departamento" style="WIDTH: 32px; HEIGHT: 22px" type="hidden" size="1" name="HDDepartamento" runat="server" /><input id="CodCiudad" style="WIDTH: 32px; HEIGHT: 22px" type="hidden" size="1" name="HDCodCiudad" runat="server" /></td> </tr> <tr class="tabla-datos1"> <td align="left" style="WIDTH: 203px"><strong>EMail</strong></td> <td><input class="CamposFormas" id="Email" onblur="Telefono_onblur()" type="text" maxlength="50" size="35" name="Telefono" runat="server" /></td> <td align="left"><input id="HDCodColegio" style="WIDTH: 88px; HEIGHT: 22px" type="hidden" size="9" name="HDCodColegio" runat="server" /></td> <td></td> </tr> </table>