Encabezados dinamicos. Con un par...

Como poner un encabezado dinamico a un dw... en mi caso nunca imprimo directamente el dw, sino que paso la info. a un ds, le planto el encabezado dinámico y luego lo imprimo.

En este post solo aparece el código para poner el encabezado que deseo, si quereis ampliarlo para poder imprimir datawindows según lo he descrito podéis mirar el post anterior.

Aunque ya lo he comentado en otros post, como dato curioso, si os fijáis, sería el primer argumento de la función, que correspondería al dw o ds al que le pondremos el encabezado, pues resulta que el tipo en un powerObject, precisamente para poder aplicar el encabezado tanto a dw como a ds.

El resto de argumentos podrían eliminarse, todo depende del encabezado que deseemos, en mi caso para el argumento as_application le paso una cosntante que corresponde con el nombre de la aplicación para saber desde donde se ha impreso; para el argumento as_title, le paso el title de la ventana donde esta el dw que corresponde siempre con lo que muestra; y por último un argumento con un string para poner información en el pie de la impresión (privado, confidencial, borrador, etc.).

En siguiente ilustración representa una imagen de como quedaría... emborrone el logo por temas de confidencialidad, por cierto, si vuestro logo difiere en dimensiones, tal vez fuese necesario modificar alguna medida.


Y para finalizar aquí desempolvado y listo para usar el código responsable de añadido dinámico:

string ls_objects, ls_object, ls_where, ls_type, ls_create string ls_aux, ls_modify long ll_len, ll_from, ll_to, ll_x, ll_widthObject, ll_width long ll_addWidth, ll_posY, ll_posY1, ll_posY2, ll_height integer li_r, li_orientation, li_width datawindow ldw_aux datastore lds_aux string ls_typeObject CONSTANT integer DISPLACEMENT = 300 CONSTANT integer WIDTHA4V = 3140 CONSTANT integer WIDTHA4H = 4640 ls_objects = apo_aux.DYNAMIC describe('datawindow.objects') /******************************************************************/ /* OBTENEMOS LA ORIENTACIÓN ADECUADA Y DESPLAZAMOS LOS OBJETOS */ /******************************************************************/ // Por defecto será vertical. li_orientation = 2 // Recorremos los todos objetos. ll_len = len(ls_objects) If ll_len > 0 Then ll_from = 1 Do ll_to = pos(ls_objects, "~t", ll_from) If ll_to = 0 Then ls_object = mid(ls_objects, ll_from) Else ls_object = mid(ls_objects, ll_from, ll_to - ll_from) End If If len(ls_object) > 0 Then ll_x = long(apo_aux.DYNAMIC describe(ls_object + '.x')) ll_widthObject = long(apo_aux.DYNAMIC describe(ls_object + '.width')) // Obtenemos hasta donde llegan horizontalmente. If ll_x + ll_widthObject > ll_width Then ll_width = ll_x + ll_widthObject End If // Lo desplazamos verticalmente si esta en el encabezado. ls_where = apo_aux.DYNAMIC describe(ls_object + '.band') If ls_where = 'header' Then ls_type = apo_aux.DYNAMIC describe(ls_object + '.type') If ls_type = 'line' Then ll_posY1 = long(apo_aux.DYNAMIC describe(ls_object + '.y1')) ll_posY2 = long(apo_aux.DYNAMIC describe(ls_object + '.y2')) ls_aux = apo_aux.DYNAMIC modify(ls_object + ".y1 = ~'" + string(ll_posY1 + DISPLACEMENT) + "~'") ls_aux = apo_aux.DYNAMIC modify(ls_object + ".y2 = ~'" + string(ll_posY2 + DISPLACEMENT) + "~'") Else ll_posY = long(apo_aux.DYNAMIC describe(ls_object + '.y')) ls_aux = apo_aux.DYNAMIC modify(ls_object + ".y = ~'" + string(ll_posY + DISPLACEMENT) + "~'") End If End If End If ll_from = ll_to + 1 Loop While (ll_to > 0) // Determinamos la orientación. If ll_width > WIDTHA4V Then // Horizontal li_orientation = 1 ll_addWidth = WIDTHA4H - WIDTHA4V End If /******************************************************************/ /* ASIGNAMOS LAS OPCIONES DE IMPRESIÓN */ /******************************************************************/ ls_aux = as_application + "/" + as_title If len(ls_aux) > 31 Then ls_aux = left(ls_aux, 28) + "..." End If ls_modify = "datawindow.print.margin.top=212 datawindow.print.margin.left=242 " & + "datawindow.print.margin.right=242 datawindow.print.margin.bottom=212" & + "datawindow.print.orientation=" + string(li_orientation) + " " & + "datawindow.print.documentname=~"" + ls_aux + "~"" ls_aux = apo_aux.DYNAMIC modify(ls_modify) /******************************************************************/ /* MODIFICAMOS EL ENCABEZADO DINÁMICAMENTE */ /******************************************************************/ // Modificamos la altura del encabezado. ll_height = long(apo_aux.DYNAMIC describe("datawindow.header.height")) ll_height += DISPLACEMENT ls_aux = apo_aux.DYNAMIC modify("datawindow.header.height=" + string(ll_height)) // Creamos el rectangulo superior. ls_create = "create rectangle(band=header x=~"0~" y=~"0~" height=~"224~" " & + "width=~"" + string(WIDTHA4V + ll_addWidth) + "~" " & + "brush.hatch=~"7~" brush.color=~"553648127~" pen.style=~"0~" pen.width=~"5~" " & + "pen.color=~"0~" background.mode=~"2~" background.color=~"16777215~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos el rectangulo inferior. ls_create = "create rectangle(band=header x=~"0~" y=~"220~" height=~"80~" " & + "width=~"" + string(WIDTHA4V + ll_addWidth) + "~" " & + "brush.hatch=~"6~" brush.color=~"14869218~" pen.style=~"0~" pen.width=~"5~" " & + "pen.color=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos el bitmap. ls_create = "create bitmap(band=Header x=~"25~" y=~"25~" height=~"180~" width=~"750~" " & + "filename=~"G:\Data\desdes01\Bmpaplic\logo.bmp~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos la etiqueta con la entidad. ls_create = "create text(band=header color=~"0~" alignment=~"0~" border=~"0~" x=~"27~" y=~"228~" " & + "height=~"64~" width=~"530~" text=~"Nombre organización.~" font.face=~"Arial~" " & + "font.height=~"55~" font.weight=~"400~" font.family=~"2~" font.pitch=~"2~" " & + "font.charset=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos la etiqueta con el usuario que lanzó la impresión. ls_create = "create text(band=header color=~"0~" alignment=~"1~" border=~"0~" " & + "x=~"" + string((WIDTHA4V + ll_addWidth) - 526) + "~" y=~"228~" " & + "height=~"64~" width=~"503~" text=~"" + upper(gs_usuario) + "~" font.face=~"Arial~" " & + "font.height=~"55~" font.weight=~"400~" font.family=~"2~" font.pitch=~"2~" " & + "font.charset=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos etiqueta con el título del informe. If li_orientation = 1 Then // Horizontal li_width = 66 Else // Verical li_width = 36 End If If len(as_title) > li_width Then as_title = left(as_title, li_width - 3) + '...' End If ls_create = "create text(band=header color=~"0~" alignment=~"2~" border=~"0~" x=~"791~" y=~"60~" " & + "height=~"104~" width=~"" + string((WIDTHA4V + ll_addWidth) - (791 * 2)) + "~" text=~"" + as_title + "~" " & + "font.face=~"Arial~" font.height=~"85~" font.weight=~"700~" " & + "font.family=~"2~" font.pitch=~"2~" font.charset=~"0~" background.mode=~"1~" " & + "background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Creamos la etiqueta con el nombre de la aplicación. ls_create = "create text(band=header color=~"0~" alignment=~"2~" border=~"0~" x=~"791~" y=~"228~" " & + "height=~"60~" width=~"" + string((WIDTHA4V + ll_addWidth) - (791 * 2)) + "~" " & + "text=~"" + as_application + "~" font.face=~"Arial~" " & + "font.height=~"55~" font.weight=~"400~" font.family=~"2~" font.pitch=~"2~" " & + "font.charset=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Montamos la etiqueta con la fecha y hora. ls_create = "create text(band=header color=~"0~" alignment=~"1~" border=~"0~" " & + "x=~"" + string((WIDTHA4V + ll_addWidth) - 526) + "~" y=~"24~" " & + "height=~"64~" width=~"503~" text=~"" + string(today(),'d/mm/yyyy hh:mm') + "~" " & + "font.face=~"Arial~" font.height=~"55~" font.weight=~"400~" font.family=~"2~" " & + "font.pitch=~"2~" font.charset=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) // Montamos el computado con la información de las páginas. ls_create = "create compute(band=header color=~"0~" alignment=~"1~" border=~"0~" " & + "x=~"" + string((WIDTHA4V + ll_addWidth) - 526) + "~" y=~"92~" " & + "height=~"64~" width=~"503~" format=~"[GENERAL]~" " & + "expression=~"page() + '/' + pageCount()~" " & + "font.face=~"Arial~" font.height=~"55~" font.weight=~"400~" font.family=~"2~" " & + "font.pitch=~"2~" font.charset=~"0~" background.mode=~"1~" background.color=~"553648127~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) /******************************************************************/ /* MODIFICAMOS EL PIE DINÁMICAMENTE */ /******************************************************************/ // Recogemos y modificamos la altura del pie. If trim(as_footer) <> '' Then ll_height = long(apo_aux.DYNAMIC describe("DataWindow.Footer.Height")) ls_aux = apo_aux.DYNAMIC modify("DataWindow.Footer.Height=" + string(ll_height + 100)) // Montamos la etiqueta solo si corresponde. ls_create = "create text(band=footer alignment=~"2~" text=~"" + as_footer + "~" border=~"0~" color=~"0~" " & + "x=~"0~" y=~"" + string(ll_height) + "~" height=~"80~" width=~"558~" font.face=~"Arial~" font.height=~"-12~" " & + "font.weight=~"700~" font.family=~"2~" font.pitch=~"2~" font.charset=~"0~" " & + "background.mode=~"2~" background.color=~"16777215~")" ls_aux = apo_aux.DYNAMIC modify(ls_create) End If End If Return li_r
Se aceptan sugerencias y mejoras. Saludos.

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.