project QadFinancials > class BFRWChart > method GetSharedTypeList

Description

Get shared type list


Parameters


ocSharedSetTypeListoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwchart.p)

/**************************************************************************/
/* This method will get shared set types for the coa cross ref tab        */
/**************************************************************************/
MainBlock:
do on error undo, throw:
   assign ocSharedSetTypeList = {&SHAREDSETTYPE-GL-TR} + chr(2) + string ({&SHAREDSETTYPE-GL}) + chr(2) + 
                                {&SHAREDSETTYPE-DIVISION-TR} + chr(2) + string ({&SHAREDSETTYPE-DIVISION}) + chr(2) + 
                                {&SHAREDSETTYPE-COSTCENTRE-TR} + chr(2) + string ({&SHAREDSETTYPE-COSTCENTRE})+ chr(2) + 
                                {&SHAREDSETTYPE-PROJECT-TR} + chr(2) + string ({&SHAREDSETTYPE-PROJECT}) + chr(2) + 
                                trim(#T-7'Combined':15(163147120)T-7#)  + chr(2) + string ({&COACROSSREFTYPE-COMBINED}).
end. /* do on error undo, throw: */