project QadFinancials > class Database Component > method ValidateCustomFieldsGenCode


Parameters


icGenCodeinputcharacter
icFieldNameinputcharacter
icFieldValueinputcharacter
icRowidinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method database.ValidateCustomFields


program code (program1/database.p)

<Q-37 run CodeMstrByDomainFieldName (all) (Read) (NoCache)
   (input vcDomainCode, (Domain)
    input icGenCode, (FieldName)
    output dataset tqCodeMstrByDomainFieldName) in BMfgGeneralizedCode >

find first tqCodeMstrByDomainFieldName where
           tqCodeMstrByDomainFieldName.tccode_domain  = vcDomainCode and
           tqCodeMstrByDomainFieldName.tccode_fldname = icGenCode    and
           tqCodeMstrByDomainFieldName.tccode_value   = icFieldValue
           no-error.

if not available tqCodeMstrByDomainFieldName
then do:
    <M-47 run SetMessage
       (input  trim(#T-22'Invalid value.':255(616112031)T-22#) (icMessage), 
        input  '' (icArguments), 
        input  icFieldName (icFieldName), 
        input  icFieldValue (icFieldValue), 
        input  'E' (icType), 
        input  3 (iiSeverity), 
        input  icRowid (icRowid), 
        input  'qadfin-288115':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in database>

    assign oiReturnStatus = -1.
end.