会计凭证预留字段增强

 se19->ACC_DOCUMENT

  METHOD if_ex_acc_document~change.

    DATA: lv_string TYPE c  LENGTH 960,
          lo_ref    TYPE REF TO data.

    LOOP AT c_extension2 ASSIGNING FIELD-SYMBOL(<fs_ext>).

      AT NEW structure.

        CREATE DATA lo_ref TYPE (<fs_ext>-structure).
        ASSIGN lo_ref->* TO FIELD-SYMBOL(<fs_struc>).

      ENDAT.

      CALL METHOD cl_abap_container_utilities=>read_container_c
        EXPORTING
          im_container           = <fs_ext>+30(960)
        IMPORTING
          ex_value               = <fs_struc>
        EXCEPTIONS
          illegal_parameter_type = 1
          OTHERS                 = 2.

      ASSIGN COMPONENT 'POSNR' OF STRUCTURE <fs_struc> TO FIELD-SYMBOL(<fs_posnr>).
      IF <fs_posnr> IS ASSIGNED.

        READ TABLE c_accit ASSIGNING FIELD-SYMBOL(<fs_accit>) WITH KEY posnr = <fs_posnr>.
        IF sy-subrc EQ 0.
          MOVE-CORRESPONDING <fs_struc> TO <fs_accit>.
        ENDIF.

        UNASSIGN <fs_posnr>.

      ENDIF.

    ENDLOOP.

  ENDMETHOD.