*** Assign the ReportName tcReport = "oeinvsum.rpt" LOCAL oConn LOCAL oCR AS CRAXDRT.Application LOCAL oRpt AS CRAXDRT.Report LOCAL ocParm AS CRAXDRT.ParameterFieldDefinitions LOCAL oParm AS CRAXDRT.ParameterFieldDefinition WITH This .WindowState = 2 oCR = CREATEOBJECT("CrystalRuntime.Application") oRpt = oCR.OpenReport(tcReport) * Get the Special Message Parameter ocParm = oRpt.ParameterFields() oParm = ocParm.Item(1) oParm.SetCurrentValue('SAP') oParm = ocParm.Item(2) oParm.SetCurrentValue('SAP') WITH thisform.oleCRViewer .EnableExportButton = .T. .EnableProgressControl = .T. .ReportSource = oRpt .EnableAnimationCtrl = .F. .ViewReport() ENDWITH .Visible = .T. ENDWITH
DO WHILE .T. ME.Work() ENDDO