Hy Soykan,
There's no need to use macro substitution in your code below at all.
Set Textmerge To (lcfile) Noshow
...
\<TD><font color="#000000" face="arial" size="2">
<<TRANSFORM(EVAL(FIELDS(I)))>></font></TD>
...
=ShellExecute(0, "Open", lcfile, "", "", 0)>Hi All,
>i've html class but i was getting error when fields more than eg. 10 etc. with 3-4 fields there is no problem after 2-3 warning executes events why
>
>by this line
>
> lcfields = &FieldName
>
>error code : 36-commands contains unrecognised phrase/keyword
>
>my code like below
>
>
>Set Safety Off
>lcfile=Sys(2023)+"\"+Sys(2015)+".HTM"
>lcCursor=this.mycursor
>lcdate0=Datetime()
>lcdate=Dtoc(lcdate0)
>lcheader=This.myheader
>lctitle="Soykan HTML Report Viewer"
>lctablo=Iif(This.tablo=.F.,'0','1')
>
>
>
>SELECT (this.mycursor)
>
>Set Textmerge To &lcfile Noshow
>Set Textmerge On
>
>\<HTML>
>\<HTML>
>\<HEAD><H1><font color="#0000FF" face="arial" size="4">
<<lcheader>></font><font color="#000000" face="arial" size="2">
Rapor Tarihi : <<lcdate>></font></H1></HEAD>
>\<TITLE><<lctitle>></TITLE>
>\<BODY BGCOLOR = "WHITE">
>
>Nrec=Reccount()
>LcNrec="(Listed Record) Listelenen Kayýt Sayýsý : "+Str(Nrec)
>
>\<TABLE CELLPADDING=2 CELLSPACING=2 BORDER = <<lctablo>>>
>\<TR WIDTH = 75
>For I = 1 To Fcount()
> \<TH><font color="#FF0000" face="arial" size="2"><<FIELDS(I)>></font></TH>
>Endfor
>\</TR>
>SCAN
> \<TR>
> FOR I = 1 TO FCOUNT()
> FieldName = FIELDS(I)
> lcfields = &FieldName
> \<TD><font color="#000000" face="arial" size="2"><<lcfields>></font></TD>
> ENDFOR
> \</TR>
>ENDSCAN
>\</TABLE>
>\<font face="Arial" size="1" color="red"></b><<lcnrec>></font>
>\</BODY>
>\</HTML>
>Set Textmerge To
>
>Declare Integer ShellExecute In "Shell32.dll" ;
> integer HWnd, ;
> string lpVerb, ;
> string lpFile, ;
> string lpParameters, ;
> string lpDirectory, ;
> long nShowCmd
>
>=ShellExecute(0, "Open", "&lcfile", "", "", 0)
>Clear Dlls
>
>
>
>
>TIA
--sb--
