project QadFinancials > class BFRWColumnGroup > method ValidateComponentPreCreate

validation procedure

Description

Checks if a column group with the same name already exists


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFRWColumnGroup.ValidateComponentPre


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.