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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-11-24 10:47:52 -07:00
parent cf5b105df3 60e48b5d95
commit df56abafc7
18 changed files with 1414 additions and 1214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

230
AC/CatClasificacionFuncional.aspx
View File

@@ -10,162 +10,61 @@
Catálogo de Clasificación Funcional Catálogo de Clasificación Funcional
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" /> <asp:UpdatePanel runat="server" ID="UpAgregar">
&nbsp;<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <ContentTemplate>
<img src="/Imagenes/separador02.gif" alt="" /> <li>
&nbsp; <asp:LinkButton runat="server" ID="BtnAgregarClasificacionFuncional" data-toggle="tooltip" data-placement="left" title="Agregar una Clasificación Funcional" Text="<i class='fa fa-plus'></i>Agregar Clasificación Funcional"></asp:LinkButton>
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> </li>
&nbsp; <li>
&nbsp; <asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
<img src="/Imagenes/separador02.gif" alt="" /> </li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<div class="portlet-body"> <ContentTemplate>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionFuncional,ClasificacionFuncional,ClaveClasificacionFuncional,Estatus,FechaIng"
<ContentTemplate> EmptyDataText="No se encontraron Clasificaciones Registrados" ToolTip="Listado de ClasificacionFuncional" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="width: 100%" GridLines="None">
<table class="table table-striped table-advance table-hover Widthall"> <Columns>
<thead> <asp:BoundField HeaderText="Clasificación Funcional" DataField="ClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="400px" ItemStyle-HorizontalAlign="Left" />
<tr> <asp:BoundField HeaderText="Clave" DataField="ClaveClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
<th style="text-align: center"> <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
<asp:LinkButton ID="LbClasificacionFuncional" runat="server" CausesValidation="false" Text="" CommandArgument="ClasificacionFuncional;0" OnClick="LbOrden_Click"> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-Width="120px" ItemStyle-HorizontalAlign="Left" />
Clasificación Funcional <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
<asp:Literal ID="ImgClasificacionFuncional" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
</asp:LinkButton> <ItemTemplate>
</th> <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<th style="text-align: center"> <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<asp:LinkButton ID="LbClaveClasificacionFuncional" runat="server" CausesValidation="false" Text="" CommandArgument="ClaveClasificacionFuncional;0" OnClick="LbOrden_Click"> </ItemTemplate>
Clave </asp:TemplateField>
<asp:Literal ID="ImgClaveClasificacionFuncional" runat="server" Text="<i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </Columns>
</asp:LinkButton> <HeaderStyle CssClass="Titulos" />
</th> <RowStyle CssClass="Texto" />
<th style="text-align: center"> <AlternatingRowStyle CssClass="TextoAlterno" />
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click"> </asp:GridView>
Estatus </ContentTemplate>
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </asp:UpdatePanel>
</asp:LinkButton>
</th>
<th style="text-align: center">
<asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click">
Fecha
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th style="text-align: center">
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click">
Usuario
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th style="text-align: center">Comandos</th>
</tr>
</thead>
<tr>
<td>
<asp:TextBox ID="TxtClasificacionFuncional" runat="server" CausesValidation="true" MaxLength="395" ValidationGroup="GrpGuardar" Width="384px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionFuncional" runat="server" ControlToValidate="TxtClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<asp:TextBox ID="TxtClaveClasificacionFuncional" runat="server" CausesValidation="true" MaxLength="5" ValidationGroup="GrpGuardar" Width="80px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClaveClasificacionFuncional" runat="server" ControlToValidate="TxtClaveClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClaveClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClaveClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionFuncional" EmptyDataText="No se encontraron Clasificaciones Registrados" ToolTip="Listado de ClasificacionFuncional" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlClasificacionFuncional" runat="server" Text='<%# Eval("ClasificacionFuncional", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtClasificacionFuncional" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("ClasificacionFuncional") %>' ValidationGroup="GrpGV" Width="384px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionFuncional" runat="server" ControlToValidate="TxtClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlClaveClasificacionFuncional" runat="server" Text='<%# Eval("ClaveClasificacionFuncional", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtClaveClasificacionFuncional" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("ClaveClasificacionFuncional") %>' ValidationGroup="GrpGV" Width="88px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClaveClasificacionFuncional" runat="server" ControlToValidate="TxtClaveClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClaveClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClaveClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True"
CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False"
CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<center>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False"
CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</center>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False"
CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<table runat="server" id="Tbl" style="display:none;"> <table runat="server" id="Tbl" style="display: none;">
<tr> <tr>
<td> <td>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None"> <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Clasificación Funcional" DataField="ClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="400px" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Clasificación Funcional" DataField="ClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="400px" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Clave" DataField="ClaveClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Clave" DataField="ClaveClasificacionFuncional" DataFormatString="{0}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-Width="120px" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-Width="120px" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -176,7 +75,42 @@
</td> </td>
</tr> </tr>
</table> </table>
<div id="DivAgregarClasifFuncional" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificación Funcional</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClasificacionFuncional" runat="server" CssClass="form-control " CausesValidation="true" MaxLength="395" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionFuncional" runat="server" ControlToValidate="TxtClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtClasificacionFuncional">Clasificación Funcional:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClaveClasificacionFuncional" runat="server" CausesValidation="true" MaxLength="5" ValidationGroup="GrpGuardar" Width="80px" CssClass="form-control "></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClaveClasificacionFuncional" runat="server" ControlToValidate="TxtClaveClasificacionFuncional" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClaveClasificacionFuncional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClaveClasificacionFuncional" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveClasificacionFuncional" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtClaveClasificacionFuncional">Clave:</label>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
<%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

174
AC/CatClasificacionFuncional.aspx.vb
View File

@@ -9,6 +9,14 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatClasificacionFuncional Partial Class AC_CatClasificacionFuncional
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveClasificacionFuncional() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveClasificacionFuncional")), -1, CInt(ViewState("CveClasificacionFuncional")))
End Get
Set
ViewState("CveClasificacionFuncional") = Value
End Set
End Property
Private Property DtClasificacionFuncional As DataTable Private Property DtClasificacionFuncional As DataTable
Get Get
Return CType(ViewState("DtClasificacionFuncional"), DataTable) Return CType(ViewState("DtClasificacionFuncional"), DataTable)
@@ -61,51 +69,32 @@ Partial Class AC_CatClasificacionFuncional
End If End If
End Sub End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click
Dim ObjClasificacionFuncional As New ClsAC TxtClasificacionFuncional.Text = ""
If ObjClasificacionFuncional.AddClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TxtClaveClasificacionFuncional.Text = ""
TxtClasificacionFuncional.Text = "" ChkEstatus.Checked = True
TxtClaveClasificacionFuncional.Text = "" CheckActiveSection.Visible = False
Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) LbAgregar.Text = "Agregar"
UpTitulos.Update() UpModalTiposD.Update()
ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End If
ObjClasificacionFuncional.Dispose()
End Sub End Sub
#Region "G V D A T O S" Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
If e.Row.RowType = DataControlRowType.DataRow Then CveClasificacionFuncional = GvRow.DataKey("CveClasificacionFuncional").ToEntero
If e.Row.RowIndex = 0 Then TxtClasificacionFuncional.Text = GvRow.DataKey("ClasificacionFuncional")
e.Row.Cells(0).Width = Unit.Pixel(400) TxtClaveClasificacionFuncional.Text = GvRow.DataKey("ClaveClasificacionFuncional")
e.Row.Cells(1).Width = Unit.Pixel(100) CheckActiveSection.Visible = True
e.Row.Cells(2).Width = Unit.Pixel(100) ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
e.Row.Cells(3).Width = Unit.Pixel(100) LbAgregar.Text = "Actualizar"
e.Row.Cells(4).Width = Unit.Pixel(100) UpModalTiposD.Update()
e.Row.Cells(5).Width = Unit.Pixel(105) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
e.Row.Cells(6).Width = Unit.Pixel(65)
End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
End If
End Sub End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ObjClasificacionFuncional As New ClsAC Dim ObjClasificacionFuncional As New ClsAC
If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvRow.DataKey("CveClasificacionFuncional").ToEntero) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
@@ -121,6 +110,81 @@ Partial Class AC_CatClasificacionFuncional
End If End If
End Sub End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjClasificacionFuncional As New ClsAC
If LbAgregar.Text = "Agregar" Then
If ObjClasificacionFuncional.AddClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtClasificacionFuncional.Text = ""
TxtClaveClasificacionFuncional.Text = ""
Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
'UpTitulos.Update()
ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End If
Else
If ObjClasificacionFuncional.UpdateClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, ChkEstatus.Checked, CveClasificacionFuncional) Then
GvDatos.EditIndex = -1
ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End If
End If
ObjClasificacionFuncional.Dispose()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarClasifFuncional"))
End Sub
#Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(400)
e.Row.Cells(1).Width = Unit.Pixel(100)
e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100)
'e.Row.Cells(5).Width = Unit.Pixel(105)
'e.Row.Cells(6).Width = Unit.Pixel(65)
End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
End If
End Sub
'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
' Dim ObjClasificacionFuncional As New ClsAC
' If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1
' ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
' Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
' End If
' ObjClasificacionFuncional.Dispose()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
@@ -130,32 +194,6 @@ Partial Class AC_CatClasificacionFuncional
End If End If
End Sub End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
Dim ObjClasificacionFuncional As New ClsAC
Dim ClasificacionFuncional As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtClasificacionFuncional"), TextBox).Text.Trim
Dim ClaveClasificacionFuncional As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtClaveClasificacionFuncional"), TextBox).Text.Trim
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
Dim CveClasificacionFuncional As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
If ObjClasificacionFuncional.UpdateClasificacionFuncional(ClasificacionFuncional, ClaveClasificacionFuncional, Estatus, CveClasificacionFuncional) Then
GvDatos.EditIndex = -1
ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If
ObjClasificacionFuncional.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
GvDatos.EditIndex = e.NewEditIndex GvDatos.EditIndex = e.NewEditIndex
@@ -215,11 +253,11 @@ Partial Class AC_CatClasificacionFuncional
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo Clasificacion Funcional") Tbl.ExportToExcel("Catalogo Clasificacion Funcional")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimiReporte() ImprimiReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

200
AC/CatClasificacionGeografica.aspx
View File

@@ -11,133 +11,67 @@
Catálogo de Clasificación Geográfica Catálogo de Clasificación Geográfica
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <asp:UpdatePanel runat="server" ID="UpAgregar">
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> <ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarClasificacionFuncional" data-toggle="tooltip" data-placement="left" title="Agregar una Clasificación Geografica" Text="<i class='fa fa-plus'></i>Agregar Clasificación Geografica"></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<div class="portlet-body"> <ContentTemplate>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionGeografica,ClasificacionGeografica,Estatus,FechaIng,Usuario"
<ContentTemplate> EmptyDataText="No se encontraron Clasificación Geográfica Registrados" ToolTip="Listado de ClasificacionGeografica" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
<table class="table table-striped table-hover Widthall"> GridLines="None">
<thead> <Columns>
<tr> <asp:BoundField HeaderText="Clasificación Geográfica" DataField="ClasificacionGeografica" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
<th width="243px" style="text-align: center"> <%--ItemStyle-Width="250px"--%>
<asp:LinkButton ID="LbClasificacionGeografica" runat="server" CausesValidation="false" Text="" CommandArgument="ClasificacionGeografica;0" OnClick="LbOrden_Click"> <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-HorizontalAlign="Left" />
Clasificación Geográfica <%--ItemStyle-Width="100px"--%>
<asp:Literal ID="ImgClasificacionGeografica" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
</asp:LinkButton> <%--ItemStyle-Width="120px"--%>
</th> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-HorizontalAlign="Left" />
<th width="100px" style="text-align: center"> <%--ItemStyle-Width="100px"--%>
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click"> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
Estatus<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <ItemTemplate>
</asp:LinkButton> <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
</th> <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<th width="100px" style="text-align: center"> </ItemTemplate>
<asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click"> </asp:TemplateField>
Fecha </Columns>
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <RowStyle CssClass="Texto" />
</asp:LinkButton> <AlternatingRowStyle CssClass="TextoAlterno" />
</th> </asp:GridView>
<th width="100px" style="text-align: center"> </ContentTemplate>
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click"> </asp:UpdatePanel>
Usuario
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="118" style="text-align: center">Comandos</th>
</tr>
</thead>
<tr> <table runat="server" id="Tbl" style="display: none;">
<td>
<asp:TextBox ID="TxtClasificacionGeografica" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="240px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionGeografica" runat="server" ControlToValidate="TxtClasificacionGeografica" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación Geográfica''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionGeografica" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionGeografica" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionGeografica" EmptyDataText="No se encontraron Clasificación Geográfica Registrados" ToolTip="Listado de ClasificacionGeografica" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlClasificacionGeografica" runat="server" Text='<%# Eval("ClasificacionGeografica", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtClasificacionGeografica" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("ClasificacionGeografica") %>' ValidationGroup="GrpGV" Width="240px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionGeografica" runat="server" ControlToValidate="TxtClasificacionGeografica" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación Geográfica''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionGeografica" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionGeografica" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<table runat="server" id="Tbl" style="display:none;">
<tr> <tr>
<td> <td>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None"> <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Clasificación Geográfica" DataField="ClasificacionGeografica" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left"/> <%--ItemStyle-Width="250px"--%> <asp:BoundField HeaderText="Clasificación Geográfica" DataField="ClasificacionGeografica" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-HorizontalAlign="Left"/> <%--ItemStyle-Width="100px"--%> <%--ItemStyle-Width="250px"--%>
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left"/> <%--ItemStyle-Width="120px"--%> <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-HorizontalAlign="Left"/> <%--ItemStyle-Width="100px"--%> <%--ItemStyle-Width="100px"--%>
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
<%--ItemStyle-Width="120px"--%>
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-HorizontalAlign="Left" />
<%--ItemStyle-Width="100px"--%>
</Columns> </Columns>
<%--<HeaderStyle CssClass="Titulos" /> <%--<HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -149,6 +83,36 @@
</tr> </tr>
</table> </table>
<div id="DivAgregarClasifFuncional" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificación Geografica</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClasificacionGeografica" runat="server" CssClass="form-control " CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClasificacionGeografica" runat="server" ControlToValidate="TxtClasificacionGeografica" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación Geográfica''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClasificacionGeografica" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionGeografica" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtClasificacionGeografica">Clasificación Geografica:</label>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
<%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

90
AC/CatClasificacionGeografica.aspx.vb
View File

@@ -13,6 +13,14 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatClasificacionGeografica Partial Class AC_CatClasificacionGeografica
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveClasificacionGeografica() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveClasificacionGeografica")), -1, CInt(ViewState("CveClasificacionGeografica")))
End Get
Set
ViewState("CveClasificacionGeografica") = Value
End Set
End Property
Private Property DtClasificacionGeografica As DataTable Private Property DtClasificacionGeografica As DataTable
Get Get
Return CType(ViewState("DtClasificacionGeografica"), DataTable) Return CType(ViewState("DtClasificacionGeografica"), DataTable)
@@ -65,24 +73,74 @@ Partial Class AC_CatClasificacionGeografica
End If End If
End Sub End Sub
Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click
TxtClasificacionGeografica.Text = ""
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
End Sub
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CveClasificacionGeografica = GvRow.DataKey("CveClasificacionGeografica").ToEntero
TxtClasificacionGeografica.Text = GvRow.DataKey("ClasificacionGeografica")
CheckActiveSection.Visible = True
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjClasificacionGeografica As New ClsAC Dim ObjClasificacionGeografica As New ClsAC
If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If LbAgregar.Text = "Agregar" Then
TxtClasificacionGeografica.Text = "" If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) TxtClasificacionGeografica.Text = ""
UpTitulos.Update() Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) 'UpTitulos.Update()
GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then End If
CargaGrid(ViewState("Orden").ToString()) Else
Else If ObjClasificacionGeografica.UpdateClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, ChkEstatus.Checked, CveClasificacionGeografica) Then
CargaGrid("") GvDatos.EditIndex = -1
ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarClasifFuncional"))
ObjClasificacionGeografica.Dispose() ObjClasificacionGeografica.Dispose()
End Sub End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjClasificacionGeografica As New ClsAC
If ObjClasificacionGeografica.RemoveClasificacionGeografica(GvRow.DataKey("CveClasificacionGeografica").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjClasificacionGeografica.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
#Region "G V D A T O S" #Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -91,16 +149,16 @@ Partial Class AC_CatClasificacionGeografica
e.Row.Cells(1).Width = Unit.Pixel(100) e.Row.Cells(1).Width = Unit.Pixel(100)
e.Row.Cells(2).Width = Unit.Pixel(100) e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100) e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(50) 'e.Row.Cells(4).Width = Unit.Pixel(50)
e.Row.Cells(5).Width = Unit.Pixel(50) 'e.Row.Cells(5).Width = Unit.Pixel(50)
End If End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
End If End If
End Sub End Sub
@@ -215,11 +273,11 @@ Partial Class AC_CatClasificacionGeografica
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo Clasificacion Geografica") Tbl.ExportToExcel("Catalogo Clasificacion Geografica")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimiReporte() ImprimiReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

229
AC/CatFinalidad.aspx
View File

@@ -11,117 +11,150 @@
Catálogo de Finalidad Catálogo de Finalidad
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarClasificacionFuncional" data-toggle="tooltip" data-placement="left" title="Agregar una Finalidad" Text="<i class='fa fa-plus'></i>Agregar Finalidad"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki"> <div class="portlet box blue-hoki">
<div class="portlet-body"> <div class="portlet-body">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<table class="table table-striped table-hover Widthall"> <table class="table table-striped table-hover Widthall">
<thead> <thead>
<tr> <tr>
<th width="250px" style="text-align: center"> <th width="250px" style="text-align: center">
<asp:LinkButton ID="LbFinalidad" runat="server" CausesValidation="false" Text="" CommandArgument="Finalidad;0" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbFinalidad" runat="server" CausesValidation="false" Text="" CommandArgument="Finalidad;0" OnClick="LbOrden_Click">
Finalidad Finalidad
<asp:Literal ID="ImgFinalidad" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgFinalidad" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px" style="text-align: center"> <th width="100px" style="text-align: center">
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click">
Estatus Estatus
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px" style="text-align: center"> <th width="100px" style="text-align: center">
<asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click">
Fecha Fecha
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px" style="text-align: center"> <th width="100px" style="text-align: center">
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click">
Usuario Usuario
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="103" style="text-align: center">Comandos</th> <th width="103" style="text-align: center">Comandos</th>
</tr> </tr>
</thead> </thead>
<tr> <tr>
<td> <td></td>
<asp:TextBox ID="TxtFinalidad" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="244px"></asp:TextBox> <td>&nbsp;</td>
<asp:RequiredFieldValidator ID="RFVFinalidad" runat="server" ControlToValidate="TxtFinalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Finalidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <td>&nbsp;</td>
<ajax:ValidatorCalloutExtender ID="VCFinalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFinalidad" Width="300px"></ajax:ValidatorCalloutExtender> <td>&nbsp;</td>
</td> <td style="text-align: center">
<td>&nbsp;</td> <asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
<td>&nbsp;</td> </tr>
<td>&nbsp;</td> </table>
<td style="text-align: center"> </ContentTemplate>
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td> </asp:UpdatePanel>
</tr> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
</table> <ContentTemplate>
</ContentTemplate> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFinalidad" EmptyDataText="No se encontraron Finalidad Registrados" ToolTip="Listado de Finalidad" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
</asp:UpdatePanel> <Columns>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:TemplateField>
<ContentTemplate> <ItemTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFinalidad" EmptyDataText="No se encontraron Finalidad Registrados" ToolTip="Listado de Finalidad" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None"> &nbsp;<asp:Literal ID="LtlFinalidad" runat="server" Text='<%# Eval("Finalidad", "{0}") %>'></asp:Literal>
<Columns> </ItemTemplate>
<asp:TemplateField> <EditItemTemplate>
<ItemTemplate> <asp:TextBox ID="TxtFinalidad" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Finalidad") %>' ValidationGroup="GrpGV" Width="244px"></asp:TextBox>
&nbsp;<asp:Literal ID="LtlFinalidad" runat="server" Text='<%# Eval("Finalidad", "{0}") %>'></asp:Literal> <asp:RequiredFieldValidator ID="RFVFinalidad" runat="server" ControlToValidate="TxtFinalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Finalidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
</ItemTemplate> <ajax:ValidatorCalloutExtender ID="VCFinalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFinalidad" Width="300px"></ajax:ValidatorCalloutExtender>
<EditItemTemplate> </EditItemTemplate>
<asp:TextBox ID="TxtFinalidad" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Finalidad") %>' ValidationGroup="GrpGV" Width="244px"></asp:TextBox> </asp:TemplateField>
<asp:RequiredFieldValidator ID="RFVFinalidad" runat="server" ControlToValidate="TxtFinalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Finalidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator> <asp:TemplateField>
<ajax:ValidatorCalloutExtender ID="VCFinalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFinalidad" Width="300px"></ajax:ValidatorCalloutExtender> <ItemTemplate>
</EditItemTemplate> <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField> <EditItemTemplate>
<ItemTemplate> <asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal> </EditItemTemplate>
</ItemTemplate> </asp:TemplateField>
<EditItemTemplate> <asp:TemplateField>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' /> <ItemTemplate>
</EditItemTemplate> <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField> </asp:TemplateField>
<ItemTemplate> <asp:TemplateField>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal> <ItemTemplate>
</ItemTemplate> <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField> </asp:TemplateField>
<ItemTemplate> <asp:TemplateField HeaderText="Editar">
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal> <EditItemTemplate>
</ItemTemplate> <center>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" /> CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" /> CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center> </center>
</EditItemTemplate> </EditItemTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>"/> CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar"> <asp:TemplateField HeaderText="Eliminar">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si"/> data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
</div> </div>
<div id="DivAgregarClasifFuncional" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificación Funcional</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFinalidad" runat="server" CausesValidation="true" CssClass="form-control " MaxLength="50" ValidationGroup="GrpGuardar" Width="244px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFinalidad" runat="server" ControlToValidate="TxtFinalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Finalidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFinalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFinalidad" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtFinalidad">Finalidad:</label>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="Button1" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
<%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

9
AC/CatFinalidad.aspx.vb
View File

@@ -52,6 +52,15 @@ Partial Class AC_CatFinalidad
End If End If
End Sub End Sub
Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click
TxtFinalidad.Text = ""
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjFinalidad As New ClsAC Dim ObjFinalidad As New ClsAC
If ObjFinalidad.AddFinalidad(TxtFinalidad.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjFinalidad.AddFinalidad(TxtFinalidad.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then

265
AC/CatFuentesFinanciamiento.aspx
View File

@@ -10,185 +10,49 @@
Catálogo de Fuentes de Financiamiento Catálogo de Fuentes de Financiamiento
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" /> <asp:UpdatePanel runat="server" ID="UpAgregar">
&nbsp;<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <ContentTemplate>
<img src="/Imagenes/separador02.gif" alt="" /> <li>
&nbsp; <asp:LinkButton runat="server" ID="BtnMostrarModal" data-toggle="tooltip" data-placement="left" title="Agregar Fuente de Financiamiente" Text="<i class='fa fa-plus'></i>Agregar Fuente de Financiamiente"></asp:LinkButton>
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> </li>
&nbsp; <li>
<asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki" style="width: 1000px;">
<div class="portlet-body">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table class="table table-striped table-advance table-hover">
<thead>
<tr>
<th width="82px" style="text-align: center">
<asp:LinkButton ID="LbCodigoFuenteFinanciamiento" runat="server" CausesValidation="false" Text="" CommandArgument="CodigoFuenteFinanciamiento;0" OnClick="LbOrden_Click">
Código
<asp:Literal ID="ImgCodigoFuenteFinanciamiento" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="250px" style="text-align: center">
<asp:LinkButton ID="LbFuenteFinanciamiento" runat="server" CausesValidation="false" Text="" CommandArgument="FuenteFinanciamiento;0" OnClick="LbOrden_Click">
Fuente Financiamiento
<asp:Literal ID="ImgFuenteFinanciamiento" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="160px" style="text-align: center">
<asp:LinkButton ID="LbNombre" runat="server" CausesValidation="false" Text="" CommandArgument="Nombre;0" OnClick="LbOrden_Click">
Clave CONAC
<asp:Literal ID="ImgNombre" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<%--<td width="150px"><asp:LinkButton ID="LbFuenteFinanciamiento" runat="server" CausesValidation="false" Text="Dependecias"></asp:LinkButton>&nbsp;<asp:ImageButton ID="ImgFuenteFinanciamientoCONAC" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>--%>
<th width="100px" style="text-align: center">
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click">
Estatus
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="100px" style="text-align: center">
<asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click">
Fecha
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="100px" style="text-align: center">
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click">
Usuario
<asp:Literal ID="IMgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="119" style="text-align: center">Comandos</th>
</tr>
</thead>
<tr> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<td> <ContentTemplate>
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="5" ValidationGroup="GrpGuardar" Width="72px"></asp:TextBox> <asp:GridView ID="GvDatos" Width="100%" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFuenteFinanciamiento,CodigoFuenteFinanciamiento,FuenteFinanciamiento,CveFinanciamientoCONAC,Nombre,Estatus,FechaIng,Usuario"
<asp:RequiredFieldValidator ID="RFVCodigo" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Codigo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> EmptyDataText="No se encontraron FuentesFinanciamiento Registrados" ToolTip="Listado de FuentesFinanciamiento" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<ajax:ValidatorCalloutExtender ID="VCECodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigo" Width="300px"></ajax:ValidatorCalloutExtender> <Columns>
</td> <asp:BoundField HeaderText="Código" DataField="CodigoFuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Left" />
<td> <asp:BoundField HeaderText="Fuente Financiamiento" DataField="FuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="250px" ItemStyle-HorizontalAlign="Left" />
<asp:TextBox ID="TxtFuenteFinanciamiento" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="240px"></asp:TextBox> <asp:BoundField HeaderText="Clave CONAC" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="160" ItemStyle-HorizontalAlign="Left" />
<asp:RequiredFieldValidator ID="RFVFuenteFinanciamiento" runat="server" ControlToValidate="TxtFuenteFinanciamiento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<ajax:ValidatorCalloutExtender ID="VCFuenteFinanciamiento" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteFinanciamiento" Width="300px"></ajax:ValidatorCalloutExtender> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
</td> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<%-- <td> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<asp:TextBox ID="TxtCveFuenteFinanciamientoCONAC" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="145px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCveFuenteFinanciamientoCONAC" runat="server" ControlToValidate="TxtCveFuenteFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCCveFuenteFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveFuenteFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
</td>--%>
<td>
<asp:DropDownList ID="DdlFuenteFinanciamientoCONAC" runat="server" AppendDataBoundItems="true" DataValueField="CveFinanciamientoCONAC" DataTextField="Nombre" ValidationGroup="GrpGuardar" Width="150px">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVFuenteFinanciamientoCONAC" runat="server" ControlToValidate="DdlFuenteFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamientoCONAC''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOFuenteFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFuenteFinanciamiento" EmptyDataText="No se encontraron FuentesFinanciamiento Registrados" ToolTip="Listado de FuentesFinanciamiento" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlCodigoFuenteFinanciamiento" runat="server" Text='<%# Eval("CodigoFuenteFinanciamiento", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="5" Text='<%# Eval("CodigoFuenteFinanciamiento") %>' ValidationGroup="GrpGV" Width="72px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtCodigoFuenteFinanciamiento" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCTxtCodigoFuenteFinanciamiento" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtCodigoFuenteFinanciamiento" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlFuenteFinanciamiento" runat="server" Text='<%# Eval("FuenteFinanciamiento", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtFuenteFinanciamiento" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("FuenteFinanciamiento") %>' ValidationGroup="GrpGV" Width="238px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFuenteFinanciamiento" runat="server" ControlToValidate="TxtFuenteFinanciamiento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFuenteFinanciamiento" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteFinanciamiento" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<%-- <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlCveFuenteFinanciamientoCONAC" runat="server" Text='<%# Eval("CveFuenteFinanciamientoCONAC", "{0}")%>'></asp:Literal> <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
<EditItemTemplate> </asp:TemplateField>
<asp:TextBox ID="TxtCveFuenteFinanciamientoCONAC" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("CveFuenteFinanciamientoCONAC")%>' ValidationGroup="GrpGV" Width="145px"></asp:TextBox> </Columns>
<asp:RequiredFieldValidator ID="RFVCveFuenteFinanciamientoCONAC" runat="server" ControlToValidate="TxtCveFuenteFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator> <RowStyle CssClass="Texto" />
<ajax:ValidatorCalloutExtender ID="VCCveFuenteFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveFuenteFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender> <AlternatingRowStyle CssClass="TextoAlterno" />
</EditItemTemplate> </asp:GridView>
</asp:TemplateField> </ContentTemplate>
--%> </asp:UpdatePanel>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlFuenteFinanciamientoCONAC" runat="server" Text='<%# Eval("Nombre", "{0}")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList ID="DdlFuenteFinanciamientoCONAC" runat="server" DataValueField="CveFinanciamientoCONAC" DataTextField="Nombre" Width="150px"></asp:DropDownList>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<table runat="server" id="Tbl" style="display: none;"> <table runat="server" id="Tbl" style="display: none;">
<tr> <tr>
@@ -199,10 +63,10 @@
<Columns> <Columns>
<asp:BoundField HeaderText="Código" DataField="CodigoFuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="CodigoFuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fuente Financiamiento" DataField="FuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="250px" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Fuente Financiamiento" DataField="FuenteFinanciamiento" DataFormatString="{0}" ItemStyle-Width="250px" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Clave CONAC" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="160" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Clave CONAC" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="160" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -214,6 +78,51 @@
</tr> </tr>
</table> </table>
<div id="DivModal" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Fuente de Financiamiento</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="5" ValidationGroup="GrpGuardar" Width="50%" CssClass="form-control "></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCodigo" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Codigo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCECodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigo" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtCodigo">Código:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFuenteFinanciamiento" runat="server" CausesValidation="true" MaxLength="50" CssClass="form-control " ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFuenteFinanciamiento" runat="server" ControlToValidate="TxtFuenteFinanciamiento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFuenteFinanciamiento" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteFinanciamiento" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtFuenteFinanciamiento">Fuente de Financiamiento:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlFuenteFinanciamientoCONAC">Fuente de Financiamiento CONAC:</label></br>
<asp:DropDownList ID="DdlFuenteFinanciamientoCONAC" runat="server" AppendDataBoundItems="true" DataValueField="CveFinanciamientoCONAC" DataTextField="Nombre" CssClass="select2me" ValidationGroup="GrpGuardar" Width="50%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVFuenteFinanciamientoCONAC" runat="server" ControlToValidate="DdlFuenteFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteFinanciamientoCONAC''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOFuenteFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
<%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <script language="javascript" type="text/javascript">

99
AC/CatFuentesFinanciamiento.aspx.vb
View File

@@ -8,6 +8,16 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatFuentesFinanciamiento Partial Class AC_CatFuentesFinanciamiento
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveFuenteFinanciamiento() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveFuenteFinanciamiento")), -1, CInt(ViewState("CveFuenteFinanciamiento")))
End Get
Set
ViewState("CveFuenteFinanciamiento") = Value
End Set
End Property
Private Property DtFuentesFinanciamiento As DataTable Private Property DtFuentesFinanciamiento As DataTable
Get Get
Return CType(ViewState("DtFuentesFinanciamiento"), DataTable) Return CType(ViewState("DtFuentesFinanciamiento"), DataTable)
@@ -25,6 +35,17 @@ Partial Class AC_CatFuentesFinanciamiento
End If End If
End Sub End Sub
Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtCodigo.Text = ""
TxtFuenteFinanciamiento.Text = ""
DdlFuenteFinanciamientoCONAC.SelectedValue = "-1"
CheckActiveSection.Visible = False
ChkEstatus.Checked = True
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjFuentesFinanciamiento As New ClsAC Dim ObjFuentesFinanciamiento As New ClsAC
If ObjFuentesFinanciamiento.GetFuentesFinanciamiento() Then If ObjFuentesFinanciamiento.GetFuentesFinanciamiento() Then
@@ -45,23 +66,63 @@ Partial Class AC_CatFuentesFinanciamiento
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjFuentesFinanciamiento As New ClsAC Dim ObjFuentesFinanciamiento As New ClsAC
If ObjFuentesFinanciamiento.AddFuenteFinanciamiento(TxtCodigo.Text.Trim, TxtFuenteFinanciamiento.Text.Trim, DdlFuenteFinanciamientoCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If LbAgregar.Text = "Agregar" Then
TxtFuenteFinanciamiento.Text = "" If ObjFuentesFinanciamiento.AddFuenteFinanciamiento(TxtCodigo.Text.Trim, TxtFuenteFinanciamiento.Text.Trim, DdlFuenteFinanciamientoCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
'TxtFuenteFinanciamientoCONAC.Text = "" TxtFuenteFinanciamiento.Text = ""
Alert("El Registro se guardó correctamente.", TipoMensaje.MsgInformacion) 'TxtFuenteFinanciamientoCONAC.Text = ""
UpTitulos.Update() Alert("El Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) 'UpTitulos.Update()
GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then End If
CargaGrid(ViewState("Orden").ToString()) Else
Else If ObjFuentesFinanciamiento.UpdateFuenteFinanciamiento(TxtCodigo.Text, TxtFuenteFinanciamiento.Text, DdlFuenteFinanciamientoCONAC.SelectedValue.ToEntero, ChkEstatus.Checked, CveFuenteFinanciamiento) Then
CargaGrid("") GvDatos.EditIndex = -1
ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjFuentesFinanciamiento.Dispose() ObjFuentesFinanciamiento.Dispose()
End Sub End Sub
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CveFuenteFinanciamiento = GvRow.DataKey("CveFuenteFinanciamiento").ToEntero
TxtCodigo.Text = GvRow.DataKey("CodigoFuenteFinanciamiento")
TxtFuenteFinanciamiento.Text = GvRow.DataKey("FuenteFinanciamiento")
DdlFuenteFinanciamientoCONAC.SelectedValue = GvRow.DataKey("CveFinanciamientoCONAC")
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjFuentesFinanciamiento As New ClsAC
If ObjFuentesFinanciamiento.RemoveFuenteFinanciamiento(GvRow.DataKey("CveFuenteFinanciamiento").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjFuentesFinanciamiento.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Private Sub CargaFuenteFinanciamientoCONAC() Private Sub CargaFuenteFinanciamientoCONAC()
DdlFuenteFinanciamientoCONAC.DataSource = GlobalDTAC_FuentesFinanciamientoCONAC DdlFuenteFinanciamientoCONAC.DataSource = GlobalDTAC_FuentesFinanciamientoCONAC
DdlFuenteFinanciamientoCONAC.DataBind() DdlFuenteFinanciamientoCONAC.DataBind()
@@ -77,8 +138,8 @@ Partial Class AC_CatFuentesFinanciamiento
e.Row.Cells(3).Width = Unit.Pixel(100) e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100) e.Row.Cells(4).Width = Unit.Pixel(100)
e.Row.Cells(5).Width = Unit.Pixel(100) e.Row.Cells(5).Width = Unit.Pixel(100)
e.Row.Cells(6).Width = Unit.Pixel(50) 'e.Row.Cells(6).Width = Unit.Pixel(50)
e.Row.Cells(7).Width = Unit.Pixel(50) 'e.Row.Cells(7).Width = Unit.Pixel(50)
'e.Row.Cells(7).Width = Unit.Pixel(50) 'e.Row.Cells(7).Width = Unit.Pixel(50)
End If End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
@@ -87,8 +148,8 @@ Partial Class AC_CatFuentesFinanciamiento
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlFuenteFinanciamientoCONAC").DataSource = GlobalDTAC_FuentesFinanciamientoCONAC e.Row.FCDropDownList("DdlFuenteFinanciamientoCONAC").DataSource = GlobalDTAC_FuentesFinanciamientoCONAC
@@ -206,17 +267,17 @@ Partial Class AC_CatFuentesFinanciamiento
GvDatos.DataBind() GvDatos.DataBind()
Gv.DataBind() Gv.DataBind()
UpDatos.Update() 'UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo de Fuentes de Financiamiento") Tbl.ExportToExcel("Catalogo de Fuentes de Financiamiento")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimiReporte() ImprimiReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

271
AC/CatFuentesFinanciamientoCONAC.aspx
View File

@@ -10,142 +10,81 @@
Catálogo de Fuente de Financiamiento Catálogo de Fuente de Financiamiento
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" /> <asp:UpdatePanel runat="server" ID="UpAgregar">
&nbsp;<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <ContentTemplate>
<img src="/Imagenes/separador02.gif" alt="" /> <li>
&nbsp; <asp:LinkButton runat="server" ID="BtnMostrarModal" data-toggle="tooltip" data-placement="left" title="Agregar Fuente de Financiamiente CONAC" Text="<i class='fa fa-plus'></i>Agregar Fuente de Financiamiente CONAC"></asp:LinkButton>
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> </li>
&nbsp; <li>
<asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki" style="width:1000px;"> <%--<div class="portlet box blue-hoki" style="width: 1000px;">
<div class="portlet-body"> <div class="portlet-body">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<table class="table table-striped table-advance table-hover"> <table class="table table-striped table-advance table-hover">
<thead> <thead>
<tr> <tr>
<th width="65px" style="text-align: center"> <th width="65px" style="text-align: center">
<asp:LinkButton ID="LbClaveFinanciamientoCONAC" runat="server" CausesValidation="false" Text="" CommandArgument="ClaveFinanciamientoCONAC;0" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbClaveFinanciamientoCONAC" runat="server" CausesValidation="false" Text="" CommandArgument="ClaveFinanciamientoCONAC;0" OnClick="LbOrden_Click">
Clave <asp:Literal ID="ImgClaveFinanciamientoCONAC" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> Clave
</asp:LinkButton> <asp:Literal ID="ImgClaveFinanciamientoCONAC" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</th> </asp:LinkButton>
<th width="250px" style="text-align: center"> </th>
<asp:LinkButton ID="LbNombre" runat="server" CausesValidation="false" Text="" CommandArgument="Nombre;0" OnClick="LbOrden_Click"> <th width="250px" style="text-align: center">
Nombre <asp:Literal ID="ImgNombre" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:LinkButton ID="LbNombre" runat="server" CausesValidation="false" Text="" CommandArgument="Nombre;0" OnClick="LbOrden_Click">
</asp:LinkButton> Nombre
</th> <asp:Literal ID="ImgNombre" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
<th width="100px" style="text-align: center"> </asp:LinkButton>
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click"> </th>
Estatus <asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <th width="100px" style="text-align: center">
</asp:LinkButton> <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus;0" OnClick="LbOrden_Click">
</th> Estatus
<th width="100px" style="text-align: center"> <asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
<asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click"> </asp:LinkButton>
Fecha <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </th>
</asp:LinkButton> <th width="100px" style="text-align: center">
</th> <asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng;0" OnClick="LbOrden_Click">
<th width="100px" style="text-align: center"> Fecha
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click"> <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
Usuario <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </asp:LinkButton>
</asp:LinkButton> </th>
</th> <th width="100px" style="text-align: center">
<th width="118" style="text-align: center">Comandos</th> <asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario;0" OnClick="LbOrden_Click">
</tr> Usuario
</thead> <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="118" style="text-align: center">Comandos</th>
</tr>
</thead>
<tr> <tr>
<td> <td></td>
<asp:TextBox ID="TxtClaveFinanciamientoCONAC" runat="server" CausesValidation="true" MaxLength="2" ValidationGroup="GrpGuardar" Width="55px"></asp:TextBox> <td></td>
<asp:RequiredFieldValidator ID="RFVClaveFinanciamientoCONAC" runat="server" ControlToValidate="TxtClaveFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClaveFinanciamientoCONAC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <td>&nbsp;</td>
<ajax:ValidatorCalloutExtender ID="VCClaveFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender> <td>&nbsp;</td>
</td> <td>&nbsp;</td>
<td> <td style="text-align: center">
<asp:TextBox ID="TxtNombre" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="240px"></asp:TextBox> <%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> </tr>
<ajax:ValidatorCalloutExtender ID="VCNombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCalloutExtender> </table>
</td> </ContentTemplate>
<td>&nbsp;</td> </asp:UpdatePanel>
<td>&nbsp;</td> </div>
<td>&nbsp;</td> </div>--%>
<td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFinanciamientoCONAC" EmptyDataText="No se encontraron Fuente de Financiamiento Registrados" ToolTip="Listado de Fuente de Financiamiento" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px;" GridLines="None" >
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlClaveFinanciamientoCONAC" runat="server" Text='<%# Eval("ClaveFinanciamientoCONAC", "{0}")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtClaveFinanciamientoCONAC" runat="server" CausesValidation="true" MaxLength="2" Text='<%# Eval("ClaveFinanciamientoCONAC")%>' ValidationGroup="GrpGV" Width="55px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClaveFinanciamientoCONAC" runat="server" ControlToValidate="TxtClaveFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fuente de Financiamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClaveFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre", "{0}")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtNombre" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Nombre")%>' ValidationGroup="GrpGV" Width="240px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fuente de Financiamiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCNombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<table runat="server" id="Tbl" style="display: none;"> <table runat="server" id="Tbl" style="display: none;">
<tr> <tr>
@@ -155,10 +94,10 @@
<asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None"> <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Clave" DataField="ClaveFinanciamientoCONAC" DataFormatString="{0}" ItemStyle-Width="65" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Clave" DataField="ClaveFinanciamientoCONAC" DataFormatString="{0}" ItemStyle-Width="65" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Nombre" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left"/> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -170,6 +109,66 @@
</tr> </tr>
</table> </table>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFinanciamientoCONAC,ClaveFinanciamientoCONAC,Nombre,Estatus,FechaIng,Usuario"
EmptyDataText="No se encontraron Fuente de Financiamiento Registrados" ToolTip="Listado de Fuente de Financiamiento" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Clave" DataField="ClaveFinanciamientoCONAC" DataFormatString="{0}" ItemStyle-Width="65" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" DataFormatString="{0}" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivModal" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Fuente de Financiamiento</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClaveFinanciamientoCONAC" runat="server" CssClass="form-control " CausesValidation="true" MaxLength="2" ValidationGroup="GrpGuardar" Width="50%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClaveFinanciamientoCONAC" runat="server" ControlToValidate="TxtClaveFinanciamientoCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ClaveFinanciamientoCONAC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCClaveFinanciamientoCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVClaveFinanciamientoCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtClaveFinanciamientoCONAC">Clave:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombre" runat="server" CausesValidation="true" CssClass="form-control " MaxLength="50" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCNombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtNombre">Nombre:</label>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
<%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <script language="javascript" type="text/javascript">

92
AC/CatFuentesFinanciamientoCONAC.aspx.vb
View File

@@ -9,6 +9,15 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatFuentesFinanciamientoCONAC Partial Class AC_CatFuentesFinanciamientoCONAC
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveFinanciamientoCONAC() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveFinanciamientoCONAC")), -1, CInt(ViewState("CveFinanciamientoCONAC")))
End Get
Set
ViewState("CveFinanciamientoCONAC") = Value
End Set
End Property
Private Property DtFuentesFinanciamientoCONAC As DataTable Private Property DtFuentesFinanciamientoCONAC As DataTable
Get Get
Return CType(ViewState("DtFuentesFinanciamientoCONAC"), DataTable) Return CType(ViewState("DtFuentesFinanciamientoCONAC"), DataTable)
@@ -61,22 +70,73 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
End If End If
End Sub End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtClaveFinanciamientoCONAC.Text = ""
TxtNombre.Text = ""
CheckActiveSection.Visible = False
ChkEstatus.Checked = True
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CveFinanciamientoCONAC = GvRow.DataKey("CveFinanciamientoCONAC").ToEntero
TxtClaveFinanciamientoCONAC.Text = GvRow.DataKey("ClaveFinanciamientoCONAC")
TxtNombre.Text = GvRow.DataKey("Nombre")
CheckActiveSection.Visible = True
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjFuentesFinanciamientoCONAC As New ClsAC Dim ObjFuentesFinanciamientoCONAC As New ClsAC
If ObjFuentesFinanciamientoCONAC.AddFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, UsuarioActual.CveUsuario) Then If ObjFuentesFinanciamientoCONAC.RemoveFuenteFinanciamientoCONAC(GvRow.DataKey("CveFinanciamientoCONAC").ToEntero) Then
TxtNombre.Text = "" GvDatos.EditIndex = -1
TxtClaveFinanciamientoCONAC.Text = ""
Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
If ViewState("Orden").ToString() <> String.Empty Then ObjFuentesFinanciamientoCONAC.Dispose()
CargaGrid(ViewState("Orden").ToString())
Else If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid("") CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjFuentesFinanciamientoCONAC As New ClsAC
If LbAgregar.Text = "Agregar" Then
If ObjFuentesFinanciamientoCONAC.AddFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, UsuarioActual.CveUsuario) Then
TxtNombre.Text = ""
TxtClaveFinanciamientoCONAC.Text = ""
Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
'UpTitulos.Update()
ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados
End If
Else
If ObjFuentesFinanciamientoCONAC.UpdateFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, ChkEstatus.Checked, CveFinanciamientoCONAC) Then
GvDatos.EditIndex = -1
ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjFuentesFinanciamientoCONAC.Dispose() ObjFuentesFinanciamientoCONAC.Dispose()
End Sub End Sub
@@ -89,16 +149,16 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
e.Row.Cells(2).Width = Unit.Pixel(100) e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100) e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100) e.Row.Cells(4).Width = Unit.Pixel(100)
e.Row.Cells(5).Width = Unit.Pixel(50) 'e.Row.Cells(5).Width = Unit.Pixel(50)
e.Row.Cells(6).Width = Unit.Pixel(50) 'e.Row.Cells(6).Width = Unit.Pixel(50)
End If End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
End If End If
End Sub End Sub
@@ -211,11 +271,11 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo de Fuente de Financiamiento ") Tbl.ExportToExcel("Catalogo de Fuente de Financiamiento ")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimiReporte() ImprimiReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

145
AC/CatFuentesRecaudacion.aspx
View File

@@ -10,15 +10,26 @@
Catálogo de Fuentes de Recaudación Catálogo de Fuentes de Recaudación
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" /> <asp:UpdatePanel runat="server" ID="UpAgregar">
&nbsp;<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <ContentTemplate>
<img src="/Imagenes/separador02.gif" alt="" /> <li>
&nbsp; <asp:LinkButton runat="server" ID="BtnMostrarModal" data-toggle="tooltip" data-placement="left" title="Agregar Fuente de Financiamiente" Text="<i class='fa fa-plus'></i>Agregar Fuente de Financiamiente"></asp:LinkButton>
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> </li>
&nbsp; <li>
<asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content9" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content9" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki" style="width: 1000px;"> <%--<div class="portlet box blue-hoki" style="width: 1000px;">
<div class="portlet-body"> <div class="portlet-body">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -53,81 +64,39 @@
</tr> </tr>
</thead> </thead>
<tr> <tr>
<td> <td></td>
<asp:TextBox ID="TxtFuenteRecaudacion" runat="server" CausesValidation="true" MaxLength="100" ValidationGroup="GrpGuardar" Width="338px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFuenteRecaudacion" runat="server" ControlToValidate="TxtFuenteRecaudacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteRecaudacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFuenteRecaudacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteRecaudacion" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>&nbsp;</td> <td>&nbsp;</td>
<td>&nbsp;</td> <td>&nbsp;</td>
<td>&nbsp;</td> <td>&nbsp;</td>
<td style="text-align: center"> <td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td> <%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--</td>
</tr> </tr>
</table> </table>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFuenteRecaudacion" EmptyDataText="No se encontraron Fuente de Recaudacións Registrados" ToolTip="Listado de FuenteRecaudacion" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlFuenteRecaudacion" runat="server" Text='<%# Eval("FuenteRecaudacion", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtFuenteRecaudacion" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("FuenteRecaudacion") %>' ValidationGroup="GrpGV" Width="338px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFuenteRecaudacion" runat="server" ControlToValidate="TxtFuenteRecaudacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteRecaudacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFuenteRecaudacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteRecaudacion" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>--%>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" Width="100%" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFuenteRecaudacion,FuenteRecaudacion,Estatus,FechaIng,Usuario"
EmptyDataText="No se encontraron Fuente de Recaudacións Registrados" ToolTip="Listado de FuenteRecaudacion" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Fuente de Recaudación" DataField="FuenteRecaudacion" DataFormatString="{0}" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<table runat="server" id="Tbl" style="display: none;"> <table runat="server" id="Tbl" style="display: none;">
<tr> <tr>
@@ -151,6 +120,36 @@
</tr> </tr>
</table> </table>
<div id="DivModal" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Fuentes de Recaudación</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFuenteRecaudacion" runat="server" CausesValidation="true" MaxLength="100" ValidationGroup="GrpGuardar" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVFuenteRecaudacion" runat="server" ControlToValidate="TxtFuenteRecaudacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FuenteRecaudacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFuenteRecaudacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuenteRecaudacion" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtFuenteRecaudacion">Fuente de Recaudación:</label>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content10" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content10" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <script language="javascript" type="text/javascript">

88
AC/CatFuentesRecaudacion.aspx.vb
View File

@@ -8,6 +8,14 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatFuentesRecaudacion Partial Class AC_CatFuentesRecaudacion
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveFuenteRecaudacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveFuenteRecaudacion")), -1, CInt(ViewState("CveFuenteRecaudacion")))
End Get
Set
ViewState("CveFuenteRecaudacion") = Value
End Set
End Property
Private Property DtFuentesRecaudacion As DataTable Private Property DtFuentesRecaudacion As DataTable
Get Get
Return CType(ViewState("DtFuentesRecaudacion"), DataTable) Return CType(ViewState("DtFuentesRecaudacion"), DataTable)
@@ -30,6 +38,15 @@ Partial Class AC_CatFuentesRecaudacion
End If End If
End Sub End Sub
Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtFuenteRecaudacion.Text = ""
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjFuenteRecaudacion As New ClsAC Dim ObjFuenteRecaudacion As New ClsAC
If ObjFuenteRecaudacion.GetFuentesRecaudacion() Then If ObjFuenteRecaudacion.GetFuentesRecaudacion() Then
@@ -50,19 +67,29 @@ Partial Class AC_CatFuentesRecaudacion
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjFuenteRecaudacion As New ClsAC Dim ObjFuenteRecaudacion As New ClsAC
If ObjFuenteRecaudacion.AddFuentesRecaudacion(TxtFuenteRecaudacion.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If LbAgregar.Text = "Agregar" Then
TxtFuenteRecaudacion.Text = "" If ObjFuenteRecaudacion.AddFuentesRecaudacion(TxtFuenteRecaudacion.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("La nueva Fuente de Recaudacion se guardo correctamente.", TipoMensaje.MsgInformacion) TxtFuenteRecaudacion.Text = ""
UpTitulos.Update() Alert("La nueva Fuente de Recaudacion se guardo correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa)) 'UpTitulos.Update()
GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then End If
CargaGrid(ViewState("Orden").ToString()) Else
Else If ObjFuenteRecaudacion.UpdateFuentesRecaudacion(TxtFuenteRecaudacion.Text, ChkEstatus.Checked, CveFuenteRecaudacion) Then
CargaGrid("") GvDatos.EditIndex = -1
ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjFuenteRecaudacion.Dispose() ObjFuenteRecaudacion.Dispose()
End Sub End Sub
@@ -74,15 +101,15 @@ Partial Class AC_CatFuentesRecaudacion
e.Row.Cells(1).Width = Unit.Pixel(100) e.Row.Cells(1).Width = Unit.Pixel(100)
e.Row.Cells(2).Width = Unit.Pixel(100) e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100) e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(50) 'e.Row.Cells(4).Width = Unit.Pixel(50)
e.Row.Cells(5).Width = Unit.Pixel(50) 'e.Row.Cells(5).Width = Unit.Pixel(50)
End If End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
End If End If
End Sub End Sub
@@ -147,6 +174,35 @@ Partial Class AC_CatFuentesRecaudacion
CargaGrid("") CargaGrid("")
End If End If
End Sub End Sub
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CveFuenteRecaudacion = GvRow.DataKey("CveFuenteRecaudacion").ToEntero
TxtFuenteRecaudacion.Text = GvRow.DataKey("FuenteRecaudacion")
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjFuenteRecaudacion As New ClsAC
If ObjFuenteRecaudacion.RemoveFuentesRecaudacion(GvRow.DataKey("CveFuenteRecaudacion").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjFuenteRecaudacion.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
#End Region #End Region
#Region "O R D E N A M I E N T O" #Region "O R D E N A M I E N T O"
@@ -196,11 +252,11 @@ Partial Class AC_CatFuentesRecaudacion
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo de Fuentes de Recaudacion ") Tbl.ExportToExcel("Catalogo de Fuentes de Recaudacion ")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimiReporte() ImprimiReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

245
AC/CatOGClasificaciones.aspx
View File

@@ -10,171 +10,49 @@
Catálogo de Clasificaciones de Objeto de Gasto Catálogo de Clasificaciones de Objeto de Gasto
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<%-- <li> <ContentTemplate>
<asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton> <li>
</li> <asp:LinkButton runat="server" ID="BtnMostrarModal" data-toggle="tooltip" data-placement="left" title="Agregar Fuente de Financiamiente" Text="<i class='fa fa-plus'></i>Agregar Fuente de Financiamiente"></asp:LinkButton>
<li> </li>
<asp:LinkButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton> <li>
</li>--%> <asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<%--<img src="/Imagenes/separador02.gif" alt="" /> <li>
&nbsp;<asp:ImageButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; <asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
<img src="/Imagenes/separador02.gif" alt="" /> </li>
&nbsp; </ContentTemplate>
<asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> <Triggers>
&nbsp;--%> <asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki" style="width: 1000px;"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<div class="portlet-body"> <ContentTemplate>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" DataKeyNames="CveClasificacion,Codigo,Clasificacion,Afectable,Estatus,Fecha,Usuario"
<ContentTemplate> EmptyDataText="No se encontraron Clasificaciones de Objeto de Gasto Registradas" ToolTip="Listado de Clasificaciones de Objeto de Gasto"
<table class="table table-striped table-advance table-hover"> CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<thead> <Columns>
<tr> <asp:BoundField HeaderText="Código" DataField="Codigo" DataFormatString="{0}" ItemStyle-Width="75" ItemStyle-HorizontalAlign="Left" />
<th width="75px" style="text-align: center"> <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" DataFormatString="{0}" ItemStyle-Width="410" ItemStyle-HorizontalAlign="Left" />
<asp:LinkButton ID="LbCodigo" runat="server" CausesValidation="false" Text="" CommandArgument="Codigo" OnClick="LbOrden_Click"> <asp:BoundField HeaderText="Afectable" DataField="TextoAfectable" DataFormatString="{0}" ItemStyle-Width="90" ItemStyle-HorizontalAlign="Left" />
Código <asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Left" />
<asp:Literal ID="ImgCodigo" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
</asp:LinkButton> <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
</th> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<th width="406px" style="text-align: center"> <ItemTemplate>
<asp:LinkButton ID="LbClasificacion" runat="server" CausesValidation="false" Text="" CommandArgument="Clasificacion" OnClick="LbOrden_Click"> <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
Clasificación <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<asp:Literal ID="ImgClasificacion" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </ItemTemplate>
</asp:LinkButton> </asp:TemplateField>
</th> </Columns>
<th width="90px" style="text-align: center"> <RowStyle CssClass="Texto" />
<asp:LinkButton ID="LbAfectable" runat="server" CausesValidation="false" Text="" CommandArgument="Afectable" OnClick="LbOrden_Click"> <AlternatingRowStyle CssClass="TextoAlterno" />
Afectable </asp:GridView>
<asp:Literal ID="ImgbAfectable" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> </ContentTemplate>
</asp:LinkButton> </asp:UpdatePanel>
</th>
<th width="80px" style="text-align: center">
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click">
Estatus
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="100px" style="text-align: center">
<asp:LinkButton ID="LbFecha" runat="server" CausesValidation="false" Text="" CommandArgument="Fecha" OnClick="LbOrden_Click">
Fecha
<asp:Literal ID="ImgFecha" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="100px" style="text-align: center">
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
Usuario
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th width="119" style="text-align: center">Comandos</th>
</tr>
</thead>
<tr>
<td>
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="65px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCodigo" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCCodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigo" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<asp:TextBox ID="TxtOGClasificacion" runat="server" CausesValidation="true" MaxLength="100" ValidationGroup="GrpGuardar" Width="395px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVOGClasificacion" runat="server" ControlToValidate="TxtOGClasificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''OGClasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOGClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVOGClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td style="text-align: center">
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacion" EmptyDataText="No se encontraron Clasificaciones de Objeto de Gasto Registradas" ToolTip="Listado de Clasificaciones de Objeto de Gasto" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Codigo")%>' ValidationGroup="GrpGV" Width="65px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCodigo" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCCodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigo" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlOGClasificacion" runat="server" Text='<%# Eval("Clasificacion", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtOGClasificacion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Clasificacion") %>' ValidationGroup="GrpGV" Width="395px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVOGClasificacion" runat="server" ControlToValidate="TxtOGClasificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''OGClasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOGClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVOGClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlAfectable" runat="server" Text='<%# Eval("Afectable")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkAfectable" runat="server" Checked='<%# If (Eval("Afectable").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<table runat="server" id="Tbl" style="display: none;"> <table runat="server" id="Tbl" style="display: none;">
<tr> <tr>
<td> <td>
@@ -199,6 +77,47 @@
</tr> </tr>
</table> </table>
<div id="DivModal" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificaciones de Objeto de Gasto</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodigo" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="50%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCodigo" runat="server" ControlToValidate="TxtCodigo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCCodigo" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigo" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtCodigo">Código:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOGClasificacion" runat="server" CausesValidation="true" MaxLength="100" ValidationGroup="GrpGuardar" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVOGClasificacion" runat="server" ControlToValidate="TxtOGClasificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''OGClasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOGClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVOGClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtOGClasificacion">Clasificación:</label>
</div>
<div id="DivAfectable" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Afectable:</label>&nbsp;
<asp:CheckBox ID="ChkAfectable" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <script language="javascript" type="text/javascript">

97
AC/CatOGClasificaciones.aspx.vb
View File

@@ -9,6 +9,15 @@ Imports Microsoft.Reporting.WebForms
Partial Class AC_CatOGClasificaciones Partial Class AC_CatOGClasificaciones
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveClasificacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveClasificacion")), -1, CInt(ViewState("CveClasificacion")))
End Get
Set
ViewState("CveClasificacion") = Value
End Set
End Property
Private Property DtOGClasificaciones As DataTable Private Property DtOGClasificaciones As DataTable
Get Get
Return CType(ViewState("DtOGClasificaciones"), DataTable) Return CType(ViewState("DtOGClasificaciones"), DataTable)
@@ -25,6 +34,17 @@ Partial Class AC_CatOGClasificaciones
End If End If
End Sub End Sub
Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtCodigo.Text = ""
TxtOGClasificacion.Text = ""
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
DivAfectable.Visible = False
LbAgregar.Text = "Agregar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then If ObjClasificaciones.GetClasificaciones() Then
@@ -45,24 +65,67 @@ Partial Class AC_CatOGClasificaciones
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If LbAgregar.Text = "Agregar" Then
TxtOGClasificacion.Text = "" If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtCodigo.Text = "" TxtOGClasificacion.Text = ""
Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion) TxtCodigo.Text = ""
UpTitulos.Update() Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) 'UpTitulos.Update()
GlobalDTClasificaciones = ObjClasificaciones.DtResultados ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTClasificaciones = ObjClasificaciones.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then End If
CargaGrid(ViewState("Orden").ToString()) Else
Else If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then
CargaGrid("") GvDatos.EditIndex = -1
ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTClasificaciones = ObjClasificaciones.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
End Sub End Sub
#Region "G V D A T O S" #Region "G V D A T O S"
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero
TxtCodigo.Text = GvRow.DataKey("Codigo")
TxtOGClasificacion.Text = GvRow.DataKey("Clasificacion")
ChkAfectable.Checked = GvRow.DataKey("Afectable") = "True"
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
DivAfectable.Visible = True
CheckActiveSection.Visible = True
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTClasificaciones = ObjClasificaciones.DtResultados
Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjClasificaciones.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.Cells(0).Width = Unit.Pixel(75) e.Row.Cells(0).Width = Unit.Pixel(75)
@@ -71,8 +134,8 @@ Partial Class AC_CatOGClasificaciones
e.Row.Cells(3).Width = Unit.Pixel(80) e.Row.Cells(3).Width = Unit.Pixel(80)
e.Row.Cells(4).Width = Unit.Pixel(100) e.Row.Cells(4).Width = Unit.Pixel(100)
e.Row.Cells(5).Width = Unit.Pixel(100) e.Row.Cells(5).Width = Unit.Pixel(100)
e.Row.Cells(6).Width = Unit.Pixel(50) 'e.Row.Cells(6).Width = Unit.Pixel(50)
e.Row.Cells(7).Width = Unit.Pixel(50) 'e.Row.Cells(7).Width = Unit.Pixel(50)
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -80,8 +143,8 @@ Partial Class AC_CatOGClasificaciones
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
End If End If
End Sub End Sub
@@ -193,11 +256,11 @@ Partial Class AC_CatOGClasificaciones
#End Region #End Region
#Region " EXPORTAR - PDF - EXCEL " #Region " EXPORTAR - PDF - EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
Tbl.ExportToExcel("Catalogo de Clasificaciones de Objeto de Gasto ") Tbl.ExportToExcel("Catalogo de Clasificaciones de Objeto de Gasto ")
End Sub End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
ImprimirReporte() ImprimirReporte()
End Sub End Sub
'No quitar porque no funciona el exporta PDF 'No quitar porque no funciona el exporta PDF

233
AC/CatPrograma.aspx
View File

@@ -1,4 +1,5 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatPrograma.aspx.vb" Inherits="AC_CatPrograma" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatPrograma.aspx.vb" Inherits="AC_CatPrograma" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -9,146 +10,144 @@
Catálogo de Programa Catálogo de Programa
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnMostrarModal" data-toggle="tooltip" data-placement="left" title="Agregar Fuente de Financiamiente" Text="<i class='fa fa-plus'></i>Agregar Fuente de Financiamiente"></asp:LinkButton>
</li>
<%--<li>
<asp:LinkButton ID="LnkPdf" OnClick="BtnImprimir_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>--%>
</ContentTemplate>
<%--<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExcel" />
</Triggers>--%>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<div class="portlet box blue-hoki" style="width:1000px;"> <%--<div class="portlet box blue-hoki" style="width: 1000px;">
<div class="portlet-body"> <div class="portlet-body">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<table class="table table-striped table-advance table-hover"> <table class="table table-striped table-advance table-hover">
<thead> <thead>
<tr class="Titulos"> <tr class="Titulos">
<th width="250px"> <th width="250px">
<asp:LinkButton ID="LbPrograma" runat="server" CausesValidation="false" Text="" CommandArgument="Programa" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbPrograma" runat="server" CausesValidation="false" Text="" CommandArgument="Programa" OnClick="LbOrden_Click">
Programa Programa
<asp:Literal ID="ImgPrograma" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgPrograma" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="150px"> <th width="150px">
<asp:LinkButton ID="LbProgramaCONAC" runat="server" CausesValidation="false" Text="" CommandArgument="ProgramaCONAC" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbProgramaCONAC" runat="server" CausesValidation="false" Text="" CommandArgument="ProgramaCONAC" OnClick="LbOrden_Click">
Programa CONAC Programa CONAC
<asp:Literal ID="ImgProgramaCONAC" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgProgramaCONAC" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px"> <th width="100px">
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click">
Estatus Estatus
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px"> <th width="100px">
<asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click">
Fecha Fecha
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="100px"> <th width="100px">
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click"> <asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
Usuario Usuario
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal> <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton> </asp:LinkButton>
</th> </th>
<th width="121px">Comandos</th> <th width="121px">Comandos</th>
</tr> </tr>
</thead> </thead>
<tr> <tr>
<td> <td></td>
<asp:TextBox ID="TxtPrograma" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="244px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPrograma" runat="server" ControlToValidate="TxtPrograma" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Programa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCPrograma" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrograma" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td> <td></td>
<asp:DropDownList ID="DdlProgramaCONAC" runat="server" AppendDataBoundItems="true" DataValueField="CveProgramaCONAC" DataTextField="ProgramaCONAC" ValidationGroup="GrpGuardar" Width="150px"> <td>&nbsp;</td>
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <td>&nbsp;</td>
</asp:DropDownList> <td>&nbsp;</td>
<asp:RequiredFieldValidator ID="RFVProgramaCONAC" runat="server" ControlToValidate="DdlProgramaCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ProgramaCONAC''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <td>
<ajax:ValidatorCalloutExtender ID="VCOProgramaCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVProgramaCONAC" Width="300px"></ajax:ValidatorCalloutExtender> <%--<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>--%</td>
</td> </tr>
<td>&nbsp;</td> </table>
<td>&nbsp;</td> </ContentTemplate>
<td>&nbsp;</td> </asp:UpdatePanel>
<td> </div>
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td> </div>--%>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrograma" EmptyDataText="No se encontraron Programa Registrados" ToolTip="Listado de Programa" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px;" > <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" DataKeyNames="CvePrograma,Programa,CveProgramaCONAC,ProgramaCONAC,Estatus,FechaIng,Usuario"
EmptyDataText="No se encontraron Programa Registrados" ToolTip="Listado de Programa" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:BoundField HeaderText="Programa" DataField="Programa" DataFormatString="{0}" ItemStyle-Width="75" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="ProgramaCONAC" DataField="ProgramaCONAC" DataFormatString="{0}" ItemStyle-Width="410" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" DataFormatString="{0}" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlPrograma" runat="server" Text='<%# Eval("Programa", "{0}")%>'></asp:Literal> <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
</ItemTemplate> <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<EditItemTemplate>
<asp:TextBox ID="TxtPrograma" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Programa")%>' ValidationGroup="GrpGV" Width="244px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPrograma" runat="server" ControlToValidate="TxtPrograma" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Programa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCPrograma" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrograma" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlProgramaCONAC" runat="server" Text='<%# Eval("ProgramaCONAC", "{0}")%>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList ID="DdlProgramaCONAC" runat="server" DataValueField="CveProgramaCONAC" DataTextField="ProgramaCONAC" Width="150px"></asp:DropDownList>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"/>
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
<div id="DivModal" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Programa</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPrograma" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="100%" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPrograma" runat="server" ControlToValidate="TxtPrograma" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Programa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCPrograma" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrograma" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="TxtPrograma">Programa:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlProgramaCONAC">Programa CONAC:</label>
<asp:DropDownList ID="DdlProgramaCONAC" Width="100%" runat="server" AppendDataBoundItems="true" DataValueField="CveProgramaCONAC" DataTextField="ProgramaCONAC" ValidationGroup="GrpGuardar" CssClass="select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVProgramaCONAC" runat="server" ControlToValidate="DdlProgramaCONAC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''ProgramaCONAC''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOProgramaCONAC" runat="server" HighlightCssClass="vco" TargetControlID="RFVProgramaCONAC" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardar" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script language="javascript" type="text/javascript"> <%--<script language="javascript" type="text/javascript">
function C() { function C() {
return confirm('¿Está seguro que desea eliminar el Programa?'); return confirm('¿Está seguro que desea eliminar el Programa?');
} }
</script> </script>--%>
</asp:Content> </asp:Content>

112
AC/CatPrograma.aspx.vb
View File

@@ -8,6 +8,15 @@ Imports Extensiones
Partial Class AC_CatPrograma Partial Class AC_CatPrograma
Inherits ClsPaginas Inherits ClsPaginas
Private Property CvePrograma() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CvePrograma")), -1, CInt(ViewState("CvePrograma")))
End Get
Set
ViewState("CvePrograma") = Value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
ViewState("Orden") = "" ViewState("Orden") = ""
@@ -34,22 +43,43 @@ Partial Class AC_CatPrograma
End If End If
End Sub End Sub
Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtPrograma.Text = ""
DdlProgramaCONAC.SelectedValue = "-1"
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjPrograma As New ClsAC Dim ObjPrograma As New ClsAC
If ObjPrograma.AddPrograma(TxtPrograma.Text.Trim, DdlProgramaCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtPrograma.Text = ""
Alert("El Programa se guardó correctamente.", TipoMensaje.MsgInformacion) If LbAgregar.Text = "Agregar" Then
UpTitulos.Update() If ObjPrograma.AddPrograma(TxtPrograma.Text.Trim, DdlProgramaCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) TxtPrograma.Text = ""
GlobalDTAC_Programas = ObjPrograma.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then Alert("El Programa se guardó correctamente.", TipoMensaje.MsgInformacion)
CargaGrid(ViewState("Orden").ToString()) 'UpTitulos.Update()
Else ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
CargaGrid("") GlobalDTAC_Programas = ObjPrograma.DtResultados
End If
Else
If ObjPrograma.UpdatePrograma(TxtPrograma.Text, DdlProgramaCONAC.SelectedValue.ToEntero, ChkEstatus.Checked, CvePrograma) Then
GvDatos.EditIndex = -1
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjPrograma.Dispose() ObjPrograma.Dispose()
End Sub End Sub
@@ -59,24 +89,56 @@ Partial Class AC_CatPrograma
End Sub End Sub
#Region "G V D A T O S" #Region "G V D A T O S"
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CvePrograma = GvRow.DataKey("CvePrograma").ToEntero
TxtPrograma.Text = GvRow.DataKey("Programa")
DdlProgramaCONAC.SelectedValue = GvRow.DataKey("CveProgramaCONAC")
CheckActiveSection.Visible = True
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjPrograma As New ClsAC
If ObjPrograma.RemovePrograma(GvRow.DataKey("CvePrograma").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjPrograma.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then 'If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(250) ' e.Row.Cells(0).Width = Unit.Pixel(250)
e.Row.Cells(1).Width = Unit.Pixel(150) ' e.Row.Cells(1).Width = Unit.Pixel(150)
e.Row.Cells(2).Width = Unit.Pixel(100) ' e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100) ' e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100) ' e.Row.Cells(4).Width = Unit.Pixel(100)
e.Row.Cells(5).Width = Unit.Pixel(53) ' e.Row.Cells(5).Width = Unit.Pixel(53)
e.Row.Cells(6).Width = Unit.Pixel(68) ' e.Row.Cells(6).Width = Unit.Pixel(68)
End If 'End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then 'If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlProgramaCONAC").DataSource = GlobalDTAC_ProgramasCONAC ' e.Row.FCDropDownList("DdlProgramaCONAC").DataSource = GlobalDTAC_ProgramasCONAC
e.Row.FCDropDownList("DdlProgramaCONAC").DataBind() ' e.Row.FCDropDownList("DdlProgramaCONAC").DataBind()
e.Row.FCDropDownList("DdlProgramaCONAC").SelectedValue = e.Row.DBCampo("CveProgramaCONAC") ' e.Row.FCDropDownList("DdlProgramaCONAC").SelectedValue = e.Row.DBCampo("CveProgramaCONAC")
End If 'End If
End If End If
End Sub End Sub

48
Contabilidad/Reportes/RepBalanzaComprobacion.rdlc
View File

@@ -24,7 +24,6 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Left>0cm</Left>
<Height>0.98806cm</Height> <Height>0.98806cm</Height>
<Width>20.2388cm</Width> <Width>20.2388cm</Width>
<Style> <Style>
@@ -92,7 +91,6 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.98806cm</Top> <Top>0.98806cm</Top>
<Left>0cm</Left>
<Height>0.99741cm</Height> <Height>0.99741cm</Height>
<Width>20.2388cm</Width> <Width>20.2388cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -458,7 +456,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Deudor Acreedor</Value> <Value>Deudor Acreedor</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -1387,7 +1385,6 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Left>0cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>20.2388cm</Width> <Width>20.2388cm</Width>
<Visibility> <Visibility>
@@ -1435,6 +1432,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0cm</Top>
<Left>14.86367cm</Left> <Left>14.86367cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.37513cm</Width> <Width>5.37513cm</Width>
@@ -1455,7 +1453,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>="Fecha Impresión:" &amp; vbCrLf &amp; DateTime.Now.ToString("dd-MM-yyyy")</Value> <Value>="Fecha Impresión:" &amp; vbCrLf &amp; DateTime.Now.ToString("dd/MM/yyyy HH:mmm")</Value>
<Style> <Style>
<FontStyle>Italic</FontStyle> <FontStyle>Italic</FontStyle>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1468,7 +1466,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName> <rd:DefaultName>Textbox8</rd:DefaultName>
<Left>0cm</Left> <Top>0cm</Top>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.43894cm</Width> <Width>3.43894cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -1482,6 +1480,38 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>="Usuario Imprimio: " &amp; Parameters!UsuarioImprimio.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Top>0cm</Top>
<Left>9.48438cm</Left>
<Height>0.6cm</Height>
<Width>5.37929cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Style> <Style>
<Border> <Border>
@@ -1623,6 +1653,12 @@
<DataType>String</DataType> <DataType>String</DataType>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="UsuarioImprimio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>72dd790f-bb87-41b4-98ee-ff673dfb3643</rd:ReportID> <rd:ReportID>72dd790f-bb87-41b4-98ee-ff673dfb3643</rd:ReportID>

1
Contabilidad2/RepBalanzaComprobacion.aspx.vb
View File

@@ -238,6 +238,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
End Sub End Sub