Web Connection 5.0
HTMLDATAGRID Stores the Request ID above Header
Messages
Reply
Edit
Delete
HTMLDATAgrid works great ... however, in the rendering of the page, at the very top of the document it displays the requestid ... if I should add a cookie ... it also shows that information: There is a property found in the wwhttpheader of "lRequestIdAdded" which is protected and is intially set to false. How do i remove the 'RequestedID: statement at the top of the document. Following is a partial of the document created and the below that is the code that generates the document. Also, the site uses usersecurity to login.
<bold>Here's the partial of the document created</bold>
<span style="{font-size: xx-small; color: red;}">Code parsing for language: "'HTML'" is not currently supported.<br></span>
RequestId: 5_2dd21291
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Header Test Page</title><LINK rel="stylesheet" type="text/css" href="css/westwind.css"></head><body><div class="containercontent"><form action="" method="POST">
Optionally filter by company: <input type="text" id="txtCompany" name="txtCompany" value="" style="width: 300px;" /><input type="submit" id="btnSearch" name="btnSearch" value="Search" /><br />
Sort By<input type="radio" name="rdosortorder" value="company" checked="checked" /><label for="rdosortorder">company</label><input type="radio" name="rdosortorder" value="lastname" /><label for="rdosortorder">lastname</label></form><bold>This is the code that creates the above htm snippet</bold>
<span style="{font-size: xx-small; color: red;}">Code parsing for language: "'VFP'" is not currently supported.<br></span>
loHTMLHeader = CREATEOBJECT("wwHTMLHeader",Response)
loHTTPHeader = CREATEOBJECT("wwHTTPHeader",Response)
loHTMLHeader.AddTitle("Header Test Page")
loHTMLHeader.AddStyleSheet("css/westwind.css")
Response.HTMLHeaderEx(loHTMLHeader,loHTTPHeader)
Response.Writeln( [<div class="containercontent">])
*** Add a form for the filter - use GET so it use query string values
Response.WriteLn(HtmlFormOpen())
Response.WriteLn( "Optionally filter by company: " +;
HtmlTextBox("txtCompany",lcCompany,[ style="width: 300px;"]) +;
HtmlSubmitButton("btnSearch","Search") + "<br />" + CRLF +;
+ 'Sort By' ;
+ HtmlRadioButton("rdosortorder","company",.t., 'company');
+ htmlradiobutton("rdosortorder","lastname",.f., 'lastname') )
Response.WriteLn(HtmlFormClose())
*** Create the configuration helper object to set
*** rendering options and each individual column to render
loConfig = CREATEOBJECT("HtmlDataGridConfig")
*** Main configuration options
loConfig.Width = "900px"
loConfig.CssClass = "blackborder"
loConfig.Style = "margin-top: 30px;"
loConfig.DataKeyField = "PK"
*** Paging requirements
loConfig.PageSize = 10
loConfig.PageBaseLink = "showclients.mcg?"
*** Add Columns manually
*** First column is completely calculated - displaying sequential record number
loColumn = CREATEOBJECT("HtmlDataGridColumn")
loColumn.Expression = [recno("TCustomers")]
loColumn.HeaderText = "No."
loColumn.FieldType = "N" && Defaults to "C" - any other set the type
loColumn.Style="text-align: center"
loConfig.AddColumn(loColumn)
*** Embedding a link with an expression - an HREF link in this case
loColumn = CREATEOBJECT("HtmlDataGridColumn")
loColumn.Expression = [HtmlLink("ShowClient.wwd?id=" + TRANSFORM(TCustomers.pk) + "&returnurl=HtmlDataGrid.wwd",TCustomers.Company)]
loColumn.HeaderText = "Company"
loConfig.AddColumn(loColumn)
*** Embedding a plain and simple field - expression, header and type can be passed
loConfig.AddColumn("TCustomers.NAME","Name")
*** Another field
loConfig.AddColumn("DisplayMemo(TCustomers.Address)","Address")
*** Apply Fox formatting
loColumn = CREATEOBJECT("HtmlDataGridColumn")
loColumn.Expression = "BillRate"
loColumn.HeaderText = "Rate"
loColumn.FieldType = "N"
loColumn.Format = "$$$,$$$.99"
loColumn.ItemAttributeString = [ style="text-align: right" ]
loConfig.AddColumn(loColumn)
*** Render to HTML with configuration passed as parm
lcHtml = HtmlDataGrid("TCustomers",loConfig)
Response.Writeln(lcHtml)
*** Close container content
Response.Writeln("</div>")
Response.DocFooter(PAGEFOOT)
USE IN TCustomers
Thanks
Roy
