-- 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