Crystal Reports and CCS

** THIS IS THE CR RAS CODE **

using CrystalDecisions.ReportAppServer.ClientDoc;
using CrystalDecisions.ReportAppServer.Controllers;
using CrystalDecisions.ReportAppServer.DataDefModel;

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;

// for MD5 encoding
using System.Security.Cryptography;
using System.Text;

namespace CMSReporting
{
/// <summary>
/// Summary description for DoReport
/// </summary>
public class DoReport : System.Web.UI.Page
{

// Global Variables
ReportClientDocument rcDoc;
string sRequest;
string sKey;

protected CrystalDecisions.Web.CrystalReportViewer CrystalReportViewer1;

Boolean ValidRequest()
{
// get request and key from URL
sRequest = System.Web.HttpContext.Current.Request.QueryString["Request"];
sKey = System.Web.HttpContext.Current.Request.QueryString["Key"];

// encode request into key
string str;
string ts = DateTime.Now.ToShortDateString();
str = sRequest + ts;

// First we need to convert the string into bytes, which
// means using a text encoder.
Encoder enc = System.Text.Encoding.Unicode.GetEncoder();

// Create a buffer large enough to hold the string
byte[] unicodeText = new byte[str.Length * 2];
enc.GetBytes(str.ToCharArray(), 0, str.Length, unicodeText, 0, true);

// Now that we have a byte array we can ask the CSP to hash it
MD5 md5 = new MD5CryptoServiceProvider();
byte[] result = md5.ComputeHash(unicodeText);

// Build the final string by converting each byte
// into hex and appending it to a StringBuilder
StringBuilder sb = new StringBuilder();
for (int j=0; j<result.Length; j++) {
sb.Append(result[j].ToString("X2"));
}

// get result
string smyKey = sb.ToString();

return (sKey == smyKey);
}

void DisplayError ()
{
Response.Write ("Invalid report request or timeout, please retry.");
}

void CreateReport()
{

// create report client document
rcDoc = new ReportClientDocument();

// set location of RAS server
rcDoc.ReportAppServer = "localhost";

// decode request
// request -> target.crp, DB, P0, P1, P2, P3

// open a report
string Path = Request.ServerVariables["PATH_TRANSLATED"];
Path = Path.Substring(0, Path.LastIndexOf("\\"));
Path += "\\" + sRequest;
object objPath = Path;
rcDoc.Open(ref objPath, 0);

// set datasource location
ConnectionInfo myCI;
myCI = rcDoc.DatabaseController.GetConnectionInfos(null)[0].Clone(true);

myCI.UserName = "sa";
myCI.Password = "spudz!";

// get database connection attributes
PropertyBag myPB;
PropertyBag myLI;
myPB = myCI.Attributes;

myLI = (PropertyBag)myPB["QE_LogonProperties"];

// set server and database name
myLI["Data Source"] = "tal3.tal.nat";
myLI["Initial Catalog"] = "CMS_DEVL";

//update table
CrystalDecisions.ReportAppServer.DataDefModel.Table[] myTableOld;
CrystalDecisions.ReportAppServer.DataDefModel.Table[] myTableNew;
myTableOld = new CrystalDecisions.ReportAppServer.DataDefModel.Table[10];
myTableNew = new CrystalDecisions.ReportAppServer.DataDefModel.Table[10];

int i;
i = 0;
foreach (object o in rcDoc.Database.Tables) {
myTableOld = (CrystalDecisions.ReportAppServer.DataDefModel.Table) rcDoc.Database.Tables;
myTableNew = new CrystalDecisions.ReportAppServer.DataDefModel.Table();
myTableNew.Name = myTableOld.Name;
myTableNew.ConnectionInfo = myCI;
rcDoc.DatabaseController.SetTableLocation(myTableOld, myTableNew);
i++;
}
//possibly pass a parameter?
//PassParameter(0, "1");

// view the report
CrystalReportViewer1.ReportSource = rcDoc;
}

private void Page_Load(object sender, System.EventArgs e)
{
// Put user code to initialize the page here
}

void PassParameter(int param_index, string param_value)
{
ParameterFieldDiscreteValue crParameterValue; // discrete parameter value
ParameterField crParameterOld; // parameter field in the report
ParameterField crParameterNew; // parameter field that will replace old parameter

// create a discrete value
crParameterValue = new ParameterFieldDiscreteValue();

// set parameter value
crParameterValue.Value = param_value;

// get parameter in the report
crParameterOld = (ParameterField)rcDoc.DataDefinition.ParameterFields[param_index];

// create a new parameter field
crParameterNew = new ParameterField();

// copy properties of old parameter to new parameter
crParameterOld.CopyTo(crParameterNew, true);

// add discrete value to this new parameter field
crParameterNew.CurrentValues.Add(crParameterValue);

// modify parameter
rcDoc.DataDefController.ParameterFieldController.Modify(crParameterOld, crParameterNew);

// clean up
crParameterValue = null;
crParameterNew = null;
}

#region Web Form Designer generated code
override protected void OnInit(EventArgs e)
{
//
// CODEGEN: This call is required by the ASP.NET Web Form Designer.
//
InitializeComponent();
base.OnInit(e);

// Create Report
if (ValidRequest())
CreateReport();
else
DisplayError();
}

/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.Load += new System.EventHandler(this.Page_Load);

}
#endregion
}
}

Visual Web Reporting

Crystal Reports and CCS

Internet Database