149 lines
5.0 KiB
VB.net
149 lines
5.0 KiB
VB.net
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.IO
|
|
Imports iTextSharp.text
|
|
Imports iTextSharp.text.html.simpleparser
|
|
Imports iTextSharp.text.pdf
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class Bancos_Reportes
|
|
Inherits ClsPaginas
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
'CType(Me.Master, BaseMasterPage).EsPopup = True
|
|
If Not Page.IsPostBack Then
|
|
|
|
If Request("Opcion") IsNot Nothing Then
|
|
|
|
Select Case Request("Opcion")
|
|
Case "ImprimeMov"
|
|
If Request("CveIE") IsNot Nothing AndAlso Request("CveIE").ToString.ToEntero > 0 Then
|
|
ImprimeMov(Request("CveIE").ToEntero)
|
|
End If
|
|
|
|
|
|
End Select
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub ImprimeMov(CveIE As Integer)
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
|
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dtMovs As DataTable
|
|
'obtengo los movimientos pagados
|
|
|
|
Dim Mov As New ClsContabilidad
|
|
|
|
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
|
|
|
|
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)")
|
|
|
|
'TblBancos.ExportToPDF("Listado")
|
|
Dim dtnc As New DataTable
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
|
dtnc = ObjCompra.DtResultados
|
|
End If
|
|
ObjCompra.Dispose()
|
|
|
|
'cargo el reporte con los datos
|
|
|
|
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
|
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
|
rv.LocalReport.DataSources.Clear()
|
|
rv.LocalReport.DataSources.Add(rds)
|
|
rv.LocalReport.DataSources.Add(rds2)
|
|
rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
|
|
rv.LocalReport.Refresh()
|
|
|
|
Dim paramList As New List(Of ReportParameter)
|
|
With paramList
|
|
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
|
|
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToShortDateString, True))
|
|
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
|
|
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
|
|
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
|
|
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
|
|
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
|
|
End With
|
|
|
|
rv.LocalReport.SetParameters(paramList)
|
|
rv.LocalReport.Refresh()
|
|
|
|
|
|
End If
|
|
|
|
Mov.Dispose()
|
|
GeneraPDF(String.Format("IE{0}", CveIE))
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
ObjIE.Dispose()
|
|
|
|
|
|
|
|
End Sub
|
|
Public Sub GeneraPDF(Optional Nombre As String = "Reporte")
|
|
|
|
Dim warnings As Warning() = Nothing
|
|
Dim streamids As String() = Nothing
|
|
Dim mimeType As String = Nothing
|
|
Dim encoding As String = Nothing
|
|
Dim extension As String = Nothing
|
|
Dim fileName As String = Nombre
|
|
Dim bytes As Byte()
|
|
Try
|
|
bytes = Me.rv.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
|
|
|
|
Response.Buffer = True
|
|
Response.Clear()
|
|
Response.ContentType = mimeType
|
|
Response.AddHeader("content-disposition", String.Format("attachment; filename={0}.{1}", fileName, extension))
|
|
Response.BinaryWrite(bytes) ' create the file
|
|
Response.Flush() ' send it to the client to download
|
|
Response.End()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
|
|
'Dim bytes() As Byte
|
|
'Dim strDeviceInfo As String = ""
|
|
'Dim strMimeType As String = ""
|
|
'Dim strEncoding As String = ""
|
|
'Dim strExtension As String = ""
|
|
'Dim strStreams() As String
|
|
'Dim warnings() As Warning
|
|
'Dim oFileStream As FileStream
|
|
'_stream = New List(Of Stream)
|
|
'Try
|
|
' bytes = rptViewer1.LocalReport.Render(strFormat, strDeviceInfo, strMimeType, strEncoding, strExtension, strStreams, warnings)
|
|
|
|
' oFileStream = New FileStream(strNomFichier, FileMode.Create)
|
|
' oFileStream.Write(bytes, 0, bytes.Length)
|
|
' _stream.Add(oFileStream)
|
|
'Finally
|
|
' If Not IsNothing(oFileStream) Then
|
|
' oFileStream.Close()
|
|
' oFileStream.Dispose()
|
|
' End If
|
|
'End Try
|
|
End Sub
|
|
|
|
|
|
End Class
|