From ee88e288a4d6f3d4834fc102194a8b9c7b2db54d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 22 Apr 2024 15:43:14 -0700
Subject: [PATCH] -- mejora en usar los alamcenes de consigna y avistas

---
 Ashx/SIGWeb.ashx      |  4 ++++
 Ventas/Ventas.aspx.vb | 39 +++++++++++++++++++--------------------
 2 files changed, 23 insertions(+), 20 deletions(-)

diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index fdf93a213..498665467 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -940,6 +940,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     MostrarTodosAlmacenes = True
                 End If
 
+                If (usuario.Empresa.Funcionalidad(578) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then 'sms
+                    MostrarTodosAlmacenes = True
+                End If
+
                 Dim objInv As New ClsInventarios
                 Try
                     If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes, CveAlmacen:=CveAlmacen) Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0c6507e01..dbc9f6197 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8156,8 +8156,6 @@ Partial Class Ventas
 
         End If
 
-
-
     End Sub
 
     Private Sub CargaPSRemision(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost)
@@ -37440,7 +37438,6 @@ Partial Class Ventas
                 End If
             End If
 
-
             If DdlClienteSucursalCliente() > 0 Then
                 CveClienteOS = DdlClienteSucursalCliente()
             Else
@@ -37502,6 +37499,7 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
+        Dim tCveAlmacenExistencia As Integer = -1
 
         If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
             'DdlTipoComprobante.SelectedValueExist("Ing")
@@ -37547,20 +37545,17 @@ Partial Class Ventas
             TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked
             TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
 
-
         End If
 
-
-
         DdlTipoComprobante.Enabled = False
 
         CargaCliente(CveCliente)
 
-
         ' Si es pago directo no asigna la sucurasl al dll
         If RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
-            If DdlClienteSucursalSucursal() > 0 Then
-                DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal())
+            Dim tcveclientesucursal As Integer = DdlClienteSucursalSucursal()
+            If tcveclientesucursal > 0 Then
+                DdlSucursalCliente.SelectedValueExist(tcveclientesucursal)
             Else
                 If DdlSucursalCliente.Items.Count >= 2 Then
                     DdlSucursalCliente.SelectedIndex = 1
@@ -37568,8 +37563,8 @@ Partial Class Ventas
             End If
         End If
 
-        DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
+        DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
         Dim CountPsAgregados As Integer = 0
 
@@ -37604,17 +37599,15 @@ Partial Class Ventas
             UpParametros.Update()
         End If
 
-        If RBLTipoVenta.SelectedValue.Contiene("5", "6") Then
-            AsignaAlamacenWS()
-            CargaPS(-1, DdlPS)
+        If RBLTipoVenta.SelectedValue.Contiene("5", "6") Then ' 3.avista,4.consig,5.consig mat, 6. avista mat.
+            AsignaAlmacenWS()
+            'CargaPS(-1, DdlPS)
         End If
 
         RegistraScript("$('#DvModalTipoVenta').modal('hide');")
         UpCliente.Update()
     End Sub
 
-
-
     Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DataKey("Precio").ToDecimal = 0 Then
@@ -37774,21 +37767,27 @@ Partial Class Ventas
         CargaProcedimientos(HdnCveProcedimientoNuevo.Value.ToEntero)
     End Sub
 
-    Private Sub AsignaAlamacenWS()
+    Private Sub AsignaAlmacenWS()
 
         CveAlamcenFiltroDdl = -1
+        Dim tCveAlmacenExistencia As Integer = -1
 
         If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
             If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
-                Dim objclientes As New ClsClientes
-                If objclientes.GetSucursales(CveCliente, -1) Then
-                    CveAlamcenFiltroDdl = objclientes.DtResultados.FiltroPrimeroValor("CveAlmacenAsignado", $" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}").ToEntero
+                Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
+                If drr IsNot Nothing Then
+                    If RBLTipoVenta.SelectedValue.Contiene("6") Then
+                        tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
+                    Else
+                        tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
+                    End If
                 End If
-                objclientes.Dispose()
             End If
             If Not CveAlamcenFiltroDdl > 0 Then
                 CveAlamcenFiltroDdl = If(CveAlmacenAsignado > 0, CveAlmacenAsignado, -1)
             End If
+            DdlPS.ddlWS.Attributes.Remove("data-CveAlmacen")
+            DdlPS.ddlWS.Attributes.Add("data-CveAlmacen", tCveAlmacenExistencia.ToString)
 
         End If