Compras pago deudores otros egresos ingresos, correciones efacturas, correciones redireccion anexo auxiliar 119, inicio ver inconcistencias en acciones

Inicio.aspx.vb

@@ -210,10 +210,11 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
 
-            Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion
-            If Not EsDEV Then
-                If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100
-            End If
+            'Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion
+            'If Not EsDEV Then
+            '    If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100
+
+            'End If
 
             'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
 
@@ -238,6 +239,11 @@ Partial Class Inicio
 
             CargaDocumentacion()
 
+
+            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
+                LnkInconsistencias.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -1353,4 +1359,11 @@ Partial Class Inicio
 #End Region
 
 
+
+
+    Protected Sub LnkInconsistencias_Click1(sender As Object, e As EventArgs)
+        MuestraInconsistencias()
+    End Sub
+
+
 End Class