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


icPropertyNameinputcharacter
icPropertyValueinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method PMfgPro.CallService
method PMfgPro.InitInstance
method PAuthentication.GetTimeOutRemote
method PAuthentication.GetUserRemote
method PAuthentication.IsAlive
method PAuthentication.Logout
method PTimeZone.getCurrentTimeZoneOffset

QadFinancials
method PEDI.ExecuteEDI
method PMfgProGetMfgProVersion.GetMfgProVersion
method PMFGProfile.DeleteCreditorProfile
method PMFGProfile.DeleteDebtorProfile


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.