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