Please check my script-- having problems with a shorttime field

[acceptthis]

There's one script in the attached database. I remarked out a while statement, that when it's not remarked out, Alpha crashes.

The while statement reads like this:

h_hour=time("0h",convert_type(hours.time_actual,"T"))
p_hour=time("0h",convert_type(appt.SCH_TIME,"T"))
while h_hour = p_hour

I think it has something to do with the query.order for the appointment table. I originally had hours.time_actual and appt.sch_time as character fields, and the script worked just fine. After changing them to shorttime variables, I haven't been able to get it to work.
I thought changing the variable type was going to make it more flexible, but I'm thinking I was wrong.
Before changing the variables, the result table looked something like this:

01:00 am
. . .
07:00 am
07:00 am  07:10 am  detail
07:00 am  07:30 am  detail2
08:00 am
. . .

[acceptthis]

I found my problem. Thanks anyway.

There's something about posting message. If you work on something something for 3 hours, nothing will click. If I ask a question, I'll find it on my own in 10 minutes.

[Al Buchholz]

It's an uplifting experience, isn't it? ;)

You do have to share the solution though....

tks

[acceptthis]

An appointment daily display script

Happy to explain. Here's what it was doing:
When it came to the last record of the appt table, sch_time still matched the hours_of_the_day-->sch_time. Since it matched, it kept looping in the embedded while loop and would never kick out.
To fix it, I added this code:

if prosp.fetch_eof() then p = "30"

I could have used any number that's not in the 24 hours to avoid the problem, so I used "30". With it kicked out, it continued to write the hours of the day without the appointment detail.
I added some other if/then statements so that it writes the records in the order I want, and cleans it up.
I'm sure there are better and prettier code writing, but it works. Here's the code: I'd be flattered if anyone else found value in it:

dim prmpt_title as c 
dim prmpt_default as c
dim flag as l 
dim global which_date as d

prosp = table.open("appointments")          
hours = table.open("hours_of_the_day")
flag = .f.

'Prompt for a date and store result in a variable called 'Which_date'.
prmpt_title = "Print Appointment Schedule for Which Date?"
prmpt_default = "date()"
Which_date = ui_get_date_calendar(prmpt_title,prmpt_default)
	
query.filter="sch_date={"+which_date+"}"
query.order= "sch_time"
query.options="T"
prosp.query_create()
hours.fetch_first()
prosp.fetch_first()
detail2=table.open("detail2",file_rw_exclusive)
detail2.zap(.t.)
'debug(1)
while .not. hours.fetch_eof()
	detail2.enter_begin()
	detail2.sch_hour = hours.Time_actual
	detail2.enter_end()
	h = time("0h",convert_type(hours.time_actual,"T"))
	p = time("0h",convert_type(prosp.SCH_TIME,"T"))
	while h = p 
		h = time("0h",convert_type(hours.time_actual,"T"))
		p = time("0h",convert_type(prosp.SCH_TIME,"T"))
		if prosp.fetch_eof() then 
			p = "30"
		else
			if .not.flag then
			    detail2.enter_begin()			'     that match the hour.  remove the remark, and I crash.
			    detail2.sch_hour = hours.Time_actual
				detail2.sch_time = prosp.sch_Time
				detail2.description = prosp.note
				detail2.enter_end()
				prosp.fetch_next()
				flag = .t.
			else
				flag = .f.
			end if
		end if
	end while
	hours.fetch_next()
end while
detail2.close()
'report.preview("report using detail2 as prosp without filtering")

With this script, you can create a report on the detail2 table so that the hours that don't have detail are also displayed. It makes a daily appointment list much more visual than a regular report, and the user can see what time is open.
I've sure learn alot with this thing. Much more than I thought I would. I probably wouldn't have started it if I knew how much time I was going to waste.:o
Er, I mean, how much I was going to learn.
I've attached a picture of a report I just did.

[Edward Larrabee]

Perhaps people will find the Date and Time Conversion Matrix helpful.

[acceptthis]

Perhaps people will find the Date and Time Conversion Matrix helpful.

Thanks.
That helps a bunch!