project QadFinancials > class TDebug > method ExportStringHTML
Parameters
icName | input | character | |
icValue | input | character | |
icOutputFileName | input | character | Specify the output file; Example: "c:\temp\temp.htm" |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/tdebug.p)
/* open output stream */
if not icOutputFileName = ?
then do while true on error undo, retry:
if retry
then do:
assign icOutputFileName = '':U.
leave.
end.
output to value(icOutputFileName) append.
leave.
end.
put unformatted "<table border=2 style='border-collapse: collapse; font-family:Arial; font-size:10pt' bordercolor=#111111 cellpadding=0 cellspacing=0>":U skip.
/* name of temp table */
put unformatted "<tr>":U skip.
put unformatted "<td>":U string(now) "</td>":U skip.
put unformatted "<td>":U "STRING:":U icName "</td>":U skip.
put unformatted "</tr>":U skip.
/* value of string */
put unformatted "<tr>":U skip.
put unformatted "<td>":U icName "</td>":U skip.
put unformatted "<td>":U icValue "</td>":U skip.
put unformatted "</tr>":U skip.
put unformatted "</table>":U skip.
if icOutputFileName <> '':U
then output close.