Coloring Marked Records

[James A. Schott]

A golfer's index is calculated from the twenty most current scores, and of those 20 the lowest 10 are used to calculate on overall index. The attached script file does just that, but I would like to go back to the SCORES table and mark/color the ten records that have been used.

The basic idea behind the script file is to create a date query on the SCORES table, read the calculated index values into an array, sort the array, then calculate the overall index and store it in the GOLFERS table.

Any thoughts or ideas will be appreciated.


JAS

[James A. Schott]

RE: Coloring Marked Records

Hope this attaches the file.

[James A. Schott]

RE: Coloring Marked Records

Had absolutely zero luck attaching a file. Here's the script:



''XBasic
'option strict
statusbar.disable()
on error goto error_handler
dim begcgolfers as p
dim scores as p
dim qry as p
dim begcindex_array[20] as n
dim bec_golfer as c
dim begcindex_sum as n
dim nrecs as n
dim i as n
dim num_to_sum as n
dim begcindex_to_post as c
dim gender as c
dim begc_post as c
begcgolfers = table.open("c:alpha5v4golf clubgolfers")
query.filter = "posted = 'Y'"
record_query = begcgolfers.query_create()
records_found = record_query.records_get()
iterations = 0
scores = table.open("c:alpha5v4golf clubscores")
begcgolfers.index_primary_put()
scores.index_primary_put()
begcgolfers.fetch_first()
start:
begc_post = begcgolfers.posted
select
case begc_post = "N"
goto notposted
case begc_post = "Y"
goto continue
end select
continue:
while .not. begcgolfers.fetch_eof()
bec_golfer = begcgolfers.begc_no
gender = begcgolfers.gender
'query.filter = "begc_no = "'"+bec_golfer+"'"
'query.filter = "begc_no = "+bec_golfer
query.filter = "begc_no = "+"'"+bec_golfer+"'"
query.order = "trn_date"
query.options = "D"
qry = scores.query_create()
for i = 1 to 20
begcindex_array[i] = 1000
next i
i = 0
scores.fetch_first()
while .not. scores.fetch_eof()
i = i + 1
begcindex_array[i] = val(scores.index)
scores.fetch_next()
if i = 20
exit while
end if
end while
sort_array("begcindex_array")
nrecs = i
num_to_sum = 0
select
case nrecs > 16
num_to_sum = nrecs - 10
case nrecs > 14
num_to_sum = 6
case nrecs > 12
num_to_sum = 5
case nrecs > 10
num_to_sum = 4
case nrecs > 8
num_to_sum = 3
case nrecs > 6
num_to_sum = 2
case nrecs > 4
num_to_sum = 1
end select
select
case num_to_sum = 0
begcindex_to_post = "NH"
case else
begcindex_sum = 0
for i = 1 to num_to_sum
begcindex_sum = begcindex_sum + begcindex_array[i]
next i
begcindex_to_post = str(round(0.96 * (begcindex_sum/num_to_sum),1),5,1)
end select
select
case gender="M".and.begcindex_to_post"NH".and.val(begcindex_to_post)>36.4
begcindex_to_post="36.4"
case gender="F".and.begcindex_to_post"NH".and.val(begcindex_to_post)>40.4
begcindex_to_post="40.4"
end select
iterations = iterations + 1
statusbar.percent(iterations,records_found)
begcgolfers.change_begin()
begcgolfers.begc_index = begcindex_to_post
begcgolfers.change_end()
qry.drop()
notposted:
begcgolfers.fetch_next()
goto start
end while
'begcgolfers.index_primary_put()
'scores.index_primary_put()
record_query.drop()
'qry.drop()
statusbar.enable()
statusbar.clear()
begcgolfers.close()
scores.close()
end
error_handler:
err = error_code_get()
msg = error_text_get(err)
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error",msg+str(err)+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
end