Inicio.aspx.vb

@@ -54,8 +54,9 @@ Partial Class Inicio
     End Function
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            If UsuarioActual.CveUsuario = 100 Then
+        If Not IsPostBack Then
+            'Reporte de ventas sin registrar sig
+            If UsuarioActual.TienePermisoProceso(287) Then
 
                 Using objgral As New ClsGenerales
                     objgral.RepConciliacionSatDetalleGET(UsuarioActual.CveEmpresa, "I", "", "", 10)
@@ -66,8 +67,9 @@ Partial Class Inicio
 
                 End Using
                 GvFoliosSAT.DataBind()
-            End If
-            If UsuarioActual.CveUsuario = 100 Then
+            End If
+            'Reporte de ventas pendientes de cancelar
+            If UsuarioActual.TienePermisoProceso(288) Then
                 Using objventas As New ClsVentas
                     If (GetFacturasCanceladasPendientesWS(objventas, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then
                         RegistraScript("$('#ModalMitotereCancelaPendiente').modal();", "mitoterosatCanceladasPendientesWS")