Commit inicial Ventas Productivo

AC/RepEstadoAnaliticoActivo.aspx.vb

@@ -0,0 +1,125 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AC_RepEstadoAnaliticoActivo
+    Inherits ClsPaginas
+
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            Dim FechaI = DateSerial(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1)
+            Dim FechaF = LastDayOfMonth(FechaI)
+            CargaDatos(FechaI, FechaF)
+            CargaDatosEjercicio()
+        End If
+    End Sub
+
+    Private Sub CargaDatos(FechaI As Date, FechaF As Date)
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.GetEstadoAnaliticoActivo(FechaI, FechaF) Then
+            DtDatos = ObjConta.DtResultados
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Estado Analítico del Activo", TipoMensaje.MsgError)
+        End If
+
+
+        ObjConta.Dispose()
+
+        CargaGrid()
+    End Sub
+
+    Private Sub CargaDatosEjercicio()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        If ObjConta.GetEjercicios() Then
+            DdlEjercicio.DataSource = ObjConta.DtResultados
+        Else
+            DdlEjercicio.DataSource = Nothing
+        End If
+
+        ObjConta.Dispose()
+        DdlEjercicio.DataBind()
+    End Sub
+
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        Dim FechaI = DateSerial(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1)
+        Dim FechaF = LastDayOfMonth(FechaI)
+        CargaDatos(FechaI, FechaF)
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("SaldoFinal").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoFinal").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Variacion").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbVariacion").ForeColor = Drawing.Color.Red
+            End If
+        End If
+    End Sub
+
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
+        ImprimirReporte() 'Descarga reporte en PDF        
+    End Sub
+
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        'GvDatos.ExportToExcel("Estado analitico" & Now.ToShortDateString)
+        ImprimirReporte("Excel") 'Descarga reporte en Excel
+    End Sub
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        'ubicacion del rdlc
+        Dim reportpath As String = "AC/Reportes/RepEstadoAnaliticoActivo.rdlc"
+
+        Dim fileName As String = "EdoAnaliticoActivo"
+        'parametros a enviar al reporte                     
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        params.Add(New ReportParameter("pFechaIni", DdlEjercicio.SelectedItem.ToString))
+        params.Add(New ReportParameter("pFechaFin", DdlPeriodo.SelectedItem.ToString))
+        params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf)))
+        params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+        'MasterReporteador.Visible = True 
+    End Sub
+
+End Class