I have a BOI script that monitors a directory for Concur export files running as a service. When a file is detecdted, the scipt creates an AP Manual Check Batch. The script works but I am having a problem doing the printing and register update. Here is snippet of my code that is executed after the last record of the file has been imported into the batch. Note the data is store in an array so the import file has already been closed. Also note that after the import, you can go into MAS and manually update the batch. The Log function writes the application event log based on a debug setting. ' Post Batch after last record If aDistLine(i, 1) = iRecordCount Then ' Close the Manual Check Object Log("Closing oMCObj", 1) If Not oMCObj Is Nothing Then oMCObj.DropObject() oMCObj = Nothing End If ' Print and post the batch Log("Creating NewObject AP_ManualCheckRegister_upd", 1) oMCRObj = oScript.NewObject("AP_ManualCheckRegister_upd", oSS) Log("NewObject AP_ManualCheckRegister_upd created", 1) If CBool(oMCRObj.nBatchEnabled) Then retVal = oMCRObj.nSelectBatch(sBatchNo) Log("nSelectBatch " + sBatchNo + " retVal: " + retVal.ToString(), 1) If retVal = 0 Then Log("Warning nSelectBatch Message: " + oMCRObj.sLastErrorMsg, 0) '=========================================================================== 'Returns: The status of one or more batches has changed. 'Verify the current status and try again. '=========================================================================== End If End If retVal = oMCRObj.nSetPostingDate(sPostingDate) Log("nSetPostingDate " + sPostingDate + " retVal: " + retVal.ToString(), 1) If retVal = 0 Then Log("Warning nSetPostingDate Message: " + oMCRObj.sLastErrorMsg, 0) End If retVal = oMCRObj.nProcessReport("PRINT") Log("nProcessReport retVal: " + retVal.ToString(), 1) If retVal = 0 Then Log("Warning nProcessReport Message: " + oMCRObj.sLastErrorMsg, 0) '=========================================================================== 'Returns: The Manual Check and Payment Data entry files are empty. 'NOTE: They are not empty, can be manually printed '=========================================================================== End If retVal = oMCRObj.nUpdate() Log("nUpdate retVal: " + retVal.ToString(), 1) If retVal = 0 Then Log("Warning nUpdate Message: " + oMCRObj.sLastErrorMsg, 0) '=========================================================================== 'Returns: You are not authorized to update the Manual Check and Payment Register. '=========================================================================== End If oMCRObj.DropObject() oMCRObj = Nothing End If
↧