Antonio - Retomo lo del tree podes ayudarme cn esto?

[goosfancito]

hace un tiempo intente y no funcionó, vos me dijiste que haga de una forma pero tampoco funcionó.
te comento: tengo un array que genero asi (con una tupla incluida):

Code: Select all  Expand view

   AAdd( ::aTree, { oQry:FieldGet( "c7" ) + "     " + ::cCargo, ;
                       { ;
                         "nId" => oQry:FieldGet( "c4" ), ;
                         "nIdPadre" => oQry:FieldGet( "c5" ), ;
                         "dFecha" => oQry:FieldGet( "c7" ), ;
                         "nHitem" => 0 ;
                       } } )
 

Luego necesito recorrer ese array para buscar un determinado valor que viene desde una tabla,
el valor existe y tambien existe en el array ::aTree pero el aScan me dice siempre que la posicion es cero
cuando deberia de ser mayor a cero:

Code: Select all  Expand view

        nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nId" ] == oQry:FieldGet( "c5" ) } )

En cambio si me recorro el array con un FOR NEXT o FOR EACH el valor existe.

[Antonio Linares]

Gustavo,

No debería ser asi ?

nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nIdPadre" ] == oQry:FieldGet( "c5" ) } )

ó

nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nId" ] == oQry:FieldGet( "c4" ) } )

[goosfancito]

No estimado,
Te comento la lógica que quiero utilizar.
Tengo esta query:

Code: Select all  Expand view

"Select                 " + ;
"a.id           AS c1,  " + ;
"a.idcarpeta    AS c2,  " + ;
"a.iddante      AS c3,  " + ;
"a.nid          AS c4,  " + ;
"a.nidpadre     AS c5,  " + ;
"b.id           AS c6,  " + ;

y un array donde tengo los datos que necesito para "rearmar" el arbol (que lo creo a partir de la consulta anterior.
Lo que necesito es saber antes de crear una rama con oItem:add(...) que ya no esté creada esa rama, por lo
que necesito verificar con el ascan y buscar dentro del array.
el array cotiene esto:

Code: Select all  Expand view

   AAdd( ::aTree, { oQry:FieldGet( "c7" ) + "     " + ::cCargo, ;
                       { ;
                         "nId" => oQry:FieldGet( "c4" ), ;
                         "nIdPadre" => oQry:FieldGet( "c5" ), ;
                         "dFecha" => oQry:FieldGet( "c7" ), ;
                         "nHitem" => 0 ;
                       } } )

[goosfancito]

esto funciona, en cambio el Ascan no

Code: Select all  Expand view

       FOR EACH o IN ::aTree
            IF ( o[ 2 ][ "nId" ] == oQry:FieldGet( "c5" ) )
               VIEW "tiene hijo"
               exit
            ENDIF
         NEXT