project QadFinancials > class BBusinessRelation > method ValBusinessRelationCorporateGroupId

validation procedure

Description

Validate the corporate group codes, only active corporate group codes are allowed


Parameters


icTargetFieldinputcharacterValue of the business field to validate.
icTargetFieldNameinputcharacterName of the business field to validate.
icRowidinputcharacterContents of field tc_Rowid, if the target field is a field of a component temp-table.
ilActiveinputlogicalActive flag
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
validation on relation CORPORATEGROUPINBUSINESSRELATION


program code (program5/bbusinessrelation.p)

if not ilActive
    then do:
        assign vcMessage      = #T-2'You can only specify active corporate groups.':150(832)t-2#
               oiReturnStatus = -1.
        <M-1 run SetMessage (input  vcMessage (icMessage),
                     input  '':U (icArguments),
                     input  icTargetFieldName (icFieldName),
                     input  icTargetField (icFieldValue),
                     input  'E':U (icType),
                     input  3 (iiSeverity),
                     input  icRowid (icRowid),
                     input  'QADFIN-248':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
    end.