method ValIntNotZero

validation procedure

Description

Validation mask: integer field cannot be zero.

Parameters

iiTargetField	input	integer	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 class temp-table.
oiReturnStatus	output	integer

Internal usage

BLF

validation on tEventConfig.BusComponent_ID
validation on tEventConfig.EventDestination_ID
validation on tTranslationString.ParentObject_ID

QadFinancials

validation on tBankNumber.ParentObject_ID
validation on tCOAMaskCC.SharedSet_ID
validation on tDCollection.DCollectionNumber
validation on tDCollection.DCollectionYear
validation on tPosting.PostingVoucher
validation on tPostingLine.PostingLineSequence

program code (program1/database.p)

if iiTargetField = 0
then do:
    <M-1 run SetMessage
          (input  #T-2'This field cannot be zero.':255(73)t-2# (icMessage), 
           input  '' (icArguments), 
           input  icTargetFieldName (icFieldName), 
           input  '' (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  icRowid (icRowid), 
           input  'BLF-333':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output oiReturnStatus (oiReturnStatus)) in database>
    assign oiReturnStatus = -1.
end.