SetParameters

Asigna una colección de parámetros de ejecución al registro de ejecución actual (asociación entre la prueba de auditoría y la tabla de IDEA).

Compatibilidad

Disponible a partir de la versión 12.0 de IDEA

Sintaxis

SetParameters(parameters As Array)

Parámetros

Observaciones

Si el registro de ejecución no está disponible, se produce una excepción.

Para obtener la colección de parámetros que se pasarán como el argumento del método, hay disponibles las siguientes opciones:

• Use la propiedad .Parameters del componente Accessor de prueba de auditoría. El registro de ejecución no es obligatorio. El valor de propiedad .Value de cada elemento está vacío y debe establecerse.
• Use la propiedad .Parameters del componente Accessor de prueba de auditoría. En este caso, el registro de ejecución es obligatorio. El valor de propiedad .Value de cada elemento contiene el valor actual del parámetro de ejecución.

Ejemplo

Sub Main()
	Dim SA
	Dim atExecutor
	Dim atAccessor
	Dim parameters
	Dim paramCheckBox1
	Dim paramSingleList1
	Set SA = CreateObject("SmartAnalyzer.AutomationClient")
	atId = "f4d65220-77f1-5969-8943-59c7bd448460"
	tblName = "Sample-Weblog"
	' --- Obtain logical parameters from AT Accessor and set values ---
	Set atAccessor = SA.GetAT(atId)
	Set parameters = atAccessor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	paramCheckBox1.Value = True
	listValues = Array("Potato","Tomato","Cucumber")
	paramSingleList1.Value = listValues
	' ----------------- Create exec record ---------------------
	Set Tagging = SA.GetTagging(tblName)
	Tagging.SetTag "Comment", "SITE"
	Tagging.Save True
	' ----------------- Assign parameters to exec record ---------------------
	Set atExecutor = atAccessor.GetAtExecutor(tblName)
	atExecutor.SetParameters(parameters)
	' --- Obtain physical parameters from AT Executor and display values ---
	Set parameters = atExecutor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	MsgBox"New value of chexbox1: " & paramCheckBox1.Value
	FOR EACH v IN paramSingleList1.Value
		MsgBox"Next new value of singleList1: '" + v + "'"
	NEXT
End Sub

Copiar ejemplo  

Cuando se ejecuta, este script produce la siguiente secuencia de salida:

Nuevo valor de checkbox1: True

Siguiente nuevo valor de singleList1: «Patata»

Siguiente nuevo valor de singleList1: «Tomate»

Siguiente nuevo valor de singleList1: 'Cucumber'