Validation

src/zbp_hs_i_rappartner.clas.locals_imp.abap

@@ -7,6 +7,8 @@ CLASS lhc_Partner DEFINITION INHERITING FROM cl_abap_behavior_handler.
       IMPORTING keys FOR partner~validatekeyisfilled.
     METHODS validatecoredata FOR VALIDATE ON SAVE
       IMPORTING keys FOR partner~validatecoredata.
+    METHODS fillcurrency FOR DETERMINE ON MODIFY
+      IMPORTING keys FOR partner~fillcurrency.
 
 ENDCLASS.
 
@@ -73,4 +75,21 @@ CLASS lhc_Partner IMPLEMENTATION.
 
   ENDMETHOD.
 
+  METHOD fillCurrency.
+
+    READ ENTITIES OF ZHS_I_RAPPartner IN LOCAL MODE
+    ENTITY Partner
+    FIELDS ( PaymentCurrency )
+    WITH CORRESPONDING #( keys )
+    RESULT DATA(lt_partner_data).
+
+    LOOP AT lt_partner_data INTO DATA(ls_partner) WHERE PaymentCurrency IS INITIAL.
+      MODIFY ENTITIES OF ZHS_I_RAPPartner IN LOCAL MODE
+        ENTITY Partner
+        UPDATE FIELDS ( PaymentCurrency )
+        WITH VALUE #( ( %tky = ls_partner-%tky PaymentCurrency = 'EUR' %control-paymentcurrency = if_abap_behv=>mk-on ) ).
+    ENDLOOP.
+
+  ENDMETHOD.
+
 ENDCLASS.

src/zhs_i_rappartner.bdef.asbdef

@@ -14,6 +14,8 @@ authorization master ( instance )
   validation validateKeyisFilled on save { create; }
   validation validateCoreData on save { create; field Country, PaymentCurrency; }
 
+  determination fillCurrency on modify { create; update; }
+
 
   mapping for zhs_dmo_partner
     {