From cc7782e9786875dea8c4147667d33539f5495543 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 28 Jan 2023 07:09:26 -0700
Subject: [PATCH] =?UTF-8?q?--globldttama=C3=B1os?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6f69118b0..89cb8d03a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13278,7 +13278,7 @@ Partial Class Ventas
 
                                     Else
 
-                                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo={CvePSCargo}")
+                                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo={CvePSCargo}")
 
                                         If DrTamanio IsNot Nothing Then
                                             'OBTIENE LOS IMPORTES ORIGINALES EN BASE A LO QUE HABIA EN EL MOVIMIENTO
@@ -29034,7 +29034,7 @@ Partial Class Ventas
                 Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                 Dim Obs = ""
                 'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                     Obs = RowUsado("CodigoPS").ToString()
                 Else
                     Obs = RowUsado("Obs").ToString()
@@ -29122,7 +29122,7 @@ Partial Class Ventas
                 Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                 Dim Obs = ""
                 'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                     Obs = RowUsado("CodigoPS").ToString()
                 End If
                 'SI TIENE BCI EN LAS OBSERVACIONES AGREGARLO A LA FACTURA
@@ -29307,7 +29307,7 @@ Partial Class Ventas
 
                 For Each RowCargo As DataRow In TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows
                     Dim CantidadCargo = RowCargo("Cantidad").ToString().ToDecimal()
-                    Dim ImportePU As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
+                    Dim ImportePU As Decimal = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
                     Dim TotalCalculableImpuestosCargo As Decimal = (CantidadCargo * ImportePU)
                     Dim TotalCargo As Decimal = TotalCalculableImpuestosCargo + (TotalCalculableImpuestosCargo * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2)
 
@@ -29404,7 +29404,7 @@ Partial Class Ventas
                 Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                 Dim Obs = ""
                 'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                     Obs = RowUsado("CodigoPS").ToString()
                     'Else
                     '    Obs = RowUsado("Obs").ToString()
@@ -31249,7 +31249,7 @@ Partial Class Ventas
     Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of MVentaDetalleCotizacion)
         Dim Retorno As New List(Of MVentaDetalleCotizacion)
 
-        Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
+        Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
 
         Dim DTCvePSCostos As DataTable = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
 
@@ -32835,7 +32835,7 @@ Partial Class Ventas
                 Exit Sub
             End If
 
-            Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
+            Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
 
             Dim DTCvePSCostos As DataTable
             DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
@@ -33001,7 +33001,7 @@ Partial Class Ventas
             If ClienteEsDistribuidor AndAlso Not factura.EsGarantia Then
                 For Each drow As DataRow In factura.DtDetalle.Rows
                     If drow("CveTamaño").ToString.ToEntero > 0 Then
-                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños().FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
+                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
                         If DrTamanio IsNot Nothing Then
                             Dim Cargo As Decimal = DrTamanio("Cargo").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()
                             Dim Bonificacion As Decimal = DrTamanio("Bonificacion").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()