Using <Tbl>.enter_begin() to populate other table removes current record

[Sperrrow]

I have a table with event code called on the CanSaveRecord event to populate another table with a new record. This code does populate the other table but it removes the record that was just manually entered from the open table.Here is the code:

================
CONSTANT ENTER=2
dim tbl_mode as n
tbl_mode=table.get("operation_summary").mode_get()
if (tbl_mode=ENTER) then

dim mt_num as c
dim opcode as c
mt_num=table.get("operation_summary").Mt_Number
opcode=table.get("operation_summary").Op_Code

cost_table=table.open("[pathalias.adb_path]\costs_summary")

cost_table.enter_begin()
cost_table.Mt_Number=mt_num
cost_table.Op_Code=opcode
cost_table.enter_end()
cost_table.close()
end if

=================

So again just to clarify the new record does appear in "costs_summary.dbf" however the manually entered record in "operation_summary.dbf" disappears as soon as it is entered. Is there a particular line in this code that removes that manually entered record? I'm unable to find anything that would cause the removal unless enter_begin() and enter_end() do something behind the scenes.

[Al Buchholz]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

Matthew

I'd suggest that you use the debug(1) command to help you with the coding.

You have a few errors in your code and this will cause the cansave event to cancel the save of the original record.

ie tbl_mode=table.get("operation_summary").mode_get() is not valid syntax

[Sperrrow]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

That line of code does give me the correct mode of the table as far as I can tell. The function table.get(alias) gives me a table object. From there I can do <obj>.mode_get() with the table object i just received to get the table mode. It seems to be working correctly as far as I can see. What do you see that I am missing?

The debugger progresses through the script exactly how I thought it would and correctly identified what mode the table was in.

[Sperrrow]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

I fixed the issue by placing this code in the OnSaveRecord event.

[Al Buchholz]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

I fixed the issue by placing this code in the OnSaveRecord event.

Oops - do you mean no code? I don't see your code.

[Sperrrow]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

Yeah I guess that would help if I posted it. I moved all of this code to OnSaveRecord:

================
CONSTANT ENTER=2
dim shared tbl_mode as n
if (tbl_mode=ENTER) then

dim mt_num as c
dim opcode as c
mt_num=table.get("operation_summary").Mt_Number
opcode=table.get("operation_summary").Op_Code

cost_table=table.open("[pathalias.adb_path]\costs_summary")

cost_table.enter_begin()
cost_table.Mt_Number=mt_num
cost_table.Op_Code=opcode
cost_table.enter_end()
cost_table.close()
end if

=================

Mind you I did change the variable declaration of tbl_mode to "dim shared tbl_mode as n" and also had that line in the CanSaveRecord event because I wasn't sure if you could get the table mode in OnSaveRecord.This code was left in CanSaveRecord:

=====================
dim shared tbl_mode as n
tbl_mode=table.get("operation_summary").mode_get()
=====================

[MikeC]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

Matthew,
Instead of constantly obtaining a new table pointer with table.get() the following is more widely used.....(changes in red).

[COLOR=Red]dim tbl as p[/COLOR]
[COLOR=Red]tbl=table.get("operation_summary")[/COLOR]
[COLOR=Red]if tbl.mode_get()="ENTER" then[/COLOR]
    
       dim mt_num as c
       dim opcode as c
       mt_num=[COLOR=Red]tbl[/COLOR].Mt_Number
       opcode=[COLOR=Red]tbl[/COLOR].Op_Code

       [COLOR=Red]dim cost_table as p[/COLOR]
       cost_table=table.open("[pathalias.adb_path]\costs_summary")

       cost_table.enter_begin()
          cost_table.Mt_Number=mt_num
          cost_table.Op_Code=opcode
       cost_table.enter_end([COLOR=Red].T.[/COLOR]) [COLOR=Red]'default is .T. but like to be explicit[/COLOR]
       cost_table.close()
end if

Just another way of doing it....pick and choose what works for you!! :)

[MoGrace]

Re: Using &lt;Tbl&gt;.enter_begin() to populate other table removes current record

Also when opening another table to enter or change records, putting a flag to use with Enter_end() allows you to trap any errors that might end the script before the table is closed.

dim cost_table as p
dim commit_flag as L
commit_flag = .t.
on error goto ERRMSG
cost_table=table.open("[pathalias.adb_path]\costs_summary")
       cost_table.enter_begin()
          cost_table.Mt_Number=mt_num
          cost_table.Op_Code=opcode
       cost_table.enter_end(commit_flag) 
cost_table.close()
end
ERRMSG:
commit_flag = .f.
'add custom error msg here
RESUME NEXT