Agregando reporte de detalle de ventas mensuales

2020-02-29 13:51:35 -07:00
parent 17eae8bc5a
commit 73d110410e
6 changed files with 284 additions and 116 deletions
--- a/Ventas/RepVentasMensualesDetalle.aspx.vb
+++ b/Ventas/RepVentasMensualesDetalle.aspx.vb
@@ -0,0 +1,74 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class RepVentasMensualesDetalle
+    Inherits ClsPaginas
+
+    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
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        'URL DE PRUEBA
+        '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
+        Dim FechaInicio As Date = Request.QueryString("FechaInicio")
+        Dim FechaFin As Date = Request.QueryString("FechaFin")
+        Dim CveCliente As Integer = Request.QueryString("CveCliente")
+        Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
+        Dim CveMarca As Integer = Request.QueryString("CveMarca")
+        Dim CveVendedor As Integer = Request.QueryString("CveVendedor")
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
+
+    Public Sub LnkPDF_Click() Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("Modalidad", 2))
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
+    End Sub
+
+    Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
+    End Sub
+
+    Public Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("Etiqueta") = "Padre" Then
+                e.Row.CssClass = "Totales"
+            ElseIf e.Row.DataKey("Etiqueta") = "SubPadre" Then
+                e.Row.CssClass = "SubTotales"
+            End If
+        End If
+    End Sub
+End Class