Author: Christian Gradolf
Last saved by: Michael Kahl

ProNovia Produkte Korrekturanleitung
Knowledge Base ID / Version | OLM-15 / V5.5.32
Ausgabe Korrekturanleitung | I / MK / 12.10.2022
Farblegende Korrekturen | INSERT | REPLACE THIS | REPLACE WITH | DELETE

Include | /PRONOVIA/LOLM_REPF01
Form | PROCESS_GET_RIGHT_STATE

FORM process_get_right_state.
 . . .
  LOOP AT gt_daten ASSIGNING <ls_daten> WHERE archiv = abap_false. "re/6819
*    WHERE olsta = c_hdr_status_end_of_phase                                             "re/6819
*       OR olsta = c_hdr_status_undef_phase.                                             "re/6819

    lv_index = sy-tabix.                                  "FA/ID7324/II

    PERFORM get_right_status USING    <ls_daten>
                             CHANGING <ls_daten>-olsta
                                      lv_current_phase    "FA/ID7324/II
                                      <ls_daten>-objzs
                                      <ls_daten>-icon_st_proc "re/6819
                                      <ls_daten>-olsta_txt  "re/6819
                                      <ls_daten>-icon_st_phase "re/6819
                                      <ls_daten>-stm_bezei  "re/6819
                                      <ls_daten>-stelle_bez                              "re/6882 (Ticket-No 10886)
                                      <ls_daten>-resve_rec                               "re/6882 (Ticket-No 10886)
                                      <ls_daten>-protf      "re/6852
                                      ld_deleted.                                         "re/6879 (Ticket-No. 11029)
    CHECK ld_deleted IS INITIAL.                                                          "re/6879 (Ticket-No. 11029)

    "<FA/ID7324/18.09.2012
    "Wenn keine aktuelle Phase, dann Prozess rauswerfen
    IF    lv_current_phase IS INITIAL
>>>REPLACE THIS
      AND gd_process = gd_process_user.
>>>REPLACE WITH
      AND gd_process = gd_process_user
      AND gd_rbc1 = abap_true. "MK/OLM-15
>>>END REPLACE
      DELETE gt_daten INDEX lv_index.
      CONTINUE.
    ENDIF.
    "FA/ID7324> 

    IF <ls_daten>-olsta = c_hdr_status_end_of_phase.
      READ TABLE lt_olmpha_h ASSIGNING <ls_olmpha> WITH TABLE KEY
                                  olprc = <ls_daten>-olprc
                                  olpha = <ls_daten>-olpha.
 . . .
ENDFORM.                    "process_get_right_state

<ENDE>

ProNovia Produkte Korrekturanleitung		Template  Version B.00