Como clonar dw/ds

Desde luego, si hubiera caído antes en la posibilidad de usar esta opción para clonar dw o crear ds usando dw o viceversa, me hubiera ahorrado muchos quebraderos de cabeza, fijaros sino en la entrada de "Encabezados dinámicos. Con un par..." o en la de "Copiar "Retrieval Arguments" entre dw/ds", podrían haber cambiado mucho en el primer caso e incluso no ser necesario montar todo el tinglado de la copia de retrieval arguments, ya que esta solución, realiza un clonado completo, incluidos los argumentos...

El único matiz que hay que tener en cuenta, es que hay que usar sobre el objeto clonado la función setTransObject(Transaction) si queremos que tenga capacidad de trabajar contra la BD directamente.

En primer lugar tendremos que crear (si no usamos ya uno) un objeto de tipo (dw/ds) al que en nuestro ejemplo nada más crearlo lo guardaremos con el nombre "u_dw", es importante guardarlo para poder usar el nombre del objeto a continuación como parámetro de la función de clonado.

Creamos una función que en nuestro caso llamamos of_clonedw y que tendrá un parámetro, este le llamaremos adw_aux y el tipo corresponderá con el del objeto creado: "u_dw" y utilizaremos el siguiente código:

blob blb_aux This.getFullState(blb_aux) If isValid(adw_aux) Then adw_aux.acceptText() adw_aux.setFullState(blb_aux) End If

Lo que estamos haciendo en este código es almacenar en una variable de tipo blob la información del dw/ds, esto en realidad, si se inspecciona la variable, guarda la información del dw como si de un "psr" se tratase. Luego se comprueba si el argumento recibido es válido y en tal caso se realiza un acceptText para fijar el contenido del último campo editado (por si no perdió el foco) y por último se transfiere la información al dw deseado.

Como ejemplo de llamada, supongamos que estamos en una ventana con un dw_1 con datos y queremos copiar este sobre el dw_2:

dw_1.of_cloneDW(dw_2)

Recordar que no se transfiere la información de la transacción asignada.

Espero que os permita quitaros muchos dolores de cabeza, y sino, al menos, que os facilite el trabajo. Un saludo para todos.

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.

VerticalScrollPosition y HorizontalScrollPosition

Extendiendo el "Post" anterior podemos añadir el mensaje 276 para el control del desplazamiento horizontal. Para disponer de un control detallado de los posibles desplazamientos, las constantes que podríamos utilizar son:

// Mensajes de scroll. WM_HSCROLL 276 //Scroll Horizontal WM_VSCROLL 277 //Scroll Vertical // El parámetro LowWord determina como desplazarnos. CONTANT integer SB_LINEUP = 0 //Subir una línea. CONTANT integer SB_LINELEFT = 0 //Una posición a la izq. CONTANT integer SB_LINEDOWN = 1 //Bajar una línea CONTANT integer SB_LINERIGHT = 1 //Una posición a la dcha. CONTANT integer SB_PAGEUP = 2 //Subir una página. CONTANT integer SB_PAGELEFT = 2 //Una página a la izq. CONTANT integer SB_PAGEDOWN = 3 //Bajar una página. CONTANT integer SB_PAGERIGTH = 3 //Una posición a la dcha. CONTANT integer SB_PAGETOP = 6 //Ir arriba. CONTANT integer SB_LEFT = 6 //Ir a la izq. CONTANT integer SB_PAGEBOTTOM = 7 //Ir abajo. CONTANT integer SB_RIGHT = 7 //Ir a la dcha. CONTANT integer SB_ENDSCROLL = 8 //Ir al final.

De todos modos, al final he optado por otra solución en la que utilizo describe y modify sobre VerticalScrollPosition, HorizontalScrollPosition y Horizontal2ScrollPosition, ya que en mi caso, me interesa desplazarme a una posición en la que se visualiza un objeto en concreto, y me permitiría el control horizontal de las dos áreas visibles del dw si esta activado el atributo HSplitScroll. Así que la parte del código que controla el error queda del siguiente modo (tras controlar el error y notificarlo):

dw_x.setColumn(ls_campo) dw_x.modify("datawindow.VerticalScrollPosition = " & + dw_x.describe(ls_campo + ".y")) dw_1.setFocus()
¿Qué tal se portaron los Reyes?

Scroll en un datawindow con PowerScript

Tras un error controlado necesité poner el foco en el control que el usuario tiene que corregir, pero trabajando con un formulario de tipo freeform, con una fila que ocupa más de una página, si el control no esta visible, aunque reciba el foco no se desplaza el dw, por lo que es necesario desplazarlo manualmente desde código. Mandando un mensaje al control podremos hacer scroll en los dw desde el código:

// scroll hacia arriba una lína Send(Handle(dw_1), 277, 0, 0) // scroll hacia abajo una línea Send(Handle(dw_1), 277, 1, 0) // scroll hacia arriba una página Send(Handle(dw_1), 277, 2, 0) // scroll hacia abajo un página Send(Handle(dw_1), 277, 3, 0)
Felices Reyes

VScrollBar siempre visibles

Cuando la cantidad de páginas mostradas en un dw es solo una, la barra de desplazamiento vertical no aparece y en ocasiones estéticamente puede molestar. PowerBuilder no permite dejar la barra siempre visible y que esta este activa o no según corresponda, pero podemos simularlo utilizando APIS de Windows:

Declaración de funciones externas:

Function boolean ShowScrollBar(long hWnd, long wBar, boolean bShow) Library 'user32' Function boolean EnableScrollBar(long hWnd, ulong wSBflags, ulong wArrows) Library 'user32'

Función:

// Esta función debe llamarse siempre que se inserten o eliminen filas en el dw. Constant long SB_HORZ = 0 Constant long SB_VERT = 1 Constant long SB_CTL = 2 Constant long SB_BOTH = 3 Constant Long ESB_ENABLE_BOTH = 0 Constant Long ESB_DISABLE_BOTH = 3 long ll_pageCount string ls_aux ls_aux = dw_1.describe("evaluate('pageCount()', 0)") ll_pageCount = long(ls_aux) If ll_pageCount = 1 Then If dw_1.vScrollBar Then dw_1.vScrollBar = False ShowScrollBar(handle(dw_1),SB_VERT, True) EnableScrollBar(handle(dw_1),SB_VERT,ESB_DISABLE_BOTH) End If Else If Not dw_1.vScrollBar Then dw_1.vScrollBar = True EnableScrollBar(Handle(dw_1),SB_VERT,ESB_ENABLE_BOTH) End If End If