project QadFinancials > class BMfgInventoryMovementSite > method DeleteRoleFromCanRun

Parameters

Internal usage

program code (program3/bmfginventorymovsite.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 BMfgInventoryMovSite>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.                              
if vlReplicationEnabled then do: 

<M-1 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BMfgInventoryMovSite>
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 sim_det Where sim_det.sim_canrun matches "*':U + vcRoleName + '*"':U.
    Else Assign vcFreeForm = vcFreeForm + ' Or sim_det.sim_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 BMfgInventoryMovSite>
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 tsim_det:
        If Lookup(vcRoleName, tsim_det.sim_canrun) > 0 
        Then Do:
            Assign Entry(Lookup(vcRoleName, tsim_det.sim_canrun), tsim_det.sim_canrun) = '':U.
            Assign tsim_det.sim_canrun = Trim(REPLACE (tsim_det.sim_canrun, ',,':U, ',':U), ',':U)
                   tsim_det.tc_Status  = 'C':U.    
        End.    
    End.  
End. 

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

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

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

End. /*if vlReplicationEnabled then do: */

If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.*/