Crystal Report in AX

最新推荐文章于 2021-12-18 14:48:30 发布

转载最新推荐文章于 2021-12-18 14:48:30 发布 · 59 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lingdanglfw/archive/2008/09/23/1296827.html

本文介绍如何使用 Crystal Runtime 应用程序接口打开并显示 Crystal Report 报表文件。通过 COM 对象创建应用程序实例，并打开指定路径的报表，支持预览及打印功能。

    COM com = new COM("CrystalRuntime.Application");
    COM report = new COM("CrystalRuntime.Report");
    str pathfile = "F:\\CrystalReport1.rpt";
    ;

    report = com.OpenReport(pathfile, 1);
    CrystalReport.ReportSource(report);
    CrystalReport.ViewReport();

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();
    }

}

转载于:https://www.cnblogs.com/lingdanglfw/archive/2008/09/23/1296827.html