SMS Clientes Suscursales agregar DdlAlamcen

This commit is contained in:
rakcsle
2024-01-03 20:32:57 -07:00
parent c44c8b2010
commit dc3cf90302
2 changed files with 43 additions and 27 deletions

View File

@@ -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">

View File

@@ -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