project QadFinancials > class MfgNotification > method IsReplicationEnabled

Internal usage

program code (program1/mfgnotification.p)

define variable oiReturnStatus as integer no-undo.

vlReplicationEnabled = true.
<I-4 {bFcOpenInstance
            &CLASS           = "Session"}>    
<M-5 run GetLogicalValue
   (input  {&REPLICATIONENABLED} (icName), 
    output vlReplicationEnabled (olValue), 
    output viFcReturnSuper (oiReturnStatus)) in Session>
 <M-2 run GetLogicalValue (input  'ReplicationEnabled':U (icName), 
                          output vlReplicationEnabled (olValue), 
                          output viFcReturnSuper (oiReturnStatus)) in Session>
<I-7 {bFcCloseInstance
            &CLASS           = "Session"}>                               

if vlReplicationEnabled <> false then
    assign vlReplicationEnabled = true.
    
return vlReplicationEnabled.