App_Code/ClsInventarios.vb

@@ -1503,7 +1503,7 @@ Public Class ClsInventarios
     End Function
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
+                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", Optional GPO As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1525,46 +1525,8 @@ Public Class ClsInventarios
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
             .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
-        End With
+            .Add("@GPO", SqlDbType.Int).Value = GPO
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-
-            Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
-    End Function
-    Public Function GetKardexAlmacenHorizontalAgrupado(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
-                                               IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_KardexAlmacenHorizontalGetAgrupado")
-
-        With SqlAdapter.SelectCommand.Parameters
-            '.Add("@FechaI", SqlDbType.VarChar).Value = FechaI
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@IncluyeTransitorios", SqlDbType.Int).Value = IncluyeTransitorios
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
-            .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
-            .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
-            .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
         End With
 
         Try