project BLF > class PMfgPro > method SetQadContextProperty
Description
Purpose: Set the value of a QAD-reserved session context property. This function wraps setContextProperty() in order to simplify its signature.
Parameters
icPropertyName | input | character | |
icPropertyValue | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
QadFinancials
program code (program1/pmfgpro.p)
assign oiReturnStatus = -98.
find first tContext where
tContext.tcPropertyQualifier = "QAD":U and
tContext.tcPropertyName = icPropertyName no-error.
/* Reset ERROR-STATUS handle */
assign viCnt = 0 no-error.
if not available tContext
then do:
if icPropertyValue = ?
then Do:
Assign oiReturnStatus = 0.
return. /* Nothing to delete */
End.
create tContext.
assign tContext.tcPropertyQualifier = "QAD":U
tContext.tcPropertyName = icPropertyName.
end.
if icPropertyValue = ?
then delete tContext.
else assign tContext.tcPropertyValue = icPropertyValue.
assign oiReturnStatus = 0.