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