short xbasic code question

[tcampb]

I am trying to highlight a record in a browse on a form(mouse), press a button which has the following code on it, and have the system date entered into a blank field(workdone, field 3).
Focus should stay there (next record)so the operator can keep pushing the button to mark records as being completed with an occasional need to arrow over a record that is not yet completed.

Can one of you xBasic gurus comment on the following(be gentle):

''XBasic
tbl = table.current()
while .not. tbl.fetch_eof()
tbl.change_begin()
field(tbl,3)
date()
end while
commit()
tbl.Fetch_Next()
parent.resynch()

the field(tbl,3) errors out
code partially stolen from a previous post

Thanks
tc

[Mick Magnuson]

RE: short xbasic code question

Hi Tom
Heres my twist. If you want a button to enter the date, but still have navigational functions (move between records), I would have 3 buttons - Previous, Change, Next

The change button code would be something like
tbl=table.current()
form_object_name.activate()
tbl.change_begin()
tbl.date_field=system->date
tbl.change_end()
parentform.resynch()

Note: The script does not set any index, or fetch any starting record, so whereever you are is where it starts, and in the current index order.

The "Next" button would be
tbl=table.current()
if .not. tbl.fetch_eof()
tbl.fetch_next()
parentform.resynch()
end
else
ui_msg_box("Warning","No more records to change")
end
end if

Something to that affect. Hope that helps a little
Mick

[Mick Magnuson]

RE: short xbasic code question

Opps. Totally misread your post about this field being in a browse. I was thinking it was a field on a form, thus the

field_name.activate() command may not apply.

You may have to tweak that a bit.

[Mick Magnuson]

RE: short xbasic code question

Hey again
I got bored so I made a little app the sort of does what you are wanting to do. I think.

Unzip to a dummy folder.
Mick

[tcampb]

RE: short xbasic code question

Mick,
Just began working with your previous reply, however, your zip doesn't seem to hold anything I can get at.
Thanks
tc

[Mick Magnuson]

RE: short xbasic code question

Sorry Tom
That was pointed out to me a little earlier. I'll resend it correctly very shortly (its at home)

Mick

[tcampb]

RE: short xbasic code question

Well at least I feel better that I'm not the only one poaching help from others questions and posts. lol
tc

[Mick Magnuson]

RE: short xbasic code question

Lets try this one. Should work this time.
The form ins't pretty.. but you get the idea.

[tcampb]

RE: short xbasic code question

Mick,
Thanks, Currently tweaking but am getting argument is incorrect data type onpush for vmode (first line).
Pointers?
tc

[tcampb]

RE: short xbasic code question

Figured that out.
changed pagedown (your db) to tbl
Now it's not liking line 4
same error (incorrect data type)
tc

[Mick Magnuson]

RE: short xbasic code question

Hi Tom
Take the UI_Freeze commands out of the arrow buttons. I was playing with that *after* I sent the first one.. well tried to send it anyway.

[Mick Magnuson]

RE: short xbasic code question

The line you changed should be

mode=your_form_name.mode_get()

not tbl.mode_get()

:) Fun isnt' it?

[Mick Magnuson]

RE: short xbasic code question

Oh heck.. lets make this thread really long haha.

The reason its erroring is this

tbl.mode_get() returns a 0, 1 or 2.

form_name.mode_get() returns "View", "Change" or "Enter"
respectively.

Mick

[tcampb]

RE: short xbasic code question

Mick,
Yeah, I picked up on the 0,1,2 thing but didn't connect it to form_view, tbl_view. So I changed the "enter, change, view" to 0,1,2 but still.....

fixed

now...
browse1:date.activate() returns incorrect data type.
Is that the only error I can expect to see with xbasic?
haha
tc

[tcampb]

RE: short xbasic code question

Mick,
You really are my hero.
date was your field name not mine.
Thank you so much for being patient.
I AM beginning to understand at least the basic syntax of Xbasic.
It now works as described.
Hurrah!
tc