Xbasic to override grid control properties

[rjonas]

Please NOTE:
In this post, I am asking for assistance in defining grid control properties, not grid properties.

I know there are several methods for overriding grid properties in the A5W containing the grid. But I am looking for a method that will allow me to override grid control properties with Xbasic.

Specifically, I am passing session variables to an A5W page. This A5W page contains a grid component that has three fields, with each field assigned a textbox control. By default, I have set each field control to enable Hide Row (.Column.Hide=.t.)

On the basis of if-then-else tests of the value of the session variables passed to this A5W page, I want to either keep the .Column.Hide for each field control set to TRUE (.t.) or change the .Column.Hide properties to FALSE (.f.)

I know that the Grid Events allows the insertion of Xbasic that will conditionally set grid control properties. BUT, as far as I understand, every Grid Event only occurs after the user has clicked the submit button. I want to be able to execute Xbasic code that will allow overrides of the grid control properties before the page is generated by the WAS. Therefore:

Question 1: Is it possible to override/define grid control properties with Xbasic before the WAS calculates the HTML and sends it to the user's browser?

Question 2: If the answer to Question 1 is yes, where in the A5W page containing the grid would I insert the Xbasic?

As always, thanks in advance for any help you can offer.

[Steve Wood]

Re: Xbasic to override grid control properties

Yes, you can do this. As an example for a component named Membership:

with tmpl_membership
	componentName = "membership"
	if myvar = "x" then
		field_info[1].Column.Hide = .f.
	else
		field_info[1].Column.Hide = .t.
	end if
end with

Or

with tmpl_membership
	componentName = "membership"
	' my defaults
	field_info[1].Column.Hide = .f.
	field_info[2].Column.Hide = .f.
	' end of my defaults
	if myvar1 = "x" then
		field_info[1].Column.Hide = .t.
	end if
	if myvar2 = "x" then
		field_info[2].Column.Hide = .t.
	end if
end with

You can determine the value for "[x]" by simply counting down your component, starting with [1] for the first control. Or you can look in the xbasic tab on the component builder to find your specific control's [x] value. Note, it is not always "field_info", it may be "SearchField_Info[x]" if part of the search, or DetailField_Info[x] if part of the details section. AND, the [x] value will change if you add or subtract controls to your component.

[rjonas]

Re: Xbasic to override grid control properties

As always, thanks for your help and your very clear explanation.

[MinamiT]

Re: Xbasic to override grid control properties

If you want to override the grid text based on the query string you can do something like the code below.
The url to the page is:
http://servername/xrdev/Schedule_App...ate=12/31/2006

with tmpl_Schedule_ApptLo
	componentName = "Schedule_ApptLo"
	'TTM 12/31/06 - If the component is for Making the appointment, then show the appropriate fields.
	IF eval_valid("session.current_Date") then	
		field_info[1].Column.Hide = .t.
		field_info[2].Column.Type = "Freeform"
		field_info[2].Column.FreeFormTemplate = "<input type=text name='V.R1.DATE' id='V.R1.DATE' value="+ session.current_Date +">" 
	END IF
end with