From dc3cf90302bfe5a672002afaa71563a8247e4b8e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 3 Jan 2024 20:32:57 -0700
Subject: [PATCH] SMS Clientes Suscursales agregar DdlAlamcen

---
 Ventas/Clientes.aspx    | 14 +++++------
 Ventas/Clientes.aspx.vb | 56 +++++++++++++++++++++++++++--------------
 2 files changed, 43 insertions(+), 27 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 893ba9fe4..902d3a21a 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1751,6 +1751,7 @@
                                                         <asp:Button ID="BtnCargaCxC" runat="server" ClientIDMode="Static" Text="CargaCxC" Style="display: none;" OnClick="BtnCargaCxC_Click" />
                                                         <div class="row">
                                                             <div class="col-md-6">
+
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input input-iconright">
@@ -1867,7 +1868,6 @@
                                                             </div>
 
                                                             <div class="col-md-6">
-
                                                                 <div class="form-group form-md-line-input">
                                                                     <asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                                                     <label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
@@ -1906,10 +1906,6 @@
                                                                     </div>
                                                                 </div>
 
-
-
-
-
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
@@ -5200,7 +5196,7 @@
                                     </div>
                                 </div>
 
-                                <div class="row" >
+                                <div class="row"  style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
@@ -5215,7 +5211,7 @@
                                         <i></i>
                                     </div>
                                 </div>
-                                 <div class="row" >
+                                 <div class="row"  style="padding-left: 16px;" >
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
@@ -5283,7 +5279,9 @@
                                 </div>
 
                                 <div class="row" style="padding-left: 16px">
-                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false">
+                                         <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
+                                         <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9a6b8334a..d6b1fc0c8 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -661,17 +661,7 @@ Partial Class Clientes
     End Property
 
 
-    Property CveAlmacenAsignadoSucursal As Integer
-        Get
-            If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
-                ViewState("CveAlmacenAsignadoSucursal") = -1
-            End If
-            Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacenAsignadoSucursal") = value
-        End Set
-    End Property
+
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2583,8 +2573,9 @@ Partial Class Clientes
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
 
-                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
-                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                                    Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
+
+                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
                                         CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
                                         If Not CveAlmacenAsignadoSucursal > 0 Then
                                             ErrorProceso = True
@@ -3005,14 +2996,26 @@ Partial Class Clientes
         DivEstatusSucursal.Visible = False
         TxtNumeroCuenta.Text = ""
         DdlMetodoPagoSucursal.SelectedIndex = 0
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
         UpAgregarSucursal.Update()
         Me.CveClienteSuc = -1
         Me.Actualizar = False
         txtLg.Text = ""
         txtLt.Text = ""
-        HDMAPOP.Value = "2"
-
+        HDMAPOP.Value = "2"
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            DvAlmacenSucursal.Visible = True
+            ddlAlmacenSucursal.Items.Clear()
+            ddlAlmacenSucursal.ClearSelection()
+            ddlAlmacenSucursal.SelectedValue = Nothing
+            ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            ddlAlmacenSucursal.DataBind()
+        End If
+
+        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        ddlAlmacenSucursal.SelectedValueExist("-1")
+
         UpModalDivMapa.Update()
 
 
@@ -3053,7 +3056,7 @@ Partial Class Clientes
             Dim ObjCliente As New ClsClientes
             ObjCliente.IniciaTransacSQL()
 
-            If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If ddlAlmacenSucursal.SelectedValue.ToEntero <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
                 If Not CveAlmacenAgregadoSucursal > 0 Then
                     ProcesoOK = False
@@ -3214,7 +3217,7 @@ Partial Class Clientes
         Me.Actualizar = True
         'Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
 
         Dim ObjCliente As New ClsClientes
 
@@ -3254,7 +3257,20 @@ Partial Class Clientes
             txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
-            CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                DvAlmacenSucursal.Visible = True
+                ddlAlmacenSucursal.Items.Clear()
+                ddlAlmacenSucursal.ClearSelection()
+                ddlAlmacenSucursal.SelectedValue = Nothing
+                ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                ddlAlmacenSucursal.DataBind()
+                ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
+                ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
+            End If
+
+
+
+
 
 
             UpAgregarSucursal.Update()
@@ -5537,6 +5553,8 @@ Partial Class Clientes
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
 
+        RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
+
         TempDTSucursales.Rows.Add(RowSucursal)
 
         GVSucursales.DataSource = TempDTSucursales