project BLF > class Database Component > method ValIntNotZero

validation procedure

Description

Validation mask: integer field cannot be zero.


Parameters


iiTargetFieldinputintegerValue 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 class temp-table.
oiReturnStatusoutputinteger


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.