diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b86aee900..0ae3f3774 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1711,7 +1711,7 @@ Partial Class Compras_Compras
                         If Valida.EsValida = 2 Then
                             Validada = False
 
-                            If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura) Then
+                            If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura, UsuarioActual.CveEmpresa) Then
 
                             End If
 
@@ -4707,7 +4707,7 @@ Partial Class Compras_Compras
                                         If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then
                                             CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
                                         End If
-                                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
+                                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
                                             CveConceptoContableAlmacen = 205
                                         End If
                                     Else