Public Function GeneraPdfCliente(ByVal id As Integer, ByVal filename As String, ByVal dataset As String, ByVal report_name As String)

            Dim warn As Warning() = Nothing
            Dim streamids As String() = Nothing
            Dim mimetype As String = String.Empty
            Dim encoding As String = String.Empty
            Dim extension As String = String.Empty

            Dim viewer As New ReportViewer
            Dim datasourcereport As New ReportDataSource

            viewer.ProcessingMode = ProcessingMode.Local
            datasourcereport.Name = (dataset)
            datasourcereport.Value = BLL.GetDataForClientReport(id)
            viewer.LocalReport.ReportPath = report_name & ".rdlc" 
            viewer.LocalReport.DataSources.Add(datasourcereport)

            Dim bytes As Byte() = Nothing
            Try
                bytes = viewer.LocalReport.Render("WORD", Nothing, mimetype, encoding, extension, streamids, warn)
            Catch ex As Exception
                Throw New ArgumentException(ex.Message, ex)
                Return Nothing
            End Try

            HttpContext.Current.Response.Clear()
            HttpContext.Current.Response.ClearContent()
            HttpContext.Current.Response.ClearHeaders()

            HttpContext.Current.Response.ContentType = "application/ms-word"
            HttpContext.Current.Response.AddHeader("content-disposition", "attachment;filename=" & filename & ".doc")

            HttpContext.Current.Response.BinaryWrite(bytes)

            Return bytes

        End Function