109 lines
4.2 KiB
VB.net
109 lines
4.2 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports System.Data
|
|
|
|
Partial Class Ventas_RepArqueosDetalle
|
|
Inherits ClsPaginas
|
|
#Region "P R O P I E D A D E S"
|
|
Private Property DtVentas As DataTable
|
|
Get
|
|
Return DirectCast(ViewState("DtVentas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtVentas") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtCuentas As DataTable
|
|
Get
|
|
Return DirectCast(ViewState("DtCuentas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtCuentas") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
Dim CveSubProyecto As Integer = -1
|
|
Dim Fecha As DateTime = Now
|
|
If Request("CveSubProyecto") IsNot Nothing Then
|
|
CveSubProyecto = Request("CveSubProyecto").ToString().ToEntero()
|
|
End If
|
|
If Request("Fecha") IsNot Nothing Then
|
|
Fecha = Request("Fecha").ToString().ToDate()
|
|
End If
|
|
CargaDatos(Fecha, CveSubProyecto)
|
|
End If
|
|
End Sub
|
|
Private Sub CargaDatos(Fecha As DateTime, CveSubProyecto As Integer)
|
|
LtlTitulo.Text = String.Format("Reporte de Arqueos Detalle: Fecha {0:dd/MM/yyyy}", Fecha)
|
|
|
|
Dim ObjVentas As New ClsVentas()
|
|
If ObjVentas.GetRepArqueosDetalle(Fecha, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
|
DtVentas = ObjVentas.DataSetResultados.Tables(0).Copy()
|
|
DtCuentas = ObjVentas.DataSetResultados.Tables(1).Copy()
|
|
End If
|
|
ObjVentas.Dispose()
|
|
GvDatos.DataSource = DtVentas
|
|
GvCuentas.DataSource = DtCuentas
|
|
GvDatos.DataBind()
|
|
GvCuentas.DataBind()
|
|
|
|
UPDatos.Update()
|
|
End Sub
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("SerieFolio") = "Total" Then
|
|
e.Row.CssClass = "Totales"
|
|
End If
|
|
End If
|
|
End Sub
|
|
Protected Sub GvCuentas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCuentas.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("Folio") = "Total" Then
|
|
e.Row.CssClass = "Totales"
|
|
End If
|
|
End If
|
|
End Sub
|
|
Protected Sub GeneraPDF(Formato As String)
|
|
Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
|
|
Dim Imagen As System.IO.FileInfo = 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)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
|
|
|
|
params.Add(New ReportParameter("Encabezado", String.Format("Fecha:{0}", Request("Fecha").ToString().ToDate().ToString("dd/MM/yyyy"))))
|
|
|
|
|
|
Dim lrds As List(Of ReportDataSource) = New List(Of ReportDataSource)()
|
|
Dim rds As ReportDataSource = New ReportDataSource()
|
|
rds.Name = "DataSet1"
|
|
rds.Value = DtVentas
|
|
|
|
Dim rds2 As ReportDataSource = New ReportDataSource()
|
|
rds2.Name = "DataSet2"
|
|
rds2.Value = DtCuentas
|
|
|
|
lrds.Add(rds)
|
|
lrds.Add(rds2)
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepArqueosDetalle.rdlc", lrds, params, "Rep Arqueos Detalle", Formato)
|
|
End Sub
|
|
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
|
|
GeneraPDF("PDF")
|
|
End Sub
|
|
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs)
|
|
GeneraPDF("EXCEL")
|
|
End Sub
|
|
End Class
|