Nein, muss es nicht. du kannst die SelTexte auch im PBO (AT SELECTION-SCREEN OUTPUT) setzen.Romaniac hat geschrieben:[...] das muss aber zum Zeitpunkt INIT.. passieren
Code: Alles auswählen.
ENHANCEMENT 1 /MMT/RFBILA00_DATA_SEL_SCREEN. "inactive version
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(52) Erweiterungs-Exit SELE01, Erweiterung IDRU_BILA, Ende, Erweiterung /MMT/RFBILA00_DATA_SEL_SCREEN, Anfang S
* for Data merge, export or import from other System
PARAMETERS: rb_d_not RADIOBUTTON GROUP mrg,
rb_d_exp RADIOBUTTON GROUP mrg,
rb_d_imp RADIOBUTTON GROUP mrg.
INITIALIZATION.
data: lt_sel_dtel type table of rsseldtel.
lt_sel_dtel = value #( ( name = 'RB_D_NOT' kind = 'P' datenelment = '/MMT/RFBILA00_DATA_EXPORT' )
( name = 'RB_D_EXP' kind = 'P' datenelment = '/MMT/RFBILA00_DATA_EXPORT' )
( name = 'RB_D_IMP' kind = 'P' datenelment = '/MMT/RFBILA00_DATA_IMPORT' ) ).
CALL FUNCTION 'SELECTION_TEXTS_MODIFY_DTEL'
EXPORTING
program = sy-repid
tables
sel_dtel = lt_sel_dtel
EXCEPTIONS
PROGRAM_NOT_FOUND = 1
PROGRAM_CANNOT_BE_GENERATED = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(53) Erweiterungs-Exit SELE01, Erweiterung IDRU_BILA, Ende, Erweiterung /MMT/RFBILA00_DATA_SEL_SCREEN, Ende
ENDENHANCEMENT.
*$*$-End: (1)--
ENDENHANCEMENT.
*$*$-End: SELE0
end_of_screen 1.
Das habe ich auch versucht, aber an der Stelle kann ich auch nicht erweitern:ewx hat geschrieben:Nein, muss es nicht. du kannst die SelTexte auch im PBO (AT SELECTION-SCREEN OUTPUT) setzen.Romaniac hat geschrieben:[...] das muss aber zum Zeitpunkt INIT.. passieren
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT. "ALV
IF bilalist IS INITIAL "ALV
AND bilagrid IS INITIAL "ALV
AND bilatree IS INITIAL. "ALV
* IF syst-slset IS INITIAL. "n1060564
* bilagrid = 'X'. "n1060564
* ELSE. "n1060564
bilalist = 'X'. "ALV
* ENDIF. "n1060564
ENDIF.
IF sy-dynnr = '2000'. "begin "n1630595
LOOP AT SCREEN.
IF screen-name CS 'AGGR'.
IF pa_rbcs IS INITIAL.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF. "end "n1630595
AT SELECTION-SCREEN ON VALUE-REQUEST FOR bilagvar. "ALV
PERFORM bspl_alv_variant_f4 USING con_repid "ALV
con_grid "ALV
CHANGING bilagvar. "ALV
Wenn man da ein wenig kreativ ist, kann man durchaus eine FORM als Ankerpunkt für ein neues INITIALZATION verwenden..... Und gerade in der RFBILA00 könntest du dich in einem der Includes ganz am Ende in einer beliebigen FORM einklinken. Da passt das gut hin.Romaniac hat geschrieben:Danach kommt im RFBILA00 keine Möglichkeit mehr zu erweitern ausser in Unterprogrammen aber das ist auch schräg da dann INIT... einzubauen.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
Romaniac
Hallo Stefan,black_adept hat geschrieben:Wenn man da ein wenig kreativ ist, kann man durchaus eine FORM als Ankerpunkt für ein neues INITIALZATION verwenden..... Und gerade in der RFBILA00 könntest du dich in einem der Includes ganz am Ende in einer beliebigen FORM einklinken. Da passt das gut hin.Romaniac hat geschrieben:Danach kommt im RFBILA00 keine Möglichkeit mehr zu erweitern ausser in Unterprogrammen aber das ist auch schräg da dann INIT... einzubauen.