A ver, les dejo este codigo no muy elaborado pero funciona.
La idea es que me devuelva una cadena conteniendo un "1" cuando un checkbox de una rama esta seleccionada y un "0" cuando no. Cuando se cambia de rama pone un ".", lo hice para poder guardar esta cadena dentro de una tabla, asi lo uso luego para rearmar el tree.
Quien quiera aportar.
La idea es que me devuelva una cadena conteniendo un "1" cuando un checkbox de una rama esta seleccionada y un "0" cuando no. Cuando se cambia de rama pone un ".", lo hice para poder guardar esta cadena dentro de una tabla, asi lo uso luego para rearmar el tree.
FUNCTION cadenaCheckTree(oTree)
LOCAL nItem,;
nItem1,;
oRamaHijo,;
cCadena := ""
FOR nItem:= 1 TO Len(oTree:aItems)
oRamaHijo:= oTree:aItems[nItem]
cCadena:= cCadena + "."
FOR nItem1:= 1 TO Len(oRamaHijo:aItems)
cCadena:= cCadena + IF(oTree:GetCheck(oRamaHijo:aItems[nItem1]),"1","0")
NEXT nItem1
NEXT nItem
RETURN (cCadena)Quien quiera aportar.
