Ansicht
Dokumentation

REXC_AJ_AT_001 - Adjustment by Fifteenths

Vendor Master (General Section)   Addresses (Business Address Services)  
This documentation is copyright by SAP AG.

In this section, you make the necessary settings for adjustment by fifteenths The calculations for adjustment by fifteenths are made within the BAdI for rent adjustment.

Follow these steps:

1. Create adjustment rule

Create an adjustment rule and in the Method field, choose BADI (Custom with BadI).

2. Create BAdI implementation

Create a BAdI implementation for the BADI_REAJ_ADJUSTMENT BAdI and implement the CALCULATE method. Call the CALC_NEW_UNITPRICE_15 method of class CL_REXC_AT_AJ_CALC. Then activate the BAdI implementation.

The current rent of 100 EUR should reach 1,600 EUR in 15 years. This is the target rent (reasonable rent). The increase should take effect on January 1, 2006.

The conditions have the parameters listed below. If you want guarantee stable values for the target rent, you also have to define an index adjustment term and assign it.

Condition:	Current Rent	Target Rent	Stable Value Guarantee (Original Rent)
Condition Purpose:	Actual rent (A)	Statistical (I)	One-time statistical (J)
Amount:	100.00 EUR	1600.00 EUR	100.00 EUR
Valid from:		1/1/2005 to 12/31/2019 (15 years)

The first adjustment, to 200.00 EUR, takes place on January 1, 2006.

The condition purposes you set up for this procedure can also be used in the BAdI implementation.

You create the BADI15 adjustment rule and assign the BADIprocedure to it.

METHOD if_ex_reaj_adjustment~adjustment.

DATA: ld_cp_static TYPE recdcondpurposeext,
ld_cp_static_once TYPE recdcondpurposeext,
ld_cp_rent_rec TYPE recdcondpurposeext.

CHECK id_adjmrule = 'BADI15'.
* set external condition purposes

ld_cp_static = 'I'.
ld_cp_static_once = 'J'.
ld_cp_rent_rec = 'A'.

* call calculation method
CALL METHOD cl_rexc_at_aj_calc=>calc_new_unitprice_15
EXPORTING
io_contract = io_contract
io_rental_object = io_rental_object
is_condition = is_condition
is_rhythm = is_rhythm
id_adjmrule = id_adjmrule
id_adjmsubrule = id_adjmsubrule
id_condpurp_static = ld_cp_static
id_condpurp_static_once = ld_cp_static_once
id_condpurp_rent_rec = ld_cp_rent_rec
changing
cd_validfrom_new = cd_validfrom_new
cd_unitprice_new = cd_unitprice_new
cd_methrefguid = cd_methrefguid
ct_message = ct_message
cf_error = cf_error
cf_no_adjustment = cf_no_adjustment
cf_exit_processed = cf_exit_processed.

ENDMETHOD.

PERFORM Short Reference   rdisp/max_wprun_time - Maximum work process run time  
This documentation is copyright by SAP AG.

Length: 3856 Date: 20240523 Time: 184627     sap01-206 ( 39 ms )