-cambios en globalsDT2

Ventas/ProductosServicios.aspx.vb

@@ -1326,11 +1326,12 @@ Partial Class ProductosyServicios
 
 #Region "G L O B L A L"
     Private Sub RecargaGlobal()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
-        Hilo.Start()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
+        'Hilo.Start()
+        GeneraGlobalDT()
     End Sub
     Private Sub GeneraGlobalDT()
-        GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = Nothing
+
         GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTImpuestosLocales(-1, UsuarioActual.CveEmpresa) = Nothing
@@ -1339,23 +1340,23 @@ Partial Class ProductosyServicios
 
         'Dim ObjPS As New ClsProductosServicios
 
-        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
+        'If ObjPS.GetPSSimplificado(UsuarioActual.CveEmpresa) Then Application(String.Format("GlobalDTPSSimplificado{0}", UsuarioActual.CveEmpresa)) = ObjPS.DtResultados.AsEnumerable()
 
-        'If ObjPS.GetPSAlias(-1, -1) Then
-        '    GlobalDTProductosServiciosAlias(-1) = ObjPS.DtResultados
+        ''If ObjPS.GetPSAlias(-1, UsuarioActual.CveEmpresa) Then
+        '    GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = ObjPS.DtResultados
         'End If
 
-        'If ObjPS.GetPSImpuestosLocales(-1, -1) Then
-        '    GlobalDTImpuestosLocales(-1, -1) = ObjPS.DtResultados
+        'If ObjPS.GetPSImpuestosLocales(-1, UsuarioActual.CveEmpresa) Then
+        '    GlobalDTImpuestosLocales(-1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
         'End If
 
-        'If ObjPS.GetPSEquivalencias(-1, -1) Then
+        'If ObjPS.GetPSEquivalencias(-1, UsuarioActual.CveEmpresa) Then
         '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
         'End If
 
-        ''If ObjPS.GetPSAdicionales(-1, -1) Then
-        ''    GlobalDTPSAdicionales(-1, -1) = ObjPS.DtResultados
-        ''End If
+        'If ObjPS.GetPSAdicionales(-1, UsuarioActual.CveEmpresa) Then
+        '    GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
+        'End If
 
         'ObjPS.Dispose()
     End Sub
@@ -1401,8 +1402,9 @@ Partial Class ProductosyServicios
 
     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()
         GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing