aEval{ || } tiene algun comando para terminar la evaluacion?

[goosfancito]

Estimados.

Asi como existe el "exit" para el for, existe algun "quiebre" o "corte" de control para el aEval?

Code: Select all  Expand view  RUN

aEval{ | o, nItem | if ( o == 5, "corte de control para terminal la ejecucion del aEval", nItem++ ) }

eso necesito, poder salir del aEval cuando o sea 5

Alguna idea?

Gracias.

[Antonio Linares]

AEVAL(<aArray>, <bBlock>,
[<nStart>], [<nCount>]) --> aArray

nCount te permite indicar cuantos elementos procesar a partir de nStart

[Patricio Avalos Aguirre]

goosfancito

Code: Select all  Expand view  RUN

Aeval( Array, { |x,y| instrucciones }, 1, 5 )

[goosfancito]

goosfancito

Code: Select all  Expand view  RUN

Aeval( Array, { |x,y| instrucciones }, 1, 5 )

Agradezco a ambos.

Pero lo que necesito hacer especificamente es esto:

tengo 15 get en el cual necesito saber ( luego de haber leido datos desde una dbu ) cual es el primer get que quedó sin datos y hacer que el cursor quede en ese get, entonces pensé utilizar el aEval para recorrer esos get, ya que estan en un array.

Code: Select all  Expand view  RUN

local oDatos:= array( 15 )
       vDatos:= array( 15 )

local nParar:= 0


   define get oDatos[1] id 100 var vDatos[1] ..
   ...


   nParar:= aEval( vDatos, { | o, nItem | nItem:= 0, if( empty( o ), "aca salir, ya tengo en cual tiene que posicionarse el cursor", nItem++ ) } )


...


Me explico?

[Patricio Avalos Aguirre]

Puedes utilizar la funcion ASCAN

Code: Select all  Expand view  RUN

       nParar := Ascan( vDatos, { |o| empty( o ) } )

       if nParar <> 0
         MsgInfo( "el elemento "+str(nparar) +  "esta vacio" )
       ndif


[goosfancito]

Puedes utilizar la funcion ASCAN

Code: Select all  Expand view  RUN

       nParar := Ascan( vDatos, { |o| empty( o ) } )

       if nParar <> 0
         MsgInfo( "el elemento "+str(nparar) +  "esta vacio" )
       ndif


gracias