on 08-29-2008 10:16 AM
Hi All,
I have Created a Crystal Report.This is my Code :
Private Sub LoadReport()
Try
FetchData()
FrmCrReportViewer = New FrmCrReportViewer
FrmCrReportViewer.FViewer.DisplayToolbar = True
InsParamRpt = New InspectionParameterRpt
InsParamRpt.SetDataSource(oDs)
InsParamRpt.DataDefinition.FormulaFields("Headings").Text = Chr(34) + "Inspection Parameter Report" + Chr(34)
FrmCrReportViewer.FViewer.ReportSource = InsParamRpt
FrmCrReportViewer.FViewer.EnableDrillDown = False
FrmCrReportViewer.Show()
FrmCrReportViewer.Refresh()
Catch ex As Exception
Throw ex
End Try
End Sub
I doesn't get any error. the problem is when i use Show dialog the report is generating but i doesn't access other sap forms before closing the report window.When i us Show() method the report content is not displaying.even i refresh it,it doesn't show anything.I can't close the report itself.
please help me to solve the problem.
Regards
Mohana
I have solved this issue as Gieussipi suggested way.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi,
Set
FrmCrReportViewer.ShowonTop = false
hope somethig like that..
May it will work
regards:
SANDY
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi,
Can someOne help me to solve this issue.It is very helpful for me.
Thanx in advance,
Mohana
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi Giuseppe ,
Eventhough i create a thread,iam getting the report viewer.But it didn't display the report.How to solve the issue.The following is my code.
In my addon,in the print button click i wrote as,
Private TestForm As TestForm
Private oThread As Threading.Thread
Private Sub InspectionParameterClass_PrintMenuClick(ByVal MenuID As String, ByVal FormID As String) Handles Me.PrintMenuClick
Try
If FormID = StrCurFormID Then
TestForm = New TestForm()
oThread = New Threading.Thread(AddressOf TestForm.StartThread)
oThread.Start()
End If
Catch ex As Exception
SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, True)
End Try
End Sub
Then i created a test form,i created a sub procedure as ,
Public Sub StartThread()
Try
Dim run As Boolean
run = True
Me.Show()
While (run)
Application.DoEvents()
Threading.Thread.Sleep(1)
End While
Catch ex As Exception
Throw ex
End Try
End Sub
In the form load of test form,i wrote :
Private Sub TestForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim FrmViewer As New FrmCrReportViewer
FrmViewer.ShowDialog()
End Sub
In the FrmCrReportViewer FormLoad,I wrote as
Private Sub FrmCrReportViewer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim InspectionParameterRptClass As InspectionParameterRptClass
InspectionParameterRptClass = New InspectionParameterRptClass
FViewer.Zoom(1)
FViewer.ResumeLayout(True)
Me.WindowState = FormWindowState.Maximized
End Sub
Then i have created a InspectionParameterRptClass class for generating the report.the following is my report generation code :
Public Class InspectionParameterRptClass
Inherits B1Global
Private oDs As InspectionParameterRptDataSet
Private FrmCrReportViewer As FrmCrReportViewer
Private InsParamRpt As InspectionParameterRpt
Public Sub New()
MyBase.New()
LoadReport()
End Sub
Private Sub LoadReport()
Try
FetchData()
FrmCrReportViewer = New FrmCrReportViewer
FrmCrReportViewer.FViewer.DisplayToolbar = True
InsParamRpt = New InspectionParameterRpt
InsParamRpt.SetDataSource(oDs)
InsParamRpt.DataDefinition.FormulaFields("Headings").Text = Chr(34) + "Inspection Parameter Report" + Chr(34)
FrmCrReportViewer.FViewer.ReportSource = InsParamRpt
FrmCrReportViewer.FViewer.EnableDrillDown = False
FrmCrReportViewer.FViewer.Visible = True
FrmCrReportViewer.FViewer.Show()
FrmCrReportViewer.FViewer.RefreshReport()
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub FetchData()
Dim SqlStr As String
Dim TempTable As DataTable
Try
oDs = New InspectionParameterRptDataSet()
SqlStr = "sp_InsRpt"
TempTable = New DataTable("sp_InsRpt")
TempTable = FillReportData(oDs.Tables("sp_InsRpt"), SqlStr)
Catch ex As Exception
Throw ex
End Try
End Sub
End Class
Please help me to solve the issue.
Regards
Mohana
User | Count |
---|---|
91 | |
11 | |
10 | |
6 | |
5 | |
5 | |
5 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.