Description
Returns the name of all active custom business fields in the class dataset.
Parameters
icTableName | input | character | Database table name |
ocFieldNames | output | character | comma seperated list of field names |
ocFieldLabels | output | character | chr(2) seperated list of user-defined labels for custom business fields, translated to current-language |
oiReturnStatus | output | integer | |
Internal usage
BLF
program code (program1/business.p)
run appinfo/classtables.p (input "", output vcFcMaskList, output vcDBTables).
if can-do (vcDBTables, icTableName)
then do:
<Q-5 run GetCustomFieldsForTable (all) (Read) (NoCache)
(input 't':U + icTableName, (TableName)
output dataset tqCustomFieldsForTable) in BCustomField >
for each tqCustomFieldsForTable on error undo, throw:
assign ocFieldNames = ocFieldNames + ",":U + entry(2,tqCustomFieldsForTable.tcCustomFieldFieldName,".":U)
ocFieldLabels = ocFieldLabels + chr(2) + tqCustomFieldsForTable.tcCustomFieldColumnLabel.
end.
if ocFieldNames <> ""
then assign ocFieldNames = substring(ocFieldNames,2,-1,"CHARACTER":U)
ocFieldLabels = substring(ocFieldLabels,2,-1,"CHARACTER":U).
empty temp-table tqCustomFieldsForTable.
end.