Acarreos Choferes Localidad Colonia

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 = ""