project BLF > class BXmlDaemon > method ValDraftsActive

validation procedure


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


BLF
validation on tXmlDaemon.XmlDaemonAct


program code (program1/bxmldaemon.p)

if  index(icTargetField,{&DAEMONACTION-STORE}) > 0
and vlDraftsActive = no
then do:
    <M-1 run SetMessage
       (input  #T-1'No drafts can be created : system setting Draft Instances is not enabled.':255(8906)T-1# (icMessage), 
        input  '' (icArguments), 
        input  icTargetFieldName (icFieldName), 
        input  icTargetField (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  icRowid (icRowid), 
        input  'BLF-282':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BXmlDaemon>
    assign oiReturnStatus = -1.
end.