AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- limpieza de funciones

Browse Source
This commit is contained in:
rrene
2023-08-25 11:55:57 -07:00
parent 6ac06a9649
commit 0471ee1630
1 changed files with 65 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

179
App_Code/ClsContabilidad.vb
View File

@@ -5247,142 +5247,93 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno = False ' Dim Retorno = False
DataAdapter("PA_Conta_BalanzaComprobacionPymeGet") ' DataAdapter("PA_Conta_BalanzaComprobacionPymeGet")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI ' .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF ' .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas ' .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al obtener Balanza de comprobación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function '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
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 ' With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI ' .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF ' .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al obtener el Estado de Actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno = False ' Dim Retorno = False
DataAdapter("PA_EstadoResultadosMensualPyme") ' DataAdapter("PA_EstadoResultadosMensualPyme")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@ANO", SqlDbType.Int).Value = ANO ' .Add("@ANO", SqlDbType.Int).Value = ANO
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al obtener el Estado de Resultados Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno = False ' Dim Retorno = False
DataAdapter("PA_EstadoResultadosAnualPyme") ' DataAdapter("PA_EstadoResultadosAnualPyme")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@ANO", SqlDbType.Int).Value = ANO ' .Add("@ANO", SqlDbType.Int).Value = ANO
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos ' .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al obtener el Estado de Resultados Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
#End Region #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" #Region "Cierre Contable"
Public Function GetCuentasCierre(FechaI As Date, FechaF As Date, CveCuentaCierre As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Integer Public Function GetCuentasCierre(FechaI As Date, FechaF As Date, CveCuentaCierre As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Integer