Einzelne Zeile auslesen

Code: Alles auswählen.

ONTROLS DYNPRO_TABLE TYPE TABLEVIEW USING SCREEN 1001.

AUTHORITY-CHECK OBJECT 'M_MATE_STA'                                   "Materialstamm Zugrif
  ID 'ACTVT' FIELD '03'                                               "'3' = Anzeigen
  ID 'STATM' DUMMY.                                                   "Pflegestatus (unwichtig)
IF sy-subrc NE 0.                                                      
   MESSAGE: 'Berechtigung nicht vorhanden' TYPE 'E'.                  "Error Ausgabe
ELSE.

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

DATA: zvl_best_verlauf_matnr  TYPE matnr,                             "Definieren von Variablen (Allgemein)
      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,                                          "Definieren von Variablen (Button Dynpro) 
      save_ok LIKE ok_code.



SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-se1.
  SELECT-OPTIONS:
  material FOR zvl_best_verlauf_matnr,                                "Selection Screen 'Materialnummer'
  beschr   FOR zvl_best_verlauf_maktx NO INTERVALS NO-EXTENSION,      "Selection Screen 'Artikelbezeichnung'
  art      FOR zvl_best_verlauf_mtart NO INTERVALS NO-EXTENSION,      "Selection Screen 'Materialart'
  language FOR zvl_best_verlauf_spras NO INTERVALS NO-EXTENSION,      "Selection Screen 'Sprache'
  date     FOR zvl_best_verlauf_ersda NO INTERVALS NO-EXTENSION.      "Selection Screen 'Erstelldatum'

SELECTION-SCREEN END OF BLOCK BLOCK1.
ENDIF.

IF language is INITIAL.                                               "Copy and Paste ^^
  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'.                                                   "Aufrufen des Dynpros



MODULE Load_data OUTPUT.                                              "Module (Daten aus Mara auslesen)
SELECT mara~matnr, maktx "spras, mtart, ersda
  FROM mara
  INNER JOIN makt ON makt~matnr = mara~matnr                          "Matnr in Mara und Makt vorhanden
  INTO TABLE @lt_result                                   
  UP TO 100 ROWS                                                      "Begrenzen der Datenmenge
  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.                                       "Module (Dynpro Button: Return, Exit)
  save_ok = ok_code.
  CLEAR ok_code.                                                      "'ok_code' leeren (Sicher gehen)
  CASE save_ok.
  WHEN 'BUTTON_EXIT'.
      LEAVE PROGRAM.                                                  "Programm beenden
  WHEN 'BUTTON_RETURN'. 
      CALL SELECTION-SCREEN 1000.                                     "Selection Screen aufrufen
  ENDCASE.
 ENDMODULE.

Code: Alles auswählen.

 MODULE Read_Data OUTPUT.
   READ TABLE lt_result index GD_INDEX INTO ls_result.
   GD_MATNR = ls_result-feld1.         "feld1 ist in meiner Struktur von ls_result die Materialnummer
   GD_MAKTX = ls_result-feld2.
ENDMODULE.

Code: Alles auswählen.

IF gd_index LT lines( lt_result ). "Für Button_next
* bzw.
IF gd_index GT 1. "Für button_previous