[stackoverflow] [progress Openedge Abl] Bpm Not Updating Table From Quick Job

[Uxonith]

I am attempting to update JobHead using the following code when a Quick Job creates a job. I want to set the JobHead.LockQty to true if Engineering is checked in Quick Job Entry. I understand that Quick Job uses the ttQuickJob table. The "Update JobHead XXX." gets fired, but not the "JobHead LockQty set.":



/* LockQty if Engineered */

find first ttQuickJob where ttQuickJob.RowMod = 'U' or ttQuickJob.RowMod = 'A' no-lock no-error .

/* If this Quick Job is Engineered, set JobHead.LockQty to true */

if ttQuickJob.EnableEngineered then do :
find first JobHead where JobHead.JobNum = ttQuickJob.JobNum and JobHead.Company = cur-comp no-lock no-error .

{lib\PublishInfoMsg.i &InfoMsg = "'Update JobHead ' + JobHead.JobNum + '.'" } .

assign JobHead.LockQty = true .

{lib\PublishInfoMsg.i &InfoMsg = "'JobHead LockQty set.'" } .
end .

Continue reading...