project QadFinancials > class Database Component > method GetBusinessFieldsGenCode


Parameters


icGenCodeinputcharacter
ocValueListoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method database.GetBusinessFields


program code (program3/database.p)

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

assign ocValueList = "".

for each tqCodeMstrByDomainFieldName where
         tqCodeMstrByDomainFieldName.tccode_domain  = vcDomainCode and
         tqCodeMstrByDomainFieldName.tccode_fldname = icGenCode
         on error undo, throw:
    if ocValueList <> ""
    then assign ocValueList = ocValueList + chr(2).

    assign ocValueList = ocValueList + tqCodeMstrByDomainFieldName.tccode_value
                                     + (if tqCodeMstrByDomainFieldName.tccode_cmmt = ""
                                        or tqCodeMstrByDomainFieldName.tccode_cmmt = tqCodeMstrByDomainFieldName.tccode_value
                                        then ""
                                        else " (" + tqCodeMstrByDomainFieldName.tccode_cmmt + ")")
                                     + chr(2)
                                     + tqCodeMstrByDomainFieldName.tccode_value.
end.