AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras parametros

Browse Source
This commit is contained in:
rrene
2023-02-12 21:45:58 -07:00
parent c5e145ffad
commit 6fad08d43a
7 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Prospectos/CatProspectosRedes.aspx.vb
View File

@@ -34,7 +34,7 @@ Partial Class Prospectos_CatProspectos
DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
CargaDatos(True) CargaDatos(True)
ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")

4
Prospectos/ProspectoExpediente.aspx.vb
View File

@@ -197,11 +197,11 @@ Partial Class Prospectos_ProspectoExpediente
End Sub End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

4
Prospectos/ProspectosG15.aspx.vb
View File

@@ -153,11 +153,11 @@ Partial Class Prospectos_ProspectosG15
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
End Sub End Sub
Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)

4
Prospectos/ProspectosSIP.aspx.vb
View File

@@ -137,11 +137,11 @@ Partial Class Prospectos_ProspectosSIP
End Sub End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
End Sub End Sub
Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)

2
Prospectos/RepEncuestasDetalle.aspx.vb
View File

@@ -24,7 +24,7 @@ Partial Class Prospectos_RepEncuestasDetalle
If CveMunicipio > 0 Then If CveMunicipio > 0 Then
Dim dr As DataRow = GlobalDTGralMunicipios(-1).FiltroPrimero("CveMunicipio =" & CveMunicipio) Dim dr As DataRow = GlobalDTGralMunicipios("-1", CveEstado:=-1).FiltroPrimero("CveMunicipio =" & CveMunicipio)
If dr IsNot Nothing Then LblMunicipio.Text = dr("Municipio").ToString() If dr IsNot Nothing Then LblMunicipio.Text = dr("Municipio").ToString()
End If End If
LblSeccion.Text = Seccion.ToString LblSeccion.Text = Seccion.ToString

2
Prospectos/RepProspectosRedes.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Prospectos_RepProspectosRedes
DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind() DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind()
CargaDatos(True) CargaDatos(True)

7
Sistemas/CatSesiones.aspx.vb
View File

@@ -489,9 +489,10 @@ Partial Class Sistemas_CatSesiones
End Sub End Sub
Private Sub CargaOCEstatus() Private Sub CargaOCEstatus()
Dim ObjOC As New ClsOC 'Dim ObjOC As New ClsOC
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing 'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
ObjOC.Dispose() 'ObjOC.Dispose()
GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing
End Sub End Sub
Private Sub CargaOCEstatusUsuarios() Private Sub CargaOCEstatusUsuarios()