project QadFinancials > class Database Component > method ValDateNotNULL

validation procedure

Description

ValDateNotNULL: Validation-method that raises an error in case the date-field has the NULL value


Parameters


itTargetFieldinputdateValue 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


unused


program code (program1/database.p)

    
    /* ValDateNotNULL: Validation-method that raises an error in case the date-field has the NULL value */
    if itTargetField = ?
    then do :
        <M-2 run SetMessage
           (input  #T-5'This field cannot have the unknown-value.':255(133401422)T-5# (icMessage), 
            input  '' (icArguments), 
            input  icTargetFieldName (icFieldName), 
            input  '' (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  icRowid (icRowid), 
            input  'qadfin-344257':U (icFcMsgNumber), 
            input  '' (icFcExplanation), 
            input  '' (icFcIdentification), 
            input  '' (icFcContext), 
            output oiReturnStatus (oiReturnStatus)) in database>  
        assign oiReturnStatus = -1.
    end. /* if itTargetField = ? */