validation procedure
Description
Checks if a column group with the same name already exists
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 = 'N':U
and t_sFRWCol.FRWColCode <> '':U:
/* Don't give the warning message if the code is blank */
/* ================================================================= */
/* Check if a column group with the same name already exists */
/* ================================================================= */
<Q-41 assign vlFcQueryRecordsAvailable = ColumnGroupCodeEx (NoCache)
(input t_sFRWCol.FRWColCode, (ColCode)
input t_sFRWCol.FRWCol_ID, (Rowid)) in BFRWColumnGroup>
if vlFcQueryRecordsAvailable <> false then do:
<M-71 run SetMessage
(input #T-23'A column group with the same name already exists.':255(890435281)T-23# (icMessage),
input '':U (icArguments),
input 't_sFRWCol.FRWColCode' (icFieldName),
input t_sFRWCol.FRWColCode (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input t_sFRWCol.tc_Rowid (icRowid),
input 'qadfin-93582':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.