validation procedure
Description
Validate the EANCode, only unique EAN Codes 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. |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.