project QadFinancials > class BFRWColumnGroup > method ValidateComponentPostMaximumColumns
validation procedure
Description
Method to ensure we don't have more than 12 columns
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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: */