Displaying a .value

[Martin]

I have a Save button on a form which, before it actually saves a new record, calculates the value of two fields from data entered on the form.

I do the arithmetic to find valueA (a numeric) then say:

objectA.value = valueA

The value does not appear on the form, although it's saved OK. When I next access that record, or even if I simply re-save it, the values appear. I've tried a parentform.resynch() but it doesn't seem to help. Can you?

Martin.

[forskare]

RE: Displaying a .value

Martin,

A5 is doing what it's supposed to do. Use a calculate field instead of putting it on the button.

kenn

[Steve Dentler]

RE: Displaying a .value

Martin,
To avoid a 75 post thread, it would be helpful to see your script.

[Martin]

RE: Displaying a .value

Thanks, Ken and Steve,

I think the calculation is a bit too complicated to put in field rules, it involves checking a date range in another table, then finding another record in a "rooms" table and from information in both of them, calculating a room charge, which can be over two "seasons". This all works perfectly accurately from the in-line xBasic and a function I've written, but the results don't appear immediately on the form. I could attach the code to On Departing one of the relevant objects on the form, but, at that stage there's no guarantee that the other relevant fields will have been completed, so I though better to put it on the Save button, after the form has been checked for missing data. As I say, everything works fine except for the subsequent display.

For what it's worth, though, here's the code attached to the OnPush of my Save button (don't know how word-wrap will affect this):

'' xBasic

if modifying = .f. .and. adding = .f.
END
end if

'' Rescheck*() are my reservation validation Global Functions which check for missing data:

m_valid = rescheck1("save", ab.value, rs.value, arrivaldate.value, departdate.value, roomstart.value, roomend.value)
if m_valid="Fail"
END
end if
m_valid = rescheck2("save", roomname.value, roomtype.value)
if m_valid="Fail"
END
end if
m_valid = rescheck3("save", status.value, gCode0.value, adults.value, children.value)
if m_valid="Fail"
END
end if
''
topparent.find_Exit()

''
m_arriving = arrivaldate.value
if (c2date(last_visit.value) 0 .and. roomnights.value > 0
stdCostDay.value = m_roomCharge / roomnights.value
else
stdCostDay.value = 0
end if

''ui_msg_box(str(stdCostTot.value),str(stdCostDay.value))

end if

mode = parentform.mode_get()

if mode = "ENTER" .or. mode = "CHANGE" then

parentform.commit()
end if
if parentform.mode_get()"VIEW" then
ui_msg_box("Unable to save your changes","Please correct and save, or discard your changes",UI_STOP_SYMBOL)
end if



res_input.restrict_enter = .t.
res_input.restrict_change = .t.
modifying = .f.
adding = .f.

resBrowse.enable()
entry_mode.text="View"


END

[forskare]

RE: Displaying a .value

Martin,

No don't put in a calculated field in the field rules, that won't solve your problem. Create a calulated field using the Drag/Drop list and put it in there.

That should work instantaniously.

kenn

[Martin]

RE: Displaying a .value

So, I just create a table field, drag it to my form, and, er, attach my code, where?

Martin.

[forskare]

RE: Displaying a .value

Martin,

First, go to your function and copy the code. Then open the Drag/drop list and drag the to yoour form. Give it a name and the click the small xy icon on the right of the Expression box. Paste the code from the function, click OK and give it a whirl.

Another way is, when the expression box opens, you might be presented with a list of functions. If so, simply dbl click on the function.

Click OK and give it a whirl.

kenn

[Steve Dentler]

RE: Displaying a .value

stdCostTot.value = m_roomCharge


if m_roomCharge > 0 .and. roomnights.value > 0
stdCostDay.value = m_roomCharge / roomnights.value
else
stdCostDay.value = 0
end

--------------------------
I'm assuming these are the form fields you want to refresh.
I believe if you use the text property here instead of the value property, your form objects (fields) will show the change. If not then follow with stdcosttot.refresh(), stdcostday.refresh().

[Martin]

RE: Displaying a .value

That looked very promising, Steve, but,

I tried it, and it made no difference; the values don't display after saving a new record (although they will if I come back and modify the record, and THEN save).

I can't believe that it's impossible to press a button which instigates a bit of calculation, and for the result to be displayed in an object on the parent form, without all this palava. Surely this sort of thing is needed all the time?

Yours, baffled...

Martin.

[Steve Dentler]

RE: Displaying a .value

I do it on a hundred forms all the time with absolutely no problem. Are you sure that you are referencing the correct object name?--re-check properties. Are you sure that your code is returning a value? --write it the trace window?

[Martin]

RE: Displaying a .value

I think it must be because everything works when modifying an existing record (it's the same code). But I'll check everything again.

Thanks,

Martin.

[Martin]

RE: Displaying a .value

Steve and everyone,

Here's a little example. Before anyone says it: I KNOW this could havebeen done with a calculated field, but the actual problem I'm having involves finding records in other tables, etc, etc, which wouldn't be possible as a calculated field.

Anyway, whatever I'm doing wrong (and I'm sure it's something very simple) is reproduced here.

All I want to do is press a button and have the result of some processing displayed in a field. In this case, add together two input fields and display the result in a third field.

What could be simpler? You tell me.

Many, many, thanks for your time and help,

Martin.

[whanigsberg]

RE: Displaying a .value

Martin,

I examined your example and after some initial confusion discovered a problem with your form. Your code works.

You can establish this by editing the form and enabling the code field. Save the form. At this point attempt to edit the field manually and you will see that when you attempt to save the record you get a "no such field" error.

Edit the form.
Copy the "save" button. Open the default form and enter design mode. Paste in the button and you will see it works as you wish (although the field is not wide enough to hold the content your code attempts to enter--but this is a detail).

Let me add that in order to avoid problems later the reference to a field object on the form contained in a button script should be "parentform:code.value" rather than "code.value" as you have it.

Bill

[Martin]

RE: Displaying a .value

Thanks Bill,

This is so frustrating (for you as well as for me); I tried your suggestions and still the code doesn't display.

Of course, the original form was built on the default form, so, could I have some settings wrong in A5? I've once again attached the changed form, after copying my xBasic, and attaching it, with button, to the default form. I've put a couple of ui_msg_box's in to see what's in memory at certain times. It looks as if nothing is being stored to parentform:code.value even 'though nom and numero are obviously correct.

Any more suggestions gratefully received. Looks as if I may have a sleepless weekend.....

Martin.




=============================
'' This code is attached to the "Save" button:
numero = parentform:number.value
nom = parentform:name.value
ui_msg_box(nom,str(numero))
parentform:code.value = upper(substr(nom,1,3))+str(numero)
ui_msg_box("TEST",parentform:code.value)
parent.commit()

[Ken L Herrold]

RE: Displaying a .value

Martin:

Here's an example of a really newbie's response to this challenge. An 'On_depart' event from the Room Number field. It uses a form variable to display the findings of the script and is refreshed on the spot. The 'Save' button just commits the record. All of your code is attached to that depart event. I'm sure my solution here is laughable to more experienced users but it's all I have.

Ken