-- cambios en dispose

This commit is contained in:
2021-09-22 11:05:09 -07:00
parent d287f481a8
commit 7d49ea4257
3 changed files with 23 additions and 22 deletions

View File

@@ -5695,18 +5695,19 @@ Public Class ClsGPS
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Dataset Is Nothing Then If Not Dataset Is Nothing Then
Dataset.Clear() Dataset.Clear()
Dataset.Dispose() Dataset.Dispose()
Dataset = Nothing
End If End If
If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() : DtPosiciones = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
' TODO: Liberar su propio estado (objetos no administrados). ' TODO: Liberar su propio estado (objetos no administrados).

View File

@@ -2066,19 +2066,19 @@ Public Class ClsSisNotificaciones
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() SqlConexion.Close()
SqlConexion.Dispose() SqlConexion.Dispose() : SqlConexion = Nothing
If Not DataSet Is Nothing Then If Not DataSet Is Nothing Then
DataSet.Clear() DataSet.Clear()
DataSet.Dispose() DataSet.Dispose() : DataSet = Nothing
End If End If
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() : DTNotificacionesGPS = Nothing
If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() : DTNotificacionesERP = Nothing
If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() : DTNotificacionesArmadas = Nothing
If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() : DTNotificacionesGPS = Nothing
NotificacionesBitacora = "" NotificacionesBitacora = ""
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
End If End If
' TODO: Liberar su propio estado (objetos no administrados). ' TODO: Liberar su propio estado (objetos no administrados).

View File

@@ -5257,13 +5257,13 @@ Public Class ClsVentas
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: dispose managed state (managed objects). ' TODO: dispose managed state (managed objects).
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Dataset Is Nothing Then Dataset.Dispose() If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.