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

Dispose en clases

Browse Source
This commit is contained in:
rakcsle
2021-09-22 15:04:23 -07:00
parent 92f213c14f
commit 0ebfd8302a
80 changed files with 583 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsAC.vb
View File

@@ -3245,11 +3245,13 @@ Public Class ClsAC
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

9
App_Code/ClsAC2.vb
View File

@@ -152,11 +152,12 @@ Public Class ClsAC2
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = 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() : 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
End If End If
Me.disposedValue = True Me.disposedValue = True

11
App_Code/ClsAF.vb
View File

@@ -4520,10 +4520,13 @@ Public Class ClsAF
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsAIMMGM.vb
View File

@@ -746,11 +746,12 @@ Public Class ClsAIMMGM
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

9
App_Code/ClsAcarreos.vb
View File

@@ -1350,11 +1350,12 @@ Public Class ClsAcarreos
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = 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() : 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
End If End If
Me.disposedValue = True Me.disposedValue = True

14
App_Code/ClsAcumuladores.vb
View File

@@ -1232,12 +1232,14 @@ Public Class ClsAcumuladores
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

12
App_Code/ClsBancos.vb
View File

@@ -4273,12 +4273,14 @@ Public Class ClsBancos
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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.

11
App_Code/ClsBase.vb
View File

@@ -181,13 +181,12 @@ Public Class ClsBase
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 SqlConexion Is Nothing Then
CerrarConexion()
SqlConexion.Dispose()
End If
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = 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() : sqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsCGame.vb
View File

@@ -3400,11 +3400,14 @@ Public Class ClsCGame
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

12
App_Code/ClsCRM.vb
View File

@@ -1137,11 +1137,15 @@ Public Class ClsCRM
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

4
App_Code/ClsClaseBase.vb
View File

@@ -247,6 +247,7 @@ Public Class ClsClaseBase
SqlConexion.Close() SqlConexion.Close()
End Sub End Sub
#End Region #End Region
Public Sub Dispose() Implements IDisposable.Dispose Public Sub Dispose() Implements IDisposable.Dispose
ConexionClose() ConexionClose()
If (SqlConexion IsNot Nothing) Then If (SqlConexion IsNot Nothing) Then
@@ -279,6 +280,9 @@ Public Class ClsClaseBase
End Sub End Sub
End Class End Class
Public Class parametroQuery Public Class parametroQuery

16
App_Code/ClsClasificaciones.vb
View File

@@ -610,13 +610,15 @@ Public Class ClsClasificaciones
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
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 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 SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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.

16
App_Code/ClsClientes.vb
View File

@@ -1757,13 +1757,15 @@ Public Class ClsClientes
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
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 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 SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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.

9
App_Code/ClsCompEstatusFactura.vb
View File

@@ -203,11 +203,12 @@ Public Class ClsCompEstatusFactura
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 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() : 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.

10
App_Code/ClsCompProveedores.vb
View File

@@ -1908,11 +1908,13 @@ Public Class ClsCompProveedores
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 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() : 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.

9
App_Code/ClsCompras.vb
View File

@@ -1884,11 +1884,12 @@ Public Class ClsCompras
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 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() : 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.

14
App_Code/ClsContPAQi.vb
View File

@@ -11204,12 +11204,14 @@ Public Class ClsContPAQi
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
StrSQL.Clear() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).

14
App_Code/ClsContPAQi2.vb
View File

@@ -1017,12 +1017,14 @@ Public Class ClsContPAQi2
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
StrSQL.Clear() 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).

13
App_Code/ClsContabilidad.vb
View File

@@ -6234,12 +6234,15 @@ Public Class ClsContabilidad
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

14
App_Code/ClsContratos.vb
View File

@@ -3596,12 +3596,14 @@ Public Class ClsContratos
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Dataset Is Nothing Then Dataset.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).

11
App_Code/ClsDG.vb
View File

@@ -638,11 +638,14 @@ Public Class ClsDG
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

9
App_Code/ClsDesarrollo.vb
View File

@@ -548,13 +548,14 @@ Public Class ClsDesarrollo
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 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 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.
' TODO: set large fields to null. ' TODO: set large fields to null.
End If End If

10
App_Code/ClsEdoc.vb
View File

@@ -306,10 +306,12 @@ Public Class ClsEdoc
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

14
App_Code/ClsEdocumentacion.vb
View File

@@ -621,12 +621,14 @@ Public Class ClsEdocumentacion
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

12
App_Code/ClsEdosFinancieros.vb
View File

@@ -881,13 +881,15 @@ Public Class ClsEdosFinancieros
If disposing Then If disposing Then
' TODO: free other state (managed objects). ' TODO: free other state (managed objects).
'RegistraCierreConexion() 'RegistraCierreConexion()
SqlConexion.Close() If Not DT Is Nothing Then DT.Dispose() : DT = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
If Not DT Is Nothing Then DT.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
' TODO: free your own state (unmanaged objects). ' TODO: free your own state (unmanaged objects).
' TODO: set large fields to null. ' TODO: set large fields to null.

12
App_Code/ClsEncuestas.vb
View File

@@ -701,11 +701,15 @@ Public Class ClsEncuestas
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

11
App_Code/ClsEsquemasComisiones.vb
View File

@@ -499,12 +499,13 @@ Public Class ClsEsquemasComisiones
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 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.

9
App_Code/ClsEstatusFactura.vb
View File

@@ -230,11 +230,12 @@ Public Class ClsEstatusFactura
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 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() : 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.

8
App_Code/ClsEventos.vb
View File

@@ -224,11 +224,11 @@ Public Class ClsEventos
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 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 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.

9
App_Code/ClsFISConfiguracion.vb
View File

@@ -174,11 +174,12 @@ Public Class ClsFISConfiguracion
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 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() : 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.

11
App_Code/ClsFinanzas.vb
View File

@@ -200,11 +200,14 @@ Public Class ClsFinanzas
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If

11
App_Code/ClsFlotillas.vb
View File

@@ -738,12 +738,13 @@ Public Class ClsFlotillas
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 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.

30
App_Code/ClsGPS.vb
View File

@@ -5693,20 +5693,22 @@ Public Class ClsGPS
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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 Dataset Is Nothing Then
Dataset.Clear() If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() : DtPosiciones = Nothing
Dataset.Dispose()
End If If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not DtPosiciones Is Nothing Then DtPosiciones.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: Liberar su propio estado (objetos no administrados). ' TODO: Liberar su propio estado (objetos no administrados).

11
App_Code/ClsGPSHerramientas.vb
View File

@@ -187,11 +187,12 @@ Public Class ClsGPSHerramientas
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlCommand Is Nothing Then SqlCommand.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).

52
App_Code/ClsGenerales.vb
View File

@@ -3327,22 +3327,7 @@ Public Class ClsGenerales
#End Region #End Region
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close()
SqlConexion.Dispose()
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
End If
' TODO: Liberar su propio estado (objetos no administrados).
' TODO: Establecer campos grandes como Null.
End If
disposedValue = True
End Sub
#Region "CRUD_Edoc_DocumentacionTipo" #Region "CRUD_Edoc_DocumentacionTipo"
@@ -3489,15 +3474,42 @@ Public Class ClsGenerales
#End Region #End Region
#Region " IDisposable Support "
' Visual Basic agregó este código para implementar correctamente el modelo descartable. #Region "IDisposable Support"
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
' TODO: set large fields to null.
End If
Me.disposedValue = True
End Sub
' This code added by Visual Basic to correctly implement the disposable pattern.
Public Sub Dispose() Implements IDisposable.Dispose Public Sub Dispose() Implements IDisposable.Dispose
' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above.
ConexionClose() ConexionClose()
Dispose(True) Dispose(True)
GC.SuppressFinalize(Me) GC.SuppressFinalize(Me)
End Sub End Sub
#End Region #End Region
#Region " P O L I Z A V I R T U A L " #Region " P O L I Z A V I R T U A L "
Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean

12
App_Code/ClsGralFolios.vb
View File

@@ -276,12 +276,14 @@ Public Class ClsGralFolios
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' 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 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() : 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.

10
App_Code/ClsGralProductosServiciosCaracteristicas.vb
View File

@@ -305,10 +305,12 @@ Public Class ClsGralProductosServiciosCaracteristicas
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsImpuestos.vb
View File

@@ -146,11 +146,14 @@ Public Class ClsImpuestos
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

10
App_Code/ClsIndicadores.vb
View File

@@ -128,10 +128,12 @@ Public Class ClsIndicadores
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

9
App_Code/ClsInventarios.vb
View File

@@ -5751,10 +5751,11 @@ Public Class ClsInventarios
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

9
App_Code/ClsLeyendasFiscales.vb
View File

@@ -191,11 +191,12 @@ Public Class ClsLeyendasFiscales
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 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 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.

11
App_Code/ClsMF.vb
View File

@@ -710,11 +710,14 @@ Public Class ClsMF
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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
End If End If
Me.disposedValue = True Me.disposedValue = True

9
App_Code/ClsMetodosPagos.vb
View File

@@ -113,11 +113,12 @@ Public Class ClsMetodosPagos
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 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 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.

9
App_Code/ClsModulos.vb
View File

@@ -412,11 +412,12 @@ Public Class ClsModulos
If Not Me.disposedValue Then If Not Me.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 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 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).

9
App_Code/ClsMonedas.vb
View File

@@ -134,11 +134,12 @@ Public Class ClsMonedas
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 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 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.

17
App_Code/ClsMovimientos.vb
View File

@@ -1751,14 +1751,15 @@ Public Class ClsMovimientos
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
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 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.

13
App_Code/ClsNominas.vb
View File

@@ -2878,11 +2878,14 @@ Public Class ClsNominas
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
SqlConexion.Close()
SqlConexion.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not DTSet Is Nothing Then DTSet.Dispose() : DTSet = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
End If End If

10
App_Code/ClsOC.vb
View File

@@ -2611,11 +2611,13 @@ Public Class ClsOC
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
SqlConexion.Close()
SqlConexion.Dispose()
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
End If End If
disposedValue = True disposedValue = True

14
App_Code/ClsOIEventos.vb
View File

@@ -3162,12 +3162,14 @@ Public Class ClsOIEventos
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

10
App_Code/ClsOS.vb
View File

@@ -1680,10 +1680,12 @@ Public Class ClsOS
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsPV.vb
View File

@@ -208,12 +208,13 @@ Public Class ClsPV
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 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.

10
App_Code/ClsPresupuestos.vb
View File

@@ -755,10 +755,12 @@ Public Class ClsPresupuestos
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

10
App_Code/ClsProductosServicios.vb
View File

@@ -2141,11 +2141,13 @@ Public Class ClsProductosServicios
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 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() : 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.

9
App_Code/ClsProsEncuestas.vb
View File

@@ -775,10 +775,11 @@ Public Class ClsProsEncuestas
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsProspectos.vb
View File

@@ -4615,10 +4615,13 @@ Public Class ClsProspectos
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose()
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

10
App_Code/ClsProyectos.vb
View File

@@ -233,10 +233,12 @@ Public Class ClsProyectos
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

11
App_Code/ClsPruebasJJMQ.vb
View File

@@ -157,11 +157,12 @@ Public Class ClsPruebasJJMQ
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
StrSQL.Clear() StrSQL.Clear()
End If End If

10
App_Code/ClsPuntoVenta.vb
View File

@@ -429,12 +429,12 @@ Public Class ClsPuntoVenta
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 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.

10
App_Code/ClsRH.vb
View File

@@ -7111,10 +7111,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

12
App_Code/ClsRMA.vb
View File

@@ -203,11 +203,13 @@ Public Class ClsRMA
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).

9
App_Code/ClsSAT.vb
View File

@@ -451,11 +451,12 @@ Public Class ClsSAT
' TODO: dispose managed state (managed objects). ' TODO: dispose managed state (managed objects).
'ConexionUpdate() 'ConexionUpdate()
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = 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

13
App_Code/ClsSCTLicencias.vb
View File

@@ -247,13 +247,16 @@ Public Class ClsSCTLicencias
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
' TODO: Liberar su propio estado (objetos no administrados). ' TODO: Liberar su propio estado (objetos no administrados).
' TODO: Establecer campos grandes como Null. ' TODO: Establecer campos grandes como Null.

8
App_Code/ClsSeguimiento.vb
View File

@@ -166,10 +166,10 @@ Public Class ClsSeguimiento
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

17
App_Code/ClsSisEmpresas.vb
View File

@@ -1846,14 +1846,15 @@ Public Class ClsSisEmpresas
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.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 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).

35
App_Code/ClsSisNotificaciones.vb
View File

@@ -2063,22 +2063,25 @@ Public Class ClsSisNotificaciones
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close()
SqlConexion.Dispose()
If Not DataSet Is Nothing Then If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() : DTNotificacionesGPS = Nothing
DataSet.Clear() If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() : DTNotificacionesERP = Nothing
DataSet.Dispose() If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() : DTNotificacionesArmadas = Nothing
End If If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() : DTReportesProgramados = Nothing
If Not Data Is Nothing Then Data.Dispose() NotificacionesBitacora = ""
If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose()
If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose()
If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() If Not DataSet Is Nothing Then DataSet.Dispose() : DataSet = Nothing
NotificacionesBitacora = "" If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).

15
App_Code/ClsSisParametros.vb
View File

@@ -255,12 +255,15 @@ Public Class ClsSisParametros
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close()
SqlConexion.Dispose()
If Not Data Is Nothing Then Data.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = 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 SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).

10
App_Code/ClsSisProcesos.vb
View File

@@ -216,11 +216,11 @@ Public Class ClsSisProcesos
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlCommand Is Nothing Then SqlCommand.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).

11
App_Code/ClsSisRoles.vb
View File

@@ -336,10 +336,13 @@ Public Class ClsSisRoles
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).
SqlConexion.Close()
SqlConexion.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

16
App_Code/ClsSisUsuarios.vb
View File

@@ -2939,12 +2939,16 @@ Public Class ClsSisUsuarios
#Region "IDisposable Support" #Region "IDisposable Support"
Protected Overridable Sub Dispose(disposing As Boolean) Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then If Not Me.disposedValue Then
If disposing Then If disposing Then
If Not Data Is Nothing Then Data.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If
End If End If
Me.disposedValue = True Me.disposedValue = True

11
App_Code/ClsStiReports.vb
View File

@@ -106,10 +106,13 @@ Public Class ClsStiReports
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).
SqlConexion.Close()
SqlConexion.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

14
App_Code/ClsSubProyectos.vb
View File

@@ -299,12 +299,14 @@ Public Class ClsSubProyectos
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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).
SqlConexion.Close()
SqlConexion.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If End If

10
App_Code/ClsSucursales.vb
View File

@@ -351,11 +351,13 @@ Public Class ClsSucursales
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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.

11
App_Code/ClsTemporal.vb
View File

@@ -291,12 +291,13 @@ Public Class ClsTemporal
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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.

9
App_Code/ClsTiposEventos.vb
View File

@@ -185,11 +185,12 @@ Public Class ClsTiposEventos
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = 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.

10
App_Code/ClsUnidadesMedida.vb
View File

@@ -307,11 +307,13 @@ Public Class ClsUnidadesMedida
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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.

18
App_Code/ClsVentas.vb
View File

@@ -5257,13 +5257,19 @@ 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 Dataset Is Nothing Then Dataset.Dispose()
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
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.

10
App_Code/ClsVtaPromociones.vb
View File

@@ -139,11 +139,13 @@ Public Class ClsVtaPromociones
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 SqlAdapter Is Nothing Then SqlAdapter.Dispose()
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = 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.

14
App_Code/ClsVtaVendedores.vb
View File

@@ -265,13 +265,15 @@ Public Class ClsVtaVendedores
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
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).
SqlConexion.Close() If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
SqlConexion.Dispose() If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not Data Is Nothing Then Data.Dispose() If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
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).
' TODO: Establecer campos grandes como Null. ' TODO: Establecer campos grandes como Null.

54
Ventas/CatClientes.aspx
View File

@@ -473,47 +473,7 @@
</div> </div>
</div> </div>
<%--<div id="DivCorporativo" class="modal fade" role="dialog"> <div id="DivUnificarCliente" class="modal ADS fade" role="dialog">
<div class="modal-dialog" >
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Agregar Corporativo"></asp:Label></h4>
</div>
<div class="modal-body" >
<table class="table table-striped table-advance table-hover">
<thead>
<tr>
<td style="text-align: center">
<asp:Label runat="server">Seleccione un Corporativo</asp:Label>
</td>
</tr>
<tr>
<td style="text-align: left">
<asp:DropDownList ID="DdlCorporativo" runat="server" CssClass=" form-control input-sm select2me" Width="100%"></asp:DropDownList>
</td>
</tr>
</thead>
</table>
</div>
<div class="modal-footer">
<asp:Button ID="BtnCorporativo" runat="server" Text="Agregar" class="btn btn-success" />
<%--OnClick="BtnCorporativo_Click"
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>--%>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivUnificarCliente" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<asp:UpdatePanel ID="UpUnificar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpUnificar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -530,12 +490,15 @@
<div class="col-md-6"> <div class="col-md-6">
<label>Cliente a Unificar: </label> <label>Cliente a Unificar: </label>
<br /> <br />
<asp:DropDownList ID="DdlClienteAUnificar" runat="server" CssClass="select2me" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="100%"></asp:DropDownList> <%--<asp:DropDownList ID="DdlClienteAUnificar" runat="server" CssClass="select2me" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="100%"></asp:DropDownList>--%>
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteAUnificar" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<label>En: </label> <label>En: </label>
<br /> <br />
<asp:DropDownList ID="DdlClienteOriginal" runat="server" CssClass="select2me" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="100%"></asp:DropDownList> <%--<asp:DropDownList ID="DdlClienteOriginal" runat="server" CssClass="select2me" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="100%"></asp:DropDownList>--%>
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteOriginal" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
</div> </div>
</div> </div>
<br /> <br />
@@ -550,6 +513,11 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</ContentTemplate>
</asp:UpdatePanel>
<ajax:ModalPopupExtender ID="MPContrato" runat="server" PopupControlID="PanelContrato" TargetControlID="BtnMostrarClasificaciones" <ajax:ModalPopupExtender ID="MPContrato" runat="server" PopupControlID="PanelContrato" TargetControlID="BtnMostrarClasificaciones"
CancelControlID="BtnCerrarClasificaciones" BackgroundCssClass="modalBackground"> CancelControlID="BtnCerrarClasificaciones" BackgroundCssClass="modalBackground">

19
Ventas/CatClientes.aspx.vb
View File

@@ -85,11 +85,22 @@ Partial Class CatClientes
DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1")) DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub
Private Sub CargaNombreClientes() Private Sub CargaNombreClientes()
DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClienteAUnificar.DataBind()
DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlClienteAUnificar.setEsWebService(True)
DdlClienteOriginal.DataBind() DdlClienteAUnificar.SelectedValue = "-1"
DdlClienteAUnificar.SelectedText = "Todos"
DdlClienteOriginal.setEsWebService(True)
DdlClienteOriginal.SelectedValue = "-1"
DdlClienteOriginal.SelectedText = "Todos"
'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
'DdlClienteAUnificar.DataBind()
'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
'DdlClienteOriginal.DataBind()
UpBodyUnificar.Update() UpBodyUnificar.Update()
End Sub End Sub