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

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 09:27 PM

Estimados.

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

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 09:33 PM

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

nCount te permite indicar cuantos elementos procesar a partir de nStart

regards, saludos

Antonio Linares
www.fivetechsoft.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 09:33 PM

goosfancito

Code: Select all Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 09:41 PM

Patricio Avalos Aguirre wrote:goosfancito
Code: Select all Collapse
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 Collapse

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?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 10:57 PM

Puedes utilizar la funcion ASCAN

Code: Select all Collapse

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

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

aEval{ || } tiene algun comando para terminar la evaluacion?
Posted: Thu May 10, 2007 11:51 PM

Patricio Avalos Aguirre wrote:Puedes utilizar la funcion ASCAN
Code: Select all Collapse
		 nParar := Ascan( vDatos, { |o| empty( o ) } )

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

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion