Mejoras GlobalDT

-Se movió la carga del Global.asax a ClsPaginas Cambios DB [SIG_Resp_MLR] -PA_OS_EstatusOrdenServicioGet + @CveEmpresa -PA_OC_EstatusGet + @_CveEmpresa
2023-02-08 21:43:52 -07:00
parent 356c0d1136
commit 6be202b467
4 changed files with 141 additions and 96 deletions
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -1299,9 +1299,14 @@ Public Class ClsOC
 #End Region

 #Region " O R D E N  E S  -  D E  -  C O M P R A - E S T A T U S"
-    Public Function GetEstatus() As Boolean
+    Public Function GetEstatus(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_OC_EstatusGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@_CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -357,9 +357,14 @@ Public Class ClsOS
    '#End Region

 #Region "ClsOSEstatusOrdenServicio"
-    Public Function GetEstatusOrdenServicio() As Boolean
+    Public Function GetEstatusOrdenServicio(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_OS_EstatusOrdenServicioGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1387,12 +1387,20 @@ Public Class ClsPaginas
    '        Application("GlobalDTMesas") = value
    '    End Set
    'End Property
-    Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable
        Get
-            GlobalDTTipoOrdenServicios = DirectCast(Application("GlobalDTTipoOrdenServicios"), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
+            Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOS As New ClsOS
+                If ObjOS.GetTipoOrdenesServicios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
+                ObjOS.Dispose()
+            End If
+            GlobalDTTipoOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTTipoOrdenServicios") = value
+            Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
    Property GlobalDTSubTipoOrdenServicios() As DataTable
@@ -1704,20 +1712,36 @@ Public Class ClsPaginas
            Application("GlobalDTAFCaracteristicasOpciones") = value
        End Set
    End Property
-    Property GlobalDTAFCaracteristicas() As DataTable
+    Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable
        Get
-            GlobalDTAFCaracteristicas = DirectCast(Application("GlobalDTAFCaracteristicas"), DataTable)
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            GlobalDTAFCaracteristicas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTAFCaracteristicas") = value
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTAFCaracteristicasClasificaciones() As DataTable
+    Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable
        Get
-            GlobalDTAFCaracteristicasClasificaciones = DirectCast(Application("GlobalDTAFCaracteristicasClasificaciones"), DataTable)
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            GlobalDTAFCaracteristicasClasificaciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTAFCaracteristicasClasificaciones") = value
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
    Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
@@ -1939,18 +1963,20 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
        Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTEstatusOrdenServicios = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTEstatusOrdenServicios = DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable)
+            Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOS As New ClsOS
+                If ObjOS.GetEstatusOrdenServicio(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
+                ObjOS.Dispose()
            End If
+            GlobalDTEstatusOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTEstatusOrdenServicios") = value
+            Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
    'Variables para Ventas
@@ -2428,87 +2454,94 @@ Public Class ClsPaginas
            Application("GlobalDTActivoFijos") = value
        End Set
    End Property
-    Property GlobalDTEstadoActivoFijo() As DataTable
+    Public Shared Property GlobalDTEstadoActivoFijo() As DataTable
        Get
-            GlobalDTEstadoActivoFijo = DirectCast(Application("GlobalDTEstadoActivoFijo"), DataTable)
-        End Get
-        Set(value As DataTable)
-            Application("GlobalDTEstadoActivoFijo") = value
-        End Set
-    End Property
-    Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
-        Get
-            Dim dt As DataTable = Nothing
-            Dim ObjAF As New ClsAF
-            If ObjAF.GetMarcasActivosFijos(CveEmpresa) Then
-                dt = ObjAF.DtResultados
+            Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
+            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetEstatusActivoFijo() Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
            End If
-            ObjAF.Dispose()
-            GlobalDTMarcaActivoFijo = dt
+            GlobalDTEstadoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTMarcaActivoFijo") = value
+            Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
+    Public Shared Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
        Get
-            Dim dt As DataTable = Nothing
-            Dim ObjAF As New ClsAF
-            If ObjAF.GetModelosActivosFijos(CveEmpresa, CveMarca) Then
-                dt = ObjAF.DtResultados
+            Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetMarcasActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
            End If
-            ObjAF.Dispose()
-            GlobalDTModeloActivoFijo = dt
+            GlobalDTMarcaActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTModeloActivoFijo") = value
+            Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
+    Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            If CveMarca > 0 Then
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveMarca = {CveMarca}", "", DataViewRowState.CurrentRows)
+                GlobalDTModeloActivoFijo = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTModeloActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+    Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
            'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                Dim ObjSubTipos As New ClsAF
-                If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then Application(AppNombre) = ObjSubTipos.DtResultados
+                If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados
                ObjSubTipos.Dispose()
            End If
            Dim Str As New StringBuilder
            If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
            If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo)
-            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
            GlobalDTSubTipoActivoFijo = Dv.ToTable
            Dv.Dispose()
        End Get
        Set(value As DataTable)
            Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
        End Set
-        'Get
-        '    If CveEmpresa <> -1 Then
-        '        Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-        '        GlobalDTSubTipoActivoFijo = Dv.ToTable
-        '        Dv.Dispose()
-        '    Else
-        '        GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
-        '    End If
-        'End Get
-        'Set(value As DataTable)
-        '    Application("GlobalDTSubTipoActivoFijo") = value
-        'End Set
    End Property
-    Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
        Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTTipoActivoFijo = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTTipoActivoFijo = DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable)
+            Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim GetTiposActivosFijos As New ClsAF
+                If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados
+                GetTiposActivosFijos.Dispose()
            End If
+            GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTTipoActivoFijo") = value
+            Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
 #End Region
@@ -3202,18 +3235,20 @@ Public Class ClsPaginas
    End Property
 #End Region
 #Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************"
-    Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
        Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatus"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTOCEstatus = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTOCEstatus = DirectCast(Application("GlobalDTOCEstatus"), DataTable)
+            Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOC As New ClsOC
+                If ObjOC.GetEstatus(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
+                ObjOC.Dispose()
            End If
+            GlobalDTOCEstatus = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTOCEstatus") = value
+            Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
    Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
--- a/Global.asax
+++ b/Global.asax
@@ -63,33 +63,33 @@
 #End If
        '----------------------------------------------------------------------------------------------------------------------        
        'C A R G A  -  O S
-        GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))

-        Using ObjOS As New ClsOS
-            If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
-            If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
-        End Using
+        'Using ObjOS As New ClsOS
+        '    If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
+        '    If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
+        'End Using
        '-------------------------------------------------------------------------------------------------------------------------        
        'A C T I V O S  - F I J O S
-        GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))

-        Using ObjActivosFijos As New ClsAF
-            If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
-            If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
-            'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
-            If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
-            If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
-            If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
-            If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
-        End Using
+        'Using ObjActivosFijos As New ClsAF
+        'If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
+        'If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
+        'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
+        'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
+        'End Using
        '-------------------------------------------------------------------------------------------------------------------------        
        'C A R G A  -  O R D E N E S  -  D E  - C O M P R A S

-        GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
-        Using ObjOC As New ClsOC
-            If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-            'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
-        End Using
+        'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
+        'Using ObjOC As New ClsOC
+        'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
+        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+        'End Using

        '-------------------------------------------------------------------------------------------------------------------------        
        'A M O R T I Z A C I O N  -  C O N T A B L E