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

agregando tabla de bitacora

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-12-26 11:00:38 -07:00
parent b4e3bb6a8b
commit fbaf51aa17
3 changed files with 46 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Contabilidad/CatPeriodosBloqueo.aspx
View File

@@ -172,7 +172,21 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="row" style="margin: 5px">
<asp:UpdatePanel ID="UPGvBitacora" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvMesesBloqueBitacora" runat="server" AutoGenerateColumns="False" DataKeyNames="FechaRealizado,Nombre,Periodo,Accion" EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-freezerows="1" GridLines="None">
<Columns>
<asp:BoundField DataField="FechaRealizado" HeaderText="Fecha realizado" />
<asp:BoundField DataField="Nombre" HeaderText="Usuario" />
<asp:BoundField DataField="Periodo" HeaderText="Periodo" />
<asp:BoundField DataField="Accion" HeaderText="Accion" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<br />
<br />

11
Contabilidad/CatPeriodosBloqueo.aspx.vb
View File

@@ -68,10 +68,19 @@ Partial Class Contabilidad_CatPeriodosBloqueo
GvPeriodosBloqueo.DataSource = Nothing
End If
If ObjConta.GetBloqueoMesesBitacora(UsuarioActual.CveEmpresa) Then
GvMesesBloqueBitacora.DataSource = ObjConta.DtResultados
Else
GvMesesBloqueBitacora.DataSource = Nothing
End If
ObjConta.Dispose()
UPGvPeriodosBloqueo.DataBind()
GvMesesBloqueBitacora.DataBind()
UpGral.Update()
UPGvBitacora.Update()
End Sub
@@ -121,7 +130,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
End If
Else
If ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked) Then
If ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario) Then
CargadatosGvPeriodosBloqueo()
UpModalPeriodosBloqueo.Update()