project QadFinancials > class BFRWColumnGroup > method ValidateComponentPostMaximumColumns

validation procedure

Description

Method to ensure we don't have more than 12 columns


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFRWColumnGroup.ValidateComponentPost


program code (program1/bfrwcolumngroup.p)

for each t_sFRWCol where 
         t_sFRWCol.tc_Status <> 'D':U:
    
    /* count the columns */ 
    assign viColumnCount = 0.
    
    for each t_sFRWColDet where
             t_sFRWColDet.tc_ParentRowid = t_sFRWCol.tc_Rowid and
             t_sFRWColDet.tc_Status <> 'D':U:

        viColumnCount = viColumnCount + 1.
        
    end.
    
    /* we cannot have more than 99 columns */
    if viColumnCount > 99
    then do:
        assign oiReturnStatus = -1.
        <M-54 run SetMessage
           (input  #T-38'Only a maximum of 99 columns is allowed.':50(714552032)T-38# (icMessage), 
            input  '':U (icArguments), 
            input  '':U (icFieldName), 
            input  viColumnCount (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  '':U (icRowid), 
            input  'qadfin-646704':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
    end.
           
    if oiReturnStatus < 0 then return.
    
end. /* for each t_sFRWCol where t_sFRWCol.tc_Status <> 'D':U: */