Object name with onpush indicator

[Stan Mathews]

Re: Object name with onpush indicator

Seems to me to work for 1970. Not all of the years are handled in the script.

What do you see not working?

[gschepp]

Re: Object name with onpush indicator

I was focusing on trying to make it work with a range of elections before expanding the remaining years. The focus was on getting the conditional object labeled Senate Terms 1976 - 2026 work first. If you were checking the range from 1904 to 1974 then click on the button between the group of years and "Serve First". Right below the button with the down green arrow.

U.S. Senators run for election once every 6 years unless there is a special election. If a Senator is elected in 1976 there won't be an election in 1978 or 1980. Next election would be 1982.

I am trying to have "S" enter for years that a Senator is elected. For years that they are not elected but serving enter a "C".

1976 -- S
1978 -- C
1980 -- C
1982 -- S

When the button is pushed for 1976 it should check to see if the Senator was elected in 1974 or serving. If elected a "C" would be enter. If serving in 1974 it would check to see if was serving in 1972 (Enter "S") if elected in 1972 (Enter "C"). Pattern is 2 election (even) years between years Senators are elected.

The range you reviewed has a problem with this issue. It will not enter any data for the year after an election with "S" entered.

1970 -- S
1972 --
1974 -- S
1976 --
1978 -- S

It needs to be

1970 -- S
1972 -- C
1974 -- C
1976 -- S
1978 -- C

It does not seem to correctly interpret the expression after the variable Senate_E1. Or I have it written wrong.

I also attempted writing it different starting with Senate 1978.

[Stan Mathews]

Re: Object name with onpush indicator

I think I see now.

Define a global variable for the form pushed_btn. Set it to any year you want. I used
pushed_btn = "1904"

Add an inline xbasic element to each button as the first action,

dim global pushed_btn as C
pushed_btn = right(this.Name(),4)

The elect_senate script is then

dim global pushed_btn as C
Dim Senate_Status as C
Dim Senate_E1 as C
Dim Senate_E2 as C
Dim Senate_E3 as C
Dim Tbl_Senate as C
Tbl_Senate ="Senate->S"
Senate_Status =""
Senate_Year = val(pushed_btn)
		Senate_E1 =Tbl_Senate +str(Senate_Year,4)
		Senate_E2 =Tbl_Senate +str(Senate_Year-2,4)
		Senate_E3 =Tbl_Senate +str(Senate_Year-4,4)
		select
		case isblank(Senate_E1)
			select
			case isblank(Senate_E2)
				Senate_Status = "S"
			case isnotblank(Senate_E2)
				select
				case Senate_E3 ="S"
					Senate_Status = "C"
				case Senate_E3 ="C"
					Senate_Status = "S"
			end select
			case else
				Senate_Status =""
		end select
		case isnotblank(Senate_E1)
			Senate_Status =""
		case else
			Senate_Status =""
	end select
	eval("parentform:Senate_"+pushed_btn+".value") = Senate_Status

[Stan Mathews]

Re: Object name with onpush indicator

I probably don't have the logic right but there's a problem in your script with the isblank() and isnotblank() statements. You're inadvertently testing whether the variables Senate_E1, etc are blank, not the table fields you intend.

I changed from the global variable scenario I suggested and created a udf. The udf is the onpush code for each button (I changed 1976 to present). The udf has one parameter, the year portion of the button name. I change the "blank" tests to alltrim(eval(variable_name)). Eval() returns the field value. Also changed the logic a bit as well.

Give it a try.

Congress.zip

[gschepp]

Re: Object name with onpush indicator

Thanks Stan, I tweaked the case part when Senate_E2 >"". It was nearly making it work except it would leave the election year blank after 2 non elected years showing with a "C". The result was S - C - C - Blank - S - C - C - Blank. After tweaking it is now S - C - C - S - C - C.

Replaced that section with:

case alltrim(eval(Senate_E2))= "S"  (Section starting with -- case alltrim(eval(Senate_E2))> "")
	Senate_Status = "C"	
case alltrim(eval(Senate_E2))= "C"
	select
		case alltrim(eval(Senate_E3)) ="S"
			Senate_Status = "C"
		case alltrim(eval(Senate_E3)) ="C"
			Senate_Status = "S"	
	end select