75 lines
3.1 KiB
VB.net
75 lines
3.1 KiB
VB.net
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
|