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

Convertir a números cardinales

En más de una ocasión me he visto en la necesidad de convertir el contenido de una variable numérica a un string con el número en cardinal representado con texto, así que en adelante si me sucede ya sólo tendré que llegarme hasta aquí. En esta ocasión principalmente encontrareis el código sin muchos comentarios como otras veces, deciros que es mejorable, que se puede hacer más genérica y tratar el género, la moneda para trabajar con distintas divisas, las apócopes, etc. En mi caso la he centrado en el Euro con sus correspondientes céntimos, si cambia la moneda que usáis y también tiene fracción, solo tendréis que cambiar los literales correspondientes. La declaración de la función sería: string f_numberToCardinal(decimal adc_value) y el código quedaría así:

string ls_r, ls_cadena, ls_aux int li_terna, li_fraccion, li_unidad integer li_decena, li_centena dec{0} ldc_entero boolean lb_todoCeros, lb_soloLaUnidad string ls_unidades[9], ls_decenas[9], ls_centenas[9] string ls_decenas1[0 to 6], ls_decenas2[0 to 6] ls_unidades = {'UN','DOS','TRES','CUATRO','CINCO', 'SEIS','SIETE','OCHO','NUEVE'} ls_decenas = {'','','TREINTA','CUARENTA','CINCUENTA', 'SESENTA','SETENTA','OCHENTA','NOVENTA'} ls_centenas = {'','DOSCIENTOS','TRESCIENTOS', 'CUATROCIENTOS','QUINIENTOS','SEISCIENTOS','SETECIENTOS','OCHOCIENTOS','NOVECIENTOS'} ls_decenas1 = {'DIEZ','ONCE','DOCE','TRECE', 'CATORCE','QUINCE','DIECISEÍS'} ls_decenas2 = {'VEINTE','VEINTIÚN','VEINTIDÓS', 'VEINTITRÉS','','','VEINTISÉIS'} // Recogemos la parte entera y la fracción. ldc_entero = truncate(adc_value, 0) li_fraccion = (truncate(adc_value, 2) - ldc_entero) * 100 Do While ldc_entero > 0 // Indicamos la terna actual. li_terna ++ // Se recorre el número por ternas. ls_cadena = '' li_unidad = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) li_decena = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) li_centena = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) // Se analizan las unidades. If li_unidad <> 0 Then ls_cadena = ls_unidades[li_unidad] + ' ' End If // Se analizan las decenas. Choose Case li_decena Case 1 Choose Case li_unidad Case 0, 1, 2, 3, 4, 5, 6 ls_cadena = ls_decenas1[li_unidad] + ' ' Case Else ls_cadena = 'DIECI' + ls_cadena End Choose Case 2 Choose Case li_unidad Case 0, 1, 2, 3, 6 ls_cadena = ls_decenas2[li_unidad] + ' ' Case Else ls_cadena = 'VEINTI' + ls_cadena End Choose Case 3, 4, 5, 6, 7, 8, 9 If li_unidad = 0 Then ls_cadena = ls_decenas[li_decena] + ' ' + ls_cadena Else ls_cadena = ls_decenas[li_decena] + ' Y ' + ls_cadena End If End Choose // Se analizan las centenas. Choose Case li_centena Case 1 If li_unidad = 0 And li_decena = 0 Then ls_cadena = 'CIEN ' Else ls_cadena = 'CIENTO ' + ls_cadena End If Case 2, 3, 4, 5, 6, 7, 8, 9 ls_cadena = ls_centenas[li_centena] + ' ' + ls_cadena End Choose // Analizamos la terna. lb_todoCeros = ((li_unidad+li_decena+li_centena) = 0) lb_soloLaUnidad = (li_unidad = 1 And & (li_decena + li_centena = 0)) Choose Case li_terna Case 2 If Not lb_todoCeros Then If lb_soloLaUnidad Then ls_cadena = 'MIL ' Else ls_cadena += 'MIL ' End If End If Case 3 If Not lb_todoCeros Then If lb_soloLaUnidad Then ls_cadena += 'MILLÓN ' Else ls_cadena += 'MILLONES ' End If End If Case 4 If lb_soloLaUnidad Then ls_cadena = 'MIL MILLONES ' Else ls_cadena += 'MIL MILLONES ' End If Case Else If li_terna <> 1 Then ldc_entero = 0 ls_cadena = '' End If End Choose // Se monta el sultado de la terna actual con el de las anteriores. ls_r = ls_cadena + ls_r Loop // Utilizamos la recursividad para montar el literal de los decimales. If li_fraccion <> 0 Then ls_aux = trim(gf_numbertoletter(li_fraccion)) // Como se retorno como parte entera llega con EURO/EUROS y hay que quitarlo. ls_aux = trim(left(ls_aux, len(ls_aux) - 5)) If li_fraccion = 1 Then ls_aux = 'UN CÉNTIMO' Else ls_aux += ' CÉNTIMOS' End If End If // Montamos la salida final según corresponda. If li_terna = 0 Then // Solo tiene parte decimal. ls_r = ls_aux Else // Hay que añadir el modificar 'de' si es multiplo // de 1000000. If mod(truncate(adc_value,0),1000000)=0 Then ls_r+='DE ' // Añadimos la moneda a la parte entera. If truncate(adc_value, 0) = 1 Then ls_r = 'UN EURO' Else ls_r += 'EUROS' End If // Hay que añadir la parte decimal si la tiene. If ls_aux<>'' Then ls_r = trim(ls_r) + ' CON ' + ls_aux End If Return ls_r

Algo que es interesante es el uso de la recursividad para resolver el
tema de los céntimos... ¿Qué os parece? Bueno, para no salirme de la tónica... espero que también os sirva a vosotros también.