LPARA taHeaders, tcTableTags LOCAL lcOutput lcOutput = "" IF EMPTY(tcTableTags) tcTableTags = [ BORDER="1" CELLSPACING="0" style="font:8pt Verdana"] ENDIF lcOutput = THIS.CreateSortScripts(ALIAS()) + CR * Added code to create DTD lcOutput = lcOutput + [<xml id="] + LOWER(ALIAS()) + [dtd" >] + CR lcOutput = lcOutput + "<!DOCTYPE cursors [" + CR + ; '<!ELEMENT cursors ' + ' (' + alias() + ')>' + CR lcOutput = lcOutput + ; this.CreateDataStructureDTD(alias())+CR lcOutput = lcOutput + "] > " + CR + CR lcOutput = lcOutput + [</xml>] + CR + CR lcOutput = lcOutput + [<xml id="] + LOWER(ALIAS()) + [style" >] + CR lcOutput = lcOutput + THIS.CreateCursorXSL(@taHeaders, tcTabletags, .T.) + CR lcOutput = lcOutput + [</xml>] + CR + CR lcOutput = lcOutput + [<xml id="] + LOWER(ALIAS()) + [">] + CR lcOutput = lcOutput + CHR(9) + [<cursors>] + CR lcOutput = lcOutput + THIS.CreateCursorXML(ALIAS(),,2) + CR lcOutput = lcOutput + CHR(9) + [</cursors>] + CR lcOutput = lcOutput + [</xml>] + CR + CR lcOutput = lcOutput + [<DIV id="] + LOWER(ALIAS()) + [target"></DIV>] + CR RETURN lcOutput