Commit inicial Ventas Productivo

Ashx/SIGWeb.aspx.vb

@@ -0,0 +1,42 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data 
+Imports Newtonsoft.Json
+
+
+Partial Class Ashx_SIGWeb
+    Inherits System.Web.UI.Page
+
+    ReadOnly Property UsuarioActual() As Usuario
+        Get
+            UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
+        End Get
+    End Property
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        Dim retorno As String = ""
+        Dim DTPS = DirectCast(Application("GlobalDTProductosServicios"), DataTable)
+        If DTPS IsNot Nothing Then
+
+            Dim usuario As Usuario = UsuarioActual
+            Dim CveEmpresa As String
+            If IsNothing(usuario) Then
+                Context.Response.Write("")
+            Else
+                CveEmpresa = usuario.CveEmpresa.ToString
+                DTPS = DTPS.FiltraParametros(String.Format("CveEmpresa={0} AND PSCodigo LIKE '%{1}%'", CveEmpresa, Request("Name")), "PS", {"CvePS", "PS"})
+                If DTPS.Rows.Count > 0 Then
+                    DTPS.Columns("CvePS").ColumnName = "id"
+                    DTPS.Columns("PS").ColumnName = "text"
+                    retorno = JsonConvert.SerializeObject(DTPS).ToString
+                    Context.Response.Write(retorno)
+                Else
+                    Context.Response.Write("[]")
+                End If
+
+            End If
+        End If
+    End Sub
+
+End Class