diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b8f36c0f5..762ed68de 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3992,23 +3992,23 @@ Partial Class Compras_Compras
             End If
         End If
 
-        'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
-        If UsuarioActual.CveEmpresa = 72 Then
+        ''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
+        'If UsuarioActual.CveEmpresa = 72 Then
 
-            Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
-            If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
-                Dim StrNoEncontrados As New StringBuilder
-                StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
-                For Each drt As DataRow In DtNoEncontrados.Rows
-                    StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
-                Next
-                Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
-                DtNoEncontrados.Dispose()
-                StrNoEncontrados.Clear()
-                Exit Sub
-            End If
-            DtNoEncontrados.Dispose()
-        End If
+        '    Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
+        '    If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+        '        Dim StrNoEncontrados As New StringBuilder
+        '        StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+        '        For Each drt As DataRow In DtNoEncontrados.Rows
+        '            StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+        '        Next
+        '        Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+        '        DtNoEncontrados.Dispose()
+        '        StrNoEncontrados.Clear()
+        '        Exit Sub
+        '    End If
+        '    DtNoEncontrados.Dispose()
+        'End If
 
         'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
 
@@ -4641,7 +4641,7 @@ Partial Class Compras_Compras
                                                         ErrorOC = 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
                                                         ErrorOC = True
                                                     End If
                                             End Select
@@ -4656,7 +4656,7 @@ Partial Class Compras_Compras
                                                         ErrorOC = 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
                                                         ErrorOC = True
                                                     End If
                                             End Select
@@ -18659,14 +18659,14 @@ Partial Class Compras_Compras
             For Each gvr As GridViewRow In GvSolDev.Rows
                 If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
                     'actualiza el estatus del detalle
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario)
                 Else
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario)
                 End If
             Next
         End If
 
-        If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
+        If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
             EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
             Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
         End If
@@ -19029,7 +19029,7 @@ Partial Class Compras_Compras
                         End If
                         CveMovimientoInventario = DtInv.MAX("CveMovimiento", $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToEntero
                         IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
-                        CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
+                        ' CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
 
                         ImporteMovimiento = DtInv.SUM(If(DdlMoneda.SelectedValue = "1", "Total", "TotalExtranjero"), $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToDecimal
                         ImporteMovimiento = If(ImporteMovimiento > Row2("Total").ToString.ToDecimal, Row2("Total").ToString.ToDecimal, ImporteMovimiento) * Multiplicador
@@ -19059,15 +19059,15 @@ Partial Class Compras_Compras
                             If IdCtaContable = 0 Then
                                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                             End If
-                            If CveCuenta = 0 Then
-                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                            End If
+                            'If CveCuenta = 0 Then
+                            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                            'End If
                             Dim SeContabiliza As Boolean = True
                             'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
                             If DdlTipoCompra.SelectedValue = "10" Then
                                 SeContabiliza = False
                             End If
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), Contabilizable:=SeContabiliza) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -20220,24 +20220,24 @@ Partial Class Compras_Compras
     '        CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
     '    Next
 
-    Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+    'Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
 
-    Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+    'Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
 
-    Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-    For Each PS As GridViewRow In GvPS.Rows
-    Dim PSIndividual As String = PS.DataKey("PS")
-    Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
-    If ClavePSSAT = "46920" Then
-                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
-            End If
-    Next
+    'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+    'For Each PS As GridViewRow In GvPS.Rows
+    'Dim PSIndividual As String = PS.DataKey("PS")
+    'Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+    'If ClavePSSAT = "46920" Then
+    '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+    '        End If
+    'Next
 
-    If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-    Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-            Return False
-    End If
+    'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+    'Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+    '        Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+    '        Return False
+    'End If
 
     '    Return True