project QadFinancials > class BMfgSite > method DeleteRoleFromCanRun

Parameters

Internal usage

program code (program3/bmfgsite.p)

If oiReturnStatus = 0
Then Assign oiReturnStatus = -98.

/* ========================================================================== */
/* Check first to see if replication is enabled - replication can be disabled */
/* for conversion routines that need to replicate data from logistics to      */
/* financials.                                                                */
/* ========================================================================== */
<M-6 run IsReplicationEnabled (output vlReplicationEnabled (olReplicationEnabled), 
                               output viFcReturnSuper (oiReturnStatus)) in BMfgSite>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.                              
if vlReplicationEnabled then do: 

<M-1 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BMfgSite>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.

Assign vcFreeForm = '':U.
Repeat viCounter = 1 To Num-entries(icRoleNameList):
    Assign vcRoleName = Entry(viCounter, icRoleNameList).
    
    If vcFreeForm = '':U
    Then Assign vcFreeForm = 'For Each si_mstr Where si_mstr.si_canrun matches "*':U + vcRoleName + '*"':U.
    Else Assign vcFreeForm = vcFreeForm + ' Or si_mstr.si_canrun matches "*':U + vcRoleName + '*"':U.
    
End.

<M-2 run DataLoad (input  '' (icRowids), 
                   input  '' (icPkeys), 
                   input  '' (icObjectIds), 
                   input  vcFreeForm (icFreeform), 
                   input  False (ilKeepPrevious), 
                   output viFcReturnSuper (oiReturnStatus)) in BMfgSite>
If viFcReturnSuper = -4
Then Do: 
    Assign oiReturnStatus = 0.
    Return.
End.    
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.     
         
Repeat viCounter = 1 To Num-entries(icRoleNameList):
    Assign vcRoleName = Entry(viCounter, icRoleNameList).    
    For Each tsi_mstr:
        If Lookup(vcRoleName, tsi_mstr.si_canrun) > 0 
        Then Do:
            Assign Entry(Lookup(vcRoleName, tsi_mstr.si_canrun), tsi_mstr.si_canrun) = '':U.
            Assign tsi_mstr.si_canrun = Trim(REPLACE (tsi_mstr.si_canrun, ',,':U, ',':U), ',':U)
                   tsi_mstr.tc_Status  = 'C':U.    
        End.    
    End.   
End.

<M-3 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BMfgSite>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.    

<M-4 run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BMfgSite>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.    

<M-5 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BMfgSite>                        
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.    

End. /*if vlReplicationEnabled then do: */

If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.