Copiar "Retrieval Arguments" entre dw/ds

Si has intentando traspasar la información de un dw/ds y existían campos computados u otros elementos que hiciesen referencia a los "Retrieval Argument" (sin considerar la SQL), habrás podido observar que dicha información no se procesa de modo correcto, si son computados no aparecen y si por ejemplo un grupo se basaba en ellos tampoco aparecía el grupo.

Este problema no sucede solo al hacer copia de datos entre los dw/ds, también sucede con en método ShareData.

Hasta aquí podríamos pensar que habría que buscar mediante "describe" o "modify" las opciones necesarias para conseguir nuestros objetivos, traspasar la información de los "Retrieval Arguments", pues bien, casi, casi... resulta que podemos obtener los "Retrieval Arguments", pero no existe medio material de asignarlos a un dw o ds sin tener que recurrir al método retrieve, y en algunos casos esta operación puede ser pesada y costosa, y necesitaremos evitarla a toda costa, bueno, pues como siempre depende del objetivo final, en mi caso necesitaba conseguir que los computados funcionasen y que los grupos también lo hiciesen, así que si no tenía opción de asignar la información directamente al control, lo que hice fue modificar dinámicamente los controles afectados.

Por un lado tiré en parte con código de las PFCs pare recuperar los "Retrieval Arguments", ampliando la función para poder obtener además el valor asociado, y por otro lado, preparé una función que permitía modificar los controles que contenían información asociada a los argumentos.

Aquí os muestro una función que usaremos en nuestro código y esta sacada de las PFCs.

// Definición: integer of_parseToArray(string as_source, string as_delimiter, ref string as_array[]) long ll_DelLen, ll_Pos, ll_Count, ll_Start, ll_Length, ll_null string ls_holder // Comprobación de nulos. IF IsNull(as_source) or IsNull(as_delimiter) Then SetNull(ll_null) Return ll_null End If // Comprobamos que exista algún texto. If Trim (as_source) = '' Then Return 0 End If // Obtenemos el tamaño del delimitador. ll_DelLen = Len(as_Delimiter) // Obtenemos la posición de la primera ocurrencia dentro del origen. ll_Pos = Pos(Upper(as_source), Upper(as_Delimiter)) // Solo si existe una entrada. If ll_Pos = 0 Then as_Array[1] = as_source Return 1 End If // Si hay más de una entrada entramos en un bucle para recoger y asignar // al array cada una de ellas. ll_Count = 0 ll_Start = 1 Do While ll_Pos > 0 // Establecemos la entrada actual. ll_Length = ll_Pos - ll_Start ls_holder = Mid(as_source, ll_start, ll_length) // Actualizamos la entrada actual y el contador. ll_Count ++ as_Array[ll_Count] = ls_holder // Establecemos la nueva posición de inicio. ll_Start = ll_Pos + ll_DelLen // Obtenemos la siguiente posición de la siguiente ocurrencia. ll_Pos = Pos(Upper(as_source), Upper(as_Delimiter), ll_Start) Loop // Establecemos la última entrada. ls_holder = Mid(as_source, ll_start, Len(as_source)) // Actualizamos el array y el contador si es necesario. If Len(ls_holder) > 0 Then ll_count++ as_Array[ll_Count] = ls_holder End If // Devolvemos el número de entradas encontradas. Return ll_Count

Ahora que ya tenemos esta función que nos facilitará la vida para este y otros códigos, vamos a recoger el dw/ds los argumentos ("Retrieval Arguments") que queremos traspasar.

Fijaros como detalle en la definición de esta función que en lugar de usar como tipo de argumento dw o ds e utilizado uno de tipo powerobject para que la misma función sirva para ambos casos y después, como consecuencia lógica, tengo que hacer las llamadas de modo dinámico:

// 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 )

Otra apreciación sobre la última función descrita es que solo se puede implementar sobre "Retrieval Arguments" que no sean de tipo array, pero esto no un impedimento para nuestros objetivos, ya que estos solo se puede usar en la sentencia SQL y nosotros los datos los traspasaremos con el método ShareData.

Ahora nos queda la parte en la que ponemos los "Retrieval Arguments" en el datawindow o datastore destino. Nota: en mi caso se trataba de imprimir un ds que podría proceder de un dw u otro ds, por eso el argumento utilizado es de este tipo, pero si queréis utilizarlo para ds o dw podéis aplicar el truco comentado de la función anterior.

// Definición: 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 // Recorremos todos los objetos. Do li_to = pos(ls_objects, "~t", li_from) // Obtenemos el nombre del objeto. If li_to = 0 Then ls_object = mid(ls_objects, li_from) Else ls_object = mid(ls_objects, li_from, li_to - li_from) End If If len(ls_object) > 0 Then // Obtenemos el tipo del objeto. ls_type = ads_aux.describe(ls_object + '.type') // Solo si es computado comprobamos si su expresión contiene "retrieval arguments". If ls_type = "compute" Then ls_expression = ads_aux.describe(ls_object + '.expression') // Para cada objeto miramos todos los "retrieval arguments". For li_x = 1 To upperBound(as_argNames) // Solo tratamos argumentos que no sean array. If right(as_argDataTypes[li_x], 4) = 'list' Then Continue Else li_pos = pos(ls_expression, as_argNames[li_x]) Do While li_pos > 0 // Comprobamos que no sea otro identificador distinto, para lo que // el carácter que lo precede y el que le sigue debe ser distinto // de letra o número. (si buscamos 'numeropi' que no tome 'numeropista') If ((li_pos = 1) Or match(mid(ls_expression, li_pos -1, 1), '[^A-Z^a-z^0-9]')) And & ((li_pos + len(as_argNames[li_x]) - 1 = len(ls_expression)) Or match(mid(ls_expression, li_pos + len(as_argNames[li_x]), 1), '[^A-Z^a-z^0-9]')) Then ls_value = as_argValues[li_x] // Obtenemos la nueva expresión para el computado en base al tipo de dato. Choose Case as_argDataTypes[li_x] Case 'number' ls_aux = ls_value Case 'string' ls_aux = "'" + ls_value + "'" Case 'date' ls_aux = "date('" + ls_value + "')" Case 'time' ls_aux = "time('" + ls_value + "')" Case 'datetime' ls_aux = "datetime(date(left('" + ls_value + "', 10)), time(mid('" + ls_value + "', 12, 8)))" Case Else // En un computado no podría aparecer otro tipo. End Choose ls_expression = replace(ls_expression, li_pos, len(as_argNames[li_x]), ls_aux) End If // Buscamos si la misma ocurrencia aparece otra vez. li_pos = pos(ls_expression, as_argNames[li_x]) Loop End If Next // Si se modifico la expresión para el compute la sustituimos con la nueva. If ls_expression <> ads_aux.describe(ls_object + '.expression') Then // Antes de hacer el modify, hay que añadir delante de las comillas dobles la virgulilla. li_pos = pos(ls_expression, '"') do while li_pos > 0 ls_expression = replace(ls_expression, li_pos, 0, "~~") li_pos = pos(ls_expression, '"', li_pos + 2) Loop ls_aux = ads_aux.Modify(ls_object + ".expression=~"" + ls_expression + "~"") End If End If End If li_from = li_to + 1 Loop While (li_to > 0) End If

Ya solo queda ver un ejemplo en el que se vea claramente como utilizar las funciones descritas hasta el momento. Ya comente que en mi caso utilizo este tinglado para añadir dinámicamente una cabecera standard a todos mis dw o ds en el momento de imprimirlos, para lo cual utilizo una función:

// Definición: of_printwithheader(ref datawindow adw_aux, string as_application, string as_title, string as_footer) string ls_syntax, ls_err, ls_argNames[], ls_argDataTypes[], ls_argValues[] integer li_r datastore lds_aux // Obtenemos la syntax del dw original. ls_syntax = adw_aux.Describe("datawindow.syntax") // Creamos el datastore para realizar los cambios sobre él y no sobre el dw original. lds_aux = CREATE datastore lds_aux.Create(ls_syntax, ls_err) // Modificamos los campos calculados si se basan en los argumentos. This.of_dwGetArguments(adw_aux, ls_argNames, ls_argDataTypes, ls_argValues) This.of_dwSetArguments(lds_aux, ls_argNames, ls_argDataTypes, ls_argValues) // Compartimos los datos del dw original con el ds. adw_aux.shareData(lds_aux) // Montamos los encabezados en el ds (NO DESCRITO EN ESTE POST). li_r = This.of_setHeader(lds_aux, as_application, as_title, as_footer) If li_r = 0 Then // Imprimimos el ds. li_r = lds_aux.print() End If // Dejamos de compartir los datos y eliminamos el ds temporal. lds_aux.shareDataOff() DESTROY lds_aux // Retornamos el valor de retorno de la impresión. Return li_r

Espero haber solucionado más de un quebradero de cabeza. Hasta pronto.