AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nombre de mensajes en giros de clientes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-11-04 00:14:21 -07:00
parent aa0dc96c02
commit 30653e0ae4
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/CatClientesClasificaciones.aspx
View File

@@ -32,7 +32,7 @@
<ContentTemplate>
<asp:UpdatePanel ID="UpGvClasificacion" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron Clasificaciones." ToolTip="Listado de Clasificacaiones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
<asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron giros de clientes." ToolTip="Listado de giros de clientes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
<Columns>
<asp:BoundField DataField="ClienteClasificacion" ItemStyle-Width="30%" HeaderText="Giro" ItemStyle-HorizontalAlign="left" />
<asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="30%" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="left" />
@@ -65,15 +65,15 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" id="myModalLabel">Guardar Clasificación</h4>
<h4 class="modal-title" id="myModalLabel">Guardar giro</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpAgregarSucursal" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClasificacion" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
<label for="<%= TxtClasificacion.ClientID.ToString()%>">Clasificación:</label>
<asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Giro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
<label for="<%= TxtClasificacion.ClientID.ToString()%>">Giro:</label>
</div>
</ContentTemplate>
</asp:UpdatePanel>

8
Ventas/CatClientesClasificaciones.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class Ventas_ClientesClasificaciones
If HdnModalidad.Value = "I" Then
If Objeto.AddClienteClasificacion(TxtClasificacion.Text, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
TxtClasificacion.Text = ""
Alert("La Clasificación se agregó correctamente.", TipoMensaje.MsgInformacion)
Alert("El giro se agregó correctamente.", TipoMensaje.MsgInformacion)
CargaDatos()
UpGvClasificacion.Update()
Objeto.Dispose()
@@ -45,7 +45,7 @@ Partial Class Ventas_ClientesClasificaciones
Else
If HdnID.Value.ToEntero <> -1 Then
If Objeto.UpdateClienteClasificacion(TxtClasificacion.Text, HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
CargaDatos()
UpGvClasificacion.Update()
Objeto.Dispose()
@@ -80,7 +80,7 @@ Partial Class Ventas_ClientesClasificaciones
Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
If Update.UpdateClienteClasificacion(Clasificacion, Clave, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
End If
GvClasificacion.EditIndex = -1
CargaDatos()
@@ -97,7 +97,7 @@ Partial Class Ventas_ClientesClasificaciones
Dim Objeto As New ClsClientes
Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
If Objeto.RemoveClienteClasificacion(Clave) Then
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Alert("El giro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
GvClasificacion.EditIndex = -1