I'm running the script below to run the AP Check History Report via a BOI script. I have it working except for the date parameter. Since it is not one of the grid options, I'm not sure how to set the starting and ending date range. Does anyone happen to know how to accomplish this? My code is below. Thank you. 'set today's date YYYMMDD format for Sage 100 strDate = Year(now) & Right(100 + Month(now), 2) & Right(100 + Day(now), 2) retVal = oSS.nSetModule("A/P") retval = oSS.nSetDate("A/P", strDate) retval = oSS.nSetProgram(oSS.nLookupTask("AP_CheckHistoryReport_ui")) Set oRpt = oScript.NewObject("AP_CheckHistoryReport_rpt", oSS) retval = oRpt.nSelectReportSetting("Export") retVal = oRpt.nSetKeyValue("ModuleCode$", "A/P") sCompanyKey = oSS.sCompanyKey retVal = oRpt.nSetKeyValue("CompanyKey$", sCompanyKey) retVal = oRpt.nSetKeyValue("ReportID$", "AP_CheckHistoryReport_ui") retval = oRpt.nSetKeyValue("ReportSetting$", "Export") retval = oRpt.nSetKeyValue("RowKey$", "3") retval = oRpt.nSetKey() ' Set Selection criteria retval = oRpt.nSetValue("SelectField$", "Bank Code") retval = oRpt.nSetValue("SelectFieldValue$", "Bank Code") retval = oRpt.nSetValue("Tag$", "TABLE=AP_CHECKHISTORYHEADER; COLUMN=BANKCODE$") retval = oRpt.nSetValue("Operand$", "=") 'select the bank code retval = oRpt.nSetValue("Value1$", "B") retVAL = oRpt.nWrite() retVal = oRpt.nProcessReport("Export") If retVal = 0 Then WScript.echo oRpt.sLastErrorMsg oRpt.DropObject() End If
↧