help in terminating a "while" routine

[fddizon]

hi to all,

im missing something with this code.

dim txtable as p
txtable = table.current()
txtable.fetch_first()

while .not. txtable.fetch_eof()
	PURCHASES.value = PURCHASED_TOT.value
	SALES.value = SALES_TOT.value
	QTY_OH.value = PURCHASES.value - SALES.value
	
	topparent.commit()
	
	:process_data.Fetch_Next()

end while

ui_msg_box("TLCSYS", "Processing comleted...",UI_INFORMATION_SYMBOL+UI_OK)

when it fetches eof() it doesnt stop. instead, it is creating blank records after the last record.

thanks ia

forgot to attach the screen shot of the form.

[Tbaker]

Re: help in terminating a "while" routine

try changing

 :process_data.Fetch_Next()

to

 txtable.fetch_next()

Tom

[G Gabriel]

Re: help in terminating a "while" routine

dim txtable as p
txtable = table.current()
txtable.fetch_first()

while .not. txtable.fetch_eof()
[COLOR="Blue"]txtable.change_begin(.t.)'or if you want to add, then txtable.enter_begin()[/COLOR]
	PURCHASES.value = PURCHASED_TOT.value
	SALES.value = SALES_TOT.value
	QTY_OH.value = PURCHASES.value - SALES.value	
[COLOR="Blue"]txtable.change_end(.t.)
txtable.Fetch_Next()[/COLOR]

end while

[fddizon]

Re: help in terminating a "while" routine

tom,

thanks for the reply...

before, i use that code... but, i noticed that the record number below the form does not move.. it flashes but always shows record 1. and so i thought that i am running the code on the form level and not the table level.

that works well not until the record reached eof. it creates a blank record and continue infinitely..

what do you think?

tnx

[G Gabriel]

Re: help in terminating a "while" routine

Your code doesn't do anything..
It's telling alpha:
go to the first record
apple=orange '(PURCHASES.value = PURCHASED_TOT.value)
go to next record
when you get to the end of file
save a record

You need to put the table in enter or change mode.

[fddizon]

Re: help in terminating a "while" routine

gabriel,

tnx for the reply.
i am processing the data on form level. i thought that it is much easier to do it vs at table level because i wont be calculating the sum the purchases and sales thru codes. i just fetch the value of the calculated fields

PURCHASED_TOT = total(purdet->Qty,GRP->products,GRP->purdet)
SALES_TOT = total(invdet->Qty,GRP->products,GRP->invdet)

and do a little math and save it.

i found out that using form level, you will never reach eof in alpha.

see attached

[martinwcole]

Re: help in terminating a "while" routine

take the actual name of the table (maybe "tax_table")

parentform.commit() 'be sure all records are not in edit mode
t=table.open("tax_tabel")
t.fetch_first()
while .not. t.fetch_eof()
[COLOR=blue]     t.change_begin()[/COLOR]
          t.PURCHASES=t.PURCHASED_TOT
          t.SALES=t.SALES_TOT
          t.QTY_OH=t.PURCHASES - t.SALES
[COLOR=blue]     t.change_end()
     t.Fetch_Next()[/COLOR]
end while
t.close()

this will work so long as all fields are table fields, and not form only calculated fields

[Tbaker]

Re: help in terminating a "while" routine

I see Martin and Gabe have already posted

Tom

[martinwcole]

Re: help in terminating a "while" routine

if you are using form level calculated fields, then you could use your current code but try this

while .not. parentform:tables.put the actual table name here.fetch_eof()
like
while .not. parentform:tables.tax_table.fetch_eof()

[G Gabriel]

Re: help in terminating a "while" routine

You are doing at the table level. You made a pointer to the table when you used table.current().
Sounds to me like you are doing alpha's work. You probably need a calc field instead of this script.

[G Gabriel]

Re: help in terminating a "while" routine

I think what Francis is trying to do is this:
While in a record at the topparent, he/she wants to calculate a value from the child table (though it looks like the topparent) using that script then scroll to the next record in the topparent.

[martinwcole]

Re: help in terminating a "while" routine

That very well may be the case - but I suspect he is using form level calculated fields, either for the child or parent if no child - the main problem is that forms and browses don't have a "fetch_eof" - but my last idea may account for that - have to test.

[fddizon]

Re: help in terminating a "while" routine

martin,

purchased_tot and sales_tot are calculated values..
can we convert these two expressions into tablesum()?(if this is the appropriate function for the convertion)

PURCHASED_TOT = total(purdet->Qty,GRP->products,GRP->purdet)
SALES_TOT = total(invdet->Qty,GRP->products,GRP->invdet)

[G Gabriel]

Re: help in terminating a "while" routine

Yes he is using form level calc field, I am assuming in the toparent.
Obviously, further clarification is needed.

[martinwcole]

Re: help in terminating a "while" routine

If you use my original script, then yes, you would use tablesum()

but just for the fun of it try my line where I put

while .not. parentform:tables.parent table name here.fetch_eof()
(note:this presumes the calculated fields are all up-to-date)

otherwise, I think my original script with tablesum() would be necessary