modales inicio

Inicio.aspx.vb

@@ -16,7 +16,29 @@ Partial Class Inicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            'RESTRICCION AD
+            If UsuarioActual.CveUsuario = 100 Then
+
+                Using objgral As New ClsGenerales
+                    objgral.RepConciliacionSatDetalleGET(UsuarioActual.CveEmpresa, "I", "", "", 10)
+                    If objgral.DtResultados.Rows.Count > 0 Then
+                        GvFoliosSAT.DataSource = objgral.DtResultados
+                        RegistraScript("$('#ModalMitoteresat').modal();", "mitoterosat")
+                    End If
+
+                End Using
+                GvFoliosSAT.DataBind()
+            End If
+            If UsuarioActual.CveUsuario = 100 Then
+                Using objventas As New ClsVentas
+                    If (objventas.GetFacturasCanceladasPendientesWS(UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then
+                        RegistraScript("$('#ModalMitotereCancelaPendiente').modal();", "mitoterosatCanceladasPendientesWS")
+
+                    End If
+                End Using
+            End If
+            'Exit Sub
+
+            'RESTRICCION AD
             If Not IsNothing(Request("ADCod")) Then
                 'viene el msg encriptado, para sacar el modulo
                 Dim Codigo As String = Decripta(Request("ADCod"))