Hi Telerik Team,
Please help!, I'm newbie in Open Edge ABL. I'm trying to call the report that has been created in a Standalone Designer but I was stack up in the connectionstring. Could someone help me on how to translate this Changing the connection string to ABL language? My codes below was derive from this https://knowledgebase.progress.com/articles/Article/000056268 which is the way of calling the crystal report.
My company is still using the Report Builder of Progress9.1E which so old. We have already buy license for OpenEdge 11.7.4 and our problem now is on how to move our a system reports in Telerik. We have just downloaded the trial version to test on how to create report in Telerik using ABL programming and once we make this work, we are going to buy our own license. Please help. We really want to move to OE11.7 completely once we make this works. Thanks.
USING PROGRESS.Lang.*.
USING Progress.Windows.Form.
USING Telerik.Reporting.*.
USING System.Xml.*.
USING UtilityMethods.ReportConnectionStringManager.
DEFINE VARIABLE FormObjectRef AS CLASS Progress.Windows.Form NO-UNDO.
DEFINE VARIABLE reportViewer1 AS Telerik.ReportViewer.WinForms.ReportViewer NO-UNDO.
DEFINE VARIABLE uriReportSource1 AS Telerik.Reporting.UriReportSource NO-UNDO.
DEFINE VARIABLE sourceReportSource AS Telerik.Reporting.UriReportSource NO-UNDO.
DEFINE VARIABLE reportSource AS Telerik.Reporting.ReportSource NO-UNDO.
DEFINE VARIABLE connectionString AS CHARACTER.
DEFINE VARIABLE connectionStringHandler AS ReportConnectionStringManager.
DEFINE VARIABLE username AS CHARACTER INIT "sysprogress" NO-UNDO.
DEFINE VARIABLE hostname AS CHARACTER INIT "localhost" NO-UNDO.
DEFINE VARIABLE port AS CHARACTER INIT "16231" NO-UNDO.
DEFINE VARIABLE db-name AS CHARACTER INIT "bpls" NO-UNDO.
DEFINE VARIABLE passwd AS CHARACTER INIT "sysprogress" NO-UNDO.
FormObjectRef = NEW Progress.Windows.Form().
uriReportSource1 = NEW Telerik.Reporting.UriReportSource().
reportViewer1 = NEW Telerik.ReportViewer.WinForms.ReportViewer().
connectionString = "DRIVER=~{Progress OpenEdge 11.7 Driver};uid=" + username + ";host=" + hostname + ";port=" + port + ";db=" + db-name + ";pwd=" + passwd.
connectionStringHandler = NEW ReportConnectionStringManager(connectionString).
sourceReportSource = NEW UriReportSource() .
sourceReportSource:Uri= "C:\eGaps\Butuan\Report\BusinessApplication.trdp".
reportSource = connectionStringHandler:UpdateReportSource(sourceReportSource).
reportViewer1:ReportSource = reportSource.
FormObjectRef:Controls:Add(reportViewer1).
FormObjectRef:Size = NEW System.Drawing.Size(1280, 768).
reportViewer1:CausesValidation = FALSE.
reportViewer1:Cursor = System.Windows.Forms.Cursors:Default.
reportViewer1:Dock = System.Windows.Forms.DockStyle:Fill.
reportViewer1:Location = NEW System.Drawing.Point(0, 0).
reportViewer1:Name = "reportViewer1".
uriReportSource1:Uri = "C:\eGaps\Butuan\Report\BusinessApplication.trdp".
reportViewer1:ReportSource = uriReportSource1.
reportViewer1:Size = NEW System.Drawing.Size(545, 442).
reportViewer1:TabIndex = 0.
reportViewer1:ReportSource = reportSource.
FormObjectRef:StartPosition = System.Windows.Forms.FormStartPosition:CenterScreen.
FormObjectRef:Text = "Telerik Print Preview".
WAIT-FOR FormObjectRef:ShowDialog().
/* crwReport:CLOSE(). */