Add addtional info in creditmanagement with ABAP

[schmelto]

I want to add a line into the additional info in the credit management (see screenshot below).

I use following coding to get the data:

      DATA: lr_mo   TYPE REF TO   fsbp_memory_object,
      lt_bp3100   TYPE TABLE OF bp3100,
      ls_bp3100   TYPE bp3100.

      "read BP3100 data from memory instance
      lr_mo ?= fsbp_memory_factory=>get_instance(
                 i_partner    = ls_but000-partner
                 i_table_name = if_fsbp_const_xo_objects=>mo_bp3100 ).
    
      lr_mo->get_data_new( IMPORTING e_data_new = lt_bp3100 ).
    
      ls_bp3100-mandt = '100'.
      ls_bp3100-counter = '0002'.
      ls_bp3100-partner = ls_but000-partner.
      ls_bp3100-criter = '3700'.
      ls_bp3100-amnt = '1000'.
      ls_bp3100-curr = 'EUR'.
      ls_bp3100-addtype = '10'.
      ls_bp3100-data_type = '10'.
    
      APPEND ls_bp3100 TO lt_bp3100.
    
      lr_mo->set_data_new( i_data_new = lt_bp3100 ).
      lr_mo->validate( ).
      lr_mo->save_data( ).
*      CATCH cx_xo_illegal_operation.

but I dont get the new added line in the business partner.

Can someone help me?

[schmelto · Accepted solution]

CALL FUNCTION 'FS_API_EXPL_SAVE'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

Add this at the end