Par2: Multiple update forms 1999-05-11 -- Dennis Evans Just comment out the standard code in the run method
omit('####')
GlobalRequest = Request
UpdateProcedure
ReturnValue = GlobalResponse
###
now add something like the following
GlobalRequest = Request
execute Number
UpdateProc_1
UpdateProc_2
...
end
ReturnValue = GlobalResponse
Now when you want to change update procedures set the BrowseClass AskProcedure
property.
Let's say you want to use a different procedure based on the tab selected. In the
NewSelection embed add
Brwx.AskProcedure = choice(?CurrentTab)
or if you want a different procedure when Field_10 >= 100 in the accepted embed for
the field
if Field_10 >= 100
Brwx.AskProcedure = 2
elsif Field_10 = n
Brwx.AskProcedure = 3
else
...
end
or any other condition you want or need.
Note,
ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
the number parameter is the value of the BrowseClass AskProcedure property. That is
what the run method uses to call procedure x .
Printed November 21, 2024, 1:27 pm This article has been viewed/printed 35193 times. |