Power Builder - Menu TreeView

Hola amigos PB's alguien tiene un ejemplito simple usar un menu treeview... lo q yo deseo es crear un menu treeview para mis reportes ejemplo:

-Reportes de Ventas
---Facturas
---Boleta
---Cotizacion, etc...

y que en la misma ventana a su lado en un DW me muestre el reporte seleccionado alguien me podria ayudar gracias de ante mano..!

hola mira para eso tendrias q ver el help de treview para conocer todas las opciones q tiene el mismo q son muchas.
me refiero a las funciones insertitemlast,etc.

si ya tienes creado tu treeview y solo quieres conocer el texto puedes hacer algo asi

en el evento SelectionChanged

TreeViewItem l_tvi
This.GetItem(newhandle, l_tvi)

chooce case l_tvi.Label
case "factura"
dw_1.dataobject="dw_factura")
case "boleta"
dw_1.dataobject="dw_boleta")
end choose

dw_1.settransobject(sqlca)
dw_1.retrieve()

bueno es solo una idea, si no te sirve comenta y seguiremos ayudando

un saludo desde argentina

Gracias Amilcar, gracias por el codigo.. fue de mucha ayuda.. ya tengo mi menu treview simple y sencillo como queria.. te pasastes brother mil gracias por tu tiempo y ayuda..

Ahora quisera saber si puedo cambiar de iconos a los item hijos osea un ejemplo:

--Cotizacion (con un icono a)
-----Cotizacion por Fecha (icono b)
--------Por Fecha 01 (icono c)
--------Por Fecha 02 (icono d)

Es posible..? gracias de antemano espero q me sigan ayudando...

Saludos de Lima - Peru

Les dejo el codigo para si otros compañeros necesitan hacer un menu TreView simple :

En el Evento Open de la ventana:

Long ll_Cotizacion, ll_Factura, ll_Item

ll_Cotizacion = tv_ventas.InsertItemLast(0,"Cotizacion",1)
ll_Factura = tv_ventas.InsertItemLast(0,"Factura" ,2)

ll_Item = tv_ventas.InsertItemLast(ll_Cotizacion,"Cotizacion por Fecha" ,1)

/*Este codigo solo lo pongo de ejemplo por q quizas necesitan mas items dentro de otros item*/
tv_ventas.InsertItemLast(ll_Item, "Por Fecha 01" ,1)
tv_ventas.InsertItemLast(ll_Item, "Por Fecha 02" ,1)

ll_Item = tv_ventas.InsertItemLast(ll_Cotizacion,"Cotizacion por Vendedor",1)

/*Este codigo solo lo pongo de ejemplo por q quizas necesitan mas items dentro de otros item*/
tv_ventas.InsertItemLast(ll_Item, "Por Vendedor 01" ,1)
tv_ventas.InsertItemLast(ll_Item, "Por Vendedor 02" ,1)

ll_Item = tv_ventas.InsertItemLast(ll_Factura,"Factura por Fecha"

Espero que le sirva...

Hola Barzi...

Justamente en esta parte es donde colocas el icono a cada item que insertas:

tv_ventas.InsertItemLast(ll_Item, "Por Vendedor 01" ,1) <-- este ultimo número indica el icono que le colocas al item, claro que estos tienen q estar agregados en la lista Pictures de el Tab de Propiedades, es decir si colocas 1 se verá la imagen nro 1, si colocas el 2 se verá la imagen nro 2 , etc,etc...

Ahora también puedes cambiar la imagen al seleccionar un Item, es decir cuando esta seleccionado tiene una imagen y cambia cuando pierde el foco.

Te pongo mando un ejemplo a tu correo..ahora no lo tengo a la mano.

Saludos !

Hola Barzi.....
Te dije que lo mandaria a tu correo pero mejor lo cuelgo acá por si alguién mas lo necesita...

//Debes colocar este script en el evento SelectionChanged de tu TreeView

if newhandle<=0 then return
treeviewitem l_tvi
getitem(oldhandle,l_tvi)
l_tvi.pictureindex=NRO_ICONO_NO_SELECCIONADO
l_tvi.selectedpictureindex=NRO_ICONO_NO_SELECCIONADO
setitem(oldhandle,l_tvi)
getitem(newhandle,l_tvi)
l_tvi.pictureindex=NRO_ICONO_SELECCIONADO
l_tvi.selectedpictureindex=NRO_ICONO_SELECCIONADO
setitem(newhandle,l_tvi)

Nota:

NRO_ICONO_NO_SELECCIONADO=Es el # del picture q le pondras cuando el item no esta seleccionado.

NRO_ICONO_SELECCIONADO=Es el # del picture q le pondrás cuando el item está seleccionado

Espero que te sirva.....

Suerte !

En estas lineas tengo q agradecer a Amilcar y a Juancarlo, muchas gracias de verdad.. su aporte fue de muxha ayuda.. para terminar mi labor.. mil gracias a los 2 y a todos los q hacen de este foro uno de los mejores..

Saludos desde Rimac - Lima - Perú

Jorge Barzola Rosadio (Loco Barzi)