project QadFinancials > class TDebug > method ExportStringHTML


Parameters


icNameinputcharacter
icValueinputcharacter
icOutputFileNameinputcharacterSpecify the output file; Example: "c:\temp\temp.htm"
oiReturnStatusoutputintegerReturn 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.