42: END IF;
43: RETURN (TRUE);
44: END BEFOREREPORT;
45: PROCEDURE GET_BASE_CURR_DATA IS
46: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
47: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
48: BEGIN
49: BASE_CURR := '';
50: PREC := 0;
43: RETURN (TRUE);
44: END BEFOREREPORT;
45: PROCEDURE GET_BASE_CURR_DATA IS
46: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
47: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
48: BEGIN
49: BASE_CURR := '';
50: PREC := 0;
51: BEGIN
54: FCURR.PRECISION
55: INTO BASE_CURR,PREC
56: FROM
57: AR_SYSTEM_PARAMETERS ASP,
58: FND_CURRENCIES_VL FCURR,
59: GL_SETS_OF_BOOKS GSBKS
60: WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
61: AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
62: EXCEPTION