method ValActiveExpenses

Description

Validates all Expenses info related active Expenses flag.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BEmployee.PostValidateComponent

program code (program1/bemployee.p)

/* Check All Active Expense Dependances in case the flag is set on */

if t_sEmployee.tc_Status = 'N':U or
   t_sEmployee.tc_Status = 'C':U
then do:
    /* Expense Code */
    <M-1 run ValExpenseCode (output viFcReturnSuper (oiReturnStatus)) in BEmployee>
    assign oiReturnStatus = if (oiReturnStatus  > 0 and 
                                viFcReturnSuper = 0) or 
                                oiReturnStatus  < 0
                            then oiReturnStatus
                            else viFcReturnSuper.
end.