Memo Control

[Tbaker]

Re: Memo Control

Steve

To add a start date/time you just need to dim a variable

 dim v_start as t

Then insert this line of code after the dim statments

 v_start=now()

Here is the script:

Dim P as P
dim newmemo as c
dim v_start as t
vMode = parentform.mode_get()
v_start=now()
IF vMode = "CHANGE" .or. vMode = "ENTER"
parentform.commit()
END IF

tbl = table.current() 
p.text=""

vChoice = a5_memo_editor(p,"mitigation_memo") 

IF vChoice = "save" then
IF alltrim(tbl.mitigation_memo) = ""
newmemo = p.text
ELSE
newmemo = tbl.mitigation_memo + crlf(2) +v_start+crlf()+p.text+crlf()+now()+" "+user_name()
end if	
tbl.change_begin()
tbl.mitigation_memo=newmemo
tbl.change_end(.t.)

topparent.Refresh_Layout()

END IF

Also the code has been changed to reflect Tim's advice on the end if statement.


Tim - thanks for that change in the end if statement - I was testing and the end if was put in the wrong place. Thanks again for correcting that.

Tom

[steve745]

Re: Memo Control

It's not putting the now() if the field is blank
it does put the text but no time stamp
and it doesn't stamp the start time on push put text now()
something like that and the on the save in memo editor it will put the stamp at the end of the entry to show time spent with editor open

[Tbaker]

Re: Memo Control

Steve

See if this works the way you want it

Dim P as P
dim newmemo as c
dim v_start as t
dim user as c ="TOM SR"
vMode = parentform.mode_get()
v_start=now()
IF vMode = "CHANGE" .or. vMode = "ENTER"
parentform.commit()
END IF

tbl = table.current() 
p.text=""

vChoice = a5_memo_editor(p,"mitigation_memo") 

IF vChoice = "save" then
IF alltrim(tbl.mitigation_memo) = ""
newmemo = v_start+crlf()+p.text+crlf()+now()
ELSE
newmemo = tbl.mitigation_memo + crlf(2) +v_start+crlf()+p.text+crlf()+now()+" "+user
end if	
tbl.change_begin()
tbl.mitigation_memo=newmemo
tbl.change_end(.t.)

parentform.Refresh_Layout()

END IF

I guess I'm a little confused

Tom Baker

[steve745]

Re: Memo Control

thanks for the help tom I keep getting closer and closer
i just need to learn more xbasic so i can fine tune this.
i gotta put the dbase live so i can't be playing too much with it.
that part of the code didn't work.
here is what i am using
Dim P as P
dim newmemo as c
vMode = parentform.mode_get()

IF vMode = "CHANGE" .or. vMode = "ENTER"
parentform.commit()
END IF

tbl = table.get("notes")
p.text=""

vChoice = a5_memo_editor(p,"mitigation_memo")

IF vChoice = "save" then
IF alltrim(tbl.mitigation_memo) = ""
newmemo = p.text
ELSE
newmemo = tbl.mitigation_memo + crlf(2) + p.text +" "+now()+" "+user_name()

end if
tbl.change_begin()
tbl.mitigation_memo=newmemo
tbl.change_end(.t.)

parentform.Refresh_Layout()

END IF

[Tbaker]

Re: Memo Control

Steve

I took your last script and entered it onto a new form on my test app that was composed of a set (parent style_lu1 - child Notes).

I then used your code modified as follows:

Dim P as P
dim newmemo as c
[COLOR="Red"]dim v_start as t
v_start=now()[/color]
vMode = parentform.mode_get()

IF vMode = "CHANGE" .or. vMode = "ENTER"
parentform.commit()
END IF

tbl = table.get("notes") 
p.text=""

vChoice = a5_memo_editor(p,"mitigation_memo") 

IF vChoice = "save" then
IF alltrim(tbl.mitigation_memo) = ""
[COLOR="red"]newmemo = v_start+crlf()+p.text+crlf()+now()
ELSE
newmemo = tbl.mitigation_memo + crlf(2) + v_start+crlf()+p.text +crlf()+now()+" "+user_name()[/COLOR]
end if 
tbl.change_begin()
tbl.mitigation_memo=newmemo
tbl.change_end(.t.)

parentform.Refresh_Layout()

END IF

This works on my test app - I have attached a thumbnail showing what I get when I used this script (it is the bottom memo field)

Is this what you want?

Tom

[steve745]

Re: Memo Control

works great tom
one of my ladies brought up a good point. when the editor is open they can't read the other notes written is there a way we can put the previous notes in the editor but as read only? The editor keeps focus

[Peter.Greulich]

Re: Memo Control

when the editor is open they can't read the other notes written is there a way we can put the previous notes in the editor but as read only?

Not exactly - but go back to my example. You can have the memo field read only on your form (as in my example), so they can view the prev. notes there. Then use the button code to open the xdialog for the new memo input. Make the read only memo as big as you want on the form.

[steve745]

Re: Memo Control

Thats what we are doing your code helped me in many ways 1 to understand xbasic a little never used it before i started messing with your code. 2 xbasic offers lots of flexiblity. the memo is set read only on the form like your example, if they are on a call and have to review previous notes the have to close the editor to read them. can the editor open like a split window with field current data on bottom and new text entry area on top is that possible?
as i use alpha5 more and more i find that almost anything is possible.

[Tbaker]

Re: Memo Control

Steve

I don't know what your form look like, so don't know how much of the memo field would be visible when the memo editor is open - but you can position the memo editor anywhere on your form (drag it) so that it might not cover the memo field. The only thing is that as long as the memo editor is open you would not be able to use the vertical scroll on the memo field to read all of the lines (presuming that there are a lot of entries) so you would still have to close the memo editor.

When you move the memo editor it will remember that position and will reappear at that same location until you exit the application.

Tom

[Peter.Greulich]

Re: Memo Control

can the editor open like a split window with field current data on bottom and new text entry area on top is that possible?

Sorry, not possible.

[Keith Hubert]

Re: Memo Control

Steve,

As Peter said, it is not possible if you use just the one table.

The method I use, which is on a 50 user network, is 2 tables. First for text input, second for viewing only. See thumbnail.

This was all taken form Application Programming by Dr Peter Wayne.

The user types in the top box and when text is saved, it is appended to the bottom box and then deleted from the top box. So the top box is always ready to take new text. Notice there is also the Users Initials and date and time stamp. The bottom box is Read Only.

Both boxes are RTF, which means all font, size, colour and spelling controls are available.

[steve745]

Re: Memo Control

wow keith
i could make a button just open another form based on current record and see the other notes. wow that is just what i was looking for do i need to make the entry table part of the set or can it be indepenant?

[Peter.Greulich]

Re: Memo Control

The method I use, which is on a 50 user network, is 2 tables. First for text input, second for viewing only.

Which gets us back to Tom Cone's suggestion (post #2 of this thread).

[steve745]

Re: Memo Control

keith the women in the office are raving over you they are so excited

[Mike Wilson]

Re: Memo Control

It is with xdialog. See attached.

Are they excited over his physique or his coding skills?