AX与CrystalReport接口

void ViewCrystalReport()
{
Com comapp;
Com reporting;
str paramwhole;
str paramfilename;
str paramCond;
str ViewYesNo;
int ret;
COMVariant variant;

;

variant = new COMvariant(COMVariantInOut::OUT,COMVariantType::VT_BOOL) ;
paramwhole = this.args().parm();
comapp = new COM("CrystalRuntime.Application.11");

ret = strfind(paramwhole,"|",2,strlen(paramwhole));

paramfilename = substr(paramwhole,2,ret-2) ;
ViewYesNo = substr(paramwhole,1,1);
reporting = comapp.openreport(paramfilename);
reporting.discardsaveddata();
reporting.readrecords();

paramcond = substr(paramwhole,ret+1,strlen(paramwhole));

reporting.RecordSelectionFormula(paramCond);

if(ViewYesNo == ‘N‘)
{
variant.boolean(false);
reporting.PrintOut(variant);
}
else
{
ActiveX.ReportSource(reporting);
ActiveX.width(1200);
ActiveX.height(750);
ActiveX.DisplayToolbar(true);
ActiveX.DisplayGroupTree(false);
ActiveX.Refresh();
ActiveX.ViewReport();
ActiveX.Refresh();
}

}