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

-- filtro por CP, en localidad

Browse Source
This commit is contained in:
rrene
2024-09-12 13:23:42 -07:00
parent 594638f2b0
commit 4e3b3ea278
4 changed files with 16 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsGenerales.vb
View File

@@ -3059,12 +3059,13 @@ Public Class ClsGenerales
End Function End Function
Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CodigoPostal As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_LocalidadGet") DataAdapter("PA_Gral_SAT_LocalidadGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado .Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
.Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio .Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio
.Add("@CodigoPostal", SqlDbType.VarChar).Value = CodigoPostal
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

19
App_Code/ClsPaginas.vb
View File

@@ -589,25 +589,20 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Property GlobalDTLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As DataTable Property GlobalDTLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CodigoPostal As String = "-1") As DataTable
Get Get
If Application("GlobalDTLocalidad") Is Nothing Then If Application("GlobalDTLocalidad") Is Nothing Then
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATLocalidad(-1, -1) Then Application("GlobalDTLocalidad") = ObjGrales.DtResultados If ObjGrales.GetSATLocalidad(-1, -1) Then Application("GlobalDTLocalidad") = ObjGrales.DtResultados
ObjGrales.Dispose() ObjGrales.Dispose()
End If End If
Dim StrFiltro As String = "" Dim filtros As New List(Of String)
If CveEstado > 0 And CveMunicipio > 0 Then If CveEstado > 0 And CveMunicipio > 0 Then filtros.Add($" CveEstado = '{CveEstado}' AND CveMunicipio = '{CveMunicipio}'")
StrFiltro = $" CveEstado = '{CveEstado}' AND CveMunicipio = '{CveMunicipio}'" If CveEstado > 0 Then filtros.Add($" CveEstado = '{CveEstado}'")
ElseIf CveEstado > 0 Then If CveMunicipio > 0 Then filtros.Add($" CveMunicipio = '{CveMunicipio}'")
StrFiltro = $" CveEstado = '{CveEstado}'" If CodigoPostal <> "-1" Then filtros.Add($" CP = '{CodigoPostal}'")
ElseIf CveMunicipio > 0 Then
StrFiltro = $" CveMunicipio = '{CveMunicipio}'"
Else
StrFiltro = ""
End If
Dim Dv As New DataView(DirectCast(Application("GlobalDTLocalidad"), DataTable), StrFiltro, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application("GlobalDTLocalidad"), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTLocalidad = Dv.ToTable GlobalDTLocalidad = Dv.ToTable
Dv.Dispose() Dv.Dispose()

10
Inventarios/CartaPorteManual.aspx.vb
View File

@@ -548,11 +548,11 @@ Partial Class Inventarios_CartaPorteManual
If Tipo = 1 Then If Tipo = 1 Then
CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, EnvioDireccion, EnvioNoExt, EnvioNoInt, "", "", "", EnvioCP, "", UsuarioActual.CveUsuario, 1, -1, "", CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, EnvioDireccion, EnvioNoExt, EnvioNoInt, "", "", "", EnvioCP, "", UsuarioActual.CveUsuario, 1, -1, "",
CvePais:=CvePais, CveEstado:=CveEstado, CveMunicipio:=CveMunicipio, CveLocalidad:=CveLocalidad, CveColonia:=CveColonia) CvePais:=CvePais, CveEstado:=CveEstado, CveMunicipio:=CveMunicipio, CveLocalidad:=CveLocalidad, CveColonia:=CveColonia, CveEmpresa:=UsuarioActual.CveEmpresa)
Else Else
CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, EnvioDireccion, EnvioNoExt, EnvioNoInt, "", "", "", EnvioCP, "", UsuarioActual.CveUsuario, 1, -1, "", CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, EnvioDireccion, EnvioNoExt, EnvioNoInt, "", "", "", EnvioCP, "", UsuarioActual.CveUsuario, 1, -1, "",
CvePais:=CvePais, CveEstado:=CveEstado, CveMunicipio:=CveMunicipio, CveLocalidad:=CveLocalidad, CveColonia:=CveColonia) CvePais:=CvePais, CveEstado:=CveEstado, CveMunicipio:=CveMunicipio, CveLocalidad:=CveLocalidad, CveColonia:=CveColonia, CveEmpresa:=UsuarioActual.CveEmpresa)
End If End If
Next Next
@@ -1081,12 +1081,10 @@ Partial Class Inventarios_CartaPorteManual
DdlDirClienteLocalidad.Items.Clear() DdlDirClienteLocalidad.Items.Clear()
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero) DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=TxtEnvioCP.Text.Trim)
DdlDirClienteLocalidad.DataBind() DdlDirClienteLocalidad.DataBind()
End If End If
DdlDirClienteLocalidad.Items.Insert(0, New ListItem("-", "-1"))
DdlDirClienteLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1"))
End Sub End Sub

4
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -872,11 +872,11 @@ Partial Class CatSubProyectos
DdlLocalidad.Items.Clear() DdlLocalidad.Items.Clear()
If DdlEstado.SelectedValue.ToEntero > 0 Then If DdlEstado.SelectedValue.ToEntero > 0 Then
DdlLocalidad.DataSource = GlobalDTLocalidad(DdlEstado.SelectedValue.ToEntero, DdlMunicipio.SelectedValue.ToEntero) DdlLocalidad.DataSource = GlobalDTLocalidad(DdlEstado.SelectedValue.ToEntero, DdlMunicipio.SelectedValue.ToEntero, CodigoPostal:=TxtCP.Text.Trim)
DdlLocalidad.DataBind() DdlLocalidad.DataBind()
End If End If
DdlLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1")) DdlLocalidad.Items.Insert(0, New ListItem("-", "-1"))
End Sub End Sub