project QadFinancials > class BSystemProperty > method SynchronisePropertyInvCert


Parameters


icSysPropertyInvCertCertificateinputcharacter
icSysPropertyInvCertPublicKeyinputcharacter
icSysPropertyInvCertVersioninputcharacter
iiSysProperty_IDinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSystem.ApiSynchroniseSyst


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.