Exportar archivo en Crystal Reports

[lreyesg007]

Hola se que me van a mandar links relacionados con el tema pero ya los he visto y no esta lo que busco.

Bueno lo que pasa es que tiro un formulario y por pantalla sale ok...
pero al exportarlo a un archivo pdf me selecciona el primero que esta ingresado en la base de datos y no el que quiero.....

aca esta el codigo.... de antemano muchas gracias

' por pantalla funciona perfecto....
' me muestra el documento 556

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim rptExpensiveProducts As New ReportDocument
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo


Try
rptExpensiveProducts.Load("f:\Inetpub\wwwroot\WebC rystal\CrystalReport3.rpt")

For Each tbCurrent In rptExpensiveProducts.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = "compras"
.UserID = "compras"
.Password = "compras"
.DatabaseName = ""
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

CrViewer.SeparatePages = False
CrViewer.DisplayGroupTree = False
CrViewer.DisplayToolbar = False


CrViewer.ReportSource = rptExpensiveProducts
CrViewer.SelectionFormula = "{E_SOLICITUD.SC_IDENTIF}=556"


CrViewer.Zoom(2)
CrViewer.DataBind()

Catch Exp As LoadSaveReportException

Catch Exp As Exception

End Try
end sub


'pero al tirarlo a un archivo (pdf), me toma el primer registro ingresado en la base de datos
'como lo hago para que me exporte el documento que yo quiero


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim rptSolcompras As New ReportDocument
Dim odbConnection As New OleDb.OleDbConnection

Dim odbData As New Data.DataSet
Dim x As Integer
Dim comm As OleDb.OleDbCommand

rptSolcompras.Load("f:\Inetpub\wwwroot\WebCrystal\ CrystalReport3.rpt")

odbConnection = New OleDb.OleDbConnection("Provider=msdaora;User ID=compras;Data Source=test;Password=compras")

Dim Da_E_Solicitud As New OleDb.OleDbDataAdapter("SELECT * FROM E_SOLICITUD WHERE SC_IDENTIF=556", odbConnection)
Dim Da_D_Solicitud As New OleDb.OleDbDataAdapter("SELECT * FROM D_SOLICITUD WHERE SC_IDENTIF=556", odbConnection)
Dim xpv_rut As String

Dim ds As New DataSet
Dim dt As DataTable

Dim xCC_CODID As Integer
Dim xFN_CODID As Integer
Dim xMIT_CODIGO As Integer


Da_E_Solicitud.Fill(ds, "E_SOLICITUD")

xpv_rut = ds.Tables.Item(0).Rows(0).Item(9)
xCC_CODID = ds.Tables.Item(0).Rows(0).Item(3)
xFN_CODID = ds.Tables.Item(0).Rows(0).Item(4)
xMIT_CODIGO = ds.Tables.Item(0).Rows(0).Item(10)

Dim Da_M_PROVEEDOR As New OleDb.OleDbDataAdapter("SELECT * FROM M_PROVEEDOR WHERE trim(PV_RUT)='" & Trim(xpv_rut) & "'", odbConnection)
Dim Da_M_CENCOS As New OleDb.OleDbDataAdapter("SELECT * FROM M_CENCOS WHERE CC_ID=" & xCC_CODID, odbConnection)
Dim Da_M_FONDOS As New OleDb.OleDbDataAdapter("SELECT * FROM M_FONDOS WHERE MFN_CODIGO=" & xFN_CODID, odbConnection)
Dim Da_M_ITEM As New OleDb.OleDbDataAdapter("SELECT * FROM M_ITEM WHERE MIT_CODIGO=" & xMIT_CODIGO, odbConnection)


Da_D_Solicitud.Fill(ds, "D_SOLICITUD")
Da_M_PROVEEDOR.Fill(ds, "M_PROVEEDOR")
Da_M_CENCOS.Fill(ds, "M_CENCOS")
Da_M_FONDOS.Fill(ds, "M_FONDOS")
Da_M_FONDOS.Fill(ds, "M_ITEM")


rptSolcompras.Load("f:\Inetpub\wwwroot\WebCrystal\ CrystalReport3.rpt")

rptSolcompras.SetDataSource(ds)

Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo

For Each tbCurrent In rptSolcompras.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = "compras"
.UserID = "compras"
.Password = "compras"
.DatabaseName = ""
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

CrViewer.ReportSource = rptSolcompras

CrViewer.DataBind()

' exporto a un pdf

Dim exportO As ExportOptions
Dim req As ExportRequestContext
Dim st As System.IO.Stream
Dim b() As Byte
Dim pg As Page

pg = CrViewer.Page
exportO = New ExportOptions
exportO.ExportFormatType = ExportFormatType.PortableDocFormat
exportO.FormatOptions = New PdfRtfWordFormatOptions
req = New ExportRequestContext
req.ExportInfo = exportO
With rptSolcompras.FormatEngine.PrintOptions
.PaperSize = PaperSize.PaperLegal
.PaperOrientation = PaperOrientation.Portrait
End With
st = rptSolcompras.FormatEngine.ExportToStream(req)
pg.Response.ClearHeaders()
pg.Response.ClearContent()
pg.Response.ContentType = "application/pdf"
ReDim b(st.Length)
st.Read(b, 0, CInt(st.Length))
pg.Response.BinaryWrite(b)
pg.Response.End()
End Sub