Get4App
Gets extended parameters specified by name for the currently active app workflow (in whose context an audit test / Standard Import Routine is executed).
Compatibility
Available as of IDEA version 10.0
Syntax
Get4App(paramName As String, [optional] recursive As Boolean, [optional] location As Integer) As String
Parameters
paramName
Extended parameter name
paramValue
[optional] recursive search flag. If set to true, the parameter search is continued at higher levels (folder, workflow, company), in case the parameter cannot be found at audit folder level.
location
[optional] Place where the databases are located(desktop or server).
UseContext = 0 represents the current behavior.
Desktop = 1 stores always on desktop (ignored on server).
Server = 2 stores data always on the server.
Remarks
The parameter value is returned as a string. If the parameter cannot be found, an empty string is returned.
- Numerical values are returned according to the current globalization settings.
- Date values are returned as "YYYY-MM-DDThh:mm:ss". Example: "2008-06-15T21:15:07".
- Period values are returned as "Date-Date". Example: "2008-06-15T21:15:07-""2008-07-15T21:15:07"
Return Value
Returns the parameter value as a string. If the parameter cannot be found, an empty string is returned.
Example
Sub Main()
Dim mc As Object
Dim sc As Object
Dim parameterizer As Object
Dim date As Date
Dim value As String
Date = DateSerial(2000, 1, 1)
Set mc = SmartContext.MacroCommands
Set sc = mc.SimpleCommands
Set parameterizer = mc.GlobalParameters
'Setting values for a file
parameterizer.Set4File SmartContext.PrimaryInputFile "IntVal", 20
parameterizer.Set4File SmartContext.PrimaryInputFile "DateTimeVal", date
' Setting values for audit folder
parameterizer.Set4AuditFolder "2015_0603", "IntVal", 100
parameterizer.Set4AuditFolder "2014_0603", "StringVal", "Some String"
' Setting values for current project
parameterizer.Set4Project "IntVal", 200
parameterizer.Set4Project "DateTimeVal", Date
' Setting values for machine/company
parameterizer.Set4Machine "FloatVal", 456.78
' Getting integer value for audit folder. Expected value is "100"
Set value = parameterizer.Get4AuditFolder("2015_0603", "IntVal")
' Getting String value for audit folder. Expected value is "Some String"
Set value = parameterizer.Get4AuditFolder("2015_0603", "StringVal")
' Getting Date value for audit folder non-recursively. Expected value is ""
Set value = parameterizer.Get4AuditFolder("2015_0603", "DateTimeVal")
' Getting Date value for audit folder recursively.
' Expected value is "2000-01-01T00:00:00"
Set value = parameterizer.Get4AuditFolder("2015_0603", "DateTimeVal", True)
' Getting integer value for project. Expected value is "200"
Set value = parameterizer.Get4Project("IntVal")
' Getting Date value for project. Expected value is "2000-01-01T00:00:00"
Set value = parameterizer.Get4Project "DateTimeVal")
' Getting float value for project non-recursively. Expected value is ""
Set value = parmeterizer.Get4Project("FloatVal")
' Getting float value for project recursively. Expected value is "456,78"
Set value = parmeterizer.Get4Project("FloatVal", True)
' Getting float value for machine/company. Expected value is "456,78"
Set value = parameterizer.Get4Machine("FloatVal")
End Sub