Browse Table Item Number

[wlewis7961]

I can't figure out how to add a calculated or system field to show the "Item Number" in an embedded browse in a form for a Set with a 1 to Many link. The Browse has the Many fields.

Alpha 4 had a system field "System->Reg_RecNum" for this, but Alpha 5 doesn't seem to have this.

Any ideas on how to create something like this?

[G Gabriel]

Re: Browse Table Item Number

Sounds like you are looking for the record number.
You could see that at the toolbar at the bottom, but if you want to include it in the browse itself, create a calc field:
calc_field=recno()

Not sure though what do you need it for.

[Mike Wilson]

Re: Browse Table Item Number

G,
I think he wants a running count of the records in a browse when filtered?

create a calculated field with this code, and place this calculated field into the browse.

Recs = iif(table.current().eof(),run_count([COLOR="Red"]tablename->tablefieldvalue[/COLOR])+1,run_count([COLOR="red"]tablename->tablefieldvalue[/COLOR]))

[wlewis7961]

Re: Browse Table Item Number

I'm creating an invoice that needs an identifier for each line item. All of Alpha's example DBs I've looked at don't have this.

I'll try your solution & see how it works.

[wlewis7961]

Re: Browse Table Item Number

Mike W

Your solution sort of worked, it created a sequential identifier for the Browse but it didn't reset when I went to a new record & start with item 1 again. The first record in the parent table had 4 Items (which showed correctly) but the 2nd parent records' Browse items started with 5

[G Gabriel]

Re: Browse Table Item Number

There was an old..old..I mean really old thread in which someone asked the same question and I attached a zip file with an example. If you can't find it, I will re-do it.

[wlewis7961]

Re: Browse Table Item Number

G Gabriel

I don't know what words or term to search on for your old post. If you can dig it up or redo, I would appreciate it.

[G Gabriel]

Re: Browse Table Item Number

Just to be sure I understand you correctly:
You want:
1-A clolumn at the embedded browse to show a sequential number of the rows in the browse, i.e. 1,2,3,...
2-If you delete a row or add a new one, these numbers will re-adjust. So, if you delete row #2, Row #3 become 2 and row#4 becomes 3 and so on..
3-When you start a new parent, you will start from #1

All I could remeber about that old thread is that the person who asked the question was a pilot and needed it for a flight application.

I will see if I could redo it after the Saints beat the Falcons.

[wlewis7961]

Re: Browse Table Item Number

G Gabriel

That is exactly what I want to do. A4 made it simple but A5 thru out the baby with the bath water. Progress right?

Hope your team wins. Mine did yesterday - go Gators.

[G Gabriel]

Re: Browse Table Item Number

Ready for Oklahoma?

[G Gabriel]

Re: Browse Table Item Number

What am I thinking!
The example I did back then was during the Ice-age before run_count() was available.
Try this:
Create a calc field:
x=run_count(..put here any field from the child table..)
Place x in the embedded browse.

[wlewis7961]

Re: Browse Table Item Number

Bingo !!

I had to add GRP->parent_table to Run_Count(). I got it to work. Added embedded records, deleted embedded records - everything seems OK.

Many thanks for your help.

Oklahoma (or whoever) can figure out what to do with Tebow, they may be in the ball game.

[Mike Wilson]

Re: Browse Table Item Number

Wayne,
check the last and the penultimate records. Using the simple run_count(fieldname) will have them both the same. The code I gave accomodates for that. It should work. Do not give up on it. You might need a browse refresh somewhere.

[Keith Hubert]

Re: Browse Table Item Number

Hi Wayne,

Here is the code I use in field rules, Record Events, OnSaveRecord.

line_number=0
on error goto not_in_set
head=table.get("temp2_2") 'the parent table in the set - if you ran this outside of the set
'it would renumber all invoice line items
items=table.get("invoice2")
if items.records_get() = 0 'there are no line items for that invoice
end
end if
items.fetch_first()
while .not. items.fetch_eof()
line_number=line_number+1
items.change_begin()
items.line_number=padl(ltrim(str(line_number,2,0)),2,"0")
'linenumber is a new 2 digit character field in invoice items - you are limited to 99 items for one invoice
'if you want more increase the width of the field and the padl() syntax
items.change_end(.t.)
items.fetch_next()
end while
end

I would be interested to see how you have done it.

[Tom Cone Jr]

Re: Browse Table Item Number

Keith, here's G's idea, implemented for the Invoice form in AlphaSports:

'Running Count for items in the Invoice_items browse on the 
'AlphaSports Invoice form 081208

'This is the calc display field expression.
'You would add this calc display field to the Invoice_items browse after
'defining it in the form.
'
Item_count = run_count(Invoice_Items->Product_Id,GRP->INVOICE_HEADER)