Update records in same table

fmagyar · 2025-01-23T11:50:33+00:00

There was an error rendering this rich post.

Hi!

In infor LN how can I update a table's record after a record is modified in the same table?For example if in the tdpur401 is modified a cdf field automatically updated. After this update based on the tdpur401.orno and tdpur401.pono other records's cdf field should be modified also based on the first updated record's cdf field value.

If I use the after.save hook the refcount would be a problem.

It should be done in DAL.

Thank you in advacne!

Find more posts tagged with

Accepted answers

fmagyar

Hi Fabiano,

Thank you this is was my first approach also.

However the error was the same.

My solution was that (maybe not the nicest :)) during update I update a different table created for this and in that table's dal script will be done the update in the original table.

All comments

Fabiano Silva

@fmagyar , Can you share your code?

fmagyar

https://community.developer.infor.com/discussion/comment/931#Comment_931

Hi Fabiano,

Part of the code (the relevan ones I guess):

function extern long after.save.object(long mode)
{
disable.table.extension()
table.super()
enable.table.extension()

with.old.object.values.do(set.old.values)


    	update.is.needed =  txessdll0006.check.tdpur401.records(tdpur401.orno,
    	                                                        tdpur401.pono,
    	                                                        remaining.quantity,
    	                                                        is.actual) —>check in tdpur401 table if any cancelled line is available



    	                                                        
    	
    	if update.is.needed = true and is.actual = false and 0 then
    	        txessdll0006.update.tdpur401.records(tdpur401.orno,
    	                                tdpur401.pono,
    	                                remaining.quantity) —> update all tdpur401 lines with the current records orno and pono number
    	
    	endif
  
return (0)

}

In the before save hook:

function extern long before.save.object(long mode)
{

    	remaining.quantity = tdpur401.qoor - tdpur401.qidl
    	tdpur401.cdf_remq =  remaining.quantity



    
  return (0)

}

Fabiano Silva

If I need change records in after.update I use the for update in table selection without commit because is DAL

	select	tdpur401.*

	from	tdpur401 for update

	where	tdpur401._index1 = {tdpur401.orno}

	selectdo

		tdpur401.cdf_remq =  remaining.quantity

	endselect

Try this, maybe can help you!

function extern long before.save.object(

			long		i.mode)

{


	remaining.quantity = tdpur401.qoor - tdpur401.qidl

    	tdpur401.cdf_remq =  remaining.quantity


	return(0)

}


function extern long after.save.object(

			long		i.mode)

{

	with.old.object.values.do(set.old.values)



    	update.is.needed =  txessdll0006.check.tdpur401.records(

    				tdpur401.orno,

    	                        tdpur401.pono,

    	                        remaining.quantity,

    	                        is.actual) —>check in tdpur401 table if any cancelled line is available





    	if update.is.needed = true and is.actual = false and 0 then


    	        |* Update all lines


    	        select	tdpur401.*

		from	tdpur401 for update

		where	tdpur401._index1 = {tdpur401.orno}

		selectdo

			tdpur401.cdf_remq =  remaining.quantity

		endselect


    	endif


	return(0)

}

If doenst work share your code about the functions

txessdll0006.check.tdpur401.records

txessdll0006.update.tdpur401.records

set.old.values

Best regards

fmagyar

Hi Fabiano,

Thank you but I think this approach won't work and won't update the records.

Just for testing I've modified the code as the following:

function extern long after.save.object(long mode)
{
disable.table.extension()
table.super()
enable.table.extension()

with.old.object.values.do(set.old.values)

            remaining.quantity = 1
            
            select tdpur401.*
            from tdpur401 for update
             where tdpur401._index1 = {:old.orno, :old.pono}

            selectdo
                    tdpur401.cdf_remq =  remaining.quantity
            endselect
    
    endif
return (0)

}

function void set.old.values()
{
old.orno = tdpur401.orno
old.pono = tdpur401.pono
old.cdf_remq = tdpur401.cdf_remq

}

But no records were updated due the selected records were touched as it looked in debug

Fabiano Silva

I forgot this line db.udpate(ttdpur401, DB.RETRY)

select 	tdpur401.*

from 	tdpur401 for update             

where 	tdpur401._index1 = {:old.orno, :old.pono}             

selectdo                    

		tdpur401.cdf_remq =  remaining.quantity
db.update(ttdpur401, DB.RETRY)            

endselect

fmagyar

Hi Fabiano,

Thank you this is was my first approach also.

However the error was the same.

My solution was that (maybe not the nicest :)) during update I update a different table created for this and in that table's dal script will be done the update in the original table.