Passing calculated variables to fields

[neecy]

Hello-
Is there anyway in a script I can pass a calculated variable value on a layout to a field I have in a table? I know I can set the calculated variable as a global, but wanted to know if the calculated variable value on my layout can be passed to the field on a table? I can't remember if I have seen a thread posted on this before.

Thank you-

Neecy

[Stan Mathews]

Re: Passing calculated variables to fields

Yes and easily.

When do you want to do this? You have to choose an event and code the event. Is the form single table based or set based?

Easiest event to use is the form cansave event. Code like

dim tbl as p
tbl = table.current([COLOR="Red"]1[/COLOR])
tbl.[COLOR="red"]fieldname[/COLOR] = var->[COLOR="red"]variablename[/COLOR]

Change the portions in red as appropriate.

[neecy]

Re: Passing calculated variables to fields

Single based table. I have a saved button that will save all values to a master table as well as additional custom code I applied. I have a grand total variable calculated on my layout which I will like to pass to a field on my master table.

Thank you-

Neecy

[Stan Mathews]

Re: Passing calculated variables to fields

Suggested script should work for you when you fill in the field and variable names.

[neecy]

Re: Passing calculated variables to fields

Hi Stan-
Will this script work on a set based format? I have another layout that's is based on a set.

Thanks-

Neecy

[Stan Mathews]

Re: Passing calculated variables to fields

table.current(1)

TABLE.CURRENT( [ Slot_Number as N ] )

Argument
Description

Slot_Number
Optional. Refers to other open tables in the current session. A slot number ranges from 1 to the number of open tables in a session. If your current table is part of a set, Slot 1 is the primary table, Slot 2 is the first child, Slot 3 is the grandchild or the primary table’s second child, and so on. All open tables, whether or not they are part of a set, will occupy slots in the session.

Just change the slot number to the number of the table to which you wish to write the value. If the table to which you wish to write is the parent of the set of the other form, nothing changes.

[neecy]

Re: Passing calculated variables to fields

Hi Stan-
My layout is a set that is displayed by dates. When I apply the code listed below, it will only pass the last variable to the last record. Can this be setup to set the value based on the dates in my bill table? I have included my screen shot of my layout. My layout shows the child tables displayed and grouped by week ending date. The second screen shot shows my grand total bottom right, which is the value I need to post to my bill table which has three fields (date, site_name, total).


topparent.command("RECORD_COMMIT")

dim path as c = iif(a5.Get_Master_Path() = "",a5.Get_Path(),a5.Get_Master_Path())
dim access as c = path


dim tbl as p
tbl=table.current(1)
tbl.fetch_first()

while .not. tbl.fetch_eof()
flg=.F.
tbl.enter_begin(.t.)
tbl.Invoice=calc->Invoice
flg=.T.
tbl.enter_end(flg)
flg=.F.
tbl.fetch_next()
end while
tbl.close()


Thanks

Neecy-

[Stan Mathews]

Re: Passing calculated variables to fields

Sorry, I don't have a clue what you are saying.

Your script doesn't post anything. It creates new records.

Time for a sample?

[neecy]

Re: Passing calculated variables to fields

No problem. I'll send you a sample.

[neecy]

Re: Passing calculated variables to fields

Hi Stan-

The attached sample will give you a better idea of what I am trying to achieve by obtaining the calculated variable values and apply to the 'bill' table.

Thanks-

Neecy

[neecy]

Re: Passing calculated variables to fields

Hi Stan-

Again, I want to thank you. The 'Billing' script disappeared on my end before I sent you the sample database. Attached in word is the script in case you don't see it.

Neecy

[Stan Mathews]

Re: Passing calculated variables to fields

Ok, we're closer.

You want to pass/post the calc->invoice value to the bill.dbf? You want to create a new record in the bill.dbf with the location, date, and calc->invoice value? There are currently 6 records in that table to which we could post.


I'm still not clear when you want do this. While viewing a record on the Billing form? You want to do this for all records in the set?

Be gentle with me. I'm not usually this slow.

[Al Buchholz]

Re: Passing calculated variables to fields

Be gentle with me. I'm not usually this slow.

It must be Friday...

[neecy]

Re: Passing calculated variables to fields

Hi Stan-
You're doing great :). Actually, the bill.dbf file has 2 fields that are generated from the billing script. I guess what I need to do is update that table with the calc->invoice variable value to the Invoice field. The date field is the date_link field I created to link all the weekly tables together. That way, they will display by the week ending date on the form. (I know, kinda confusing until you review the table set). The only table in the set that I will need the invoice value to post to is the bill.dbf. I intend to extract the bill.dbf table data into another database for reporting purposes only, but will need the value of invoice.

Thanks-
Neecy

Ok, we're closer.

You want to pass/post the calc->invoice value to the bill.dbf? You want to create a new record in the bill.dbf with the location, date, and calc->invoice value? There are currently 6 records in that table to which we could post.


I'm still not clear when you want do this. While viewing a record on the Billing form? You want to do this for all records in the set?

Be gentle with me. I'm not usually this slow.

[Stan Mathews]

Re: Passing calculated variables to fields

This code on a button will post the value of calc->invoice from the form to the current parent record in bill.dbf.

parentform.commit()
tbl = table.current(1)
tbl.change_begin()
tbl.invoice = invoice.value
tbl.change_end(.t.)
parentform.resynch()

The same code could also be used on the onfetch event of the form to automatically post the value.