hola.
en un tree, si hago un len(oItem:aitems) me devulve la cantidad de item de esa rama, pero si existen ramas dentro de ese "oItem" no me las cuenta, debo hacerlo recorrindom la rama misma. Hay algun atributo o DATA que la clase tenga esa cantidad de items?
gracias.
Prueba así:
local nItems := 0
oTree:Scan( { || nItems++, .F. } ) // la forma completa sería { | oItem | nItems++, .F. } .F. significa que no ha encontrado lo que busca
MsgInfo( nItems )
barbaro, necesitaba eso para progresar ocn el CORTAR y PEGAR,
asi lo subo definitivo.
gracias.
METHOD MenuPop( nRow, nCol )
LOCAL oMenu
LOCAL oItem := ::oTree:hitTest( nRow, nCol )
IF ( oItem != NIL )
Menu oMenu POPUP
IF ( ::nHitemCortar ) == 0
IF ( oItem:hItem != ::nIdRaiz )
MenuItem "Cortar" ACTION ::accionesArbol( VK_INSERT, oItem )
ENDIF
ELSE
MenuItem "Pegar aquí..." ACTION ::accionesArbol( VK_RETURN, oItem )
ENDIF
EndMenu
ACTIVATE POPUP oMenu At nRow, nCol OF ::oTree
ENDIF
RETURN ( NIL )
//------------------------------------------------------------------------------
METHOD accionesArbol( nOpcion, oItem )
CASE nOpcion == VK_INSERT // cortar
::oItemCortar := oItem
endcase
return (nil) LOCAL oItem:= ::oItemCortar
local nTotalItems:= 0
::oTree:scan( { | oItem | nTotalItems++,.F. } )
msginfo(nTotalItems)Gustavo,
la cantidad de items que contiene un item:
Len( oItem:aItems )
La cantidad de items que contiene el contenedor del item:
Len( oItem:oParent:aItems )
bien,
si me permitis voy a colgar aca el metodo que quiero hacer para saber
cuantos item posee el actual nodo, haciendo recursividad me imagino, con esos dos metodos que me pasaste ninguno me dice el total en si, solo los items que posee un nodo, pero si en ese nodo hay un "parent" no lo cuenta... y es lo que necesito para saber cuales son los item que tengo que "mover" a otra rama.
necesito por favor que me ayuden con la recursividad porque no se como hacerla.
tengo que recorrer cada oItem que exista en una rama para saber cuantos item tiene.
gracias.
METHOD Count() CLASS TTreeView
local nItems := 0, bAction := { | oItem | nItems++, .F. }
::Scan( bAction )
return nItemsMETHOD Count() CLASS TTVItem
local oItem, nItems := 1
for each oItem in ::aItems
nItems += 1 + If( ! Empty( oItem:aItems ), ( oItem:Count() - 1 ), 0 )
next
return nItems
method count()...> hay que agregar los encabezados en cada clase
a que te refieres ?
classs TTVItem
METHOD Count() CLASS TTVItem? oTree:getselected():count()Time from start: 0 hours 0 mins 1 secs
Error occurred at: 04/22/22, 07:55:45
Error description: Error BASE/1004 No exported method: COUNT
Args:
[ 1] = U
Ese error te aparece porque no hay ningún item del tree seleccionado, por eso devuelve nil
Hazlo asi:
if oTree:getselected() != nil
? oTree:getselected():count()
endif
Hecho.
a ver si me das una mano con esto:
yo tengo un Tree que tiene ramas y la propiedad cargo me guarda en cada ADD un ID (que lo trae de una DB sino usaria el hitem)
cuando quiero agregar un item nuevo que esta identificado por un "id" (sacado de la dB) "necesito" recorrerme TODO el arbol
y donde el "id" de la rama nueva coincida con cargo["id"] de alguna de las ramas que ya contiene el arbol AHI agregarla.
Estoy dando vueltas pero no logro conseguir lo que quiero.
oItem = oTree:Scan( { | oItem | oItem:Cargo == nId } )