Having trouble with form events and field events

[twwtc]

I am trying to have an event save a calculated field to a field

The form �TracNew� is based on a set (one to many, linked on ID) named wtc_exp that has two tables:
1. Wtcinv
2. Expenses
Wtc_exp has five fields:
1. ID
2. Date
3. Type
4. Description
5. Amount

The form �TracNew� has an embedded browse that has the five fields from the table wtc_exp. When an expense record is entered in the embedded browse, I would like to have a field on the above form to keep a running total of expenses for that inventory item. I have been able to do this with the following calculated field and the form:
Tot_Exp = Total(Expenses->Amount,Grp->wtcinv)

The problem with using a calculated field is that I am not able to use that �running total calculation� in other reports, browses, or forms.

So I added a field to the form called �repairs� that I have tried to copy the calculated field �Tot_Exp� with form events or field events and I can�t get it to work.

In the form event cansave I have:
tbl = table.current()
tot_exp.value = tbl.repairs


or what I would prefer is on the Calculated field �Tot_Exp� onchange event:
tbl = table.current()
tot_exp.value = tbl.repairs

Any ideas on what I'm missing

Thanks
Tony

[DaveM]

Re: Having trouble with form events and field events

you can do that with action scripting. copy the contents of the calc field in a variable. and the set the contents of whatever field with the variable. 2 steps, easy done.
need the calc field name in the form and the foem name of the other field.

[Stan Mathews]

Re: Having trouble with form events and field events

So I added a field to the form

Not sure what you mean. Fields on forms can be table fields or variables. Did you add a field to the table and place it on the form? Are you trying to copy the calculated field value to the new table field?

tbl = table.current()
tbl.repairs = tot_exp.value

[twwtc]

Re: Having trouble with form events and field events

Stan,
I did add a field (repairs) to the parent table and placed it on the form (TracNew), and yes, I'm trying to copy the calculated field (tot_exp) value to the new table field (repairs).

Dave,
I think I'm close with the event method, but I'll take a look at doing it with a variable.

Thanks
Tony

[Stan Mathews]

Re: Having trouble with form events and field events

I think you had your assignment backwards

In the form event cansave I have: 
tbl = table.current()
tot_exp.value = tbl.repairs

That says take the contents of tbl.repairs and put it in the tot_exp value property.

[twwtc]

Re: Having trouble with form events and field events

Stan
I made the change:

tbl = table.current()
tbl.repairs = tot_exp.value

Kinda works. When a value is entered in the embedded browse field amount, the calculated field tot_exp reflects the entry. The table field repairs does not. However, if I delete the "0" in the repairs field, then hit save, it works (same as calculated field)

I need it to work as soon as the calculated field changes, without any other user input or effort.

Also, entries in the embedded browse are on going. Added to and changed on a daily basis.

Thanks
Tony

[Stan Mathews]

Re: Having trouble with form events and field events

I need it to work as soon as the calculated field changes

To do that the code would have to be on a browse event, not a form event. I don't think you'll find one that fires when a single field/column value changes.

[twwtc]

Re: Having trouble with form events and field events

Stan
How about the onchange event for the calculated field tot.exp? I have tried that and it is not working either.
Tony

[johnkoh]

Re: Having trouble with form events and field events

Tony,

(Save) Button code is better because It will not fire until changed the parent records. see below code.

'It wrote by Someone, not me and purpose is
'You could do it in the OnSave event for the form. If your calculated total is displayed then that object has a value.
'Try a table.change_begin() to pass that value to the field you want to update.


dim tbl as p
dim vTotal as n
dim commit_flag as L
vTotal = parentform:xTotalLine.value

ui_msg_box("test",vTotal) 'test,
'(1) after changed the child records, the cal_value was changed then press F9 save key, you cannot see this message
'(2) However, after change the parent records, press F9 key, then you can see this message.

tbl = table.current(1) 'should always be the header or parent table
on error goto ERRMSG
commit_flag =.t.
tbl.change_begin()
tbl.total = vTotal
tbl.change_end(commit_flag)
parentform.Resynch()
parentform:total.refresh()
end
ERRMSG:
commit_flag = .f.
RESUME NEXT
'The above code, will fire after changed the parent's record. The F9 key will not fire it.

Or from LearnAlpha; Saving an Invoice total into invoice header
The Total Button OnPush Event Script follows:

''XBasic Save Total button OnPush Script
dim hdr as p
sys_send_keys("[F9]") 'this commits the record
hdr=table.current() 'sets the hdr pointer to the Invoice_header table
hdr.change_begin() 'start the change method
hdr.invoice_total=Inv_Total.value 'the calculated total from the form is
' in the Invoice_total field
hdr.change_end(.t.) 'end the change method
invoice_total.refresh() 'refreshes the total field in the form body

[twwtc]

Re: Having trouble with form events and field events

John, I'm not sure I follow your example or at the least, I would have a hard time getting it into my form.
Any other ideas on how to mirror a calculated field to a table field?
Thanks
Tony

[johnkoh]

Re: Having trouble with form events and field events

Tony,

Create a Button and use the button event, onPush,, insert this code with modification.

''XBasic Save Total button OnPush Script

'Just test purpose
vCalValue = parentform:Tot_exp.value
ui_msg_box("test",vCalValue) 'test You can erase it later 

dim tbl as p
tbl = table.current()         'sets the hdr pointer to the Invoice_header table
      tbl.change_begin()          'start the change method
           tbl.repairs =  tot_exp.value           'the calculated total from the form is in the Invoice_total field
      tbl.change_end(.t.) 'end the change method

(Your Field_name) tot_exp.refresh() 'refreshes the total field in the form body

Let me know and show me the screen shot or something if you still have the trouble.

[johnkoh]

Re: Having trouble with form events and field events

Tony,

Check your field object name too

[twwtc]

Re: Having trouble with form events and field events

John and others,
I think I have found a solution to my problem. After finding some advice that Tom Cone had given on another thread about putting the code in the onsave event for the embedded browse, my form field is getting changed immediately.
Thanks!!
Tony