method ValLngId

validation procedure

Description

Validate the language codes, only active languages are allowed

Parameters

icTargetField	input	character	Value of the business field to validate.
icTargetFieldName	input	character	Name of the business field to validate.
icRowid	input	character	Contents of field tc_Rowid, if the target field is a field of a component temp-table.
ilActive	input	logical	Active flag
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

validation on relation LNGINADDRESS
validation on relation LNGINBUSINESSRELATION
validation on relation LNGINCONTACT

program code (program5/bbusinessrelation.p)

if not ilActive
    then do:
        assign vcMessage      = #T-2'You can only specify active language codes.':150(831)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-249':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
    end.