[Home] [Help]
1325:
1326: END IF; -- IF l_met_det_rec.metric_calculation_type = 'MANUAL'
1327:
1328: /*EXCEPTION
1329: WHEN GL_CURRENCY_API.NO_RATE THEN
1330: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1331: -- No rate exist for for given conversion date and type between
1332: -- transaction currency and functional currency
1333: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_NO_RATE');
1336: x_return_status := FND_API.G_RET_STS_ERROR;
1337:
1338: -- If any error happens abort API.
1339: RETURN;
1340: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1342: -- Atleast One of the two Currencies specified is invalid
1343: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_CURR');
1344: FND_MSG_PUB.Add;
5615: -- Also set the x_invalid_currency flag if the given currency is invalid.
5616: --
5617: -- History
5618: -- 15-JUL-97 W Wong Created
5619: -- 10-JUL-01 dmvincen Transfered here from GL_CURRENCY_API
5620: --
5621: -- Arguments
5622: -- x_currency Currency to be checked
5623: -- x_eff_date Effecitve date
5639: WHERE currency_code = x_currency;
5640:
5641: EXCEPTION
5642: WHEN NO_DATA_FOUND THEN
5643: RAISE Gl_Currency_Api.INVALID_CURRENCY;
5644:
5645: END get_info;
5646:
5647: ---------------------------------------------------------------------
5647: ---------------------------------------------------------------------
5648: -- PROCEDURE
5649: -- Convert_Currency
5650: -- DESCRIPTION
5651: -- This procedure is copied from GL_CURRENCY_API so that rounding can be
5652: -- controlled. The functional currency need not be rounded because
5653: -- precision will be lost when converting to other currencies.
5654: -- The displayed currencies must be rounded.
5655: -- NOTE
5685: ---------------------------------------------------------------------
5686: -- PROCEDURE
5687: -- Convert_Currency2
5688: -- DESCRIPTION
5689: -- This procedure is copied from GL_CURRENCY_API so that rounding can be
5690: -- controlled. The functional currency need not be rounded because
5691: -- precision will be lost when converting to other currencies.
5692: -- The displayed currencies must be rounded.
5693: -- NOTE
5751: --
5752: -- Find out the conversion rate using the given conversion type
5753: -- and conversion date.
5754: --
5755: Gl_Currency_Api.get_closest_triangulation_rate(
5756: p_from_currency,
5757: p_to_currency,
5758: p_conv_date,
5759: l_conversion_type,
5772: x_to_amount2 := ROUND( x_to_amount2 / to_mau ) * to_mau;
5773: END IF;
5774:
5775: EXCEPTION
5776: WHEN Gl_Currency_Api.NO_RATE THEN
5777: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5778: Fnd_Message.Set_Name ('AMS', 'AMS_NO_RATE');
5779: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5780: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5780: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5781: Fnd_Msg_Pub.ADD;
5782: END IF;
5783: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5784: WHEN Gl_Currency_Api.INVALID_CURRENCY THEN
5785: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5786: Fnd_Message.Set_Name ('AMS', 'AMS_INVALID_CURR');
5787: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5788: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5794: ---------------------------------------------------------------------
5795: -- PROCEDURE
5796: -- Convert_Currency_Vector
5797: -- DESCRIPTION
5798: -- This procedure is copied from GL_CURRENCY_API so that rounding can be
5799: -- controlled. The functional currency need not be rounded because
5800: -- precision will be lost when converting to other currencies.
5801: -- The displayed currencies must be rounded.
5802: -- Supports converting a vector of currency amount.
5838: --
5839: -- Find out the conversion rate using the given conversion type
5840: -- and conversion date.
5841: --
5842: Gl_Currency_Api.get_closest_triangulation_rate(
5843: p_from_currency,
5844: p_to_currency,
5845: p_conv_date,
5846: l_conversion_type,
5864: l_index := p_amounts.NEXT(l_index);
5865: END LOOP;
5866:
5867: EXCEPTION
5868: WHEN Gl_Currency_Api.NO_RATE THEN
5869: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5870: Fnd_Message.Set_Name ('AMS', 'AMS_NO_RATE');
5871: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5872: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5872: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5873: Fnd_Msg_Pub.ADD;
5874: END IF;
5875: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5876: WHEN Gl_Currency_Api.INVALID_CURRENCY THEN
5877: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5878: Fnd_Message.Set_Name ('AMS', 'AMS_INVALID_CURR');
5879: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5880: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5886: ---------------------------------------------------------------------
5887: -- PROCEDURE
5888: -- Convert_Currency_Object
5889: -- DESCRIPTION
5890: -- This procedure is copied from GL_CURRENCY_API so that rounding can be
5891: -- controlled. The functional currency need not be rounded because
5892: -- precision will be lost when converting to other currencies.
5893: -- The displayed currencies must be rounded.
5894: -- Supports converting amount to transaction currency of object.