-- option strict on

Ashx/SIGWeb.ashx

@@ -1,5 +1,5 @@
 <%@ WebHandler Language="VB" Class="SIGWeb" %>
-
+Option Strict Off
 Imports System.Data
 Imports System.IO
 Imports Extensiones
@@ -753,7 +753,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim ColumnaNombre As String = "NombreComercial"
         'Abreviaturas. N. Nombre, NC. NombreComercial,...
         If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then
-            ColumnaNombre = IIf(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto"))
+            ColumnaNombre = If(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto"))
         End If
 
         Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero
@@ -761,7 +761,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -810,7 +810,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim DtRetorno As DataTable = Nothing
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -853,7 +853,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function getpsalmacen(ByVal context As HttpContext) As String
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         Dim retorno As String = ""
         Dim DtPSRetorno As DataTable = Nothing
 
@@ -908,7 +908,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         '       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 String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -987,9 +987,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
                     'APLICACION DE FILTROS
                     DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
-                    If Estatus = 1 Then
+                    If Estatus = "1" Then
                         DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
-                    ElseIf Estatus = -1 Then
+                    ElseIf Estatus = "-1" Then
 
                     End If
 
@@ -1314,7 +1314,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim DtPSRetorno As DataTable = Nothing
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -1340,9 +1340,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
                     'APLICACION DE FILTROS
                     DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
-                    If Estatus = 1 Then
+                    If Estatus = "1" Then
                         DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
-                    ElseIf Estatus = -1 Then
+                    ElseIf Estatus = "-1" Then
 
                     End If
 
@@ -1407,7 +1407,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim DtRetorno As DataTable = Nothing
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -1530,7 +1530,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                             System.IO.Directory.CreateDirectory(direct)
                         End If
                         Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}"
-                        If uuid.Length Then
+                        If uuid.Length > 0 Then
                             fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}"
                         End If
                         System.IO.File.Move(urfile, fileurl)
@@ -1583,7 +1583,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim DtRetorno As DataTable = Nothing
 
         Dim usuario As Usuario = UsuarioActual(context)
-        Dim CveEmpresa As String
+        Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
             context.Response.Write("")
         Else
@@ -1667,13 +1667,6 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim TieneError = False
 
         CveMovimiento.ToString.GuardaLog
-
-        'Dim ObjConta As ClsContPAQi = Nothing
-        'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
-        '    ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
-        '    ObjConta.IniciaTransacSQL()
-        'End If
-
         'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
         '    TieneError = True
         'End If