gets.. eval... lostfocus..

gets.. eval... lostfocus..

Postby goosfancito » Tue Dec 07, 2021 11:18 am

Hola.

Tengo un array de oGets que necesito acumular los valores pero solo de ciertos ogets cuando pierde el foco:

aeval(::aGets, { |o, x| iif(x in {1,4,6}, ::sumar(),)})


ahora no puedo usar mas el "in" en harbourd...

Alguna ayuda?
gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: gets.. eval... lostfocus..

Postby karinha » Tue Dec 07, 2021 1:01 pm

"in" ???

Un ejemplo simples, para testes, hay?

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7842
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: gets.. eval... lostfocus..

Postby carlos vargas » Tue Dec 07, 2021 1:15 pm

No recuerdo si in es aceptado en harbour,
talvez agregando la libreria xhb y hbcompat.ch
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: gets.. eval... lostfocus..

Postby goosfancito » Tue Dec 07, 2021 8:48 pm

termino de intentarlo pero no da.


Karina: suponte que tenes un array con estos valores
1, 4, 6, 7

y vos queres saber si un numero "x" existe en ese array, en xharbor yo hacia esto:

Code: Select all  Expand view  RUN
if ( x in {1, 4, 6, 7 })
    msginfo("existe")
endif
 


pero ahora veo que en harbour eso no puedo hacerlo.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: gets.. eval... lostfocus..

Postby xmanuel » Tue Dec 07, 2021 9:24 pm

Usa hb_ascan() si existe te devuelve la posicion si no 0

if hb_ascan(...) > 0
msg( "existe" )
______________________________________________________________________________
Sevilla - Andalucía
xmanuel
 
Posts: 762
Joined: Sun Jun 15, 2008 7:47 pm
Location: Sevilla


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 27 guests