Commit inicial Ventas Productivo

Bancos/ReportesOLD.aspx.vb

@@ -0,0 +1,148 @@
+
+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 = AppDomain.CurrentDomain.BaseDirectory & "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