diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6a7819344..a311cf493 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1726,7 +1726,7 @@ Partial Class Compras_Compras
                             If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
                                 Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
                                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-                                If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.CveUsuario <> 1719 Then BtnGuardar.Enabled = False
+                                If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.CveUsuario <> 1721 Then BtnGuardar.Enabled = False '' solo se activa para el usuario Sara.JAM
                                 BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."
                             End If
 
@@ -5251,7 +5251,7 @@ Partial Class Compras_Compras
                                                 Next
 
                                                 Dim i As Integer = 0
-                                                Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
+                                                Dim ListAlmacenes As List(Of Integer) = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
                                                 Dim indice As Integer = 0
                                                 Dim ImporteConcepto As Decimal = 0
                                                 Dim tCveFolioGarantia As Integer = -1