How do you handle memos?

[russ Boehle]

I am changing all my memos so that they are read only.
To edit one I have a button that opens a separate form allowing the memo to be edited. I like this effect and it works well but I want all the edit forms to be dialog forms.

I open the edit memo form over the form that calls it (and find the record with an index find) When I close the form I can do a refresh on the on activate for the "parent" form so that the edits show.

I want to make all the edit forms dialog to force the user to close the form to go back to the parent form. The problem arises in that a dialog form apparently doesn't deactivate the parent form so I can't refresh on the on activate going back to it. When the edit form is not dialog the edit form becomes active so this isn't an issue.

Does anyone have any ideas on how to make the parent form lose focus when the edit form is opened without closing the parent form so I can use the on activate (or something else) to refresh it?

I don't want to close the parent when I open the edit form since I want to use these edit forms from several places and I want to avoid separate coding for the return form in each case.

Thanks in advance.
Russ

[Ronald Anusiewicz]

RE: How do you handle memos?

Hi Russ,

I've had excellent results using this code with memo fields.
This script is attached to a button on the form and the memo field is read only.

The nice thing about this script, the memo field is only open long enough to save the change or the enter.

This memo is in a grandchild table.

Ron


'Date Created: 06-Jan-2004 07:27:21 PM
'Last Updated: 11-Feb-2004 07:26:34 PM
'Created By : Ronald Anusiewicz
'Updated By : Ronald Anusiewicz

parentform.Commit()
tparent = table.current(1)
tgchild = table.current(2)
vtransno = tgchild.TRANSNO
vSwkno = tgchild.SWKNO

dim shared t as p
t = table.get("mfix")
p.text=t.desc

if t.desc = "" .and. t.swkno = "" then
if a5_memo_editor(p,"Edit the Corrective Action Field") = "Save" then
t = table.open("mfix")
t.enter_begin()
t.TRANSNO = vtransno
t.SWKNO = vswkno
t.desc = p.text
t.enter_end()
t.close()
parentform.Resynch("mfix")
else
cancel()
end
end if
else
if a5_memo_editor(p,"Edit the Corrective Action Field") = "Save" then
vRec = t.recno()
t = table.open("mfix")
t.fetch_goto(vRec)
t.change_begin()
t.desc = p.text
t.change_end()
t.close()
else
cancel()
end if
end if

xbasic_wait_for_idle()
:MInvoices:desc.Refresh()

END

[russ Boehle]

RE: How do you handle memos?

Thanks Ron,
I think this is sort of what I was doing before I went to the dialog form.
So far the options that work correctly are closing the parent form, opening the edit memo form and reversing this to go back to the parent. This refreshes the parent but loses portability since I have to code to open the parent when I close the edit form.

Or I can make the edit memo form NOT dialog. When I go to the edit memo form from the parent, the parent loses focus and can be refreshed using the onactivate event.

When the edit memo form is a dialog, the onactivate event no longer works when I go back to the parent. The title bar is grayed as if it is deactivated but it doesn't respond like it is deactivated.

Thanks,
Russ

[russ Boehle]

RE: How do you handle memos?

Solved the problem. Got rid of opening them as dialog and saved the record on the deactivate event. This prevents the user from keeping a memo in edit mode and activating another form.

Russ

[Ronald Anusiewicz]

RE: How do you handle memos?

Russ,

I glad, but I just spent a bunch of time making you a demo.
At least take a look at it.

Ron

[russ Boehle]

RE: How do you handle memos?

Thanks Ron, I downloaded it and will check it out tonight.


Russ

[russ Boehle]

RE: How do you handle memos?

That's nice Ron, This has some advantages over what I was doing. I will look at it more closely tonight.

Thanks again,
Russ