What an interesting problem,
Here is what i came up with nt 7.07..
In the Source Embeditor paste this above where your savebutton is generated
(you said popup, so put it in the FormHeading Routine )
near
! End of "Form Button Set : 2 Save"
! Start of "Form Button Set : 2a JavaScript"
! [Priority 5000]
p_web.site.SaveButton.TextValue = clip('Start Task')
packet = clip(packet) & p_web.CreateStdButton('button',Net:Web:SaveButton,loc:formname,,,loc:javascript)
p_web.site.SaveButton.TextValue = clip('End Task')
packet = clip(packet) & p_web.CreateStdButton('button',Net:Web:SaveButton,loc:formname,,,loc:javascript)
p_web.site.SaveButton.TextValue = clip('Save') SaveButton.TextValue = clip('Save')
(if your CreateStdButton for the Savebutton is different, chnage this to match it to what is generated.
that will give you two more save buttons with the labels you want.
now, to do your custom code for each scenario,
put this at the bottom of ValidateRecord routine
near" ! End of "On Insert & Update : Form ends : before disk write"
Case p_web.getvalue('_buttontext_')
of 'Start Task'
! Test:Jobstatus = 'Task Started' !do your stuff here
of 'End Task'
!Test:Jobstatus = 'Task finished' !or here
end
the "_buttontext_" is the magic stuff
poul