LN developpement. Use emulation of tcibd0501m000

Jim

Hi

I try to modify the unit of an item by using session tcibd0501m000 call by emulation.

The code is:

			tcibdf0501m000.put.Item(my.item)

			ret = tcibdf0501m000.find(r.mess)

			if ret <> 1 then


			else

				tcibdf0501m000.handle.sub.process("tcibd0501m000", "add")

				tcibdf0501m000.define.enum.answer("tcibd0101c", tcyesno.yes)

    			        tcibdf0501m000.put.Inventory_Unit(my.basu)


				tcibdf0501m000.put.Revision_Controlled(tcyesno.yes)

ret = tcibdf0501m000.update(1, r.mess)

				if ret = 0 then

					if not isspace(r.mess) then

						brp.ready(rp)

					endif

					ret = tcibdf0501m000.recover(r.mess)



				endif

				tcibdf0501m000.end()

			endif

			tcibdf0501m000.end()

I have an error in the update action:

Does anyone has an exemple of this king of creation or update of the tcibd001 data?

I don't use dal function because I want to emulate the ask.enum function (not in dal).

Thank you for help

Fabiano Silva

@Jim ,

In LN Cloud is not allowed to use the AFS - Application Function Server.

But if you use other version, see the code bellow, maybe can help you.

stpapi.put.field("dtfsa1501m000", "dtfsa101.seno", str$(i.seno) 



ret = stpapi.find("dtfsa1501m000", error.msg) 


if ret = 1 then 


	ret = stpapi.synchronize.dialog("dtfsa1501m000", "modify", error.msg) 


	if ret then 

		stpapi.put.field("dtfsa1101s000", "dtfsa101.name", new.name)  

		ret = stpapi.update("dtfsa1501m000", true, error.msg) 


		if not ret then 

			ret = stpapi.recover("dtfsa1101s000", error.msg) 

		endif 

	endif 

endif




stpapi.end.session("dtfsa1501m000", error.msg) 

Jim

Thank you for your answer.

I proceeded differently.

Fabiano Silva

@Jim , Can you share your solution for this issue?

Jim

Hi Fabiano,

I finally made the modification with db.update instruction 😕