-- mejora

Compras/Compras.aspx.vb

@@ -1701,7 +1701,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)
-                                BtnGuardar.Enabled = False
+                                If UsuarioActual.CveEmpresa.Contiene(119, 158) Then BtnGuardar.Enabled = False
                                 BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."
                             End If
 
@@ -4843,7 +4843,8 @@ Partial Class Compras_Compras
                                                         End If
 
                                                         If ContadorInventario > 0 Then
-                                                            CuentaMatrizAlmacen = CtaAlmacen
+
+                                                            ' CuentaMatrizAlmacen = CtaAlmacen
                                                         ElseIf grp.CveActivoFijo > 0 Then
 
                                                             Dim CtaAF = -1