Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -4134,8 +4134,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
@@ -17498,15 +17499,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
 
@@ -17658,23 +17661,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
@@ -19062,7 +19068,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()

Compras/Proveedores.aspx.vb

@@ -1498,7 +1498,7 @@ Partial Class Compras_Proveedores
                                 Next
                             End If
 
-                            If ObjProveedores.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados
+                            GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
                         End If
                     Next
                 End If
@@ -1533,8 +1533,8 @@ Partial Class Compras_Proveedores
                     If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
                     'ACTUALIZAR GLOBAL
-                    If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then
-                        GlobalDTCompProveedores(-1) = ObjProveedores.DtResultados
+                    If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                        GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
                     Else
                         ErrorBancos = True
                     End If
@@ -1617,8 +1617,8 @@ Partial Class Compras_Proveedores
 
                 If tIdContaProveedor > 0 AndAlso CreoCuenta Then ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, tIdContaProveedor)
 
-                If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then
-                    GlobalDTCompProveedores(-1) = ObjProveedores.DtResultados
+                If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                    GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
                 End If
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
@@ -2016,7 +2016,7 @@ Partial Class Compras_Proveedores
     Public Sub CargaProveedorSucursales()
         CveTempSucursal = -1
 
-        TempDTSucursales = GlobalDTProveedorSucursales(CveProveedor)
+        TempDTSucursales = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
         TempDTSucursales.Columns.Add("CveSucursalTemp", GetType(String))
         TempDTSucursalesOrigin = TempDTSucursales.Copy()
         GVSucursales.DataSource = TempDTSucursales
@@ -2081,7 +2081,7 @@ Partial Class Compras_Proveedores
             If EsEditarSucursal = 0 Then
                 If ObjProveedor.AddSucursal(CveProveedor, TxtProveedorSucursal2.Text.Trim, TextSucursalDireccion.Text.Trim, TextSucursalTelefono.Text.Trim, TxtSucursalSerie.Text.Trim, TxtContactoSucursal.Text, TxtCorreoSucursal.Text, UsuarioActual.CveUsuario, TxtLimiteCreditoSuc.Text.ToDouble, TxtPlazoCobranzaSuc.Text.ToEntero) Then
                     'recargo el globaldt
-                    If ObjProveedor.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedor.DtResultados
+                    GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
                     Alert("La nueva Sucursal del Proveedor se guardó correctamente.", TipoMensaje.MsgInformacion)
                     CargaProveedorSucursales()
                 End If
@@ -2089,7 +2089,7 @@ Partial Class Compras_Proveedores
 
                 If CveProveedorSucursal > 0 And ObjProveedor.UpdateSucursal(TxtProveedorSucursal2.Text, TextSucursalDireccion.Text.Trim, TextSucursalTelefono.Text.Trim, TxtSucursalSerie.Text, False, TxtCorreoSucursal.Text, TxtContactoSucursal.Text, CveProveedorSucursal, CveProveedor, TxtLimiteCreditoSuc.Text.ToDouble, TxtPlazoCobranzaSuc.Text.ToEntero) Then
                     'recargo el globaldt
-                    If ObjProveedor.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedor.DtResultados
+                    GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
                     CargaProveedorSucursales()
                     Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                 End If
@@ -2149,7 +2149,7 @@ Partial Class Compras_Proveedores
             If ObjProveedor.RemoveProveedorContacto(-1, CveProveedorSucursal) Then
                 If ObjProveedor.RemoveSucursal(CveProveedor, CveProveedorSucursal) Then
                     'GVSucursales.EditIndex = -1
-                    If ObjProveedor.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedor.DtResultados
+                    GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
                     CargaProveedorSucursales()
                     CargaContactos(ObjProveedor)
                     Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -3162,7 +3162,7 @@ Partial Class Compras_Proveedores
     End Sub
     Protected Sub MostrarFiltro()
 
-        If GlobalDTProveedorSucursales(CveProveedor).Rows.Count > 1 Then
+        If GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).Rows.Count > 1 Then
             'tHistorial.Visible = True
             'tCxP.Visible = True
             'tAnticipos.Visible = True
@@ -3187,7 +3187,7 @@ Partial Class Compras_Proveedores
         End If
     End Sub
     Protected Sub CargaRB(R As DropDownList)
-        R.DataSource = GlobalDTProveedorSucursales(CveProveedor)
+        R.DataSource = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
         R.DataBind()
         R.Items.Insert(0, New ListItem("Todas", "-1"))
         If CveProveedorSucursal > 0 Then R.SelectedValue = CveProveedorSucursal.ToString Else R.SelectedValue = "-1"