project QadFinancials > class BFRWColumnGroup > method ValidateComponentPostFRWColDetComp

Parameters

Internal usage

program code (program1/bfrwcolumngroup.p)

for each t_sFRWColDetComp where
         t_sFRWColDetComp.tc_Status <> 'D':U:
    if not t_sFRWColDetComp.FRWColDetCompIsSameRowAmt then
    do:
        if t_sFRWColDetComp.tcFRWAnCodeCode2 = '' or t_sFRWColDetComp.tcFRWAnCodeCode2 = ? then
        do:
             assign oiReturnStatus = -1.
            <M-47 run SetMessage
               (input  #T-9'Source analysis code should be mandatory when use amount from same row is not checked.':255(579590421)T-9# (icMessage), 
                input  '':U (icArguments), 
                input  't_sFRWColDetComp.tcFRWAnCodeCode2' (icFieldName), 
                input  t_sFRWColDetComp.tcFRWAnCodeCode2 (icFieldValue), 
                input  'E':U (icType), 
                input  3 (iiSeverity), 
                input  t_sFRWColDetComp.tc_Rowid (icRowid), 
                input  'qadfin-194273':U (icFcMsgNumber), 
                input  '':U (icFcExplanation), 
                input  '':U (icFcIdentification), 
                input  '':U (icFcContext), 
                output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
        end.      
    end.
end.