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

--

Browse Source
This commit is contained in:
rrene
2022-08-15 19:29:15 -07:00
parent c240217cde
commit d6b5bc150a
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
General/CatCompuestos.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="CveCompuesto,Compuesto,Estatus" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos"> <asp:GridView ID="GvDatos" runat="server" GridLines="None" data-sort="true" DataKeyNames="CveCompuesto,Compuesto,Estatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
<Columns> <Columns>
<asp:BoundField DataField="Compuesto" ItemStyle-Width="20%" HeaderText="Compuesto" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Compuesto" ItemStyle-Width="20%" HeaderText="Compuesto" 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" />

8
General/CatCompuestos.aspx.vb
View File

@@ -32,11 +32,11 @@ Partial Class General_CatCompuestos
CveCompuesto = -1 CveCompuesto = -1
EsEditar = 0 EsEditar = 0
dvEstatus.Visible = False dvEstatus.Visible = False
CargaDatos(-1) CargaDatos()
End If End If
End Sub End Sub
Private Sub CargaDatos(CveConductor As Integer) Private Sub CargaDatos()
Dim PS As New ClsProductosServicios Dim PS As New ClsProductosServicios
If PS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then If PS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = PS.DtResultados GvDatos.DataSource = PS.DtResultados
@@ -85,7 +85,7 @@ Partial Class General_CatCompuestos
TxtCompuesto.Text = "" TxtCompuesto.Text = ""
CargaDatos(-1) CargaDatos()
UpDatos.Update() UpDatos.Update()
UpBodyCompuesto.Update() UpBodyCompuesto.Update()
@@ -98,7 +98,7 @@ Partial Class General_CatCompuestos
Alert("El Compuesto se eliminó correctamente", TipoMensaje.MsgInformacion) Alert("El Compuesto se eliminó correctamente", TipoMensaje.MsgInformacion)
End If End If
PS.Dispose() PS.Dispose()
CargaDatos(-1) CargaDatos()
UpDatos.Update() UpDatos.Update()
End Sub End Sub