Code
There are two custom functions used with the reports.
GetRecipeName
parses out and returns the Recipe name from the file path, and GetBatchListingURL
returns the address of the Batch Listing report.GetRecipeName
Public Function GetRecipeName(sPath as String) as String
Dim PathArray() as string
Dim sRecipeName as String
PathArray=Split(sPath, "\",-1,0)
sRecipeName = Left( PathArray(Ubound(PathArray)), len( PathArray(Ubound(PathArray))) - 4)
Return sRecipeName
End Function
GetBatchListingURL
Public Function GetBatchListingURL(sURL as String) as String
Dim sReturn as String
sURL= Replace(sURL, "http://","")
sReturn = "http://" & Left(sURL, InStr(sURL, "/") ) &
"Reports/Pages/Report.aspx?ItemPath=%2fBatch+Reports%2fBatch+Listing"
Return sReturn
End Function
Provide Feedback