- crear GlobalDTContaCuentas

Ashx/SIGWeb.ashx

@@ -124,6 +124,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     cancelarRemision(context)
                 Case "RemoveMovimiento"
                     RemoveMovimiento(context)
+                Case "GetContaCuentas"
+                    GetContaCuentas(context)
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
@@ -872,7 +874,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
 
                 ' limpio los almacenes donde no tiene ningun producto existencia
-                For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
+                For i As Integer = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
 
                     If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CveAlmacen", "Almacen", "Existencia") Then
                         objInv.DtResultados.Columns.RemoveAt(i)
@@ -996,7 +998,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     'If FuePorXml >= 0 Then
                     '    DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!FuePorXML) = FuePorXml))
                     'End If
-
+                    Name = Name.REPLACE(" ", "*")
                     If Name <> "-1" Then
                         If PSCodigoDescripcion = "PSCodigo" Then
                             DTPS = DTPS.Where((Function(a) a!PSCodigo.ToString.ToLower Like ("*" + Name.ToLower + "*")))
@@ -1434,6 +1436,59 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     End Function
 #End Region
 
+    Private Function GetContaCuentas(ByVal context As HttpContext, Optional PSCodigoDescripcion As String = "PSCodigo") As String
+        Dim retorno As String = ""
+        Dim DtPSRetorno As DataTable = Nothing
+
+        'NOTA:
+        '       EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO', 
+        '       EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS
+        Dim usuario As Usuario = UsuarioActual(context)
+        Dim CveEmpresa As Integer
+        If IsNothing(usuario) Then
+            context.Response.Write("")
+        Else
+            CveEmpresa = usuario.CveEmpresa
+            Dim Afectable = IfNull(context.Request("Afectable"), "-1").ToString.ToEntero
+            Dim Name = IfNull(context.Request("Name"), "-1").ToString.Replace(" ", "%")
+            'Dim CveClasificacion = IfNull(context.Request("CveClasificacion"), "-1").ToString.ToEntero
+            'Dim CveSubFamilia = IfNull(context.Request("CveSubFamilia"), "-1").ToString.ToEntero
+            'Dim CveClasificacionPresupuesto = IfNull(context.Request("CveClasificacionPresupuesto"), "-1").ToString.ToEntero
+            'Dim Pagina = IfNull(context.Request("Pagina"), "-1").ToString
+            'Dim Estatus = IfNull(context.Request("Estatus"), "1").ToString
+            'Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
+            'Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
+            'Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
+            'Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "1").ToString.ToEntero
+            'Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero
+
+            DtPSRetorno = ClsPaginas.GlobalDTContaCuentasContables(CveEmpresa, "-1", Afectable).FiltraParametros($"CuentaFormatoNombre like '%{Name}%'")
+
+
+
+
+            If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
+
+                DtPSRetorno.Columns("CvePS").ColumnName = "id"
+                DtPSRetorno.Columns(PSCodigoDescripcion).ColumnName = "text"
+                If PSCodigoDescripcion = "PSCodigo" Then
+                    DtPSRetorno.Columns().Remove("PSCodigoClasificacion")
+                Else
+                    DtPSRetorno.Columns().Remove("PSCodigo")
+                End If
+
+                retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
+                context.Response.Write(retorno)
+                DtPSRetorno.Dispose()
+                DtPSRetorno = Nothing
+            Else
+                context.Response.Write("[]")
+            End If
+
+        End If
+
+        Return retorno
+    End Function
 
     Private Function GetFilesDirectory(ByVal context As HttpContext) As String
         Dim retorno As String = ""
@@ -1443,7 +1498,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             Dim xmlarchivos As System.Xml.Linq.XDocument = New System.Xml.Linq.XDocument()
             Dim xfolder As XElement = New XElement("folder")
-            For Each urfile In System.IO.Directory.GetFiles(directorio)
+            For Each urfile As String In System.IO.Directory.GetFiles(directorio)
                 Dim xfile As New XElement("archivo", "")
                 xfile.SetAttributeValue("EXT", Path.GetExtension(urfile))
                 xfile.SetAttributeValue("urlfile", urfile)