project QadFinancials > class BFRWChart > method GetSharedSetTypeTranslation
Description
Get shared set type translation
Parameters
| icUntranslatedSharedSetType | input | character | |
| ocTranslatedSharedSetType | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bfrwchart.p)
/* ====================================================================================== *
* Method : GetSharedSetTypeTranslation *
* Description : Get shared set type translation *
* ====================================================================================== */
MAIN_BLOCK:
do on error undo, throw:
case icUntranslatedSharedSetType:
when {&SHAREDSETTYPE-GL} then assign ocTranslatedSharedSetType = {&SHAREDSETTYPE-GL-TR}.
when {&SHAREDSETTYPE-DIVISION} then assign ocTranslatedSharedSetType = {&SHAREDSETTYPE-DIVISION-TR}.
when {&SHAREDSETTYPE-COSTCENTRE} then assign ocTranslatedSharedSetType = {&SHAREDSETTYPE-COSTCENTRE-TR}.
when {&SHAREDSETTYPE-PROJECT} then assign ocTranslatedSharedSetType = {&SHAREDSETTYPE-PROJECT-TR}.
when {&COACROSSREFTYPE-COMBINED} then assign ocTranslatedSharedSetType = {&COACROSSREFTYPE-COMBINED-TR}.
otherwise assign ocTranslatedSharedSetType = "":U.
end case.
end. /* MAIN_BLOCK */