SaveAs Method Of Workbook Class Failed Upon fIntersectionCheckEx

Question

We are in the process of migrating from FDM and HFM 9.3.1 to 11.1.2.1. Because of the performance issues that we previously experienced with FDM's MultiLoad functionality, we've been using UD5 and UD6 and an adapter customization to load Year and Period. To accommodate the "extra" dimensions, we're also using custom Event scripts, check reports, etc.. The built-in intersection check is disabled. The AftValidate script contains our custom intersection check and follows below. When the Validate phase is executed from the web client, the following error appears in the log:
** Begin fdmFM11XG5E Runtime Error Log Entry [2011-10-13-12:03:15] **
Error:
Code............1004
Description.....SaveAs method of Workbook class failed
Procedure.......clsHPDataAccess.fIntersectionCheckEx
Component.......C:\FDMData\fdm-hfm-adapter-V25481-01\FinancialDataManagement\FM11X-G5-E_1005\AdapterComponents\fdmFM11xG5E\fdmFM11XG5E.dll
Version.........145
Identification:
User............larryr
Computer Name...SVRHYPFDMV103
FINANCIAL MANAGEMENT Connection:
App Name........
Cluster Name....
Domain............
Connect Status.... Connection Open
** Begin FDM Runtime Error Log Entry [2011-10-13 12:03:15] **
ERROR:
Code............................................. -2146233088
Description...................................... SaveAs method of Workbook class failed
At Line: 59
Procedure........................................ clsEventHandler.PobjAPI_AftValidate
Component........................................ upsWObjEventHandlerDM
Version.......................................... 1112
Thread........................................... 4828
IDENTIFICATION:
User............................................. larryr
Computer Name.................................... SVRHYPFDMV103
App Name......................................... SAPHFM
Client App....................................... WebClient
CONNECTION:
Provider......................................... SQLOLEDB
Data Server...................................... svrsql105
Database Name.................................... SAPHFM
Trusted Connect.................................. False
Connect Status.. Connection Open
GLOBALS:
Location......................................... AHEL_F1
Location ID...................................... 752
Location Seg..................................... 6
Category......................................... FctAug
Category ID...................................... 16
Period........................................... M12 - FY12
Period ID........................................ 4/30/2012
POV Local........................................ False
Language......................................... 1033
User Level....................................... 1
All Partitions................................... True
Is Auditor....................................... False
** Begin FDM Runtime Error Log Entry [2011-10-13 12:03:15] **
ERROR:
Code............................................. 440
Description...................................... Automation error
Procedure........................................ clsValidationMgr.fValidate
Component........................................ upsWObjectsDM
Version.......................................... 1112
Thread........................................... 4828
IDENTIFICATION:
User............................................. larryr
Computer Name.................................... SVRHYPFDMV103
App Name......................................... SAPHFM
Client App....................................... WebClient
CONNECTION:
Provider......................................... SQLOLEDB
Data Server...................................... svrsql105
Database Name.................................... SAPHFM
Trusted Connect.................................. False
Connect Status.. Connection Open
GLOBALS:
Location......................................... AHEL_F1
Location ID...................................... 752
Location Seg..................................... 6
Category......................................... FctAug
Category ID...................................... 16
Period........................................... M12 - FY12
Period ID........................................ 4/30/2012
POV Local........................................ False
Language......................................... 1033
User Level....................................... 1
All Partitions................................... True
Is Auditor....................................... False
Custom intersection check via AftValidate. Line 59 is fIntersectionCheckEx:
Sub AftValidate(strLoc, strCat, strPer, lngProcState)
'UpStream TB EVENT Script
'Purpose:   Perform custom intersection check - customized for multiple periods
Dim strTableName, strSQL'               Query variables
Dim strPerYear, strPerMonth'          Target HFM Year & Month
Dim strCatKey, strLocKey'               ID of POV Category & Location
Dim strErr, strHTMFile'                    Error information
Dim objHWReturn'                         Return object for intersection validation
Dim objPeriod'                              Period object
Dim fso'                                   File system object
Dim rs'                                        Recordset containing unique HFM Target intersections
Dim vaData'                                   Array containing unique HFM Target intersections
' Initialize Block Processor For HFM connection
Dim BlOCKPROC
Set BlOCKPROC = CreateObject("upsWBlockProcessorDM.clsBlockProcessor")
BlOCKPROC.Initialize API, SCRIPTENG
' Call the Connect Action for the active integration block
Set API.IntBlockMgr.IntegrationMgr.PobjIntegrate = BlOCKPROC.ActConnect("CheckDims")
If API.IntBlockMgr.IntegrationMgr.PobjIntegrate.intResult Then' Connection is open
     'Get Target information
     strLocKey = CStr(RES.PlngLocKey)
     strPerKey = CStr(RES.PdtePerKey)
     strCatKey = CStr(RES.PlngCatKey)
     Set objPeriod = API.POVMgr.fPeriodKey(strPer)
     strPerYear = objPeriod.strTargetYear
     strPerMonth = objPeriod.strTarget
     Set objPeriod = Nothing
     strTableName = "tDataSeg" & API.POVMgr.fGetLocationSegment(strLocKey)' Get tDataSeg number for location
     strBaseName = strLoc & "_" & strCat & "_" & strPerMonth & "_" & strPerYear
     strLogsDir = DW.Connection.PstrDirOutbox & "\Logs\"
     strFile = strLogsDir & strBaseName & ".fmv"
     ' Create the SQL to pull the validation records
     ' Do not Validate the Keystone Custom2 records since their "parent" Classic Custom2 records are validated
     strSQL = "SELECT DISTINCT EntityX, PartitionKey, CatKey, PeriodKey, DataView, AccountX, ICPX, UD1X, UD2X, UD3X, UD4X," & _
                                     " '' AS UD5X, '' AS UD6X, '' AS UD7X, '' AS UD8X, '' AS UD9X, '' AS UD10X, '' AS UD11X," & _
                                   " '' AS UD12X, '' AS UD13X, '' AS UD14X, '' AS UD15X, '' AS UD16X, '' AS UD17X, '' AS UD18X," & _
                                   " '' AS UD19X, '' AS UD20X, '' AS Amt " & _
                "FROM " &strTableName& " WITH (NOLOCK) " & _
                "WHERE CatKey=" &strCatKey& " AND PeriodKey='" &strPerKey& "' AND PartitionKey=" &strLocKey
     'Validate all records in the result set
     Set rs = DW.DataAccess.farsFireHose(strSQL, False)
     With rs
          If Not .EOF Then' Create the array to pass to intersection checking
               vaData = .GetRows(.RecordCount)
               Set objHWReturn = API.IntBlockMgr.IntegrationMgr.PobjIntegrate.varCon.fIntersectionCheckEx(vaData, CStr(strCat), CStr(strPerMonth), CStr(strPerYear), "YTD", "<Entity Currency>", CStr(strFile), "FM Account", "FM Entity", "ICP", "Custom1", "Custom2", "Custom3", "Custom4", 15, 9, 2)
               If objHWReturn.PblnIsErr Then
                    RES.PstrActionValue = objHWReturn.PstrErrFile
                    RES.PlngActionType = 4' Display HTML file on web client
                    API.MaintenanceMgr.mProcessLog strLoc, strCat, strPer, 2, False, "Custom Intersection Validation Error:  Error creating validation array", Now()
               Else' Delete the html header file for the error free validation
                    strHTMFile = strLogsDir & strBaseName & ".htm"
                    Set fso = CreateObject("Scripting.FileSystemObject")
                    If fso.FileExists(strHTMFile) Then fso.DeleteFile strHTMFile, True
                    Set fso = Nothing
               End If
               Set objHWReturn = Nothing
          Else
               strErr = "AftValidate Event Script error:  No data for intersection check" & vbCrLf
               RES.PstrActionValue = strErr & "You must re-run the Import before running the Validate again"
               RES.PlngActionType = 2' Display the error string
          End If
          .Close
     End With
     Set rs = Nothing
End If
'Destroy the remaining objects
Set API.IntBlockMgr.IntegrationMgr.PobjIntegrate = Nothing
Set BlOCKPROC = Nothing
End Sub

Answer 1

Thanks, Tony. I no longer get the "SaveAs method of Workbook class failed" error. Now, when there are intersection check errors, instead of the intersection check report automatically opening in a new tab, I get a "File Download" message box with Open and Save buttons. If I choose Open, I get the "404 - File or directory not found" error. If I choose Save and save the file to a local path, I never get the option to open the file and the "Processing. Please wait..." message runs forever.
Per the FDM ReadMe, I've installed MSXML 3.0 SP7 on both the FDM server and client machines. I've set security to the lowest setting in IE 7.