Posts: 23

Joined: Thu Jul 20, 2006 12:46 AM

ERROR E0004

Posted: Wed Jan 28, 2009 12:57 PM

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)) == &quot;SISTEMA&quot;
        Sistema-&gt;ContenidoE := aSave( aArrTmp[1] )

    CASE UPPER(ALLTRIM(cALIAS)) == &quot;SISTSTD&quot;
        SistStd-&gt;ContenidoE := aSave( aArrTmp[1] )

    CASE UPPER(ALLTRIM(cALIAS)) == &quot;MOVREPOR&quot;
        MovRepor-&gt;ContenidoE := aSave( aArrTmp[1] )

    CASE UPPER(ALLTRIM(cALIAS)) == &quot;SOURCE&quot;
        Source-&gt;ContenidoE := aSave( aArrTmp[1] )

    CASE UPPER(ALLTRIM(cALIAS)) == &quot;SOURSTD&quot;
        SourStd-&gt;ContenidoE := aSave( aArrTmp[1] )
ENDCASE

RETURN NIL

Lic. Jorge R. Mansur

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: ERROR E0004

Posted: Wed Jan 28, 2009 01:25 PM

Prueba con:

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

Saludos
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: ERROR E0004

Posted: Wed Jan 28, 2009 01:26 PM

include "FiveWin.ch"

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jmansur

Posts: 23

Joined: Thu Jul 20, 2006 12:46 AM

Re: ERROR E0004

Posted: Wed Jan 28, 2009 01:29 PM

GRACIASSSSSS

Agregandole FUNCTION funciono.

SE AGRADECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE

Lic. Jorge R. Mansur

FiveTech Support Forums

ERROR E0004

Re: ERROR E0004

Re: ERROR E0004

include "FiveWin.ch"

Re: ERROR E0004

Continue the discussion