-cambios en globalsDT2

Compras/Compras.aspx.vb

@@ -4140,8 +4140,9 @@ Partial Class Compras_Compras
 
         'si hay necesidad de actualizar el globaldtps
         If RegeneraPS Then
-            Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
-            Hilo.Start()
+            'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
+            'Hilo.Start()
+            GeneraGlobalDT(Nothing)
         End If
 
         Dim CvePlantillaPrePoliza As Integer
@@ -17504,15 +17505,17 @@ Partial Class Compras_Compras
     End Sub
 
     Private Sub RecargaGlobalEquivalencias()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
-        Hilo.Start()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
+        'Hilo.Start()
+        GeneraGlobalEquivalencias()
     End Sub
     Private Sub GeneraGlobalEquivalencias()
-        Dim ObjPS = New ClsProductosServicios
-        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
-        End If
-        ObjPS.Dispose()
+        GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjPS = New ClsProductosServicios
+        'If ObjPS.GetPSEquivalencias(-1, -1) Then
+        '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
+        'End If
+        'ObjPS.Dispose()
     End Sub
 #End Region
 
@@ -17664,23 +17667,26 @@ Partial Class Compras_Compras
 
     End Sub
     Private Sub RecargaGlobalUM()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalUM)
-        Hilo.Start()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalUM)
+        'Hilo.Start()
+        GeneraGlobalUM()
     End Sub
-    Private Sub GeneraGlobalUM()
-        Dim ObjPS = New ClsProductosServicios
-        Dim OjbUM As New ClsUnidadesMedida
-
-        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
-        End If
-
-        If OjbUM.GetUnidadesMedidaAlias(-1) Then
-            GlobalDTUnidadesMedidaAlias = OjbUM.DtResultados
-        End If
-
-        ObjPS.Dispose()
-        OjbUM.Dispose()
+    Private Sub GeneraGlobalUM()
+        GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjPS = New ClsProductosServicios
+        'Dim OjbUM As New ClsUnidadesMedida
+
+        'If ObjPS.GetPSEquivalencias(-1, -1) Then
+        '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
+        'End If
+
+        'If OjbUM.GetUnidadesMedidaAlias(-1) Then
+        '    GlobalDTUnidadesMedidaAlias = OjbUM.DtResultados
+        'End If
+
+        'ObjPS.Dispose()
+        'OjbUM.Dispose()
     End Sub
 
 #End Region
@@ -19068,7 +19074,7 @@ Partial Class Compras_Compras
         RecargaPSGlobal()
     End Sub
     Private Sub RecargaPSGlobal()
-        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjPS As New ClsProductosServicios
 
         'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()