Auto PO Number

[Jeff, Richards]

I am using the following formula to create a Purchase order number.
right(str(year(date()),4,0),2)+padl(str(month(date()),2,0),2,"0") + padl(str(day(date()),2,0),2,"0")
Problem is- all my PO#'s for the day are the same.
Is there a way to add a -1, -2 etc. at the end?
Something like this. If the date for today has already been used add a - 1 to the end. Then the next won would have a -2 added etc.
Thanks.

[Mike Konoff]

RE: Auto PO Number

would it be possible to perform a dbsum or total calculation to determine how many existing PO's there are for a given day, and then add "1" to that number?

[Robin Sculthorpe]

RE: Auto PO Number

Hi,

I do something like this by using a separate autoincrement field and using that in the calculation as well. For example, if you never have more than 99 purchase orders in a day, you can multiply your original calculated PO# by 100 and add the autoincremented field to it. There would be no hyphen, but your last 2 digits would be different for each purchase order that day. Also, you would need to restart your autoincrement with the number 1 each day.

Best regards,
Robin

[Robert Carolina]

RE: Auto PO Number

Jeff

One other suggestion is to set the default value in field rules to DBMAX()+1 or PREVIOUS()+1.

If you use PREVIOUS(), make sure you set the index for it.

Hope this will help.

[Daniel Weiss]

RE: Auto PO Number

Jeff
I would do something like this
Create a table i.e. �pono_num� with a field called �pono�

And use this code to get your PO #

ids = table.open("pono_num")
ix = ids.index_primary_put()
if ix.records_get() = 0
ids.enter_begin()
ids.pono = right(str(year(date()),4,0),2)+padl(str(month(date()),2,0),2,"0") + padl(str(day(date()),2,0),2,"0")+"-1"
ids.enter_end(.t.)
LR = ids.pono
elseif ix.records_get() >0
ids.fetch_last()
LR = ids.pono
if left(LR,6)!= right(str(year(date()),4,0),2)+padl(str(month(date()),2,0),2,"0") + padl(str(day(date()),2,0),2,"0")
ids.change_begin()
ids.pono = right(str(year(date()),4,0),2)+padl(str(month(date()),2,0),2,"0") + padl(str(day(date()),2,0),2,"0")+"-1"
ids.change_end(.t.)
else
ids.change_begin()
ids.pono = left(LR,7)+ltrim(str(val(right(LR,len(LR)-7))+1))
ids.change_end(.t.)
end if
end if
NR = ids.pono
ids.close()
new_pono = NR

Daniel Weiss

[JerryBrightbill]

RE: Auto PO Number

As the many examples demonstrate, there are a couple ways to do this. Attached is an example using a variation of Mike's idea. I use something similar in a couple databases and prefer using the CanSaveRecord event in field rules. In this way, the new number is not defined until it is saved. This reduces problems in a networked situation.

The code is fairly simple. It requires an index on the po number field and uses tablemax() to get the last po number.
Is then checks the left side of the po number that is derived form the date and checks if is todays date. If it is, it checkd the value of the unique right part and increments it 1. If the last entered is not today, it starts at todays first value.

Unzip the table and attach it to any database. Open the field rules and check the event code. If you open the default browse, enter any value in the text field. When the record saves, the new po number is created.

Jerry

[Dan Blank]

RE: Auto PO Number

Here is an example I worked up for another A5 user. This may help.

Dan