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

-- columna predeterminada

Browse Source
This commit is contained in:
rrene
2023-12-18 07:18:51 -07:00
parent a70ebd24a5
commit 76021801ff
2 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/CatPreciosLista.aspx
View File

@@ -27,7 +27,7 @@
</div> </div>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos"> <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
<Columns> <Columns>
<asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" /> <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" />
@@ -69,6 +69,9 @@
<asp:RequiredFieldValidator ID="RFVNombrePlantilla" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPrecioLista" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio de Lista''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVNombrePlantilla" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPrecioLista" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio de Lista''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio de Lista:</label> <label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio de Lista:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkPredeterminada" runat="server" Text="Predeterminada" CausesValidation="true"></asp:CheckBox>
</div>
<div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright"> <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
<label>Activo: </label> <label>Activo: </label>
<asp:Checkbox ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px"> <asp:Checkbox ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px">

9
Ventas/CatPreciosLista.aspx.vb
View File

@@ -50,10 +50,11 @@ Partial Class Ventas_CatPreciosLista
End Sub End Sub
Protected Sub imgE_Click(sender As Object, e As EventArgs) Protected Sub imgE_Click(sender As Object, e As EventArgs)
Dim Boton = CType(sender, LinkButton) Dim Boton As LinkButton = CType(sender, LinkButton)
CvePrecioLista = Boton.CommandArgument.ToEntero CvePrecioLista = Boton.CommandArgument.ToEntero
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
chkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) chkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
EsEditar = 1 EsEditar = 1
BtnAgregarCatalogo.Text = "Actualizar" BtnAgregarCatalogo.Text = "Actualizar"
@@ -67,13 +68,13 @@ Partial Class Ventas_CatPreciosLista
Dim ObjVta As New ClsVentas Dim ObjVta As New ClsVentas
If EsEditar = 0 Then If EsEditar = 0 Then
If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0) > 0 Then If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0) > 0 Then
Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion) Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError) Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
End If End If
ElseIf EsEditar = 1 Then ElseIf EsEditar = 1 Then
If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, CvePrecioLista) Then If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista) Then
Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion) Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError) Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError)