Im Handling Unit Dialog sollen kundeneigene Felder, z.B. eine Kundenerweiterung der Tabelle VEKP, dargestellt werden.

Im folgenden wird eine Möglichkeit gezeigt, wie Sie kundeneigene Felder auf der Sicht „Zusatzdaten“ im Handling Unit Dialog darstellen können.

Um diese Anforderung zu realisieren, ist die Implementierung eines Business AddIns notwendig.

[av_heading heading=’Zielsetzung‘ tag=’h3′ style=“ size=“ subheading_active=“ subheading_size=’15‘ padding=’10‘ color=“ custom_font=“ av_uid=’av-4hpeese‘][/av_heading]

Im HU-Dialog soll auf der Registerkarte „Zusatzdaten“ ein kundeneigenes Feld eingebunden werden. In unserem Fall ist es das Feld „Packplatz-Id“.

[av_gallery ids=’17087′ style=’thumbnails‘ preview_size=’portfolio‘ crop_big_preview_thumbnail=’avia-gallery-big-crop-thumb‘ thumb_size=’portfolio‘ columns=’2′ imagelink=’lightbox‘ lazyload=’avia_lazyload‘ admin_preview_bg=“ av_uid=’av-dur6n2′]

[av_heading heading=’Erweiterung der Tabelle VEKP‘ tag=’h3′ style=“ size=“ subheading_active=“ subheading_size=’15‘ padding=’10‘ color=“ custom_font=“ av_uid=’av-3hxb3i6′][/av_heading]

Die Tabelle VEKP wird um das kundeneigene Feld erweitert.

[av_gallery ids=’17088′ style=’thumbnails‘ preview_size=’portfolio‘ crop_big_preview_thumbnail=’avia-gallery-big-crop-thumb‘ thumb_size=’portfolio‘ columns=’2′ imagelink=’lightbox‘ lazyload=’avia_lazyload‘ admin_preview_bg=“ av_uid=’av-2t7ccfy‘]

[av_heading heading=’Implementierung des Business AddInns‘ tag=’h3′ style=“ size=“ subheading_active=“ subheading_size=’15‘ padding=’10‘ color=“ custom_font=“ av_uid=’av-2lt7l1a‘][/av_heading]

Implementierung eines Business-Addins im Customizing.

[av_gallery ids=’17090′ style=’thumbnails‘ preview_size=’portfolio‘ crop_big_preview_thumbnail=’avia-gallery-big-crop-thumb‘ thumb_size=’portfolio‘ columns=’2′ imagelink=’lightbox‘ lazyload=’avia_lazyload‘ admin_preview_bg=“ av_uid=’av-2ae3rtq‘]

Implementieren der Methode  DEFINITION_SUBSCREEN.

[av_gallery ids=’17091′ style=’thumbnails‘ preview_size=’portfolio‘ crop_big_preview_thumbnail=’avia-gallery-big-crop-thumb‘ thumb_size=’portfolio‘ columns=’2′ imagelink=’lightbox‘ lazyload=’avia_lazyload‘ admin_preview_bg=“ av_uid=’av-1r6a2vy‘]

[av_gallery ids=’17092′ style=’thumbnails‘ preview_size=’portfolio‘ crop_big_preview_thumbnail=’avia-gallery-big-crop-thumb‘ thumb_size=’portfolio‘ columns=’2′ imagelink=’lightbox‘ lazyload=’avia_lazyload‘ admin_preview_bg=“ av_uid=’av-10yqbdq‘]

  METHOD if_ex_badi_hu_dialog~definition_subscreen.

    IF if_detail = 'X' AND is_v51g-tabstrip_fcode = 'DETZUS'.
*      cf_program   = 'SAPLV51G'.
*      cf_screen    = '6130'.
*      cf_activetab = 'DETZUS'.

      cf_program   = 'SAPLZLE_SUBSCR_HU_HEAD'.
      cf_screen    = '9100'.
      cf_activetab = 'DETZUS'.

      CALL FUNCTION 'Z_LE_DATA_TO_HU_SUBSCR'
        EXPORTING
          is_vekpvb = cs_vekp.

    ENDIF.

  ENDMETHOD.

[av_heading heading=’Anlegen eines Funktionsbausteins‘ tag=’h3′ style=“ size=“ subheading_active=“ subheading_size=’15‘ padding=’10‘ color=“ custom_font=“ av_uid=’av-phawwu‘][/av_heading]

Im Funktionsbaustein wird das Dynpro implementiert.

FUNCTION Z_LE_DATA_TO_HU_SUBSCR.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(IS_VEKPVB) TYPE  VEKPVB OPTIONAL
*"----------------------------------------------------------------------

  move-corresponding is_vekpvb to vekpvb.

ENDFUNCTION.

PROCESS BEFORE OUTPUT.
* MODULE STATUS_9100.

  CALL SUBSCREEN sub_area INCLUDING 'SAPLV51G' '6130'.

  MODULE loop_at_screen.

PROCESS AFTER INPUT.

  CHAIN.
    FIELD: vekpvb-zzpackplatz.
    MODULE pai_9100.
  ENDCHAIN.

* MODULE USER_COMMAND_9100.


***INCLUDE LZLE_SUBSCR_DLV_HEADO01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  LOOP_AT_SCREEN  OUTPUT
*&---------------------------------------------------------------------*
MODULE loop_at_screen OUTPUT.

  LOOP AT SCREEN.
    IF screen-name = 'VEKPVB-ZZPACKPLATZ'.
      IF sy-tcode CS '03'.                   "Anzeigen
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

ENDMODULE.


*----------------------------------------------------------------------*
***INCLUDE LZLE_SUBSCR_HU_HEADI01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
MODULE pai_9100 INPUT.

  DATA: ls_changed_cust     TYPE v51p_changed,

        lv_text_gsvekp(40)  TYPE c,

        lv_text_vekp(40)    TYPE c,

        lv_text_changed(40) TYPE c,

        ls_gsvekp           TYPE vekp,

        ls_vekp             TYPE vekp,

        lt_changed          TYPE TABLE OF v51p_changed,

        lwa_changed         TYPE v51p_changed.

  FIELD-SYMBOLS: <fs_gsvekp>  TYPE any,

                 <fs_vekp>    TYPE any,

                 <fs_changed> TYPE ANY TABLE.

  lv_text_gsvekp = '(SAPLV51G)GS_VEKP'.

  ASSIGN (lv_text_gsvekp) TO <fs_gsvekp>.

  IF sy-subrc = 0.

    ls_gsvekp = <fs_gsvekp>.

  ENDIF.

  lv_text_changed = '(SAPLV51G)GT_CHANGED[]'.

  ASSIGN (lv_text_changed) TO <fs_changed>.

  IF sy-subrc = 0.

    lt_changed[] = <fs_changed>.

  ENDIF.

  IF vekpvb-zzpackplatz NE ls_gsvekp-zzpackplatz.
    ls_gsvekp-zzpackplatz = vekpvb-zzpackplatz.

    lwa_changed-changed_f = 'ZZPACKPLATZ'.

    lwa_changed-f_value   = vekpvb-zzpackplatz.

    APPEND lwa_changed TO lt_changed.

  ENDIF.

  <fs_changed> = lt_changed[].

  <fs_gsvekp> = ls_gsvekp.


ENDMODULE.

 

Weitere Informationen

Spezialthemen zu SAP Formularen

SAP Formulare zum Festpreis

SAP Formularentwicklung