Parameters
| icSysPropertyInvCertCertificate | input | character | |
| icSysPropertyInvCertPublicKey | input | character | |
| icSysPropertyInvCertVersion | input | character | |
| iiSysProperty_ID | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program9/bsystemproperty.p)
<M-66 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 then return.
<M-59 run DataLoad
(input '':U (icRowids),
input string(iiSysProperty_ID) (icPkeys),
input '':U (icObjectIds),
input '' (icFreeform),
input true (ilKeepPrevious),
output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
find tSysProperty where
tSysProperty.SysProperty_ID = iiSysProperty_ID
no-error.
if not available tSysProperty
then do :
assign vcMessage = trim(substitute(#T-86'The system cannot load the system properties based on the ID (&1).':255(3763)T-86#,string(tqSystemPropertyByAll.tiSysProperty_ID))) + " (4)":U
oiReturnStatus = -3.
<M-76 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-791046':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
return.
end. /* if not available tSysProperty */
else assign tSysProperty.tc_Status = "C":U.
/* ============================================================ */
/* Update the general System-Data */
/* Combines max batch size and min batch size by ",". */
/* ============================================================ */
assign tSysProperty.SysPropertyInvCertCertificate = icSysPropertyInvCertCertificate
tSysProperty.SysPropertyInvCertPublicKey = icSysPropertyInvCertPublicKey
tSysProperty.SysPropertyInvCertVersion = icSysPropertyInvCertVersion.
/* =============================================================================== */
/* Validate, AddtionalUpdates and Save */
/* =============================================================================== */
<M-73 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
<M-50 run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
<M-29 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BSystemProperty>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.