nuevo reporte

2020-02-28 18:41:21 -07:00
parent 8253081b9c
commit dce00384d4
4 changed files with 443 additions and 0 deletions
--- a/Ventas/RepVentasMensuales.aspx.vb
+++ b/Ventas/RepVentasMensuales.aspx.vb
@@ -0,0 +1,88 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class RepVentasMensuales
+    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
+            InicializarFiltros()
+            CargaDatos()
+        End If
+    End Sub
+    Private Sub InicializarFiltros()
+        Dim dNow As Date = Now
+        TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
+        dNow = dNow.AddDays(-30)
+        TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacionesPS.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacionesPS.DataBind()
+        DdlClasificacionesPS.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
+                                            DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargaDatos()
+        UPDatos.Update()
+    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", DdlModalidad.SelectedValue))
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.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
+End Class