parametro empresa en resultados inventario

App_Code/ClsInventarios.vb

@@ -2877,12 +2877,13 @@ Public Class ClsInventarios
 #End Region
 
 #Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O"
-    Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean
+    Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_InventarioFisicoResultadoAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -569,7 +569,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Dim Inventarios As New ClsInventarios
                 Inventarios.IniciaTransacSQL()
 
-                If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario) Then
+                If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 3, UsuarioActual.CveEmpresa) Then
                         Dim url As String = ("/Inventarios/RepAnomalias.aspx?CveInventarioFisico=" + CveInventarioFisico.ToString)
                         Alert("Ha finalizado el Inventario Físico. Sera enviado al reporte de anomalías", TipoMensaje.MsgInformacion, " window.location=""" + url + """")

Inventarios/RepAnomalias.aspx.vb

@@ -198,7 +198,7 @@ Partial Class Inventarios_RepAnomalias
         If (GvF.Rows.Count > 0) Then
             GvF.UseAccessibleHeader = True
             GvF.HeaderRow.TableSection = TableRowSection.TableHeader
-            Script = "OrdenarGVF();"
+
             divRegistradosFaltan.Visible = True
             LtlTotalRegistrosFaltan.Text = GvF.Rows.Count.ToString
         End If
@@ -206,7 +206,7 @@ Partial Class Inventarios_RepAnomalias
         If (GvS.Rows.Count > 0) Then
             GvS.UseAccessibleHeader = True
             GvS.HeaderRow.TableSection = TableRowSection.TableHeader
-            Script += "OrdenarGVS();"
+
             divRegistradosSobran.Visible = True
             LtlTotalRegistrosSobran.Text = GvS.Rows.Count.ToString
         End If
@@ -214,7 +214,7 @@ Partial Class Inventarios_RepAnomalias
         If (GvC.Rows.Count > 0) Then
             GvC.UseAccessibleHeader = True
             GvC.HeaderRow.TableSection = TableRowSection.TableHeader
-            Script += "OrdenarGVS();"
+
             divRegistradosCoinciden.Visible = True
             LtlCoincidentes.Text = GvC.Rows.Count.ToString
         End If
@@ -233,7 +233,7 @@ Partial Class Inventarios_RepAnomalias
     Protected Sub btnFin_Click(sender As Object, e As EventArgs) Handles btnFin.Click
         Dim Inventarios As New ClsInventarios
         Inventarios.IniciaTransacSQL()
-        If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario) Then
+        If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 3, UsuarioActual.CveEmpresa) Then
                 Dim url As String = ("/Inventarios/RepAnomalias.aspx?CveInventarioFisico=" + CveInventarioFisico.ToString)
                 Alert("Ha finalizado el Inventario Físico. Sera enviado al reporte de anomalías", TipoMensaje.MsgInformacion, " window.location=""" + url + """")