I have added to mysource #include "hbcompat.ch" and receive this error 
ARCALOG.PRG(3632) Error E0030  Syntax error: "syntax error at ')'"
ARCALOG.PRG(3632) Error E0022  Invalid lvalue: '()'
ARCALOG.PRG(3636) Error E0030  Syntax error: "syntax error at 'ENDIF'"
Without #include "hbcompat.ch" I not receive this error
3623               for A := 1 to NCAMPI
                  if type(alias()+"->"+NOM[A]) <> type("M_"+NOM[A])
.and. type(alias()+"->"+NOM[A]) <> "M"              
                     //                  ONLY
                     //                  fields
                     //                  veryfie
                     //                  content
                     //                  but no memo
                     x_ster := x_ster+alias()+"->"+NOM[A]+" "
                  else
3632                  if (.not. &(alias()+"->"+NOM[A]) ==
&("M_"+NOM[A])) .or. type(alias()+"->"+NOM[A]) = "M"           
3633                      replace &( alias() + "->" + NOM[ A ] ) with
&("M_"+NOM[A]) // VETTORE=NOM[A]
3634                      X_COSAAGG=X_COSAAGG+ NOM[ A ] +"="+ANY2STR(
&("M_"+NOM[A]) )+","
3635                   endif
3636                  endif
               next A


ppo
               for A := 1 to NCAMPI
                  if type(alias()+"->"+NOM[A]) <> type("M_"+NOM[A])
.AND. type(alias()+"->"+NOM[A]) <> "M"





                     x_ster := x_ster+alias()+"->"+NOM[A]+" "
                  else
                     if ( HB_BITAND( (!), ( HB_BITAND(
((alias()+"->"+NOM[A]) ==), (("M_"+NOM[A])) ) ) ) ) .OR.
type(alias()+"->"+NOM[A]) = "M"
                        _FIELD->&( alias() + "->" + NOM[ A ] ) :=
&("M_"+NOM[A])
                        X_COSAAGG=X_COSAAGG+ NOM[ A ] +"="+ANY2STR(
&("M_"+NOM[A]) )+","
                     endif
                  endif
               next


-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Przemyslaw
Czerpak
Sent: Tuesday, June 03, 2008 5:51 PM
To: Harbour Project Main Developer List.
Subject: Re: RE: [Harbour] untranslate seem not work with
#INCLUDE"hbcompat.ch"

On Tue, 03 Jun 2008, Massimo Belgrano wrote:

Hi Massimo,

> when I have added include "hbcompact.ch" untranslate seem not work

The code below is preprocessed perfectly well. I do not see any problem.

best regards,
Przemek


#xtranslate lj_gotoxy(      =>   lj2_gotoxy(
#xtranslate LJ_SAY(         =>   lj2_SAY(
#xtranslate LJ_FILL(        =>   lj2_FILL(
#xtranslate LoPrPcx(        =>   LO2_PRJPG(

lj_gotoxy()
LJ_SAY()
LJ_FILL()
LoPrPcx()

#INCLUDE "hbcompat.ch"

#xuntranslate lj_gotoxy  (      =>
#xuntranslate LJ_SAY     (      =>
#xuntranslate LJ_FILL    (      =>
#xuntranslate LoPrPcx    (      =>

lj_gotoxy()
LJ_SAY()
LJ_FILL()
LoPrPcx()
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to