dw动态获取和设置参数.docVIP

dw动态获取和设置参数 // 动态获取dw或ds的参数 // Definición: integer of_dwGetArguments(ref powerObject apo_aux, ref string as_argName[], ref string as_argDataTypes[], ref string as_argValues[]) string ls_dwargs, ls_dwargswithtype[], ls_args[], ls_types[] long ll_a, ll_args, ll_pos, ll_index n_cst_string luo_string // Comprobamos los argumentos. if IsNull(apo_aux) or not IsValid(apo_aux) then return -1 end if // Obtenemos el string con los argumentos del dw o ds. ls_dwargs = apo_aux.DYNAMIC Describe ( DataWindow.Table.Arguments ) // Separamos los argumentos utilizando la un array y obtenemos el número total. ll_args = luo_string.of_ParseToArray ( ls_dwargs, ~n, ls_dwargswithtype ) // Ahora separamos el nombre del argumento de su tipo y además obtenemos el valor. For ll_a = 1 to ll_args ll_pos = Pos ( ls_dwargswithtype[ll_a], ~t, 1 ) If ll_pos 0 Then ll_index = UpperBound(as_argnames) + 1 as_argNames[ll_index] = Left ( ls_dwargswithtype[ll_a], ll_pos - 1 ) as_argDataTypes[ll_index] = Mid ( ls_dwargswithtype[ll_a], ll_pos + 1 ) // Cargamos el valor correspondiente. Si es de tipo array ponemos cadena vacía. If right(as_argDataTypes[ll_index], 4) = list Then as_argValues[ll_index] = Else as_argValues[ll_index] = apo_aux.DYNAMIC Describe(evaluate( + as_argNames[UpperBound(as_argnames)] + ,1)) End If End If Next Return UpperBound ( as_argnames ) // 动态设置dw或ds的参数 of_dwSetArguments(Ref datastore ads_aux, string as_argNames[], string as_argDataTypes[], string as_argValues[]) string ls_object, ls_objects, ls_type, ls_expression string ls_value, ls_aux integer li_len, li_to, li_from, li_x, li_pos // Obtenemos la colección de objetos de ds. ls_objects = ads_aux.describe(datawindow.objects) // Recorremos los todos objetos. li_len = len(ls_objects) If li_len 0 Then // Inicializamos la variable necesaria desde la que buscamos el siguiente objeto. li_from = 1 // Recorre