Integration einer Dynpro

Code: Alles auswählen.

AUTHORITY-CHECK OBJECT 'M_MATE_STA'
ID 'ACTVT' FIELD '03'
ID 'STATM' DUMMY.
IF sy-subrc NE 0.
MESSAGE: 'Berechtigung nicht vorhanden' TYPE 'E'.
ELSE.
DATA: zvl_best_verlauf_matnr  TYPE matnr,
      zvl_best_verlauf_maktx  TYPE maktx,
      zvl_best_verlauf_ersda  TYPE ersda,
      zvl_best_verlauf_spras  TYPE spras,
      zvl_best_verlauf_mtart  TYPE mtart.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-se1.
  SELECT-OPTIONS:
  material FOR zvl_best_verlauf_matnr,
  beschr   FOR zvl_best_verlauf_maktx NO INTERVALS NO-EXTENSION,
  art      FOR zvl_best_verlauf_mtart NO INTERVALS NO-EXTENSION,
  language FOR zvl_best_verlauf_spras NO INTERVALS NO-EXTENSION,
  date     FOR zvl_best_verlauf_ersda NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF BLOCK BLOCK1.

IF language IS INITIAL.                                        " Der Bereich ist nur drin weil ein Kollege meinte das müsste so . Ich bin anderer Meinung
 DATA language_line LIKE LINE OF language.
language_line-low = sy-langu.
 language_line-sign = 'I'.
language_line-option = 'EQ'.
 APPEND language_line TO language.
 ENDIF.

SELECT mara~matnr, maktx, spras, mtart, ersda
  FROM mara
  INNER JOIN makt ON makt~matnr = mara~matnr
  INTO TABLE @DATA(lt_result)
  UP TO 100 ROWS
  WHERE mara~matnr              In @material
  AND   makt~maktx              In @beschr
  AND   ersda                   In @date
  AND   mtart                   In @art
  AND   makt~spras              In @language.

CALL SCREEN '1001'.

ENDIF.

Code: Alles auswählen.

CONTROLS DYNPRO_TABLE TYPE TABLEVIEW USING SCREEN 1001.

AUTHORITY-CHECK OBJECT 'M_MATE_STA'
  ID 'ACTVT' FIELD '03'
  ID 'STATM' DUMMY.
IF sy-subrc NE 0.
   MESSAGE: 'Berechtigung nicht vorhanden' TYPE 'E'.
ELSE.

TYPES: BEGIN OF ty_struct1,
          feld1 TYPE matnr,
          feld2 TYPE maktx,
       END OF ty_struct1.

DATA: zvl_best_verlauf_matnr  TYPE matnr,
      zvl_best_verlauf_maktx  TYPE maktx,
      zvl_best_verlauf_ersda  TYPE ersda,
      zvl_best_verlauf_spras  TYPE spras,
      zvl_best_verlauf_mtart  TYPE mtart,
      lt_result               TYPE TABLE OF ty_struct1,
      ls_result               TYPE ty_struct1,
      TOP_LINE                TYPE i.

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code.



SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-se1.
  SELECT-OPTIONS:
  material FOR zvl_best_verlauf_matnr,
  beschr   FOR zvl_best_verlauf_maktx NO INTERVALS NO-EXTENSION,
  art      FOR zvl_best_verlauf_mtart NO INTERVALS NO-EXTENSION,
  language FOR zvl_best_verlauf_spras NO INTERVALS NO-EXTENSION,
  date     FOR zvl_best_verlauf_ersda NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF BLOCK BLOCK1.
ENDIF.

IF language is INITIAL.
  DATA language_line LIKE LINE OF language.
  language_line-low = sy-langu.
  language_line-sign = 'I'.
  language_line-option = 'EQ'.
  APPEND language_line TO language.
 ENDIF.

CALL SCREEN '1001'.



MODULE Load_data OUTPUT.
SELECT mara~matnr, maktx "spras, mtart, ersda
  FROM mara
  INNER JOIN makt ON makt~matnr = mara~matnr
  INTO TABLE @lt_result
  UP TO 100 ROWS
  WHERE mara~matnr              In @material
  AND   makt~maktx              In @beschr
  AND   ersda                   In @date
  AND   mtart                   In @art
  AND   makt~spras              In @language.
ENDMODULE.

MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
  WHEN 'BUTTON_EXIT'.
      LEAVE PROGRAM.
  WHEN 'BUTTON_RETURN'.
      CALL SELECTION-SCREEN 1000.
  ENDCASE.
 ENDMODULE.