project QadFinancials > class BMassLayerTransfer > method ValidateComponentPostJournalRole

validation procedure


Parameters


icJournalCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BMassLayerTransfer.ApiExecuteLayerTransferV01


program code (program6/bmasslayertransfer.p)

/* ================== */
/* Exception handling */
/* ================== */
assign oiReturnStatus                 = -98
       viLocalReturnStatus            = 0.

assign vhFcComponent = ?.
<M-46 run CheckJournalRole
   (input  viUsrId (iiUserID), 
    input  ? (icUserCode), 
    input  ? (iiJournalID), 
    input  icJournalCode (icJournalCode), 
    input  viCompanyId (iiCompanyID), 
    input  ? (icCompanyCode), 
    input  viSessionID (iiSessionID), 
    output vcMessage (ocErrorMessage), 
    output vlJournalAccessAllowed (olJournalAccessAllowed), 
    output viFcReturnSuper (oiReturnStatus)) in TJournalRole>
if viFcReturnSuper <> 0
then assign viLocalReturnStatus = viFcReturnSuper.

run gipr_DeleteProcedure in vhFcComponent.
delete procedure vhFcComponent.        

if viLocalReturnStatus <> 0
then do:    
    <M-77 run SetMessage
       (input  vcMessage (icMessage), 
        input  '':U (icArguments), 
        input  'JournalCode':U (icFieldName), 
        input  icJournalCode (icFieldValue), 
        input  'E':U (icType), 
        input  1 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-816790':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BMassLayerTransfer>
end.        
        
if vlJournalAccessAllowed <> true
then do:
    assign vcMessage = #T-34'You are not authorized to use daybook &1':100(783126376)T-34# 
           vcMessage = substitute(vcMessage, icJournalCode).
    <M-72 run SetMessage
       (input  vcMessage (icMessage), 
        input  '':U (icArguments), 
        input  'JournalCode':U (icFieldName), 
        input  icJournalCode (icFieldValue), 
        input  'E':U (icType), 
        input  1 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-348408':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BMassLayerTransfer>
    assign viLocalReturnStatus = -1.        
end.          
   
/* ================== */
/* Return             */
/* ================== */   
assign oiReturnStatus = viLocalReturnStatus.