diff --git a/Nomina/RepConceptosAcumulados.aspx b/Nomina/RepConceptosAcumulados.aspx deleted file mode 100644 index bbd16b73a..000000000 --- a/Nomina/RepConceptosAcumulados.aspx +++ /dev/null @@ -1,169 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepConceptosAcumulados.aspx.vb" Inherits="Nomina_RepConceptosAcumulados" %> - - - - - - - - - - - - Reporte Conceptos Acumulados - - - - - -
- - - - -
-
-
-
- -
- - - -
- - -
- - - - - - -
- - -
- - - -
- -
- - - -
-
-
-
-
- - - - - - - - -
-
- Datos del Concepto - - - - - - - - - - - -
Tipo: - Codigo: -
-
-
- 		-
- Datos del Periodo - - - - - - - - - - - - - - -
-
-
-
-
- - -
- - - - - - - Nombre - - - - - - - - - Acumulado Actual - - - - - - - - - - Acumulado Anterior - - - - - - - - - - Acumulado Anual - - - - - - - - - - - - - - - - diff --git a/Nomina/RepConceptosAcumulados.aspx.vb b/Nomina/RepConceptosAcumulados.aspx.vb deleted file mode 100644 index 972345d63..000000000 --- a/Nomina/RepConceptosAcumulados.aspx.vb +++ /dev/null @@ -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