**********************************************************************
* Field KTOKK -  Check change of account group
**********************************************************************
  IF is_lfa1_old IS NOT INITIAL.
*   update
    IF is_lfa1_old-ktokk <> cs_lfa1_new-ktokk.
*     Fill error parameter
      es_error-is_error = gc_true.

*     detailed message with field value
      MESSAGE e040(vmd_api) INTO gv_msgtext
                            WITH cs_lfa1_new-kunnr.
      ls_bapiret2 = cvi_ei_api=>tool_fill_bapiret2('KTOKK').
      APPEND ls_bapiret2 TO es_error-messages.

*     general message with field name
      MESSAGE e007(cvi_api) INTO gv_msgtext
                            WITH 'LFA1-KTOKK'.
      ls_bapiret2 = cvi_ei_api=>tool_fill_bapiret2('KTOKK').
      APPEND ls_bapiret2 TO es_error-messages.

*     collect messages or exit after first error
      IF iv_collect_messages IS INITIAL.
*       save messages and end at first error
        RETURN.
      ELSE.
*       collect messages and continue
      ENDIF.
    ENDIF.
  ENDIF.