Author: Christian Gradolf

ProNovia Produkte Korrekturanleitung
Knowledge Base ID / Version | CFM-252 / V8.1.3
Ausgabe Korrekturanleitung | I / CG / 13.06.2023
Farblegende Korrekturen | INSERT | REPLACE THIS | REPLACE WITH | DELETE

Klasse | /PRONOVIA/CL_PRM_CFI_MATROOT
Methode | _LOAD_DATA

METHOD _load_data.

. . .
  ms_data-object_icon_exp = ms_data-object_icon.
  "MK/ID9248>

  "if no validity in layout > here

  IF lo_pending_data IS NOT INITIAL.
    ms_data-change_number         = lo_pending_data->mv_aennr.
    ms_data-revision              = lo_pending_data->mv_revlv.
    ms_data-valid_from_date       = lo_pending_data->mv_datuv.
    ms_data-current_proc_scenario = lo_pending_data->mv_bszid.

>>>REPLACE THIS
  ELSEIF configuration->validity-all_in_period IS INITIAL.
>>>REPLACE WITH
  ELSEIF configuration->validity-all_in_period IS INITIAL
      OR configuration->hierarchy_layout = 
                      /pronovia/cl_prm_def=>c_hier_layout_vali_dp. "CG/CFM-252
>>>END REPLACE
    "<MK/ID11997
>>>START INSERT
    "<CG/CFM-252
    IF configuration->function = configuration->c_functions-create_configuration
    OR configuration->function = configuration->c_functions-change_configuration
    OR configuration->function = configuration->c_functions-redo_current.
      CREATE OBJECT validity_object
        EXPORTING
          iv_valid_from_date = /pronovia/cl_obj_def=>cust_mai-datuv_chngstart
          iv_valid_to_date   = /pronovia/cl_obj_def=>cust_mai-datuv_chngstart
          io_parent          = me.
    ELSE.
      "CG/CFM-252>
>>>END INSERT
      CREATE OBJECT validity_object
        EXPORTING
          iv_valid_from_date = configuration->validity-datuv
          iv_valid_to_date   = configuration->validity-datub
          io_parent          = me.
>>>START INSERT
    ENDIF.                                                  "CG/CFM-252
>>>END INSERT
    IF configuration->hierarchy_layout = /pronovia/cl_prm_def=>c_hier_layout_vali_dp.
      LOOP AT lt_changes ASSIGNING <ls_change>
>>>REPLACE THIS
                         WHERE datuv <= configuration->validity-datub
                           AND datub >= configuration->validity-datuv
>>>REPLACE WITH
              WHERE datuv <= me->validity_object->valid_to_date "CG/CFM-252
                AND datub >= me->validity_object->valid_from_date "CG/CFM-252
>>>END REPLACE
                AND sapob = /pch/cla_business_object=>c_object_type-mara. "CG/CFM-124
        EXIT.
      ENDLOOP.
      "put only if no org
      IF sy-subrc IS INITIAL.
        ms_data-change_number   = <ls_change>-aennr.
        ms_data-revision        = <ls_change>-revlv.

. . .

ENDMETHOD.

<ENDE>

ProNovia Produkte Korrekturanleitung		Template  Version B.00