method ValBusinessRelationIntercoCode

validation procedure

Description

ValBusinessRelationIntercoCode

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.
ilBusinessRelationIsInterco	input	logical	Business Relation Interco
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

validation on tBusinessRelation.BusinessRelationICCode

program code (program5/bbusinessrelation.p)

if icTargetField               <> "":U and 
   icTargetField               <> ?    and 
   ilBusinessRelationIsInterco  = false
then do :
    assign vcMessage      = trim(#T-3'The intercompany code can only be entered when the business relation has been selected for intercompany usage.':255(841)T-3#)
           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-407':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
end. /* if icTargetField */
/*JBA 22/09/2004 IntercoCode is mandatory for IsInterco*/
if (icTargetField              = "":U or
   icTargetField               = ?) and
   ilBusinessRelationIsInterco = true
then do :
    assign vcMessage      = trim(#T-4'You must specify an intercompany code if the business relation is an intercompany business relation.':255(842)t-4#)
           oiReturnStatus = -1.
    <M-2 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-938':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
end. /* if icTargetField */