Dynamische Typisierung?
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
7 Beiträge
•
Seite 1 von 1
7 Beiträge
Seite 1 von 1
Hallo Experten,
folgende Situation:
In einer Methode einer ABAP-Klasse (nicht im Kundennamensraum) wird irgendwo
verwendet.
Ich möchte in dieser Methode nun in gr_obj statt eines Objekts der Originalklasse ein Objekt einer eigenen Klasse (die von der Originalklasse erbt) erzeugen und deren Methode get_result aufrufen.
Erstmal kein Problem:
Ich verwende die implizite Erweiterungsoption am Beginn des Methodencodings und schreibe hier:
Damit verschattet mein lokales gr_obj die Original-Deklaration und alles funktioniert wie gewünscht.
ABER:
Wie kann ich steuern, dass meine "Verschattung" nur unter bestimmten Bedingungen erfolgt?
Also z.B. (Coding bitte nicht ernstnehmen, soll nur die Idee illustrieren):
Jemand eine Idee?
folgende Situation:
In einer Methode einer ABAP-Klasse (nicht im Kundennamensraum) wird irgendwo
Code: Alles auswählen.
CREATE OBJECT gr_obj.
g_result = gr_obj->get_result( ).Ich möchte in dieser Methode nun in gr_obj statt eines Objekts der Originalklasse ein Objekt einer eigenen Klasse (die von der Originalklasse erbt) erzeugen und deren Methode get_result aufrufen.
Erstmal kein Problem:
Ich verwende die implizite Erweiterungsoption am Beginn des Methodencodings und schreibe hier:
Code: Alles auswählen.
*$*$-Start: (1)--------------------------------------------------------$*$*
DATA gr_obj TYPE REF TO zcl_erbt_von_originalklasse.
*$*$-Start: (1)--------------------------------------------------------$*$*ABER:
Wie kann ich steuern, dass meine "Verschattung" nur unter bestimmten Bedingungen erfolgt?
Also z.B. (Coding bitte nicht ernstnehmen, soll nur die Idee illustrieren):
Code: Alles auswählen.
*$*$-Start: (1)--------------------------------------------------------$*$*
IF sy-mandt EQ 100.
DATA gr_obj TYPE REF TO zcl_erbt_von_originalklasse.
ELSE.
DATA gr_obj TYPE REF TO originalklasse.
ENDIF.
*$*$-Start: (1)--------------------------------------------------------$*$*
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
evtl bringt dich das weiter:
http://sap.ittoolbox.com/groups/technic ... ct-4528803
//EDIT:
Ups, das war wohl etwas weit ums haus gelaufen, probier das mal^^
http://www.abapforum.com/forum/viewtopi ... =3&t=16404
Code: Alles auswählen.
data: gv_varname type string VALUE 'ZCL_KLASSE',
go_test TYPE REF TO data.
CREATE DATA go_test type REF TO (gv_varname).
FIELD-SYMBOLS: <fs> .
ASSIGN go_test->* to <fs>.
create OBJECT <fs> TYPE (gv_varname).
//EDIT:
Ups, das war wohl etwas weit ums haus gelaufen, probier das mal^^
Code: Alles auswählen.
DATA: lo_object TYPE REF TO OBJECT,
gv_classname TYPE string VALUE 'ZCL_CLASS'.
CREATE OBJECT lo_object TYPE (gv_classname).
Ah, ok, sorry, hatte ich nicht ganz gelesen.
also bräuchtest du dann quasi sowas in der art?:
die Frage ist quasi nur, wie man an das gr_obj von der verschatteten Klasse dran kommt...
also bräuchtest du dann quasi sowas in der art?:
Code: Alles auswählen.
data: gr_obj TYPE REF TO OBJECT.
IF >BEDINGUNG<.
CREATE OBJECT gr_obj type ('ZCL_CLASS').
ELSE.
"gr_obj = super->gr_obj.
ENDIF.
Beitrag
von ralf.wenzel (Top Expert / 3924 / 200 /
280
)
»
Jetzt bewege ich mich auf dünnem Eis......
Im Deklarationsblock ist sowas ziemlich doof, aber kann man das nicht einfach "fasten"?
Sprich:
Im Deklarationsblock ist sowas ziemlich doof, aber kann man das nicht einfach "fasten"?
Sprich:
Code: Alles auswählen.
data: originalklasse.
data: zcl_erbt_von_originalklasse.
if (bedingung)
zcl_erbt_von_originalklasse = originalklasse.
endif.
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Beitrag
von a-dead-trousers (Top Expert / 4395 / 223 /
1182
)
»
Nü das geht nicht.ralf.wenzel hat geschrieben:Jetzt bewege ich mich auf dünnem Eis......
Im Deklarationsblock ist sowas ziemlich doof, aber kann man das nicht einfach "fasten"?
Sprich:Code: Alles auswählen.
data: originalklasse. data: zcl_erbt_von_originalklasse. if (bedingung) zcl_erbt_von_originalklasse = originalklasse. endif.
Ein Objekt der Oberklasse kann nicht einem Objekt der Unterklasse zugewiesen werden.
Nur umgekehrt ist ein "casten" möglich.
So wie das ganze verstanden habe, geht es eigentlich um ein "anderes" Verhalten der Methode "get_result".
@Cortex: Hast du es schon mal mit einem "Enhancement" der Klasse versucht?
(SE24->[Originalklasse]->Anzeigen->Menü->Klasse->Erweitern)
lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Hallo ADT,
tatsächlich gibt es beim 'enhancen' der Klasse die Möglichkeit eine "Overwrite-Methode" zu schreiben die statt der originalen Methode aufgerufen wird.
In dieser habe ich dann auch Zugriff auf die CREATE OBJECT-Anweisung.
Zusammen mit dem Hinweis von Pyro wird ein Schuh draus...
In der Overwrite-Methode steht nun vor dem (kopierten) Original-Code:
Einzige Änderung im (kopierten) Originalcode ist:
Danke für eure Hinweise!
tatsächlich gibt es beim 'enhancen' der Klasse die Möglichkeit eine "Overwrite-Methode" zu schreiben die statt der originalen Methode aufgerufen wird.
In dieser habe ich dann auch Zugriff auf die CREATE OBJECT-Anweisung.
Zusammen mit dem Hinweis von Pyro wird ein Schuh draus...
In der Overwrite-Methode steht nun vor dem (kopierten) Original-Code:
Code: Alles auswählen.
DATA:
gr_obj TYPE REF TO cl_originalklasse,
lv_classname TYPE string.
IF sy-mandt EQ 100.
lv_classname = 'ZCL_ERBT_VON_ORIGINALKLASSE'.
ELSE.
lv_classname = 'CL_ORIGINALKLASSE'.
ENDIF.Code: Alles auswählen.
CREATE OBJECT gr_obj TYPE (lv_classname).
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
903
Views
Views
Dynamische Typisierung durch Changing Parameter
von Coffeebean » 11.07.2021 12:31 • Verfasst in ABAP Objects®
von Coffeebean » 11.07.2021 12:31 • Verfasst in ABAP Objects®
10
Antw.
Antw.
4848
Views
Views
Problem: Unterprogramm und Parameter(typisierung)
von MacLeod » 25.01.2012 16:31 • Verfasst in ABAP® Core
von MacLeod » 25.01.2012 16:31 • Verfasst in ABAP® Core
1
Antw.
Antw.
1338
Views
Views
Problem bei ASSIGN COMPONENT mit dynamischer Typisierung
von Luca2501 » 17.09.2020 11:09 • Verfasst in ABAP® Core
von Luca2501 » 17.09.2020 11:09 • Verfasst in ABAP® Core
4
Antw.
Antw.
1860
Views
Views
Typisierung bei Select-Options und Methoden-Exportparameter
von cecslucas » 06.08.2019 11:40 • Verfasst in ABAP® für Anfänger
von cecslucas » 06.08.2019 11:40 • Verfasst in ABAP® für Anfänger
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1132
vor 2 Tagen von DeathAndPain 4 / 1132
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1132
vor 2 Tagen von DeathAndPain 4 / 1132