-cambios en globalsDT2

OC/OC.aspx.vb

@@ -1299,7 +1299,7 @@ Partial Class OC
                         'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ
                         Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero
                         DivProveedorSucursal.Visible = True
-                        DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor)
+                        DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, UsuarioActual.CveEmpresa)
                         DdlProveedorSucursal.DataBind()
                         DdlProveedorSucursal.Items.Insert(0, New ListItem("Matriz", "0"))
                         DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursal)
@@ -1334,7 +1334,7 @@ Partial Class OC
 
                         If objOC.CveProveedorSucursal.ToEntero > 0 Then
                             DivProveedorSucursal.Visible = True
-                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor)
+                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, UsuarioActual.CveEmpresa)
                             DdlProveedorSucursal.DataBind()
                             DdlProveedorSucursal.SelectedValueExist(objOC.CveProveedorSucursal.ToString)
                         End If
@@ -1830,7 +1830,7 @@ Partial Class OC
         If Cvepsgvd > 0 Then
             Dim CboUM As DropDownList = Gvr.FCDropDownList("CboUnidadMedidaEdit")
             Dim TxtPU As TextBox = Gvr.FCTextBox("TxtImporteEdit")
-            CboUM.DataSource = GlobalDTProductosServiciosEquivalencias(Cvepsgvd, -1)
+            CboUM.DataSource = GlobalDTProductosServiciosEquivalencias(Cvepsgvd, -1, UsuarioActual.CveEmpresa)
             CboUM.DataBind()
         End If
     End Sub
@@ -1879,7 +1879,7 @@ Partial Class OC
 
             CboUnidadMedida.Items.Clear()
 
-            CboUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(DdlP2.SelectedValue.ToEntero, -1)
+            CboUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(DdlP2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
             CboUnidadMedida.DataBind()
 
             If CveEmpresaActual = 119 Then
@@ -5131,7 +5131,7 @@ Partial Class OC
             DivProveedorSucursal.Visible = False
             DivProveedorContacto.Visible = False
         Else
-            If Objeto.GetSucursales(DdlProveedores.SelectedValue.ToEntero) Then
+            If Objeto.GetSucursales(DdlProveedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                 If Objeto.DtResultados.Rows.Count > 0 Then
                     DivProveedorSucursal.Visible = True
                     DdlProveedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -5597,7 +5597,7 @@ Partial Class OC
         Dim Body As String = GeneraCorreoProveedor(CveOrdenCompra, CveProveedor) 'genero los datos de la OC
         Dim Correo As String = ""
         'si tiene seleccionada una sucursal, obtengo su correo, sino tiene especificado tomo el correo principal del proveedor
-        If DdlProveedorSucursal.SelectedValue.ToEntero > 0 Then Correo = GlobalDTProveedorSucursales(CveProveedor).FiltroPrimeroValor("Correo", $"CveProveedorSucursal={DdlProveedorSucursal.SelectedValue}")
+        If DdlProveedorSucursal.SelectedValue.ToEntero > 0 Then Correo = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveProveedorSucursal={DdlProveedorSucursal.SelectedValue}")
         If Correo = "" Then Correo = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {CveProveedor}")(0)("ContactoMail").ToString
 
         Try
@@ -7315,10 +7315,10 @@ Partial Class OC
         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()
+        'If ObjPS.GetPSSimplificado(UsuarioActual.CveEmpresa) Then Application(String.Format("GlobalDTPSSimplificado{0}", UsuarioActual.CveEmpresa)) = ObjPS.DtResultados.AsEnumerable()
 
         'ObjPS.Dispose()
     End Sub
@@ -7329,11 +7329,12 @@ Partial Class OC
         Hilo.Start()
     End Sub
     Private Sub GeneraGlobalEquivalencias()
-        Dim ObjPS = New ClsProductosServicios
-        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
-        End If
-        ObjPS.Dispose()
+        'Dim dtt As DataTable = GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa)
+        'Dim ObjPS = New ClsProductosServicios
+        'If ObjPS.GetPSEquivalencias(-1, UsuarioActual.CveEmpresa) Then
+        '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
+        'End If
+        'ObjPS.Dispose()
     End Sub
 
 #End Region