Turning off Auto Increment during append

[MikeC]

Re: Turning off Auto Increment during append

Jeff,
Try commenting out

rul.sysid.Default.Default = ""
rul.sysid.Default.Type = "None"

And

rul.sysid.Default.Default = "00001" 
rul.sysid.Default.Type = "Simple"

as I don't think it is needed to change them to do what you want anyway.

[MoGrace]

Re: Turning off Auto Increment during append

Jeff,
I know that if I have a form open and try to change the table field rules, that the program will warn that no changes will be saved. I still think that between the field rule change and the append and then to change back the field rule, that you are better off closing the table before the append. And if you are running this script from a form that uses the table, that it would not save the field rule changes anyway.

You could perhaps have a button on the form call this routine as a global script which would first close the form and reopen it at the end.

[Stan Mathews]

Re: Turning off Auto Increment during append

Try it this way.

'Date Created: 24-Mar-2008 09:06:46 PM
'Last Updated: 24-Mar-2008 09:06:46 PM
'Created By : 
'Updated By : 
tbl = table.open("test")
rul = tbl.rules_get()
rul.change_begin()
rul.sysid.data_type = "User"
rul.sysid.Default.Default = ""
rul.sysid.Default.Type = "None"
rul.change_end(.t.)
'tbl.close() '<- don't do this since we're using the tbl pointer later


append.t_db = "test2"
append.m_key = ""
append.t_key = ""
append.m_filter = ""
append.t_filter = ""
append.type = "All"
append.m_count = 1
append.m_field1 = "SYSID"
append.m_exp1 = "@Test2->Sysid"
append.t_count = 0
'tbl.enter_end(.T.) 'don't see where this is necessary and will cause an error
'because an enter has not begun
'Prompt for confirmation before running the Operation.......
dim rec_count as n 
rec_count = a5_get_records_in_query("test2",append.t_filter)
message_text = "A maximum of "+rec_count + " record(s) will be appended from 'test2', to 'test'. "+crlf(2)+ "OK to proceed?"
operation_result=ui_msg_box("Append Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result <> ui_ok_selected then 
end 
end if 


tbl.append()

'Display a dialog box showing the results of the Operation
[COLOR="red"]'a5_append_op_result(a_records_processed,a_records_total,a_records_violated, "test")[/COLOR]
'this was causing a problem with the table remaining in use
'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then 
if topparent.Class() = "form" .or. topparent.class() = "browse" then 
topparent.Refresh_layout()
end if 
end if 
[COLOR="red"]tbl.close()[/COLOR]

tbl = table.open("test")
rul = tbl.rules_get()
rul.change_begin()
rul.sysid.data_type = "AutoInc"
rul.sysid.Default.Type = "Simple" <-this was reversed with next line
'couldn't set default value until default type was established
rul.sysid.Default.Default = [COLOR="Red"]quote([/COLOR]"00001"[COLOR="red"])[/COLOR] '<-change this to whatever your real default might be
rul.change_end(.t.)
tbl.close()

[Jeff Richards]

Re: Turning off Auto Increment during append

Thats it. It works. Thanks Stan and everyone else.

[Jeff Richards]

Re: Turning off Auto Increment during append

One other thing.
Where would this be documented?
What about if I wanted to do this with a calc field rule or a posting field rule.
Ex. rul.sysid.data Type= ?????? ( posting, calc. etc.)
Thanks.

[MikeC]

Re: Turning off Auto Increment during append

Jeff,

The onliine help file is where I always look first. Here is one link and within it are other links related to what is needed. I searched under "field rules" and then chose "change with xbasic"

http://support.alphasoftware.com/alp...le_Methods.htm

[MoGrace]

Re: Turning off Auto Increment during append

One other thing.
Where would this be documented?
What about if I wanted to do this with a calc field rule or a posting field rule.
Ex. rul.sysid.data Type= ?????? ( posting, calc. etc.)
Thanks.

If you want to see the field rules set in a table you can go to the interactive window and try this:

dim tbl as p
tbl = table.open("yourtablename")
rul=tbl.rules_get()
?rul 'gives the fields
?rul.yourfieldname 'gives the rules for the field

It will display the current values - and don't forget to type afterwards:

tbl.close()

Edit: See Stan's link below

[Stan Mathews]

Re: Turning off Auto Increment during append

If you want to see the field rules set in a table you can go to the interactive window and try this:

dim tbl as p
tbl = table.open("yourtablename")
?tbl.rules_get()

It will display the current values - and don't forget to type afterwards:

tbl.close()

There's a pretty good discussion here about how to see the rules associated with each field. I believe the method suggested will only reveal methods and field names.

[kthibeault1965]

Re: Turning off Auto Increment during append

This is a great thread. thanks everyone.

Where is the rul. method documented? I want to set the value for a calculated field. (for example date()

What would go in the ????? below

tbl = table.open("family")
rul = tbl.rules_get()
rul.change_begin()
rul.date_mod.data_type = "Calc"
rul.date_mod.????? = 'Date()'
rul.change_end(.t.)
tbl.close()

[Tim Kiebert]

Re: Turning off Auto Increment during append

EDIT: as Robin posted above

To find out what kind of properties you have to work with do the following in the Interactive window.

tbl = table.open("family")
rul = tbl.rules_get()
?rul.date_mod

This will give you a whole list of properties of rul.date_mod. The properties preceded with a '+' have sub properties. When I want to find out what property to use I put some weird but valid data in the property of interest using the standard method, ie the field rule editor, and then go exploring in the interactive window.

In this case the property you are looking for is called, funnily enough :) , 'calc'.

MikeC posted a link to the help in a previous thread.

[kthibeault1965]

Re: Turning off Auto Increment during append

I feel like Sherlock holmes sometimes! or is it James Bond?

THANKS for your help. I learn something new about this tool every single day. Thanks especially to the great team of support around the world. cheers mate!