diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb
index 92b66a211..390e3115e 100644
--- a/Ventas/eFacturas.aspx.vb
+++ b/Ventas/eFacturas.aspx.vb
@@ -91,7 +91,7 @@ Partial Class Ventas_eFacturas
                     Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
                 End If
 
-                If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then
+                If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                     BtnConsultar_Click(sender, e)
                 End If
                 ObjDatos.Dispose()
@@ -108,7 +108,7 @@ Partial Class Ventas_eFacturas
 
             Dim ObjDatos As New ClsCompras
 
-            If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero) Then
+            If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                 BtnConsultar_Click(sender, e)
             End If
             ObjDatos.Dispose()
@@ -124,7 +124,7 @@ Partial Class Ventas_eFacturas
 
             Dim ObjDatos As New ClsCompras
 
-            If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero) Then
+            If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then
                 BtnConsultar_Click(sender, e)
             End If
             ObjDatos.Dispose()
@@ -297,7 +297,7 @@ Partial Class Ventas_eFacturas
         Dim ObjDatos As New ClsCompras
         Dim FueValidado As Integer = 0
         If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1
-        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvD.EditIndex = -1
             BtnConsultar_Click(sender, e)
         End If
@@ -323,7 +323,7 @@ Partial Class Ventas_eFacturas
 
     Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting
         Dim Fact As New ClsCompras
-        If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero) Then
+        If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvD.EditIndex = -1
             Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
             CargaDatos()