Auto Increment Help

[jbk]

Hello, using the below code when a user presses "New" button a new field ticket is created with a field ticket id of the next highest number (ie if last field ticket was JKFT00151 when "new" button is pressed next field ticket id is JKFT00152).

my_id = tablemax("tbl_fieldticket","left(Field_Ticket_Id,4) = 'JKFT'","Field_Ticket_Id")
new_id = increment_value(my_id)
topparent.new_record()
topparent:Field_Ticket_Id.value = new_id

What I would like to accompish is when user presses "duplicate" button a new field ticket is created and given the current field ticket's id plus ".1" and I can't figure how to add the ".1" to the field ticket id.

For example, if the user wants to duplicate field ticket JKFT00151 then a dupicate field ticket is created with the field ticket id being JKFT00151.1 then if user want to duplicate JKFT00151.1 a duplicate field ticket is created with field ticket id JKFT00151.2 etc....... I can manually go back to the field "Field Ticket ID" on the form and change the id numbers and add ".1", ".2" etc but I would like this be done using code.

Here's another issue. When I manually change the field ticket id to JKFT00151.1 and user presses "new" button a new field ticket is created with a field ticket id of JKFT00151.2 and I would like it to be JKFT00152. In other words, NO ".#"

Thank you in advance... JON

[Stan Mathews]

Re: Auto Increment Help

For the new record the line

new_id = increment_value(my_id)

would be

new_id = increment_value(word(my_id,1,"."))

[Stan Mathews]

Re: Auto Increment Help

I can't figure how to add the ".1" to the field ticket id.

The logic would be

if there is a period in the id then it has been duplicated previously, just increment it
if not, add ".1" to the end as in

new_id = my_id+".1"

[jbk]

Re: Auto Increment Help

Thanks Stan for the quick response and "working solution" for "New" button. Any ideas on the following:

When user presses "duplicate" button a new field ticket is created and given the current field ticket's id plus ".1" and I can't figure how to add the ".1" to the field ticket id.

For example, if the user wants to duplicate field ticket JKFT00151 then a dupicate field ticket is created with the field ticket id being JKFT00151.1 then if user want to duplicate JKFT00151.1 a duplicate field ticket is created with field ticket id JKFT00151.2 etc....... I can manually go back to the field "Field Ticket ID" on the form and change the id numbers and add ".1", ".2" etc but I would like this be done using code.

[jbk]

Re: Auto Increment Help

Stan I implemented you suggestion on the duplicate button and when pressed it duplicates currently field ticket with same field ticket id without ".1". Here is the code for duplicate button:

my_id = tablemax("tbl_fieldticket","left(Field_Ticket_Id,4) = 'JKFT'","Field_Ticket_Id")
new_id = my_id+".1"
topparent.new_record()
topparent:Field_Ticket_Id.value = new_id

I would like user to find field ticket they wish to duplicate (ie JKFT00200) press duplicate button and a duplicate field ticket is created and given a field ticket id (ie JKFT200.1)

[Stan Mathews]

Re: Auto Increment Help

my_id = tablemax("tbl_fieldticket","left(Field_Ticket_Id,4) = 'JKFT'","Field_Ticket_Id")

is probably returning the field value in Field_Ticket_Id with the trailing spaces leaving no room to store the ".1"

change to

my_id = tablemax("tbl_fieldticket","left(Field_Ticket_Id,4) = 'JKFT'","alltrim(Field_Ticket_Id)")

[jbk]

Re: Auto Increment Help

Stan, using your suggestion I got it almost working as desired using the following code:

current_id = alltrim(topparent.field_ticket_id.value)
dup_id = current_id+".1"
topparent.new_record()
topparent:Field_Ticket_Id.value = dup_id

Using the above code when user presses duplicate on field ticket (ie JKFT00200) a duplicate field ticket is created (ie JKFT00200.1). The problem I'm still having, is user trys to duplicate JKFT00200.1 the desired field ticket would JKFT00200.2 what is currently happening is, a duplicate field ticket is created with field ticket id of: JKFT00200.1.1

Thanks again... JON

[MoGrace]

Re: Auto Increment Help

Hi Jon,
See if this works:

current_id = alltrim(topparent.field_ticket_id.value)
if word(current_id,2,".",1) <> "" then
dup_id = increment.value(current_id)
else
dup_id = current_id+".1"
end if
topparent.new_record()
topparent:Field_Ticket_Id.value = dup_id

[Stan Mathews]

Re: Auto Increment Help

You ignored the logic.

The logic would be

if there is a period in the id then it has been duplicated previously, just increment it
if not, add ".1" to the end as in

Stan, using your suggestion I got it almost working as desired using the following code:

current_id = alltrim(topparent.field_ticket_id.value)
dup_id = current_id+".1"
topparent.new_record()
topparent:Field_Ticket_Id.value = dup_id

Using the above code when user presses duplicate on field ticket (ie JKFT00200) a duplicate field ticket is created (ie JKFT00200.1). The problem I'm still having, is user trys to duplicate JKFT00200.1 the desired field ticket would JKFT00200.2 what is currently happening is, a duplicate field ticket is created with field ticket id of: JKFT00200.1.1

Thanks again... JON

[jbk]

Re: Auto Increment Help

Thanks Robin, that worked with minor change in the following line:

dup_id = increment.value(current_id) >>>> dup_id = increment_value(current_id) (just in case somebody else needed similiar code)

Thanks again... JON

[MoGrace]

Re: Auto Increment Help

Sorry Jon I didn't test it in the IW first ;)

[jbk]

Re: Auto Increment Help

No problem Robin. Thank you for the help!!!

[jbk]

Re: Auto Increment Help

Robin, your solution for duplicating the field ticket works like a charm. Again Thank You... In my earlier post, I asked for help in finding a solution if a user presses duplicate button on form (ie JKFT00200) then a duplicate field ticket with (ie JKFT00200.1) would be created and it does thanks to Stan and Robin. If user tries to duplicate JKFT00200.1 a duplicate field ticket is created (JKFT00200.2). If user tries to duplicate JKFT00200 and JKFT00200.1 and JKFT00200.2 exist, a duplicate field ticket with id of JKFT00200.1 is created even though this ticket number exist. In this scenrio, I would've liked a duplicate ticket with id JKFT00200.3 to have been created due to the fact .1 and .2 already exist. Any and all help would be appreciated.... JON

[MoGrace]

Re: Auto Increment Help

Error checking is an art of its own! Since the user is selecting something other than the last duplicate record - which makes a lot of sense for the user who's only interest is copying a particular record - the logic to him is that it ought to make the next one in the series; regardless of which one of them he chooses. You are now going to have to do a query and then fetch the last record in that query and increment it. Which of course changes the whole ballgame...Your query needs to filter for just the basic field value so all three records will be in the result. Take a look at table.record_content_get() since you are using the open table. That will get you a list. Otherwise I suppose table.query_create() is needed. Once you have a table pointer you can fetch the last record.

No doubt there is a learning curve in Alpha...

[MoGrace]

Re: Auto Increment Help

Jon,
Since you are trying to create a rule here then you need some test for when the user tries to break it. Perhaps you could add a logical flag to the record that your duplicate script changes to true. Then you can prompt the user for what he wants to do when he tries to duplicate a record again and give him a choice?

Illustration:

T 1001
T 1001.1
F 1001.2
F 1002
F 1003

If the user tries to duplicate 1001 again, your rule would now prompt him for the value, giving him the default perhaps of "1001." and of course the option to cancel so he can pick the right record - until he learns better that if he picks the right record in the first place then no prompt appears.

Oh, and you should also test that the number he enters is unique before allowing the record to be accepted.