"Autofill" in Dynpro/Parametereingabe

Code: Alles auswählen.

REPORT  ztest_asd.

TYPES:
          BEGIN OF l_str_test,
            pr_id(10) TYPE n,
            pr_bez(20) TYPE c,
            pr_lgr(30) TYPE c,
          END OF l_str_test.



DATA :
          BEGIN OF l_str_hilfe,
            pr_id(10) TYPE n,
            pr_bez(20) TYPE c,
            pr_lgr(30) TYPE c,
          END OF l_str_hilfe.

PARAMETERS:
            l_pr_id TYPE zpt_dte_pr_id.


DATA:
      l_tab_hilfe LIKE STANDARD TABLE OF l_str_hilfe WITH HEADER LINE,
      l_tab_hilfe2 LIKE STANDARD TABLE OF l_str_hilfe WITH HEADER LINE,
      l_tab_bez TYPE TABLE OF  dd07v WITH HEADER LINE,
      l_tab_lgr TYPE TABLE OF  dd07v WITH HEADER LINE,

      l_str_test TYPE l_str_test,
      l_tab_test TYPE STANDARD TABLE OF l_str_test.


FIELD-SYMBOLS:
               <l_test>,
               <l_pr_bez>,
               <l_pr_lgr>,
               <l_pr_mng>,
               <l_pr_btrg>,
               <l_pr_curr>.

*BEZEICHNUNG UND ID
CALL FUNCTION 'DD_DOMVALUES_GET'
  EXPORTING
    domname              = 'ZPT_PR_ID'
    text                 = 'X'
*   LANGU                = ' '
*   BYPASS_BUFFER        = ' '
* IMPORTING
*   RC                   =
  TABLES
    dd07v_tab            = l_tab_bez
 EXCEPTIONS
   wrong_textflag       = 1
   OTHERS               = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.


*LAGERORT
CALL FUNCTION 'DD_DOMVALUES_GET'
  EXPORTING
    domname              = 'ZPT_PR_LGR'
    text                 = 'X'
*   LANGU                = ' '
*   BYPASS_BUFFER        = ' '
* IMPORTING
*   RC                   =
  TABLES
    dd07v_tab            = l_tab_lgr
 EXCEPTIONS
   wrong_textflag       = 1
   OTHERS               = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.




LOOP AT l_tab_bez.
  MOVE l_tab_bez-domvalue_l TO l_tab_hilfe-pr_id.

  DO 1 TIMES.
    IF l_pr_id = l_tab_hilfe-pr_id.
      MOVE l_tab_hilfe-pr_id TO l_tab_hilfe2-pr_id.
*  schreiben der PR_ID
*      ASSIGN l_tab_hilfe-pr_id TO <l_test>.
*      WRITE: /, /,  <l_test>.
    ENDIF.
  ENDDO.

  DO 1 TIMES.
    IF l_pr_id = l_tab_hilfe-pr_id.
      MOVE l_tab_bez-ddtext TO l_tab_hilfe-pr_bez.
      MOVE l_tab_hilfe-pr_bez TO l_tab_hilfe2-pr_bez.
*schreiben pr_bez
*      ASSIGN l_tab_hilfe-pr_bez TO <l_pr_bez>.
*      WRITE:  <l_pr_bez>.
    ENDIF.
  ENDDO.

  IF sy-tabix = 1.
    LOOP AT l_tab_lgr.
      IF l_pr_id = l_tab_lgr-domvalue_l.
        MOVE l_tab_lgr-ddtext TO l_tab_hilfe-pr_lgr.
        MOVE l_tab_hilfe-pr_lgr TO l_tab_hilfe2-pr_lgr.
*  SCHREIBEN DER PR_LGR
*        ASSIGN l_tab_hilfe-pr_lgr TO <l_pr_lgr>.
*        WRITE:  <l_pr_lgr>.
        EXIT.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDLOOP.




WRITE: /, l_tab_hilfe2-pr_id,
          l_tab_hilfe2-pr_bez,
          l_tab_hilfe2-pr_lgr.