Power Builder - avanzar con las flechas y nombre de columnas

 
Vista:

avanzar con las flechas y nombre de columnas

Publicado por alfredo (3 intervenciones) el 24/05/2007 18:16:10
tengo q ir avanzando con las flechas direccionales por los campos de mi datawindow tipo form.
Pero no se como capturar el nombre de la columna, para q avanze
algo asip como en el evento itenchanged trabajan con dwo.Name q es propio del evento
q se supone cptura el nombre de la columna.
If KeyDown(KeyEnter!) or KeyDown(KeyDownArrow!) then //con enter y flecha hacia abajo choose case dwo.Name
case 'fec_informacion' dw_1.object.cod_moneda.setfocus()
case 'cod_moneda'
dw_1.object.imp_tipo_sbs.setfocus()
case 'imp_caja' dw_1.object.imp_bancos.setfocus()
end choose
end if

lo q me falta es como obtener dwo.Name dentro del evento del datawindow, estoy utilizando el event id pbm_dwnkey.

gracias de antemano todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:avanzar con las flechas y nombre de columnas

Publicado por reydelau (20 intervenciones) el 24/05/2007 22:53:01
si es tabular te servira esto---.. antes creas un evento pbm_dwnkey
selectrow(0,false)
if Key = KeyUpArrow! then selectrow(scrollnextrow(),true)
if Key = KeydownArrow! then selectrow(scrollnextrow()+1,true)

si es frre form te sirve esto...

creas un evento pb_id processenter

y en el scrip escribes esto
Post( Handle(this),256,9,0 )
Return 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:avanzar con las flechas y nombre de columnas

Publicado por alfredo (3 intervenciones) el 25/05/2007 01:07:43
hola:
String ls_dwo

ls_dwo = this.GetColumnName()

If KeyDown(KeyDownArrow!) or KeyDown(KeyRightArrow!) then //
choose case ls_dwo
case 'fec_informacion'
dw_2.setcolumn('cod_moneda')
case 'cod_moneda'
dw_2.setcolumn('imp_tipo_sbs')
case 'imp_tipo_sbs'
dw_2.setcolumn('imp_caja')
end choose

end if

***
con esto capturo y avanzo dentro de mi control datawindow (dw_2), esto ya lo solucione, ahora el problema es q el scrollbar del datawindow no baja. CUando utilizo la tecja TAB q es la por defauld esta programado porque le he dado un orden en el datawindow.
la ventana es un form con dos datawindows y el q quiero utilizar es de un datawindow tipo form q tiene muchos campos por eso es q necesito q el srollbar funcione si utilizo las flechas tambien baje el scroollbar mis campos del datawindow estan uno abajo de otro...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:avanzar con las flechas y nombre de columnas

Publicado por reydelau (20 intervenciones) el 25/05/2007 15:29:15
Post( Handle(this),256,9,0 )
Return 1
este scrip mueve el foco al siguiente elemento del tab order.. yo lo implemente para cuando presionaba enter,,... creas un evento
id pbm_dwnkey
if Key = KeydownArrow! then
Post( Handle(this),256,9,0 )
Return 1

no se si se pueda usar de esta forma .. pero prueba a ver si te sirve,.. como te dije yo lo uso es con la tecla enter... si presiono uica el foco en el siguiente elemento del tab order..

espero que te sirva---. salu2s desde colombia..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:avanzar con las flechas y nombre de columnas

Publicado por alfredo (3 intervenciones) el 28/05/2007 17:52:30
gracias.. esto me sirvio para avanzar pero cual es la sintaxis para retroceder... estuve buscando pero no hay convinacion con el handle para el retroceso... gracias por la ayuda...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:avanzar con las flechas y nombre de columnas

Publicado por wend (95 intervenciones) el 31/05/2007 03:03:46
Hola Alfredo, yo uso este script para avanzar o retreceder por los campos
solo que cuando hay un dddw o un listbox en el campo se queda.

Event ID pbm_dwnkey
------------------------------

If KeyDown(KeyDownArrow!) Then
This.SetColumn(This.GetColumn() + 1)
ElseIf KeyDown(KeyUpArrow!) Then
This.SetColumn(This.GetColumn() - 1)
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar