quitar funcionalidad 157

App_Code/ClsPaginas.vb

@@ -4386,6 +4386,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Finanzas/RazonesFinancierasCuentas.aspx".ToUpper(), -1)
             PaginaDict.Add("/Finanzas/RepRotacionCartera.aspx".ToUpper(), 649)
             PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649)
+
+
+            PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1)
 #End Region
 #Region "Flotillas"
 

Compras/Compras.aspx.vb

@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
             TieneOC = False
             CveMoneda = -1
 
-            '[IPP] Eliminar 22Junio2018
-            'If UsuarioActual.Empresa.UsaInventarios Then
-            '    TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
-            'End If
 
             ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
             'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
@@ -15126,12 +15122,7 @@ Partial Class Compras_Compras
                 Dr("RetISRTC") = Dr("RetISR")
                 Dr("TotalTC") = Dr("ImporteAjustadoDescuento")
 
-                '[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
-                'If UsuarioActual.CveUsuario = 100 Then
-                'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                '    Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
-                'End If
-                'End If
+
             Next
 
             'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
@@ -15163,7 +15154,7 @@ Partial Class Compras_Compras
 
         'SI PUEDE RECIBIR POR OC Y COMPRA
         If UsuarioActual.CveEmpresa.Contiene(119) Then
-            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
+            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
                 Select Case DdlOCVinculaInv.SelectedValue.ToEntero
                     Case 176
                         DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")

Inventarios/RecepcionAlmacen.aspx.vb

@@ -535,11 +535,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
         If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
             DdlTipo.Items.Insert(1, New ListItem("OC", "2"))
-            If UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                DdlTipo.Items.RemoveAt(0)
-                DdlTipo.SelectedValue = "2"
-                ModalidadRecepcion()
-            End If
+
+
+
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(155).ToEntero > 0 Then
@@ -3754,7 +3752,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjOC As New ClsOC
         If ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, -1, FolioOC, -1, -1, UsuarioActual.CveEmpresa, -1) Then
             'If ObjOC.DtResultados.FiltraParametros("TipoTermino = 3").Rows.Count = 1 Then
-            If ObjOC.DtResultados.Rows(0)("TieneCompra").ToString.ToEntero > 0 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then 'Or UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 
+            If ObjOC.DtResultados.Rows(0)("TieneCompra").ToString.ToEntero > 0 Then 'Or UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 
                 MensajeCompra = String.Format("<a href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={0}"">{1}</a>", ObjOC.DtResultados.Rows(0)("CveCompraVinculada").ToString, ObjOC.DtResultados.Rows(0)("SerieFolioCompraVinculada").ToString)
             Else
                 CveOC = ObjOC.DtResultados.FiltroPrimeroValor("CveOrdenCompra").ToString.ToEntero