Hallo zusammen,

ich habe folgendes Problem: Nach dem Ändern eines Knotens wird dieser nicht aktualisiert, obwohl eigentlich alles stimmen müsste (die entsprechenden Hinweise in anderen Foren habe ich bereits berücksichtigt).

Der Quelltext sieht wie folgt aus (die Export-Parameter der Methode GET_OUTTAB_LINE bleiben immer leer):

CALL METHOD tree1->get_outtab_line
EXPORTING
i_node_key = ls_node_upd_tree1-node_key
IMPORTING
e_outtab_line = ls_outtab_line
e_node_text = ls_node_text-node_text
et_item_layout = et_item_layout
es_node_layout = es_node_layout
EXCEPTIONS
node_not_found = 1.

CLEAR: is_node_layout.
MOVE-CORRESPONDING es_node_layout TO is_node_layout.

CLEAR: it_item_layout.
IF NOT et_item_layout IS INITIAL.
CLEAR: es_item_layout.
LOOP AT et_item_layout INTO es_item_layout.
CLEAR: is_item_layout.
MOVE-CORRESPONDING es_item_layout TO is_item_layout.
is_item_layout-chosen = 'X'. " Update-Flag
APPEND is_item_layout TO it_item_layout.
ENDLOOP.
ENDIF.

* Knotenlayout setzen
CLEAR: ls_node_layout,
lv_style.
PERFORM pw_tree1_node_layout_set USING ls_node_upd_tree1
CHANGING ls_node_layout
lv_style.
is_node_layout-style = lv_style.

* Knotentext aktualisieren
CLEAR: ls_node_text.
READ TABLE lt_node_text INTO ls_node_text WITH KEY zzpwnri = ls_outtab_line-zzpwnri
cr_objid = ls_outtab_line-cr_objid
aufnr = ls_outtab_line-aufnr.

CALL METHOD tree1->change_node
EXPORTING
i_node_key = ls_node_upd_tree1-node_key
i_outtab_line = ls_node_upd_tree1
is_node_layout = is_node_layout
it_item_layout = it_item_layout
i_node_text = ls_node_text-node_text
i_u_node_text = con_x
EXCEPTIONS
node_not_found = 1.

CALL METHOD tree1->set_screen_update
EXPORTING
i_update = 'X'
EXCEPTIONS
cntl_system_error = 1
failed = 2.

CALL METHOD tree1->frontend_update.

Hat jemand vielleicht eine Idee, wo das Problem liegen könnte?

Vielen Dank im Voraus.

hi,

nur zur vervollständigung, weil ich gerade ein ähnliches problem hatte...

die struktur LVC_S_LACN (die der methode CHANGE_NODE mitgegeben wird) besitzt update-parameter, die mit ABAP_TRUE versehen werden müssen, falls sich ein parameter im layout verändert hat.

beispiel bei mir, veränderung des styles:

Code:

DATA: ls_layout_new TYPE LVC_S_LACN. ls_layout_new-style = cl_gui_list_tree=>style_intensified. ls_layout_new-u_style = abap_true.

und schon ist nach einem aufruf von FRONTEND_UPDATE der eintrag im CL_GUI_ALV_TREE verändert.

viele grüße

Hallo,
Ich habe so ein ähnliches Problem, jedoch ein bischen anders -->
Ich möchte, dass sich im CJ9ECP alle Zahlen im linken Nav.baum natürlich demensprechend ändern/aktualisieren , sobald ich oben auf den Button "aktualisieren" geklickt habe,
nachdem ich rechts bei den Mengen (in d. Fall bei den Preisen) was geändert habe.
(siehe screenshot)

Geht das dann so ähnlich??

Weil alleine nur der Code:
** Aktualisierung von Baum NOTWENDIG

DATA: l_ucomm TYPE syucomm.

"CALL FUNCTION 'AD_BOS_SET_HIERARCHY_UNCHANGED'.

IF NOT IR_ECP_GUI IS INITIAL.

l_ucomm = 'ECP_CE_TREE_REDISPLAY'.
"l_ucomm = 'ECP_CE_TREE_UPDATE_CURRENT_CE'.
"l_ucomm = 'ECP_ITEMIZATION_REDISPLAY'.
CALL METHOD IR_ECP_GUI->on_user_command
EXPORTING
i_ucomm = l_ucomm.


EXIT.
ENDIF.
reicht offensichtlich nicht!!???!


Mein bisheriger Code dazu sieht folgendermassen aus:

Code:

METHOD if_ex_ecp_add_functions_ck~handle_new_fcode_tree_tb .   DATA: lr_alv_tree TYPE REF TO cl_gui_alv_tree.   DATA: lt_selected_nodes TYPE lvc_t_nkey,         lw_selected_nodes LIKE LINE OF lt_selected_nodes.   DATA: lv_proj TYPE ps_posid,         lv_pspnr_int TYPE ps_posnr,         lv_pspnr TYPE ps_posid,         lv_versn TYPE versn.   DATA: lt_outtab_line  TYPE ckf_s_gui_ce_tree, "Type aus CL_gui_ce_tree->mt_outtab         lt_outtab       TYPE ckf_t_gui_ce_tree,         lv_node_text TYPE lvc_value,         ls_node_layout TYPE lvc_s_layn.   DATA: lr_wrap_proj_ck TYPE REF TO cl_wrap_proj_ck.   IF i_fcode = 'Z_LIST'.     MOVE ir_gui_ce_tree->mr_alv_tree TO lr_alv_tree.     CALL METHOD lr_alv_tree->get_selected_nodes       CHANGING         ct_selected_nodes = lt_selected_nodes       EXCEPTIONS         cntl_system_error = 1         dp_error          = 2         failed            = 3         OTHERS            = 4.     IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO *            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.     ENDIF.     LOOP AT lt_selected_nodes INTO lw_selected_nodes.       CALL METHOD lr_alv_tree->get_outtab_line         EXPORTING           i_node_key     = lw_selected_nodes         IMPORTING           e_outtab_line  = lt_outtab_line           e_node_text    = lv_node_text         EXCEPTIONS           node_not_found = 1           OTHERS         = 2.       IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO *            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.       ENDIF.       EXIT.  "nur erste Selektion zählt     ENDLOOP.     IF sy-subrc = 0.       MOVE ir_top_cost_estimate->object_of_costing ?TO lr_wrap_proj_ck.       MOVE lr_wrap_proj_ck->m_posid   TO lv_proj.       MOVE lr_wrap_proj_ck->m_version TO lv_versn. * da aus dem Objekt nicht die PSP-Nummer sondern die Projektnummer gelesen wird * und die beiden nicht gleich sein müssen, muss noch die PSP-Nummer explizit gelesen * werden. * zuerst die interne PSP-Nummer aus dem Projektstamm auslesen       SELECT SINGLE pspnr INTO lv_pspnr_int         FROM proj        WHERE pspid = lv_proj.       IF sy-subrc <> 0.         EXIT.       ENDIF. * über die interne PSP-Nummer das PSP-Element auslesen       SELECT SINGLE posid INTO lv_pspnr         FROM prps        WHERE psphi = lv_pspnr_int.       IF sy-subrc <> 0.         EXIT.       ENDIF. * wenn das PSP-Element ausgewählt wurde ( = 2. Zeile) dann * werden alle Mappen angezeigt.       IF lw_selected_nodes = 2.         CLEAR lv_node_text.       ENDIF.       SUBMIT zklt_ecp_kalkpos2               WITH p_mappe = lv_node_text               WITH p_prnull = ' ' *             WITH p_stkli = ' '               WITH p_pspnr = lv_pspnr               WITH p_versn = lv_versn       AND RETURN.     ENDIF.   ENDIF. *----------------------------------------------------------------------*  DATA: l_top_node_key      TYPE lvc_nkey,         lt_node_key         TYPE lvc_t_nkey,         wa_node_key         LIKE LINE OF lt_node_key,         lt_nodes            TYPE lvc_t_nkey,         wa_nodes            LIKE LINE OF lt_nodes,         wa_nodes2           LIKE LINE OF lt_nodes,         wa_outtab_line      TYPE ckf_s_gui_ce_tree.   DATA: lt_item_layout      TYPE lvc_t_layi,         wa_node_layout      TYPE lvc_s_layn,         wa_node_layout_up   TYPE lvc_s_lacn.   IF i_fcode = 'Z_AUFR'. *   Erstes Baumelement lesen     CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_top_node       IMPORTING         e_node_key        = l_top_node_key       EXCEPTIONS         cntl_system_error = 1         failed            = 2         OTHERS            = 3. *   Read from memory     IMPORT lt_nodes TO lt_nodes FROM MEMORY ID 'NODES'. *   Erster Aufruf, Nodes mit 0.00 entfernen     IF lt_nodes IS INITIAL. *     Darunterliegende Ebenen lesen       CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_subtree         EXPORTING           i_node_key       = l_top_node_key         IMPORTING           et_subtree_nodes = lt_node_key. *     Ebenen prüfen, ob Wert > 0.00       LOOP AT lt_node_key INTO wa_node_key.         CLEAR: wa_outtab_line, wa_node_layout.         CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_outtab_line           EXPORTING             i_node_key     = wa_node_key           IMPORTING             e_outtab_line  = wa_outtab_line             "e_node_text    = lv_node_text             "ET_ITEM_LAYOUT = lt_item_layout             es_node_layout = wa_node_layout           EXCEPTIONS             node_not_found = 1             OTHERS         = 2.         IF sy-subrc = 0.           IF wa_outtab_line-total_va <= 0. "Knoten ausblenden, da Wert 0,00             wa_nodes        = wa_node_key.             APPEND wa_nodes TO lt_nodes. *           get key and hide the selected node             CLEAR wa_node_layout_up.             MOVE-CORRESPONDING wa_node_layout TO wa_node_layout_up.             wa_node_layout_up-hidden = 'X'.             wa_node_layout_up-u_hidden = 'X'.             CALL METHOD ir_gui_ce_tree->mr_alv_tree->change_node               EXPORTING                 i_node_key     = wa_node_key                 i_outtab_line  = wa_outtab_line                 is_node_layout = wa_node_layout_up *                IT_ITEM_LAYOUT = *                I_NODE_TEXT    = *                I_U_NODE_TEXT  =               EXCEPTIONS                 node_not_found = 1                 OTHERS         = 2.           ENDIF.         ENDIF.       ENDLOOP. *     Write to Memory       EXPORT lt_nodes FROM lt_nodes TO MEMORY ID 'NODES'.     ELSE. "Zweiter Aufruf, Nodes mit 0.00 wieder anzeigen       LOOP AT lt_nodes INTO wa_nodes.         CLEAR: wa_outtab_line, wa_node_layout.         CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_outtab_line           EXPORTING             i_node_key     = wa_nodes           IMPORTING             e_outtab_line  = wa_outtab_line             "e_node_text    = lv_node_text             "ET_ITEM_LAYOUT = lt_item_layout             es_node_layout = wa_node_layout           EXCEPTIONS             node_not_found = 1             OTHERS         = 2.         CLEAR wa_node_layout_up.         MOVE-CORRESPONDING wa_node_layout TO wa_node_layout_up.         wa_node_layout_up-hidden = ' '.         wa_node_layout_up-u_hidden = 'X'.         CALL METHOD ir_gui_ce_tree->mr_alv_tree->change_node           EXPORTING             i_node_key     = wa_nodes             i_outtab_line  = wa_outtab_line             is_node_layout = wa_node_layout_up *            IT_ITEM_LAYOUT = *            I_NODE_TEXT    = *            I_U_NODE_TEXT  =           EXCEPTIONS             node_not_found = 1             OTHERS         = 2.       ENDLOOP.       "Memoery löschen       FREE MEMORY ID 'NODES'.     ENDIF.     CALL METHOD ir_gui_ce_tree->hierarchy_redisplay.     CALL METHOD ir_gui_ce_tree->at_end_of_redisplay.     CALL METHOD ir_gui_ce_tree->mr_alv_tree->frontend_update.     CALL METHOD cl_gui_cfw=>flush.   ENDIF. "Z_AUFR *----------------------------------------------------------------------* *Übergabe von Werten zwischen einzelnen *                               Mappen   DATA: lt_nodes_children       TYPE lvc_t_nkey,         l_node_child            LIKE LINE OF lt_nodes_children,         lt_item_layout_child    TYPE lvc_t_layi,         wa_node_layout_child    TYPE lvc_s_layn,         wa_outtab_line_new      TYPE ckf_s_gui_ce_tree.   DATA: lr_cost_estimate  TYPE REF TO cl_cost_estimate.   DATA: ls_outtab         TYPE ckf_s_gui_ce_tree,         ls_outtab2        TYPE ckf_s_gui_ce_tree.   DATA: l_nkey            TYPE LVC_NKEY,         l_nkey2           TYPE LVC_NKEY,         l_new_node        TYPE LVC_NKEY.   DATA: l_costing_model   TYPE ck_costmodel,         l_costing_model2  TYPE ck_costmodel.   DATA: l_matnr_output    TYPE MATNR.   DATA: lt_components        TYPE ckf_component_table,         lt_KIS1              TYPE CKF_STANDARD_KIS1_TABLE,         wa_kis1              LIKE LINE OF lt_kis1.   DATA: l_menge_diff         TYPE MENGE_POS.   IF i_fcode = 'Z_MAKT'.     " 1. Datenbestand zu PSP von Datenbank holen     " 2. Aktuellen Stand von GUI besorgen     " 3. Vergleichen und check was hinzugefügt/entfernt/verändert wurde     "1.  "Alten" ECP-Stand aus DB holen     DATA: l_top_node      TYPE lvc_nkey.     CALL METHOD ir_gui_ce_tree->mr_alv_tree->GET_TOP_NODE       IMPORTING         E_NODE_KEY        = l_top_node       EXCEPTIONS         CNTL_SYSTEM_ERROR = 1         FAILED            = 2         others            = 3.     IF SY-SUBRC <> 0.       exit.     ENDIF.     " Knoten von PSP lesen     DATA: l_second_node TYPE lvc_nkey.     CALL METHOD ir_gui_ce_tree->mr_alv_tree->GET_FIRST_CHILD       EXPORTING         I_NODE_KEY       = l_top_node       IMPORTING         E_CHILD_NODE_KEY = l_second_node.     clear ls_outtab.     CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_outtab_line       EXPORTING         i_node_key    = l_second_node       IMPORTING         e_outtab_line = ls_outtab.     DATA: l_objnr_psp     TYPE J_OBJNR.     IF NOT ls_outtab-cost_estimate IS INITIAL.       "Objektnummer vom PSP-Element lesen       l_objnr_psp = ls_outtab-cost_estimate->header-OBJECT_NUMBER.     ENDIF.     "Kalk-Daten zu PSP von DB lesen     DATA: lt_ckhs TYPE TABLE OF ckhs,           wa_ckhs LIKE LINE OF lt_ckhs,           lt_ckis TYPE TABLE OF ckis,           wa_ckis LIKE LINE OF lt_ckis.     SELECT * FROM CKHS INTO TABLE lt_ckhs WHERE objnr = l_objnr_psp       ORDER BY lednr bzobj kalnr kalka.     "----------------------------     "2. Alle Baumknoten einlesen     clear lt_nodes. refresh lt_nodes.     CALL METHOD ir_gui_ce_tree->mr_alv_tree->GET_SUBTREE       EXPORTING         I_NODE_KEY       = l_top_node       IMPORTING         ET_SUBTREE_NODES = lt_nodes.     "Erstes und zweites Baumelement irrelevant -> löschen     delete lt_nodes INDEX 1.     delete lt_nodes INDEX 1.     LOOP AT lt_nodes INTO wa_nodes.       l_nkey = wa_nodes.       clear ls_outtab.       CALL METHOD ir_gui_ce_tree->mr_alv_tree->get_outtab_line         EXPORTING           i_node_key    = l_nkey         IMPORTING           e_outtab_line = ls_outtab.       "Es sind nur Mappen relevant       IF ls_outtab-TYPPS <> 'J'.         CONTINUE.       ENDIF.       clear wa_ckhs.       "Prüfung ob Mappe neu hinzugefügt wurde, oder bereits auf DB vorh. ist       READ TABLE lt_ckhs INTO wa_ckhs WITH KEY LEDNR = ls_outtab-LEDNR                                                BZOBJ = ls_outtab-BZOBJ                                                KALNR = ls_outtab-UKALN                                                KALKA = ls_outtab-KALKA                                                TVERS = ls_outtab-TVERS.       IF sy-subrc <> 0. "Mappe nicht gefunden - wurde gerade hinzugefügt         "Mappe wird von ECP autom. gespeichert - Abhängigkeiten prüfen       ELSE.             "Mappe gefunden - Mat.Pos. checkn         clear lr_cost_estimate. clear l_costing_model.         IF NOT ls_outtab-cost_estimate IS INITIAL.           lr_cost_estimate = ls_outtab-cost_estimate.           "Planungsvorlage lesen           l_costing_model = lr_cost_estimate->header-costing_model.           "Material Positionen lesen           clear:   lt_components, lt_kis1.           refresh: lt_components, lt_kis1.           CALL METHOD lr_cost_estimate->GET_ITEMIZATION             EXPORTING               IM_EXPAND_COMPOSITE = CKC_YES             IMPORTING               EX_COMPONENTS       = lt_components               EX_KIS1_TABLE       = lt_kis1             EXCEPTIONS               NOT_FOUND           = 1               others              = 2.           LOOP AT lt_kis1 INTO wa_kis1.             clear wa_ckis.             select SINGLE * from ckis INTO CORRESPONDING FIELDS OF wa_ckis               WHERE LEDNR = wa_kis1-LEDNR                 AND BZOBJ = wa_kis1-BZOBJ                 AND KALNR = wa_kis1-KALNR                 AND KALKA = wa_kis1-KALKA                 AND TVERS = wa_kis1-TVERS                 AND POSNR = wa_kis1-POSNR.             IF sy-subrc = 0. "Zeile gefunden - Anzahl checkn               IF wa_kis1-MENGE > wa_ckis-MENGE.     "Menge wurde erhöht                 "Nur Differenz übergeben                 l_menge_diff = wa_kis1-MENGE - wa_ckis-MENGE.                 CALL METHOD ZCL_IM_WBS_MULTIPLE_ECP=>ADD_REF_ELEMENTS                   EXPORTING                     I_WA_KIS1       = wa_kis1                     IT_NODES        = lt_nodes                     IR_GUI_CE_TREE  = ir_gui_ce_tree                     i_costing_model = l_costing_model                     I_MENGE         = l_menge_diff.               ELSEIF wa_kis1-MENGE < wa_ckis-MENGE. "Menge vermindert                 "do nothing               ELSE.                                 "Menge gleich                 "do nothing               ENDIF.             ELSE.            "Zeile nicht gefunden - wurde neu hinzugefügt               "check ob Abhängigkeiten vorhanden sind               CALL METHOD ZCL_IM_WBS_MULTIPLE_ECP=>ADD_REF_ELEMENTS                 EXPORTING                   I_WA_KIS1       = wa_kis1                   IT_NODES        = lt_nodes                   IR_GUI_CE_TREE  = ir_gui_ce_tree                   i_costing_model = l_costing_model                   I_MENGE         = wa_kis1-MENGE.             ENDIF.           ENDLOOP.         ENDIF.       ENDIF.     ENDLOOP.     CALL METHOD ir_top_cost_estimate->calculate       EXCEPTIONS         itemization_not_qualified = 0. **    "update gui **    CALL METHOD ir_gui_ce_tree->update_children **      EXPORTING **        i_nkey = l_top_node. * *    "do send it **    CALL METHOD ir_gui_ce_tree->hierarchy_redisplay. * **   frontend update / Wertspaltenresizing *    CALL METHOD ir_gui_ce_tree->at_end_of_redisplay. * *    CALL METHOD ir_gui_ce_tree->mr_alv_tree->frontend_update. *    CALL METHOD cl_gui_cfw=>flush. * **   Aktualisierung von Baum NOTWENDIG     DATA: l_ucomm TYPE syucomm.     "CALL FUNCTION 'AD_BOS_SET_HIERARCHY_UNCHANGED'.     IF NOT IR_ECP_GUI IS INITIAL.       l_ucomm = 'ECP_CE_TREE_REDISPLAY'.       "l_ucomm = 'ECP_CE_TREE_UPDATE_CURRENT_CE'.       "l_ucomm = 'ECP_ITEMIZATION_REDISPLAY'.       CALL METHOD IR_ECP_GUI->on_user_command         EXPORTING           i_ucomm          = l_ucomm.       EXIT.     ENDIF.   ENDIF. ENDMETHOD.

Bitte um Hilfe
thx,
lg

autom. aktualisieren im cj9ecp.JPG 123.75 KB
Datei wurde insgesamt 14 mal heruntergeladen