Item number display on browser

[rlgiordano]

I am trying to find a way to display the right line item or record count on a browser while enter a new record before it is saved. I have the following calc field which works (linen = run_count(Lineitem->part,GRP->billhed)). But it displays the same number as the record before until you save it.

Thanks
BobG

[Tom Cone Jr]

Re: Item number display on browser

Is there something to count when the record has never been saved?

[rlgiordano]

Re: Item number display on browser

The next field would by qty and then part number, but I don't see how you can refresh the line number or any field after data is inputed.

[Tom Cone Jr]

Re: Item number display on browser

The answer to my question was no, at least not with run_count(). Or, are you wanting that function to count records commited to the table as well as records that users on the network are in the process of entering, but which have not yet been saved?

[Ton Spies]

Re: Item number display on browser

I am trying to find a way to display the right line item or record count on a browser while enter a new record before it is saved. I have the following calc field which works (linen = run_count(Lineitem->part,GRP->billhed)). But it displays the same number as the record before until you save it.

Thanks
BobG

Hi Bob,

Assume you mean browse and not browser and you want to display the number of records including the new one that you are entering,
maybe you can do something with

dim tbl as P
tbl = table.current()
if tbl.mode_get()= 2 then
	linen = 1 + run_count(Lineitem->part,GRP->billhed))
else
	linen = run_count(Lineitem->part,GRP->billhed)
end if

Ton

[rlgiordano]

Re: Item number display on browser

Tom, I mean browse. Where would I put this code?

Bob

[Keith Hubert]

Re: Item number display on browse

Hi Bob,

Here is the code from Dr Peter Wayne. You put this in Field Rules->Record Events->OnSaveRecord. You will need to have a field in the child table named Line_Number, C, 2.

The beauty of this is, if you delete a row all the subsequent rows get renumbered.

So now all you have to do is add the field to the table. Copy and paste this code. Change the table names in this code and then add the field to the browse on the form. "Simples".

'Date Created: 20-Nov-2006 02:41:46 PM
'Last Updated: 21-Nov-2006 07:58:21 PM
'Created By  : Dr Peter Wayne
'Updated By  : Keith Hubert
line_number=0 
on error goto not_in_set 
head=table.get("Your_Parent_Table") 'the parent table in the set - if you ran this outside of the set
                                              'it would renumber all child record line items 
on error goto errors 
items=table.get("Your_Child_Table") 
if items.records_get() = 0 'there are no line items for that child record
    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 Child Table  - you are limited to 99 child records for one parent record
        'if you want more increase the width of the field and the padl() syntax
    items.change_end(.t.) 
    items.fetch_next() 
end while 
end 
not_in_set: 
on error goto errors 
end 
errors:
err_msg = error_text_get(error_code_get())
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
end

You can find the original article from Dr Peter Wayne here.

[rlgiordano]

Re: Item number display on browser

Thanks Keith, that works great.