Batch Running reports and send email for attachment

if the customer have not buy [Business analysis]  License , then the standard reports will can't  using to running reports with Batch jobs function in Dynamics AX 2009.

 so, I have a good Idear. just that Using some of x++ code achieve to it.

 

Wrote by Jimmy xie on Feb 24th 2011

Main code below as:

1)Batch Running reports

void runReport(QVS_BatchManageReportLine  ReportLine)
{
    #WinAPI
    Args                args;
    SysReportRun        reportRun;
    Str 500             AttachmentPath;
    System.Exception    ex;
    reportname          reportname = ReportLine.ObjectName;
;
    if(ReportLine.ActivedCondition && ReportLine.Condition01 && (ReportLine.Condition01 != "1" || ReportLine.Condition01 != "0"))
        AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + "\\" +  reportName2Pname(reportname) +
                         ReportLine.Condition01 +  ReportLine.FileFormat;
    else
        AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + '\\' + reportName2Pname(reportname)  + ReportLine.FileFormat;//ReportLine.FileFormat - > ".PDF";

    if(WinAPI::fileExists(AttachmentPath))
        WinAPI::deleteFile(AttachmentPath);
    try
    {
        setprefix("Run report ... " + reportName2Pname(reportname));
        args = new Args();
        args.name(reportname);
        args.record(ReportLine);
        //reportRun = new ReportRun(args,'');

        reportRun = classFactory.reportRunClass(args);

        reportRun.setTarget(PrintMedium::File);
        reportRun.printJobSettings().preferredTarget(PrintMedium::File);
        //ReportLine.PrintFormat - > PrintFormat::PDF
        reportRun.printJobSettings().format(ReportLine.PrintFormat);
        reportRun.printJobSettings().preferredFileFormat(ReportLine.PrintFormat);
        reportRun.printJobSettings().fileName(AttachmentPath);
        reportRun.printJobSettings().warnIfFileExists(False);
        reportRun.printJobSettings().suppressScalingMessage(True);
        reportRun.query().interactive(false);
        reportRun.report().interactive(false);
        reportRun.run();
    }
    catch (Exception::CLRError)
    {
        ex = CLRInterop::getLastException();
        throw Error(strfmt('Running the report %1 generic %2!',reportname,ex.ToString()));
    }
    catch (Exception::CodeAccessSecurity)
    {
        info("Code Access Security Error");
        throw Error(strfmt('Running the report %1 generic CodeAccessSecurity!',reportname));
    }
    catch (Exception::Internal)  // This exception handler was the Magic Sauce!!
    {
        ex = CLRInterop::getLastException();
        if (ex)
            error(ex.ToString());
        else
            error("Internal Error");
    }
    catch (Exception::Error)
    {
        error("None of it worked (generic Exception)");
        throw Error(strfmt('Running the report %1 generic error!',reportname));
    }
}

2)Send email for attachment

void sendEmail(QVS_BatchManageReportHeader  Header)
{
    #WinAPI
    QVS_ProcessLongStr              _ProcessLongStr;
    SysMailer   mailer              = new SysMailer();
    SysEmailParameters parameters   = SysEmailParameters::find();
    QVS_BatchManageReportLine       ReportLine;

    List                            listTo,listCC;
    ListEnumerator                  leTo,leCC;
    Str 60                          CurMail;
    Str 150                         CurReceivedName;
    Name                            curUserName;
    str 500                         AttachmentPath;
    InteropPermission               interopPermission;
    System.Exception                ex;

;
    curUserName = (select firstonly UserInfo where UserInfo.id == curUserId()).Name;

    try
    {
        interopPermission = new InteropPermission(InteropKind::ComInterop);
        interopPermission.assert();

        if (parameters.SMTPRelayServerName)
            mailer.SMTPRelayServer(parameters.SMTPRelayServerName);
        else
            mailer.SMTPRelayServer(parameters.SMTPServerIPAddress);

        CurMail = parameters.SMTPUserName;
        if(!CurMail)
            CurMail = sysUserInfo::find(curUserId()).Email;
        if (!CurMail)
            CurMail = "dynax@qvsglobal.com.cn";
        if(CurMail)
            mailer.fromAddress(CurMail);

        //Attachment
        while select ReportLine where ReportLine.RelationId == Header.RelationId
            && ReportLine.ObjectName
        {
            if(strlrtrim(ReportLine.ObjectName))
            {
                if(ReportLine.ActivedCondition && ReportLine.Condition01 && (ReportLine.Condition01 != "1" || ReportLine.Condition01 != "0"))
                    AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + "\\" +  reportName2Pname(ReportLine.ObjectName) +
                                     ReportLine.Condition01 +  ReportLine.FileFormat;
                else
                    AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + '\\' + reportName2Pname(ReportLine.ObjectName)  + ReportLine.FileFormat;
                if(WinAPI::fileExists(AttachmentPath))
                    mailer.attachments().add(AttachmentPath);
            }
        }

        //Send to
        _ProcessLongStr = new QVS_ProcessLongStr();
        _ProcessLongStr.ProcessMulitList(Header.Sendto,";\n");
        listTo  = _ProcessLongStr.parmList();
        leTo    = listTo.getEnumerator();
        while(leTo.moveNext())
        {
            if(strlrtrim(leTo.current()))
            {
                mailer.tos().appendAddress(leTo.current());
                if(!CurReceivedName)
                    CurReceivedName =  subStr(leTo.current(),0,strScan(leTo.current(),'@',1,StrLen(leTo.current()))-2);
                else
                    CurReceivedName += ',' + subStr(leTo.current(),0,strScan(leTo.current(),'@',1,StrLen(leTo.current()))-2);
            }

        }

        //CC
        _ProcessLongStr = new QVS_ProcessLongStr();
        _ProcessLongStr.ProcessMulitList(Header.CCTo,";\n");
        listCC = _ProcessLongStr.parmList();
        leCC   = listCC.getEnumerator();

        while(leCC.moveNext())
        {
            if(strlrtrim(leCC.current()))
            {
                mailer.ccs().appendAddress(leCC.current());
                /*
                if(!CurReceivedName)
                    CurReceivedName =  subStr(leCC.current(),0,strScan(leCC.current(),'@',1,StrLen(leCC.current()))-1);
                else
                    CurReceivedName += ',' + subStr(leCC.current(),0,strScan(leCC.current(),'@',1,StrLen(leCC.current()))-1);
                */
            }
        }

        if(Header.SubJect)
            mailer.subject(Header.SubJect);
        else
            mailer.subject("Batch Job Run To Report");
        if(Header.Body)
            mailer.htmlBody(strfmt("<font size=2 face=Arial>%1</font>",Header.Body)
                           );

        else
            mailer.htmlBody('<B><font color= "#36648B">'+
                            'Hi ' + CurReceivedName + ',' +
                            '<br><p>    ' +
                            'This email and Attachment is an automatically  sent to you,</br>' +
                            '<br>    ' +
                            'It was send by the ERP system batch function generates report.</br>' +
                           // '<br>    ' +
                           // 'Please be informed that!'+
                           // '</br>
                            '</p></font></B>'+
                            '<font color = "blue">' +
                            'Best Regards,' +
                            '<br>' + curUserName +
                            '</br></font></br>');

        mailer.sendMail();
    }
    catch (Exception::CLRError)
    {
        ex = CLRInterop::getLastException();
        info(ex.ToString());
    }
    catch (Exception::CodeAccessSecurity)
    {
        info("Code Access Security Error");
    }
    catch (Exception::Internal)  // This exception handler was the Magic Sauce!!
    {
        ex = CLRInterop::getLastException();
        if (ex)
            info(ex.ToString());
        else
            info("Internal Error");
    }
    catch (Exception::Error)
    {
        info("None of it worked (generic Exception)");
        throw Error('Send the report Attachment Error!');
    }
}

3)store reports attachment.

void UpdateLogFile(QVS_BatchManageReportHeader  Header)
{
    BinData                     binData = new BinData();
    QVS_BatchJobRunToReportLog  Log;
    QVS_BatchManageReportLine   Line;
    filePath                    AttachmentPath;
    #WinAPI
;
    while select Line where Line.RelationId == Header.RelationId
        && Line.ObjectName != ""
    {
        Log.clear();
        if(Line.ActivedCondition && Line.Condition01 && (Line.Condition01 != "1" || Line.Condition01 != "0"))
            AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + "\\" +  reportName2Pname(Line.ObjectName) +
                             Line.Condition01 +  Line.FileFormat;
        else
            AttachmentPath = WinAPI::getFolderPath(#CSIDL_Personal) + '\\' + reportName2Pname(Line.ObjectName)  + Line.FileFormat;
        ttsbegin;
        Log = QVS_BatchJobRunToReportLog::find(Header.PrjId,Line.LineNum,true);
        if(Log && WinAPI::fileExists(AttachmentPath))
        {
            binData.loadFile(AttachmentPath);
            Log.file            = binData.getData();
            Log.PrintFormat     = Line.PrintFormat;
            Log.Fileformat      = Line.Fileformat;
            Log.FilePath        = AttachmentPath;
            Log.update();
        }
        ttscommit;
        sleep(5000);
        if(WinAPI::fileExists(AttachmentPath))
            WinAPI::deleteFile(AttachmentPath);
    }

}