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 DllsTIA
