project QadFinancials > class BBusinessRelation > method ValEANCode

validation procedure

Description

Validate the EANCode, only unique EAN 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.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
validation on tBusinessRelation.BusinessRelationEANCode


program code (program5/bbusinessrelation.p)

if icTargetField <> '':U and
   icTargetField <> ?    and
   icTargetField <> '?':U
then do:
    <Q-3 run BusinessRelationByEANCode (all) (Read) (NoCache)
          (input icTargetField, (EANCode)
           output dataset tqBusinessRelationByEANCode) in BBusinessRelation >
    find first tqBusinessRelationByEANCode where
               tqBusinessRelationByEANCode.tcBusinessRelationCode <> icTargetField
               no-error.
    if available tqBusinessRelationByEANCode
    then do:
        assign vcMessage      = trim(substitute(#T-2'The EAN code is already linked to business relation '&1'.':255(15933)T-2#, tqBusinessRelationByEANCode.tcBusinessRelationCode))
               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-3839':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
    end.                     
end.