Code: Alles auswählen.
****
**** DATA: it_e071 TYPE tr_objects,
**** it_e071k TYPE tr_keys,
**** wa_e071 TYPE e071,
**** wa_e071k TYPE e071k,
**** lv_request_type TYPE C.
****
*****wa_e071-trkorr = p_req.
**** wa_e071-pgmid = 'R3TR'.
**** wa_e071-object = 'TABU'.
**** wa_e071-obj_name = 'ZSWM_FORM_TEXTE'.
**** wa_e071-objfunc = 'W'.
****
**** wa_e071k-pgmid = 'R3TR'.
**** wa_e071k-object = 'TABU'.
**** wa_e071k-objname = 'ZSWM_FORM_TEXTE'.
**** wa_e071k-as4pos = sy-tabix.
**** wa_e071k-mastertype = wa_e071-object.
**** wa_e071k-mastername = wa_e071-obj_name.
**** wa_e071-objfunc = 'K'.
**** wa_e071k-tabkey = g_formtext.
****
**** APPEND wa_e071 TO it_e071.
**** append wa_e071k to it_e071k.
****
**** Break moser.
**** CALL FUNCTION 'TR_REQUEST_CHOICE'
**** EXPORTING
*****iv_suppress_dialog = 'X'
**** iv_request_types = 'W'
***** iv_request = 'Tabelleneinträge ZSWM_FORM_TEXTE'
**** it_e071 = it_e071
**** it_e071k = it_e071k
**** iv_lock_objects = 'X'
**** iv_with_error_log = 'X'
**** iv_no_owner_check = 'X'
***** IV_TITLE =
**** IV_START_COLUMN = 3
**** IV_START_ROW = 7
**** EXCEPTIONS
**** INVALID_REQUEST = 1
**** INVALID_REQUEST_TYPE = 2
**** USER_NOT_OWNER = 3
**** NO_OBJECTS_APPENDED = 4
**** ENQUEUE_ERROR = 5
**** CANCELLED_BY_USER = 0
**** RECURSIVE_CALL = 7
**** OTHERS = 8.
**** break moser.
**** if sy-subrc = 0.
**** CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
**** EXPORTING
**** textline1 = 'Eintrag auf Transporteintrag geschrieben'.
**** ENDIF.
Code: Alles auswählen.
DATA: it_e071 TYPE tr_objects,
it_e071k TYPE tr_keys,
wa_e071 TYPE e071,
wa_e071k TYPE e071k,
lv_request_type TYPE C.
*wa_e071-trkorr = p_req.
wa_e071-pgmid = 'R3TR'.
wa_e071-object = 'TABU'.
wa_e071-obj_name = 'ZSWM_FORM_TEXTE'.
wa_e071-AS4POS = '1'.
wa_e071-objfunc = 'W'.
wa_e071k-pgmid = 'R3TR'.
wa_e071k-object = 'TABU'.
wa_e071k-objname = 'ZSWM_FORM_TEXTE'.
wa_e071k-as4pos = sy-tabix.
wa_e071k-mastertype = wa_e071-object.
wa_e071k-mastername = wa_e071-obj_name.
wa_e071k-objfunc = 'K'.
wa_e071k-AS4POS = '1'.
wa_e071k-tabkey = g_formtext.
APPEND wa_e071 TO it_e071.
append wa_e071k to it_e071k.
Break moser.
CALL FUNCTION 'TR_REQUEST_CHOICE'
EXPORTING
*iv_suppress_dialog = 'X'
iv_request_types = 'K'
* iv_request = 'Tabelleneinträge ZSWM_FORM_TEXTE'
it_e071 = it_e071
it_e071k = it_e071k
iv_lock_objects = 'X'
iv_with_error_log = 'X'
iv_no_owner_check = 'X'
* IV_TITLE =
IV_START_COLUMN = 3
IV_START_ROW = 7
EXCEPTIONS
INVALID_REQUEST = 1
INVALID_REQUEST_TYPE = 2
USER_NOT_OWNER = 3
NO_OBJECTS_APPENDED = 4
ENQUEUE_ERROR = 5
CANCELLED_BY_USER = 0
RECURSIVE_CALL = 7
OTHERS = 8.
break moser.
if sy-subrc = 0.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
textline1 = 'Eintrag auf Transporteintrag geschrieben'.
ENDIF.
Code: Alles auswählen.
*wa_e071-trkorr = p_req.
wa_e071-pgmid = 'R3TR'.
wa_e071-object = 'TABU'.
wa_e071-obj_name = 'ZSWM_FORM_TEXTE'.
wa_e071-AS4POS = '1'.
wa_e071-objfunc = 'K'.
wa_e071k-pgmid = 'R3TR'.
wa_e071k-object = 'TABU'.
wa_e071k-objname = 'ZSWM_FORM_TEXTE'.
wa_e071k-as4pos = sy-tabix.
wa_e071k-mastertype = wa_e071-object.
wa_e071k-mastername = wa_e071-obj_name.
wa_e071k-AS4POS = '1'.
[b] wa_e071k-tabkey = '*'.[/b]
Dann würde es ständig rappeln, das ist kein Problem, da der Mandant ja in den meisten Tabellen enthalten ist."Trulchen"...Wenn ich das richitg verstehe können Transporteinträge nur CHAR und NUMC werte. Und aufgrund Sy-mandt kracht es dann..... Weil das ein CLNT Feld ist.