Wenn sie zum Zeitpunkt des Aufrufs von SET PF-STATUS nicht existieren kommt glaub ich ein Kurzdump.sapdepp hat geschrieben:FuGru und GUI-Status könnten dann später angelegt werden, oder müssen die vorher schon vorhanden sein im Dictionary?
Ja. Haben wir (früher) auch einige so angelegt damit die Einstellungen der Standard-Funktionstasten auch vom Standard gezogen werden (Ikone, Text, usw.) und keine "Kopie" sind. Mittlerweile machen wir das aber nicht mehr.sapdepp hat geschrieben:Merkwürdig ist auch, dass in unserem System zu einer SAP-FuGru N1L5 ein Z-GUI-Status gepflegt wurde. Das geht doch nur per Modifikation?
Du musst dir wohl oder übel deine Objekte aus den T_NTMN, T_NAPP usw. zusammenbauen.Tabelle mit nicht gespeicherten Daten (Daten, die sich noch nicht auf der Datenbank befinden).
Code: Alles auswählen.
FIELD-SYMBOLS: <lr_planning_grid> TYPE REF TO cl_ishmed_planning_grid.
ASSIGN ('(SAPLN1_PLANNING_GRID)G_PLANNING_GRID') TO <lr_planning_grid>.
Code: Alles auswählen.
FIELD-SYMBOLS: <lr_planning_grid> TYPE REF TO cl_ishmed_planning_grid.
* Dirty Assign
ASSIGN ('(SAPLN1_PLANNING_GRID)G_PLANNING_GRID') TO <lr_planning_grid>.
l_okcode = 'CHANGE_COR'.
CALL METHOD <lr_planning_grid>->process_after_input
EXPORTING
i_ok_code = l_okcode
IMPORTING
e_rc = l_rc
CHANGING
c_errorhandler = lr_err.
Code: Alles auswählen.
DATA: lr_planning_grid TYPE REF TO cl_ishmed_planning_grid,
lr_err TYPE REF TO cl_ishmed_errorhandling,
lr_prc_corder TYPE ref TO cl_ishmed_prc_corder,
lr_env TYPE REF TO cl_ish_environment.
DATA: l_okcode TYPE sy-ucomm,
l_rc TYPE ish_method_rc.
DATA: lt_wplace_objects TYPE ish_objectlist,
lt_NWPLACET TYPE ISHMED_T_NWPLACET.
FIELD-SYMBOLS: <lr_planning_grid> TYPE REF TO cl_ishmed_planning_grid.
FIELD-SYMBOLS: <lr_prc_order> TYPE REF TO CL_ISHMED_PRC_CORDER. "cl_ish_prc_corder.
...
when 'ZPRINTKLAT'.
* Dirty Assign auf aktuelle Instanz
ASSIGN ('(SAPLN1_PLANNING_GRID)G_PLANNING_GRID') TO <lr_planning_grid>.
CALL METHOD <lr_planning_grid>->GET_ENVIRONMENT
RECEIVING
RR_ENVIRONMENT = lr_env.
Code: Alles auswählen.
* Dirty Assign auf KLAT-Instanz (Wunschvorstellung)
ASSIGN ('(SAPLN1_MDY_CORDER)GR_PRC_CORDER') TO <lr_prc_order>.
* für die zweite Instanz
* Fkt.code für PAI
l_okcode = 'PRT_CORD'.
* Zündung (Wunschvorstellung)
CALL METHOD <lr_prc_order>->PAI...
EXPORTING
i_ok_code = l_okcode
i_env = lr_env
IMPORTING
e_rc = l_rc
CHANGING
c_errorhandler = lr_err.