Functionality This function module can be used as a template to create your ownfunction module for the Business Transaction EventSAMPLE_INTERFACE_00011425 (handling limits during the currencychangeover). This event is only called up for limits that are released, do notcontain a reference limit, and do not yet have an entry in euros. Copy this function module to your own function module (for example,ZBKK_INTERFACE_00011425) and then enter the source code there. You need to make a suitable entry in Customizing to activate the BTE. Choose the following from the Implementation Guide (IMG): ,,SAP Banking -> Bank Customer Accounts -> Basic Settings -> BusinessTransaction Events -> ,,>Event Control -> Activate FunctionModules (P/S) SAP Application. Enter the following: ,,Event>,,,,,, 00011425,,,, ,,Country>,,,,,, ,,Application,,>,,FI-BA ,,Function Module>,,ZBKK_INTERFACE_00011425 The function module has the following parameters: IMPORT:> I_BKKCHCUR ,,Contains data on the currency conversion of the account such as theconversion date, the old and new ,,account currency, and the externaland internal account numbers. I_BKKE1 ,,Contains the limit data: Validity period, limit category, new limitcurrency (EURO) and ,,The limit amount that has already been convertedto EUROs. EXPORT> >E_RETURN ,,If a value other than zero is returned here, the account currency isnot converted. The log displays ,,a corresponding error message. E_LIMSUM ,,The rounded limit amount in the new currency (EURO). TABELLE> T_MESG ,,Use only this table for outputting messages. Do not output messagesdirectly ,,or call the message handler. Compare with the example below.Example Coding sample:> Round off amounts,message for the log. (All old amounts in DEM)> data l_s_mesg type ibkkmesg.> e_limsum = i_bkke1-limsum / 100. e_limsum = floor( e_limsum ). e_limsum = e_limsum * 100. * Fill message table so that log can be filled> * Output external account number and limit category * Account &1: Limit (limit category &2) by currency conversion (BTE ) > * Changed. > l_s_mesg-MSGTY = 'I'. l_s_mesg-ARBGB = '1L'. l_s_mesg-TXTNR = '100'. write i_BKKCHCUR-ACNUM_EXT to l_s_mesg-MSGv1 using edit mask '==ALPHA'. l_s_mesg-MSGV2 = i_bkke1-LIMTYPE. l_s_mesg-MSGV3 = space. l_s_mesg-MSGV4 = space. append l_s_mesg to t_mesg. |