FiveTech Software tech support forums

Hola.

Estoy compilando por primera vez un programa nuestro con harbour y me da el siguiente error.

.\evoflex.PRG(165) Error E0004 LOCAL declaration follows executable statement

ME pueden dar una mano?

Graciassssss

El codigo es el siguiente

// *****************************************************************************
// Archivo : EVOFLEX
// Fecha : 11/01/2008
// Autor : Jorge R. Mansur
// Nota :
// *****************************************************************************
V_REPLACE( xExpresion, nPuntero, cAlias, nTipoComp, nHuff )
LOCAL aArrTmp := {} <<<===== linea 165

AADD( aArrTmp, xExpresion )

DO CASE
CASE UPPER(ALLTRIM(cALIAS)) == "SISTEMA"
Sistema->ContenidoE := aSave( aArrTmp[1] )

CASE UPPER(ALLTRIM(cALIAS)) == "SISTSTD"
SistStd->ContenidoE := aSave( aArrTmp[1] )

CASE UPPER(ALLTRIM(cALIAS)) == "MOVREPOR"
MovRepor->ContenidoE := aSave( aArrTmp[1] )

CASE UPPER(ALLTRIM(cALIAS)) == "SOURCE"
Source->ContenidoE := aSave( aArrTmp[1] )

CASE UPPER(ALLTRIM(cALIAS)) == "SOURSTD"
SourStd->ContenidoE := aSave( aArrTmp[1] )
ENDCASE

RETURN NIL

Prueba con:

FUNCTION V_REPLACE( xExpresion, nPuntero, cAlias, nTipoComp, nHuff )

Saludos
Carlos G.

#include "FiveWin.ch"

GRACIASSSSSS

Agregandole FUNCTION funciono.

SE AGRADECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE