在Form进行初始化的时候进行控制:

:parameter.SET_OF_BOOKS_ID := fnd_profile.value('GL_SET_OF_BKS_ID');

SELECT sob.currency_code
        INTO :parameter.CURRENCY_CODE
        FROM gl_sets_of_books sob
        WHERE sob.set_of_books_id = :parameter.SET_OF_BOOKS_ID ;
        --fnd_message.debug(:parameter.CURRENCY_CODE);
        --fnd_message.debug(:parameter.SET_OF_BOOKS_ID);
set_item_property('HEADERS.TOTAL',FORMAT_MASK,
                            fnd_currency.get_format_mask(
                            :parameter.currency_code,
                            get_item_property('HEADERS.TOTAL', MAX_LENGTH)));
set_item_property('LINES.AMOUNT',FORMAT_MASK,
                            fnd_currency.get_format_mask(
                            :parameter.currency_code,
                            get_item_property('LINES.AMOUNT', MAX_LENGTH)));