Commit inicial Ventas Productivo

Nomina/RepConceptosAcumulados.aspx.vb

@@ -0,0 +1,133 @@
+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