project QadFinancials > class BCustomField > method ValidateComponentGenCode

Parameters

Internal usage

program code (program1/bcustomfield.p)

find t_sCustomField where
     t_sCustomField.tc_Rowid = icRowid
     no-error.

<Q-69 run CodeMstrByDomainFieldName (all) (Read) (NoCache)
   (input vcDomainCode, (Domain)
    input t_sCustomField.tcStoredSearchLookupReference, (FieldName)
    output dataset tqCodeMstrByDomainFieldName) in BMfgGeneralizedCode >

if not can-find(first tqCodeMstrByDomainFieldName where
                      tqCodeMstrByDomainFieldName.tccode_domain  = vcDomainCode                                 and
                      tqCodeMstrByDomainFieldName.tccode_fldname = t_sCustomField.tcStoredSearchLookupReference and
                      tqCodeMstrByDomainFieldName.tccode_value  <> ""                                           and
                      tqCodeMstrByDomainFieldName.tccode_value  <> ?)
then do:
    <M-16 run SetMessage
       (input  trim(#T-39'Invalid generalized code specified.':255(163795552)T-39#) (icMessage), 
        input  '' (icArguments), 
        input  'tCustomField.tcStoredSearchLookupReference' (icFieldName), 
        input  t_sCustomField.tcStoredSearchLookupReference (icFieldValue), 
        input  'E' (icType), 
        input  3 (iiSeverity), 
        input  t_sCustomField.tc_Rowid (icRowid), 
        input  'qadfin-477431':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCustomField>

    assign oiReturnStatus = -1.
end.