-
-
+
+
+
+
@@ -169,5 +226,22 @@
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index 48624b2ab..aafd859f2 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -3,17 +3,38 @@ Imports System.Data
Partial Class Acarreos_CatChoferes
- Inherits ClsPaginas
-
+ Inherits ClsPaginas
+
#Region " PROPIEDADES"
-
+
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
- CargaDdlTransportista()
+ CargaDdlTransportista()
+ DdlColonias.setEsWebService(True)
+ Dim DT As DataTable = GlobalDTColonia(-1)
+ CargaDdls()
+
+
End If
+ End Sub
+
+
+ Private Sub CargaDdls()
+
+
+
+ DdlEstado.DataSource = GlobalDTEstado(-1).FiltraParametros("ClaveSATPais = 'MEX'")
+ DdlEstado.DataBind()
+ DdlEstado.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+ DdlMunicipio.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ DdlLocalidad.Items.Insert(0, New ListItem("Seleccione Una", "-1"))
+
+
End Sub
Private Sub CargaDatos()
@@ -38,32 +59,44 @@ Partial Class Acarreos_CatChoferes
UpAddChofer.Update()
End Sub
- Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
+ Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
+
+
+ Dim CveColonia As Integer = If(DdlColonias.txtValue.Value.ToEntero > 0, DdlColonias.txtValue.Value.ToEntero, -1)
+
+ If CveColonia <= 0 Then
+ Alert("El campo colonia es necesario, por favor ingréselo.", TipoMensaje.MsgAdvertencia)
+ End If
+
+
If DdlTransportista.SelectedValue = "-1" Then
Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
Else
Dim ObjAcar As New ClsAcarreos
Dim Estatus = 0
- If ChkEstatus.Checked Then Estatus = 1
+ If ChkEstatus.Checked Then Estatus = 1
+
If HdnModalidad.Value = "A" Then
- If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
+ If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
CargaDatos()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
- If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then
+ If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
End If
+
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
ObjAcar.Dispose()
UpDatos.Update()
End If
End Sub
- Public Sub Edit_Click(sender As Object, e As EventArgs)
+ Public Sub Edit_Click(sender As Object, e As EventArgs)
+
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnModalidad.Value = "U"
HdnID.Value = GvRow.DataKey("CveChofer")
@@ -79,9 +112,9 @@ Partial Class Acarreos_CatChoferes
TxtDomicilio.Text = GvRow.DataKey("Domicilio")
TxtNumInt.Text = GvRow.DataKey("NumeroInterior")
TxtNumExt.Text = GvRow.DataKey("NumeroExterior")
- TxtColonia.Text = GvRow.DataKey("Colonia")
- TxtCiudad.Text = GvRow.DataKey("Ciudad")
- TxtEstado.Text = GvRow.DataKey("Estado")
+ 'TxtColonia.Text = GvRow.DataKey("Colonia")
+ 'TxtCiudad.Text = GvRow.DataKey("Ciudad")
+ 'TxtEstado.Text = GvRow.DataKey("Estado")
TxtCP.Text = GvRow.DataKey("CP")
TxtLicencia.Text = GvRow.DataKey("Licencia")
@@ -92,8 +125,49 @@ Partial Class Acarreos_CatChoferes
divEstatus.Visible = True
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
+
+
+ DdlEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
+
+
+ DdlMunicipio.Items.Clear()
+ If DdlEstado.SelectedValue.ToEntero > 0 Then
+
+ Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ")
+ DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
+ DdlMunicipio.DataBind()
+
+ End If
+ DdlMunicipio.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ DdlMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
+
+
+ DdlLocalidad.Items.Clear()
+ If DdlEstado.SelectedValue.ToEntero > 0 And DdlMunicipio.SelectedValue.ToEntero > 0 Then
+
+ DdlLocalidad.DataSource = GlobalDTLocalidad(DdlEstado.SelectedValue.ToEntero, DdlMunicipio.SelectedValue.ToEntero)
+ DdlLocalidad.DataBind()
+
+
+ End If
+ DdlLocalidad.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ DdlLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+
+ If GvRow.DataKey("CveColonia").ToEntero > 0 Then
+
+ DdlColonias.txtText.Value = GvRow.DataKey("ClaveSATColoniaCP")
+ DdlColonias.txtValue.Value = GvRow.DataKey("CveColonia")
+
+ Else
+ DdlColonias.txtText.Value = "Selecione Una"
+ DdlColonias.txtValue.Value = "-1"
+ End If
+
+
UpAddChofer.Update()
- RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
+
+ RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer"))
+
End Sub
Public Sub Agregar()
@@ -105,7 +179,7 @@ Partial Class Acarreos_CatChoferes
TxtIdentificacion.Text = ""
TxtDomicilio.Text = ""
TxtTelefono.Text = ""
- TxtCiudad.Text = ""
+ 'TxtCiudad.Text = ""
TxtLicencia.Text = ""
@@ -113,14 +187,20 @@ Partial Class Acarreos_CatChoferes
TxtRFC.Text = ""
TxtNumInt.Text = ""
TxtNumExt.Text = ""
- TxtEstado.Text = ""
+ 'TxtEstado.Text = ""
TxtCP.Text = ""
- TxtColonia.Text = ""
+ 'TxtColonia.Text = ""
TxtNumRegidTribOperador.Text = ""
TxtResidenciaFiscalOperador.Text = ""
-
+ DdlColonias.txtText.Value = "Selecione Una"
+ DdlColonias.txtValue.Value = "-1"
+
+ DdlEstado.SelectedValueExist(-1)
+ DdlEstado_SelectedIndexChanged(Nothing, Nothing)
+
+
ChkEstatus.Checked = True
divEstatus.Visible = False
UpAddChofer.Update()
@@ -155,5 +235,81 @@ Partial Class Acarreos_CatChoferes
Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click
Agregar()
- End Sub
+ End Sub
+
+ Protected Sub LnkValidar_Click(sender As Object, e As EventArgs)
+ validaCodigoPostal()
+ End Sub
+
+ Protected Sub DdlEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+ DdlMunicipio.Items.Clear()
+
+ If DdlEstado.SelectedValue > 0 Then
+
+ Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ")
+ DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
+ DdlMunicipio.DataBind()
+
+
+ End If
+
+ DdlMunicipio.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ DdlMunicipio.SelectedValueExist(-1)
+
+
+ DdlLocalidad.Items.Clear()
+ DdlLocalidad.Items.Insert(0, New ListItem("Seleccione Una", "-1"))
+
+
+ UpAddChofer.Update()
+
+
+ End Sub
+ Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ DdlLocalidad.Items.Clear()
+
+ If DdlMunicipio.SelectedValue > 0 Then
+
+ DdlLocalidad.DataSource = GlobalDTLocalidad(DdlEstado.SelectedValue.ToEntero, DdlMunicipio.SelectedValue.ToEntero)
+ DdlLocalidad.DataBind()
+
+ End If
+
+ DdlLocalidad.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ DdlLocalidad.SelectedValueExist(-1)
+
+
+ UpAddChofer.Update()
+
+ End Sub
+
+
+
+ Protected Sub DdlColonias_selectedindexchange(sender As Object, e As EventArgs)
+
+ If DdlColonias.txtValue.Value.ToEntero > 0 Then
+ validaCodigoPostal()
+ End If
+
+ End Sub
+
+
+ Private Sub validaCodigoPostal()
+
+ Dim CPTxt As Integer = TxtCP.Text.ToEntero()
+
+ Dim CveColonia As Integer = DdlColonias.txtValue.Value.ToEntero
+
+ If CPTxt > 0 And CveColonia > 0 Then
+ Dim CP As Integer = GlobalDTColonia(-1).FiltroPrimeroValor("CP", $"CveColonia = {CveColonia}")
+ If CPTxt <> CP Then
+ Alert("El codigo postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+ End If
+ End If
+
+ End Sub
+
End Class
diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb
index 14875112c..40453e466 100644
--- a/App_Code/ClsAcarreos.vb
+++ b/App_Code/ClsAcarreos.vb
@@ -111,7 +111,7 @@ Public Class ClsAcarreos
#Region "Choferes"
Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String,
Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "",
- Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean
+ Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "", Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Acar_ChoferesAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -131,7 +131,11 @@ Public Class ClsAcarreos
.Add("@Estado", SqlDbType.VarChar).Value = Estado
.Add("@CP", SqlDbType.VarChar).Value = CP
.Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador
- .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
+ .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
+ .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+ .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+ .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
End With
Try
SqlAdapter.Fill(Data)
@@ -145,7 +149,7 @@ Public Class ClsAcarreos
Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String,
Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "",
- Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean
+ Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "", Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Acar_ChoferesUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -167,7 +171,11 @@ Public Class ClsAcarreos
.Add("@CP", SqlDbType.VarChar).Value = CP
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador
- .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
+ .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador
+ .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+ .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+ .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
End With
Try
SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 5615d03b2..ab161ebc8 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -258,7 +258,7 @@ Public Class ClsContabilidad
Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
- Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1) As Boolean
+ Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1) As Boolean
Dim Retorno As Boolean = False
@@ -271,6 +271,7 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovto
+ '.Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@ImporteMN", SqlDbType.Money).Value = ImporteMN
.Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 9f6c539d7..c693d37a3 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2820,6 +2820,23 @@ Public Class ClsGenerales
OnError("Ocurrió un error al obtener los municipios del SAT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
+ End Function
+
+
+ Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("Gral_SAT_LocalidadGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
+ .Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener las localidades del SAT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return Retorno
End Function
Public Function GetSATColonia(ClaveSATMunicipio As String) As Boolean
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 16a836392..2898c514e 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -425,6 +425,48 @@ Public Class ClsPaginas
End Set
End Property
+
+ Property GlobalDTLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As DataTable
+ Get
+
+ If Application("GlobalDTLocalidad") Is Nothing Then
+
+ Dim ObjGrales As New ClsGenerales
+ If ObjGrales.GetSATLocalidad(-1, -1) Then Application("GlobalDTLocalidad") = ObjGrales.DtResultados Else Application("GlobalDTLocalidad") = Nothing
+ ObjGrales.Dispose()
+
+ End If
+
+ Dim StrFiltro As String = ""
+
+ If CveEstado > 0 And CveMunicipio > 0 Then
+ StrFiltro = $" CveEstado = '{CveEstado}' AND CveMunicipio = '{CveMunicipio}'"
+ ElseIf CveEstado > 0 Then
+ StrFiltro = $" CveEstado = '{CveEstado}'"
+ ElseIf CveMunicipio > 0 Then
+ StrFiltro = $" CveMunicipio = '{CveMunicipio}'"
+
+ Else
+ StrFiltro = ""
+ End If
+
+
+ Dim Dv As New DataView(DirectCast(Application("GlobalDTLocalidad"), DataTable), StrFiltro, "", DataViewRowState.CurrentRows)
+ GlobalDTLocalidad = Dv.ToTable
+
+ Dv.Dispose()
+
+
+
+ End Get
+ Set(value As DataTable)
+ Application("GlobalDTLocalidad") = value
+ End Set
+
+ End Property
+
+
+
Property GlobalDTColonia(ClaveSATMunicipio As String) As DataTable
Get
If Application("GlobalDTColonia") Is Nothing Then
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index fdc3a076d..21f62896b 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -113,6 +113,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
context.Response.Write(sendMail(context))
Case "sendMailLPM"
context.Response.Write(sendMailLPM(context))
+ Case "getSATColomias"
+ getSatColonias(context)
End Select
Catch ex As Exception
ex.GuardaLog(ex.Message)
@@ -1319,6 +1321,37 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End Function
#End Region
+
+
+#Region "Get SAT Colonmias"
+ Private Function getSATColonias(ByVal context As HttpContext) As String
+ Dim retorno As String = ""
+ Dim DtRetorno As DataTable = Nothing
+
+
+ Dim Name = IfNull(context.Request("Name"), "-1").ToString
+
+
+ Dim dt As DataTable = DirectCast(context.Application("GlobalDTColonia"), DataTable)
+ If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+ DtRetorno = dt.FiltraParametros($"ClaveSATColoniaCP like '%{Name}%'")
+ End If
+
+
+ If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
+ DtRetorno.Columns("CveColonia").ColumnName = "id"
+ DtRetorno.Columns("ClaveSATColoniaCP").ColumnName = "text"
+ retorno = JsonConvert.SerializeObject(DtRetorno).ToString
+ DtRetorno.Dispose()
+ context.Response.Write(retorno)
+ Else
+ context.Response.Write("[]")
+ End If
+
+ Return retorno
+ End Function
+#End Region
+
#Region "Get Contratos"
Private Function GetContratos(ByVal context As HttpContext) As String
Dim retorno As String = ""
diff --git a/Empresas/15/Formatos/ReciboDePago.rdlc b/Empresas/15/Formatos/ReciboDePago.rdlc
index f734098e0..6d86bc79f 100644
--- a/Empresas/15/Formatos/ReciboDePago.rdlc
+++ b/Empresas/15/Formatos/ReciboDePago.rdlc
@@ -3803,7 +3803,7 @@
- Av. Alfredo Eguiarte, #268, Local 10,
+ Camelia num 346, colonia Luis Encinas,