-- limpieza de funciones

App_Code/ClsContabilidad.vb

@@ -5247,142 +5247,93 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+    'Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno = False
 
-        DataAdapter("PA_Conta_BalanzaComprobacionPymeGet")
+    '    DataAdapter("PA_Conta_BalanzaComprobacionPymeGet")
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@FechaI", SqlDbType.Date).Value = FechaI
+    '        .Add("@FechaF", SqlDbType.Date).Value = FechaF
+    '        .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
     'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
-    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
-        Dim Retorno = False
+    '    Dim Retorno = False
 
-        DataAdapter("PA_EstadoActividadesGet")
+    '    DataAdapter("PA_EstadoActividadesGet")
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@FechaI", SqlDbType.Date).Value = FechaI
+    '        .Add("@FechaF", SqlDbType.Date).Value = FechaF
+    '        .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
-    Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+    'Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno = False
 
-        DataAdapter("PA_EstadoResultadosMensualPyme")
+    '    DataAdapter("PA_EstadoResultadosMensualPyme")
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@ANO", SqlDbType.Int).Value = ANO
-            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@ANO", SqlDbType.Int).Value = ANO
+    '        .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
-    Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+    'Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno = False
 
-        DataAdapter("PA_EstadoResultadosAnualPyme")
+    '    DataAdapter("PA_EstadoResultadosAnualPyme")
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@ANO", SqlDbType.Int).Value = ANO
-            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@ANO", SqlDbType.Int).Value = ANO
+    '        .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 #End Region
 
-#Region "A N E X O - D E L - C A T A L O G O"
-    Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
-        Dim Retorno = False
-
-        DataAdapter("PA_Conta_AnexoCatalogo")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
-            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Anexo del Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
-
-        DataAdapter("PA_Conta_AuxiliarCatalogo")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener los Movimientos Auxiliares Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
 
 #Region "Cierre Contable"
     Public Function GetCuentasCierre(FechaI As Date, FechaF As Date, CveCuentaCierre As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Integer