Browse Table Item Number

[MikeC]

Re: Browse Table Item Number

Keith,
Note that the run_count is not being used in the field rules as yours is---I have used these "report functions" many times outside of reports but since the documentation states very plainly that

...not intended for table level field rules...

I have not attempted such in field rules.....not that you would change your current code but just in case you might want to use this in a future endeavor.

[Keith Hubert]

Re: Browse Table Item Number

Hi Mike,

I cant see where I have used Run_Count(). This looks like it was Gabe's suggestion.

I must give credit to Dr Peter Wayne for the code I have used and it works very well.

[Mike Wilson]

Re: Browse Table Item Number

I have been playing with this and have attached an example. I can't see where either method works well. I didn't use Keith's yet, that is next. The 4 calculated line nuber fields in the parent-child set for slows the program to a near halt, but still shows the problems with both Tom's and my methods. It seems to matter if it's use is in a child versus a parent browse. I don't see either working completely.

[Tom Cone Jr]

Re: Browse Table Item Number

Mike W, the only problems I see with your example are these:

a) slowness - I think this is due to the many run_count() calcs that you've got running concurrently. BTW, the speed can be improved a bit if you add the GRP parameter to all calls, including those affecting only the parent table.

b) the wrong line counter appears, provisionally, when a new record is begun, but is corrected as soon as the pending new record is saved.

Both of these seem pretty much what I would expect. Am I missing something?

My testing has been done with build 1884_3220. BTW, using the Invoice form in AlphaSports, which has a browse for the linked items records, I don't see any duplication of line numbers using the calc display expression I suggested elsewhere above. However, when the user begins a new item record the calc field rule is evaluated and uses the previous line number while the row is being filled in. When the row is saved the line count is displayed correctly. If this makes you nervous don't do data entry in the browse, use a popup dialog or a second form.

[MikeC]

Re: Browse Table Item Number

Keith,
As an alternative was shown you using run_count(), I just wanted to make sure you were aware of a possible limitation or glitch that may be found if you tried the run_count function in field rules as you use your current code is all...not even sure you can use it there thinking about it!! :)

[Keith Hubert]

Re: Browse Table Item Number

Hi Mike,

Just as a matter of interest, in V6 Alphasports->Invoice there was a calculated field put into the browse to give a row number:

run_count = run_count(Invoice_Items->Product_Id,GRP->INVOICE_HEADER)

Not quite sure if it renumbered the rows if an item was deleted.

The disadvantage of that was you could not use the row number as a field in a report.

Not sure when the run_count() was no longer to be used on forms?

[MikeC]

Re: Browse Table Item Number

Keith,

Not sure when the run_count() was no longer to be used on forms?

This has been a matter of contention amongst many here as the help file is a bit vague in my opinion. As far as I am concerned a function that is referred to as mainly a report function should be used in moderation, and the only definite places the documentation states it should not be used is in the field rules or in expressions. Many use count, run_count, etc. on forms with no problems as far as I have heard.

[G Gabriel]

Re: Browse Table Item Number

So... this thread is still going!
Forget about run_count()
1-Add a blank field, numeric, character, whatever suits you apetite in the table. Let's call it: Rank.
2-Put this script in the OnFetch event (and in the OnSave event as well) of the form:

dim counter as n=1
t=table.current(...the child table slot #..)
x=tablecount("child_Table","linking_field="+linking_field)
for i=1 to x
t.change_begin()
t.rank=counter
t.change_end(.t.)
counter=counter+1
next
topparent.resynch()

P.S.
Untested script.

[wlewis7961]

Re: Browse Table Item Number

I got this thread started originally & solved my "Item #" problem with something similar to:

run_count = run_count(Invoice_Items->Product_Id,GRP->INVOICE_HEADER)

It works in an embedded form & handles adding & deleting records well so far; it also works on a form too. I have just logged in again & was surprised at all the additional posts. I appreciate all the help here.

[G Gabriel]

Re: Browse Table Item Number

Needless to say, the script I posted will not work as such. You need to add few lines to fetch_first, fetch_next().

Alternative script:
1-Add a field as mentioned above
2-Put this script in the Onfetch (+ OnSave):

dim counter as n=0
browse1.activet()
browse1.fetch_first()
browse1:colum_title.value=1
while .not.browse1.eof()
browse1.fetch_next()
browse1:colum_title.value=counter
counter=counter+1
end while

I could tell you without testing, it will be slow.

So, here is another script:

t=table.open("child")
t.query_create(..use same filter and order of the child as in the form)
dim counter as n=1
t.fetch_first()
while .not. t.fetch_eof()
t.change_begin()
t.rank=counter
t.change_end(.t.)
counter=counter+1
end while

None of these scripts were tested and might need some tweaking.