Kbase P45912: how to print from 4GL left sided labels database fields
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/16/2008 |
|
Status: Unverified
GOAL:
how to print from 4GL left sided labels database fields
FIX:
An idea is to print first the database field without label and then to print the database field label. In order to get the database field you can use a function as in the following example:
FUNCTION GetLabel RETURNS CHARACTER (INPUT ipcFieldName AS CHAR ):
FOR FIRST _file WHERE _file._file-name = ENTRY(1,ipcFieldName,'.'),
FIRST _field WHERE
_field._field-name = entry(2, ipcFieldName, '.'):
RETURN ' :' + _field._LABEL.
END.
END FUNCTION.
FOR EACH customer:
DISPLAY customer.NAME NO-LABEL GETLabel('customer.NAME')
customer.address NO-LABEL GETLabel('customer.address').
END.