Vererbung von CL_RSR_WWW_MODIFY_TABLE

ABAP Web Dynpro, BusinessServerPages; Erstellung von Webapplikationen.
1 Beitrag • Seite 1 von 1
1 Beitrag Seite 1 von 1

Vererbung von CL_RSR_WWW_MODIFY_TABLE

Beitrag von ratoshuan (ForumUser / 8 / 0 / 0 ) »
Hallo Leutz,

versuche mich gerade in die Welt des Webreportings durchzuarbeiten. Im Web Application Designer habe ich eine Tabelle angelegt und mit einem Report verbunden. Der Report wird angezeigt, wenn ich in über einen gegebene URL starte. Nun möchte ich jedoch die Merkmale der Tabelle, falls die länger als 10 Zeichen sind kürzen, d.h. nach 10 Zeichen abschneiden und "..." hinzufügen.
Dazu habe ich nun zu meinemn Template folgende Zeile in <OBJECT>-Tag des Webitems Table eingefügt:

Code: Alles auswählen.

<param name="MODIFY_CLASS" value="ZTR_CL_INH_RSR_MODIFY_TABLE">
Dannach bin ich hingegangen in die se80 und habe eine Klasse "ZTR_CL_INH_RSR_MODIFY_TABLE" angelegt, die von der Standardklasse "CL_RSR_MODIFY_TABLE" erbt. Dort habe ich die Methode "characteristic_cell" redefiniert mit folgendem Code

Code: Alles auswählen.

METHOD characteristic_cell .
*CALL METHOD SUPER->CHARACTERISTIC_CELL
*  EXPORTING
*    I_X              =
*    I_Y              =
*    I_IOBJNM         =
*    I_AXIS           =
*    I_CHAVL_EXT      =
*    I_CHAVL          =
*    I_NODE_IOBJNM    =
*    I_TEXT           =
*    I_HRY_ACTIVE     =
*    I_DRILLSTATE     =
*    I_DISPLAY_LEVEL  =
*    I_USE_TEXT       =
*    I_IS_SUM         =
*    I_IS_REPETITION  =
**    I_FIRST_CELL     = RS_C_FALSE
**    I_LAST_CELL      = RS_C_FALSE
*    I_CELLSPAN       =
*    I_CELLSPAN_ORT   =
*  CHANGING
*    C_CELL_ID        =
*    C_CELL_CONTENT   =
*    C_CELL_STYLE     =
*    C_CELL_TD_EXTEND =
*

  DATA: param TYPE string,
        cell_content_len   TYPE string,
        l_cell_content     TYPE string,
        cell_text TYPE string.
  DATA: part1 TYPE string, part2 TYPE string, part3 TYPE string.

 param = n_r_creation_parameters->get_upper_case( i_id = 'SHORT_TEXT' ).

  IF param = 'X'.
    cell_text = i_text.

    FIND i_text IN c_cell_content.
    IF sy-subrc = 0.

* Stringlänge des Zellinhalts

      cell_content_len = STRLEN( i_text ).

* Kürzen, wenn mehr als 10 Zeichen

      IF cell_content_len > 10 AND i_y > 1.

        SPLIT c_cell_content AT cell_text INTO part1 part2.
        SPLIT part2 AT cell_text INTO part2 part3.

        CONCATENATE
          part1
          i_text
          part2
          i_text(36)
          '...'
          part3
        INTO l_cell_content.

      ELSE.
        l_cell_content = c_cell_content.

      ENDIF.
* Ende kürzen

    ELSE.
      l_cell_content = c_cell_content.
    ENDIF.
* Ende wenn i_text vorkommt

    c_cell_content = l_cell_content.
    CLEAR l_cell_content.



  ENDIF.
ENDMETHOD.

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Seite 1 von 1

Vergleichbare Themen

8
Antw.
17689
Views
MODIFY TABLE itab Problem
von siggi76 » 14.06.2011 15:22 • Verfasst in ABAP® für Anfänger
3
Antw.
3383
Views
LOOP über führende interne Tabelle + READ TABLE und MODIFY
von HawkDT » 23.03.2017 13:02 • Verfasst in ABAP® für Anfänger
7
Antw.
4195
Views
Interfaces vs. Vererbung
von ewx » 02.12.2014 18:32 • Verfasst in ABAP Objects®
2
Antw.
1596
Views
Exceptions und Vererbung
von SaskuAc » 08.11.2018 13:43 • Verfasst in ABAP® für Anfänger
12
Antw.
5990
Views
Textelemente und Vererbung, Ideen?
von GastX » 21.01.2015 09:17 • Verfasst in ABAP Objects®

Über diesen Beitrag

ratoshuan
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Zugriff auf Daten via Webdav
vor 16 Stunden von msfox 1 / 31
Interne Tabelle
vor 16 Stunden von sap_enthusiast 3 / 162
Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 71

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Zugriff auf Daten via Webdav
vor 16 Stunden von msfox 1 / 31
Interne Tabelle
vor 16 Stunden von sap_enthusiast 3 / 162
Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 71

Unbeantwortete Forenbeiträge

Zugriff auf Daten via Webdav
vor 16 Stunden von msfox 1 / 31
Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 71
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111