On Save Event not firing

[Beltronics]

Need a little help. I have a form which appends a record to another table on the condition that the field <Status> = "Gone" and the field <Commission> = .T.

Now, if I enter a record in the form with <Status> = "Normal" and save it, then go back and change <Status> to "GONE", the ONSAVE event fires and the record gets appended. But, if I enter a record with <Status> = "Gone" and save it, the ONSAVE event doesn't fire and the record does not get appended unless I go back and edit the record and then save it again.

I have tried the CANSAVE Event but that didn't seem to work either. What am I missing?

Is there another way to append just the record that is open at the time instead of running an append operation and checking every record in the transaction table?

[Tom Cone Jr]

Re: On Save Event not firing

Can't really answer your questions without seeing the script that runs the append operation, and without seeing the append operation's definition. Sample tables and your form would help, too.

If you had a Save button the user had to push in order to save the current record, that button could open the other table and enter a new record quite easily.

Running a saved Append operation to enter a single record is overkill, in my opinion.

BTW, Have you considered the effect of your sequence if the user edits / appends, then edits to "normal", then edits / appends again. Won't you wind up with an unwanted duplicate in your target table?

-- tom

[Beltronics]

Re: On Save Event not firing

Hi Tom and thanks for the info.
No, I don't end up with a duplicate since I only append Unique, replace existing. So, any change to the record appends a new record and overwrites the existing one. The append operation works like a charm if I save the record during an edit operation but not in the initial enter operation.

The append operation is pretty straight forward. In the action script, it is an append "Unique, replace existing". The Master table is a commissionsales.dbf, linking key is "invoice", Transaction table is a repairs.dbf. Filter for the transaction is [Status = "Gone".and.Commission_Sale=.T.]

I may try to work out an xbasic code operation to simply add a record to the table but I have to figure that one out. I know an append that goes thru the entire table is a long way around but I don't see an action script option to add one single record to another table.

I do have a "SAVE" button on the form which the operator clicks on to save the record but, for some reason unknown to me, it needs to be clicked twice before it saves the record. It simply is set up ON Push it executes the menu command "Record|Save Record".

[Tom Cone Jr]

Re: On Save Event not firing

Ok, Jim. Good luck with your project. -- tom

[Stan Mathews]

Re: On Save Event not firing

I don't see an action script option to add one single record to another table.

Maybe time to dip your toes in the xbasic pool? The xbasic example for .Copy_record_To() sound like what you want.

Eliminate one line (in red here) and it should copy the current record to the named table.

dim tbl as P
tbl_source = table.current()
[COLOR="Red"]tbl_source.fetch_goto(3)[/COLOR]
on error goto failed_to_copy
result = tbl_source.copy_record_to("[COLOR="Blue"]OLD_CUSTOMERS[/COLOR]")
on error goto 0
if result then
    ui_msg_box("Result","Record was copied")
end if
end
failed_to_copy:
    ui_msg_box("Record not copied.", error_text_get(error_code_get()))
end

[Beltronics]

Re: On Save Event not firing

Thanks Stan. A place to start anyway. Not sure I follow it thru but I'll give it a whirl. If I run into trouble, I'll post again. It won't be for a bit though so stand by!!

[Beltronics]

Re: On Save Event not firing

Stan
I don't want to copy the entire record, only some of the fields.
I'll keep working on it.

[Stan Mathews]

Re: On Save Event not firing

Action Script Get Field Values (into Variables)
Action Script Enter a New Record
Action Script Xbasic Change Record

[Beltronics]

Re: On Save Event not firing

Stan and Tom,

Here I am trying to figure a way around this problem and I may end up having to set up a test database to send someone to look at BUT, the thought struck me last night. WHY? I may not be an expert at Xbasic but I'm not a complete dummy when it comes to Alpha. So, why is this not working. I set up this routine to append a record to a new table (even though it's overkill) in 2003 and it's been working fine. Now, I have a problem and I'm looking at the oldest date when this started happening. My oldest "missed append" was on or about June 16, 2008. So, what upgrade to Alpha did I install in June 2008 that made this perfectly fine routine start messing up? It worked for 5 years and stopped working 100% a year ago. Instead of wracking my brain to figure a work around, maybe I should try and find the upgrade that caused it?? I'll keep you posted.

[Mike Wilson]

Re: On Save Event not firing

Jim,
My question is why spend needless hours searching for something that may not exist? So when you find it ... what then? I say...don't bother. Make an example with the source and target tables, which fields you want copied and post it and in a few minutes you will get a solution without the search and rescue mission that you have decided is (not) in order. Move forward, not backwards.

It simply is set up ON Push it executes the menu command "Record|Save Record".

Why use a menu command? I have found these finicky. Why not use what is the simplest:

topparent.commit()

[Beltronics]

Re: On Save Event not firing

The “Operation” described below was set up in 2003 and worked fine. It may not be the best way to do what I want but for a non Xbasic programmer, it worked for me. Lately, we found missing records that should have been in the table “nucommsales” and were not. Looking at the missing records, the earliest was June 16, 2008. So, this process worked from sometime in 2003 until June 2008 when it started missing some “appends”.

---------------------------------------

Start the database named Btronics.adb

Menu should open. In order to close menu form, you need to click on the small lock icon to the left of the Menu page title. password beltv1968

1. Click on tab, Data Entry
2. Click on "Work Order"
3. Enter a new work order.

Customer; Belanger, James
Invoice # (make up any number, 0003 would be fine).
Staff person should be "Dan Griffin"
Click "Commission Sale" so an "X" appears.
Save the record.

Go to Control Panel

Double click table "Nucommsales"

The invoice you just entered should be there, it isn't. ONSAVE event fires operation "addcomm" which should have added the record from the work order to nucommsales.

Go back to the work order you just entered. Edit it, edit any field - for example, change NH to VT and back to NH and save the record.

Go back to control panel, open Nucommsales and now your record has been added.

Now, if you entered the work order as “Normal” and not “Gone” and saved it. Then went in and edited the record to show “Gone”, then it appended OK. It just does not append the record ONSAVE if you enter “Gone” initially.

To see control panel, click on the Lock icon and enter the password.

[Mike Wilson]

Re: On Save Event not firing

Sorry Jim,
I can't follow. I don't see a tab "Data Entry". To be honest, when the form first opens... there are no tabs at all until a button is pressed and the form seems to refresh.

[Beltronics]

Re: On Save Event not firing

I have complained to Alpha about those disappearing tabs for a year now. If you use the Alpha upgrade without the NEW BROWSE the tabs are always there. If you use the latest version with the NEW BROWSE, the tabs are gone until you click in an area where they are SUPPOSED to be.

Depending on which version you have, you should have a tab called Data Entry, then a button called Work Order.

The later version has a tab named Work,
Then a button named Work (Service) Order.

[cwenger]

Re: On Save Event not firing

Jim

I had the same problem with tabs not showing. Try this: in design mode of your tabbed object, right click and go to Order. Select "to front" and save. This worked with your database on my system (V9 with New Browse).

[Beltronics]

Re: On Save Event not firing

Wow Cliff

Alpha has been working on this "bug" for over 6 months and has not come up with a solution. Thank you very much.