-- no está en clspaginas el llamado
This commit is contained in:
@@ -1,169 +0,0 @@
|
|||||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepConceptosAcumulados.aspx.vb" Inherits="Nomina_RepConceptosAcumulados" %>
|
|
||||||
|
|
||||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
|
||||||
<style>
|
|
||||||
th[align="left"]{
|
|
||||||
text-align :left !important;
|
|
||||||
}
|
|
||||||
</style>
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
|
||||||
<asp:ImageButton ID="ImgImprimir" runat="server" ImageUrl="/Imagenes/btnImprimir.gif" Width="17px" Height="17px" Visible="false" Enabled="false" />
|
|
||||||
<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
|
||||||
Reporte Conceptos Acumulados
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
|
||||||
<script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody');</script>
|
|
||||||
<br />
|
|
||||||
|
|
||||||
|
|
||||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
|
||||||
<ContentTemplate>
|
|
||||||
<div class="portlet solid grey-cascade portlet-filter">
|
|
||||||
<div class="portlet-title portlet-filterT smalltitle">
|
|
||||||
<div class="titlefiltros caption">
|
|
||||||
<div class="row">
|
|
||||||
<label class="col-md-1">Concepto:</label>
|
|
||||||
<div class="col-md-2">
|
|
||||||
<asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
|
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<label class="col-md-1">Ejercicio:</label>
|
|
||||||
<div class="col-md-1">
|
|
||||||
<asp:DropDownList ID="DDlEjercicio" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
|
|
||||||
<asp:ListItem Text="2016" Value="2016"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="2017" Value="2017"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="2018" Value="2018"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="2019" Value="2019"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<label class="col-md-1">Tipo Periodo:</label>
|
|
||||||
<div class="col-md-2">
|
|
||||||
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
|
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
<label class="col-md-1">Periodo:</label>
|
|
||||||
<div class="col-md-2">
|
|
||||||
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
|
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
|
||||||
<tr>
|
|
||||||
<td width="50%">
|
|
||||||
<fieldset>
|
|
||||||
<legend><b>Datos del Concepto</b></legend>
|
|
||||||
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
|
||||||
<tr>
|
|
||||||
|
|
||||||
<td>Tipo: </td>
|
|
||||||
<td>
|
|
||||||
<asp:Label ID="LblTipo" runat="server"></asp:Label></td>
|
|
||||||
<td width="80px">Codigo: </td>
|
|
||||||
<td width="140px">
|
|
||||||
<asp:Label ID="LblCodigo" runat="server"></asp:Label></td>
|
|
||||||
</tr>
|
|
||||||
<tr>
|
|
||||||
<td colspan ="4">
|
|
||||||
<asp:Label ID="LblFormula" runat="server" Visible="False"></asp:Label></td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
</fieldset>
|
|
||||||
</td>
|
|
||||||
|
|
||||||
<td width="50%"></td>
|
|
||||||
<td width="50%" style="display :none;">
|
|
||||||
<fieldset>
|
|
||||||
<legend><b>Datos del Periodo</b></legend>
|
|
||||||
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
|
||||||
<tr>
|
|
||||||
<td width="80px"> </td>
|
|
||||||
<td>
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
<tr>
|
|
||||||
<td width="80px"> </td>
|
|
||||||
<td>
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
<tr>
|
|
||||||
<td width="80px"> </td>
|
|
||||||
<td width="140px"></td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
</table>
|
|
||||||
</fieldset>
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
</ContentTemplate>
|
|
||||||
</asp:UpdatePanel>
|
|
||||||
<br />
|
|
||||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
|
||||||
<ContentTemplate>
|
|
||||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover ScrollAD Widthall"
|
|
||||||
EmptyDataText="No se encontraron Movimientos de Percepciones y/o Deduciones" data-rows="2" ToolTip="Listado de Percepciones y/o Deducciones" GridLines="None">
|
|
||||||
<Columns>
|
|
||||||
<asp:TemplateField>
|
|
||||||
<HeaderTemplate>
|
|
||||||
Nombre
|
|
||||||
</HeaderTemplate>
|
|
||||||
<HeaderStyle HorizontalAlign="Left" />
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
|
|
||||||
</ItemTemplate>
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField>
|
|
||||||
<HeaderTemplate>
|
|
||||||
Acumulado Actual
|
|
||||||
</HeaderTemplate>
|
|
||||||
<HeaderStyle Width="140px" />
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Literal ID="LtlActual" runat="server" Text='<%# Eval("Actual", "{0:N2}")%>'></asp:Literal>
|
|
||||||
</ItemTemplate>
|
|
||||||
<ItemStyle HorizontalAlign="Right"/>
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField>
|
|
||||||
<HeaderTemplate>
|
|
||||||
Acumulado Anterior
|
|
||||||
</HeaderTemplate>
|
|
||||||
<HeaderStyle Width="150px" />
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Literal ID="LtlAnterior" runat="server" Text='<%# Eval("Anterior", "{0:N2}") %>'></asp:Literal>
|
|
||||||
</ItemTemplate>
|
|
||||||
<ItemStyle HorizontalAlign="Right" />
|
|
||||||
</asp:TemplateField>
|
|
||||||
<asp:TemplateField>
|
|
||||||
<HeaderTemplate>
|
|
||||||
Acumulado Anual
|
|
||||||
</HeaderTemplate>
|
|
||||||
<HeaderStyle Width="140px" />
|
|
||||||
<ItemTemplate>
|
|
||||||
<asp:Literal ID="LtlAnual" runat="server" Text='<%# Eval("Anual", "{0:N2}")%>'></asp:Literal>
|
|
||||||
</ItemTemplate>
|
|
||||||
<ItemStyle HorizontalAlign="Right" />
|
|
||||||
</asp:TemplateField>
|
|
||||||
</Columns>
|
|
||||||
<RowStyle CssClass="Texto" />
|
|
||||||
<HeaderStyle CssClass="Titulos" />
|
|
||||||
</asp:GridView>
|
|
||||||
</ContentTemplate>
|
|
||||||
</asp:UpdatePanel>
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
|
||||||
</asp:Content>
|
|
||||||
@@ -1,133 +0,0 @@
|
|||||||
Option Explicit On
|
|
||||||
Option Strict On
|
|
||||||
|
|
||||||
Imports Extensiones
|
|
||||||
Imports System.Data
|
|
||||||
|
|
||||||
Partial Class Nomina_RepConceptosAcumulados
|
|
||||||
Inherits ClsPaginas
|
|
||||||
|
|
||||||
#Region "Propiedades"
|
|
||||||
|
|
||||||
Private ReadOnly Property CveConcepto As Integer
|
|
||||||
Get
|
|
||||||
Return ViewState("CveConcepto").ToString.ToEntero
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
|
|
||||||
Private ReadOnly Property CveTipoPeriodo As Integer
|
|
||||||
Get
|
|
||||||
Return ViewState("CveTipoPeriodo").ToString.ToEntero
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
||||||
If Not IsPostBack Then
|
|
||||||
CargaConceptos()
|
|
||||||
CargaTiposPeriodos()
|
|
||||||
|
|
||||||
If Request("CveConcepto") IsNot Nothing AndAlso IsNumeric(Request("CveConcepto")) AndAlso Request("CveConcepto").ToEntero > 0 Then
|
|
||||||
ViewState("CveConcepto") = Request("CveConcepto")
|
|
||||||
DdlConcepto.SelectedValue = CveConcepto.ToString
|
|
||||||
Else
|
|
||||||
ViewState("CveConcepto") = -1
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Request("CveTipoPeriodo") IsNot Nothing AndAlso IsNumeric(Request("CveTipoPeriodo")) AndAlso Request("CveTipoPeriodo").ToEntero > 0 Then
|
|
||||||
ViewState("CveTipoPeriodo") = Request("CveTipoPeriodo")
|
|
||||||
DdlTipoPeriodo.SelectedValue = CveTipoPeriodo.ToString
|
|
||||||
Else
|
|
||||||
ViewState("CveTipoPeriodo") = -1
|
|
||||||
End If
|
|
||||||
|
|
||||||
CargaDatos()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub CargaConceptos()
|
|
||||||
DdlConcepto.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("", "Concepto")
|
|
||||||
DdlConcepto.DataBind()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub CargaTiposPeriodos()
|
|
||||||
Dim ObjTiposPeriodos As New ClsNominas
|
|
||||||
|
|
||||||
If ObjTiposPeriodos.GetTiposPeriodos() Then
|
|
||||||
DdlTipoPeriodo.DataSource = ObjTiposPeriodos.DtResultados
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
ObjTiposPeriodos.Dispose()
|
|
||||||
DdlTipoPeriodo.DataBind()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub CargaDatos()
|
|
||||||
If CveConcepto > 0 And CveTipoPeriodo > 0 Then
|
|
||||||
Dim ObjNomina As New ClsNominas()
|
|
||||||
|
|
||||||
'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
||||||
' GvDatos.DataSource = ObjNomina.DtResultados
|
|
||||||
'Else
|
|
||||||
' GvDatos.DataSource = Nothing
|
|
||||||
'End If
|
|
||||||
ObjNomina.Dispose()
|
|
||||||
GvDatos.DataBind()
|
|
||||||
|
|
||||||
UPDatos.Update()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
||||||
Dim Css As String = "Texto"
|
|
||||||
If e.Row.RowIndex = 0 Then
|
|
||||||
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
|
||||||
'e.Row.Cells(0).Width = Unit.Pixel(200)
|
|
||||||
'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.CssClass = "Totales"
|
|
||||||
Css = "Totales"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
|
|
||||||
GvDatos.ExportToExcel("ReporteConceptosAcumulados" & Now.ToShortDateString)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
|
|
||||||
ViewState("CveTipoPeriodo") = DdlTipoPeriodo.SelectedValue
|
|
||||||
|
|
||||||
'Saca el periodo activo
|
|
||||||
CargaPeriodos(DDlEjercicio.SelectedValue.ToEntero, DdlTipoPeriodo.SelectedValue.ToEntero)
|
|
||||||
CargaDatos()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub CargaPeriodos(Ejercicio As Integer, CveTipoPeriodo As Integer)
|
|
||||||
Dim ObjTiposPeriodos As New ClsNominas
|
|
||||||
|
|
||||||
If ObjTiposPeriodos.GetPeriodos(CveTipoPeriodo, UsuarioActual.CveEmpresa, Ejercicio, -1, -1) Then
|
|
||||||
DdlPeriodo.DataSource = ObjTiposPeriodos.DtResultados
|
|
||||||
End If
|
|
||||||
|
|
||||||
ObjTiposPeriodos.Dispose()
|
|
||||||
DdlPeriodo.DataBind()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
|
|
||||||
ViewState("CveConcepto") = DdlConcepto.SelectedValue
|
|
||||||
|
|
||||||
Dim Concepto As DataRow = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("CveConcepto = " & CveConcepto)(0)
|
|
||||||
LblCodigo.Text = Concepto("Codigo").ToString
|
|
||||||
LblFormula.Text = Concepto("Formula").ToString
|
|
||||||
LblTipo.Text = Concepto("TipoD").ToString
|
|
||||||
|
|
||||||
CargaDatos()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
|
|
||||||
CargaDatos()
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
Reference in New Issue
Block a user