diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a81131917..86ede1ae8 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19485,7 +19485,7 @@ Partial Class Compras_Compras
                                 ErrorTrans = True
                             End If
                             'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                 ErrorTrans = True
                             End If
                     End Select
@@ -19500,7 +19500,7 @@ Partial Class Compras_Compras
                                 ErrorTrans = True
                             End If
                             'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                 ErrorTrans = True
                             End If
                     End Select