FiveTech Software tech support forums

cnavarro wrote:

jvtecheto wrote:Tampoco funciona asi.

Voy a buscar informacion de estos codeblocks a ver si encuentro.

Saludos.

Jose.

Jose Vicente, pon el ejemplo tal cual te lo indico, cada instruccion en una linea distinta como si de el desarrollo de una function se tratase ( al fin y al cabo lo es ), y que tenga un return al final ( sin puntos y comas al final de las lineas ), y me dices si te funciona o no

Code: Select all  Expand view

   local nSum  := 0
   hb_ForNext( 1, Len( aNums ), < | i |
                                    nSum += aNums[ i ]
                                    Return nSum
                                > )
   ? nSum
 

Code: Select all  Expand view

#include "fivewin.ch"
 

hbmk2: Error: Funci�n(es) referenciada, no encontrada, pero desconocida:
WQOUT(), FW_GT()

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbhpdf.hbc
hbcomm.hbc
hbmxml.hbc

Code: Select all  Expand view

#include "hbcompat.ch"
...
 local nSum  := 0
   hb_ForNext( 1, Len( aNums ), < | i |
                                    nSum += aNums[ i ]
                                    Return nSum
                                > )
alert( hb_ntoc( nSum ) )
 

Code: Select all  Expand view

local nSum  := 0
   hb_ForNext( 1, Len( aNums ), { | i |
                                    nSum += aNums[ i ]
                                    Return nSum
                                } )
  alert( hb_ntoc( nSum ) )