Merge branch 'master' of http://192.168.10.111:8383/SIG

Inicio.aspx.vb

@@ -205,10 +205,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
 
@@ -233,6 +234,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
@@ -1348,4 +1354,11 @@ Partial Class Inicio
 #End Region
 
 
+
+
+    Protected Sub LnkInconsistencias_Click1(sender As Object, e As EventArgs)
+        MuestraInconsistencias()
+    End Sub
+
+
 End Class