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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-11-24 12:00:41 -07:00
parent edb8c16ab6 df56abafc7
commit 2890f27639
29 changed files with 7011 additions and 10119 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

2
App_Code/ClsInventarios.vb
View File

@@ -97,6 +97,7 @@ Public Class ClsInventarios
Public Property CveGrupoPS As Integer Public Property CveGrupoPS As Integer
Public Property CveFlete As Integer Public Property CveFlete As Integer
Public Property CveCliente As Integer Public Property CveCliente As Integer
Public Property CveVendedor As Integer
Public Property CveClienteSucursal As Integer Public Property CveClienteSucursal As Integer
Public Property NombreCliente As String Public Property NombreCliente As String
Public Property CveProveedor As Integer Public Property CveProveedor As Integer
@@ -823,6 +824,7 @@ Public Class ClsInventarios
FolioInterno = dr("VentaAnticipo").ToString FolioInterno = dr("VentaAnticipo").ToString
CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)
CveVendedor = If(dr("CveVendedor").ToString.ToEntero > 0, dr("CveVendedor").ToString.ToEntero, -1)
NombreCliente = dr("Nombre").ToString NombreCliente = dr("Nombre").ToString
CveProveedor = If(dr("CveProveedor").ToString.ToEntero > 0, dr("CveProveedor").ToString.ToEntero, -1) CveProveedor = If(dr("CveProveedor").ToString.ToEntero > 0, dr("CveProveedor").ToString.ToEntero, -1)
DepartamentoEntrega = dr("DepartamentoEntrega").ToString DepartamentoEntrega = dr("DepartamentoEntrega").ToString

5
App_Code/ClsOC.vb
View File

@@ -1252,7 +1252,7 @@ Public Class ClsOC
pObservacion As String, pCveUsuario As Integer, Optional pCveOrdenCompraPadre As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0, pObservacion As String, pCveUsuario As Integer, Optional pCveOrdenCompraPadre As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Double = 0,
Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, Optional IVA As Double = 0, Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional Total As Double = 0,
Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0,
Optional IEPSPSIVAPorcentaje As Double = 0, Optional CveVentaDetalleCotizacion As Integer = -1, Optional CveTipoGastoObra As Integer = -1) As Boolean Optional IEPSPSIVAPorcentaje As Double = 0, Optional CveVentaDetalleCotizacion As Integer = -1, Optional CveTipoGastoObra As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OC_OrdenesCompraDetalleAdd") DataAdapter("PA_OC_OrdenesCompraDetalleAdd")
@@ -1284,8 +1284,7 @@ Public Class ClsOC
.Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje
.Add("@CveVentaDetalleCotizacion", SqlDbType.Int).Value = CveVentaDetalleCotizacion .Add("@CveVentaDetalleCotizacion", SqlDbType.Int).Value = CveVentaDetalleCotizacion
.Add("@CveTipoGastoObra", SqlDbType.Int).Value = CveTipoGastoObra .Add("@CveTipoGastoObra", SqlDbType.Int).Value = CveTipoGastoObra
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
End With End With

3
App_Code/ClsVentas.vb
View File

@@ -3738,7 +3738,7 @@ Public Class ClsVentas
#Region "COMISIONES" #Region "COMISIONES"
Public Function GetRepComisiones(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveVendedor As Integer, CveCliente As Integer, CveUsuario As Integer, CveEmpresa As Integer, TipoSaldo As Integer) As Boolean Public Function GetRepComisiones(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveVendedor As Integer, CveCliente As Integer, CveUsuario As Integer, CveEmpresa As Integer, TipoSaldo As Integer, Optional EsquemaNuevo As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepComisiones119") DataAdapter("PA_Vta_RepComisiones119")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -3750,6 +3750,7 @@ Public Class ClsVentas
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@TipoSaldo", SqlDbType.Int).Value = TipoSaldo .Add("@TipoSaldo", SqlDbType.Int).Value = TipoSaldo
.Add("@EsquemaNuevo", SqlDbType.Bit).Value = EsquemaNuevo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

2
Bancos/RepComplementoPago.aspx.vb
View File

@@ -160,7 +160,7 @@ Partial Class Bancos_RepComplementoPago
e.Row.FCCheckBox("Chk").Visible = False e.Row.FCCheckBox("Chk").Visible = False
End If End If
e.Row.FCCheckBox("Chk").ToolTip = "Hay una inconsistencia entre lo pagado en las facturas y el importe expedido" e.Row.FCCheckBox("Chk").ToolTip += ". Hay una inconsistencia entre lo pagado en las facturas y el importe expedido"
End If End If
End If End If

14409
Bin/Newtonsoft.Json.xml
View File

File diff suppressed because it is too large Load Diff

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

9
Inventarios/EntradasSalidas.aspx
View File

@@ -191,6 +191,15 @@
</div> </div>
</div> </div>
</div> </div>
<div class="row">
<div id="DivVendedor" runat="server" visible="false">
<label class="col-md-1 truncate" style="width: 110px">Vendedor:</label>
<div class="col-md-2">
<asp:Label ID="LblVendedor" runat="server" Text=""></asp:Label>
</div>
</div>
</div>
<div class="row" id="DivDepartamentoEntrega" runat="server" visible="False"> <div class="row" id="DivDepartamentoEntrega" runat="server" visible="False">
<label class="col-md-1 truncate" style="width: 110px"> <label class="col-md-1 truncate" style="width: 110px">

6
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -819,6 +819,12 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If Mov.CveVendedor > 0 Then
LblVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Mov.CveVendedor))
DivVendedor.Visible = True
End If
'carga personal 'carga personal
If Mov.CvePersonal > 0 Then If Mov.CvePersonal > 0 Then
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal) DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal)

2
Inventarios/EntregaAlmacen.aspx
View File

@@ -630,7 +630,7 @@
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="40%" /> <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-Width="40%" />
<asp:TemplateField HeaderText="Eliminar"> <asp:TemplateField HeaderText="Eliminar">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="lnkRemove" runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" CommandName="Delete" OnClientClick="return confirm('¿Desea borrar el registro?')"></asp:LinkButton> <asp:LinkButton ID="lnkRemove" runat="server" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" CommandName="Delete" OnClientClick="return confirm('¿Desea borrar el registro?')"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="20%"></ItemStyle> <ItemStyle Width="20%"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>

25
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -900,6 +900,22 @@ Partial Class Inventarios_EntregaAlmacen
LbCantidad.Text = e.Row.DBCampo("CantidadF") LbCantidad.Text = e.Row.DBCampo("CantidadF")
LbCantidad2.Text = e.Row.DBCampo("CantidadF") LbCantidad2.Text = e.Row.DBCampo("CantidadF")
AgregaSerie(e.Row.DBCampo("ObservacionesDetalle"), 3) AgregaSerie(e.Row.DBCampo("ObservacionesDetalle"), 3)
End If
If TipoDocto = "Ing" AndAlso e.Row.DBCampo("ObservacionesDetalle").Length > 8 AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
Dim Str = e.Row.DBCampo("ObservacionesDetalle").Replace(",", " ").Replace(".", " ").Replace(vbTab, " ").Replace(vbLf, " ").Split(" "c)
CveConsecSerie = e.Row.DBCampo("Consec").ToString().ToEntero()
PSSerie = e.Row.DBCampo("PS").ToString()
CvePSSerie = e.Row.DBCampo("CvePS").ToEntero()
CveUMSerie = e.Row.DBCampo("CveUM").ToEntero()
LbCantidad.Text = e.Row.DBCampo("CantidadF")
LbCantidad2.Text = e.Row.DBCampo("CantidadF")
For Each st As String In Str
If Not st.Contiene("", "/") Then
AgregaSerie(st, 3)
End If
Next
End If End If
Else Else
@@ -1156,10 +1172,10 @@ Partial Class Inventarios_EntregaAlmacen
Exit Sub Exit Sub
End If End If
Dim AplicaCaducidad = False Dim AplicaCaducidad As Boolean = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltroPrimeroValor("AplicaCaducidad", "") = "True"
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0) IsNot Nothing Then 'If GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0) IsNot Nothing Then
AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False) ' AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
End If 'End If
'Valida Existencia 'Valida Existencia
@@ -1172,6 +1188,7 @@ Partial Class Inventarios_EntregaAlmacen
ObjInventarios.Dispose() ObjInventarios.Dispose()
Exit Sub Exit Sub
End If End If
ObjInventarios.Dispose()
Else Else
If DtExistencias IsNot Nothing Then If DtExistencias IsNot Nothing Then
Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'") Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")

7
Ventas/RepComisionesJAM.aspx
View File

@@ -84,6 +84,13 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-1" >Esquema Nuevo:</div>
<div class="col-md-2" style="vertical-align:bottom;align-items:initial">
<asp:CheckBox runat="server" ID ="ChkEsquemaNuevo" CssClass="md-checksd" />
</div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

32
Ventas/RepComisionesJAM.aspx.cs
View File

@@ -66,7 +66,7 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201); GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201);
} }
private void Consulta() private void Consulta()
{ {
@@ -108,18 +108,26 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
else if (e.Row.DBCampo("CveVenta").ToEntero() < 1) else if (e.Row.DBCampo("CveVenta").ToEntero() < 1)
{ {
e.Row.CssClass = "SubTotales2"; e.Row.CssClass = "SubTotales2";
//e.Row.Cells[0].Text = e.Row.DBCampo("Vendedor").ToString(); //e.Row.Cells[0].Text = e.Row.DBCampo("Vendedor").ToString();
} }
else else
{ {
if (e.Row.DBCampo("Transaccion").ToString() == "Pago") if (e.Row.DBCampo("Transaccion").ToString() == "Pago")
{ {
if (e.Row.DBCampo("CveCategoria").ToEntero() < 1) if (e.Row.DBCampo("CveCategoria").ToEntero() < 1 && e.Row.DBCampo("Comision").ToDouble() == 0)
{ {
if (UsuarioActual.TienePermisoProceso(201)) //if (UsuarioActual.TienePermisoProceso(201))
{ //{
e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria especificada."; // e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales.";
e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria especificada."; // e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales.";
//}
//else
//{
e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales.";
e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales.";
//}
}else if (e.Row.DBCampo("CveCategoria").ToEntero() > 0 )
{
e.Row.Cells[21].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria",$"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; e.Row.Cells[21].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria",$"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}.";
e.Row.Cells[22].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; e.Row.Cells[22].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}.";
}else if(e.Row.DBCampo("Comision").ToDouble() > 0) }else if(e.Row.DBCampo("Comision").ToDouble() > 0)