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
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
