App_Code/ClsNominas.vb

@@ -323,20 +323,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetNominasSinTimbrar() As Boolean
-        Dim retorno As Boolean = False
-        DTSet = New DataSet()
-        DataAdapter("PA_Nom_NominasSinTimbrar", CommandType.StoredProcedure)
-        With SqlAdapter.SelectCommand.Parameters
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al NominasSinTimbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return retorno
-    End Function
+
     Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean
         Dim retorno As Boolean = False
         DTSet = New DataSet()

Inicio.aspx.vb

@@ -92,13 +92,13 @@ Partial Class Inicio
             End If
             If UsuarioActual.CveUsuario = 100 Then
 
-                Using objnom As New ClsNominas
-                    If objnom.GetNominasSinTimbrar() AndAlso objnom.DtResultados.Rows.Count > 0 Then
-                        GVNomPendientesxTimbrar.DataSource = objnom.DtResultados
-                        GVNomPendientesxTimbrar.DataBind()
-                        RegistraScript("$('#NominasSinTimbrar').modal();", "tikNominasSinTimbrar")
-                    End If
-                End Using
+                'Using objnom As New ClsNominas
+                '    If objnom.GetNominasSinTimbrar() AndAlso objnom.DtResultados.Rows.Count > 0 Then
+                '        GVNomPendientesxTimbrar.DataSource = objnom.DtResultados
+                '        GVNomPendientesxTimbrar.DataBind()
+                '        RegistraScript("$('#NominasSinTimbrar').modal();", "tikNominasSinTimbrar")
+                '    End If
+                'End Using
                 Using objventas As New ClsVentas
                     If objventas.GETVentasPendientesdeTimbrar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then
                         GVVtasPendientesxTimbrarSAT.DataSource = objventas.DtResultados

vwd.webinfo

@@ -480,6 +480,8 @@
     
   
     
+  
+