CALL FUNCTION 'BAPI_NETWORK_GETDETAIL'
    EXPORTING
      number          = cs_prelem-network
    IMPORTING
      return          = ls_return
    TABLES
      e_network       = lt_network[]
      e_activity      = lt_activity[]
      e_message_table = lt_mess[]
      e_component     = lt_component[].

  CLEAR ls_methproj.
  ls_methproj-objecttype = 'NETWORK'.
  ls_methproj-method = 'UPDATE'.
  ls_methproj-objectkey = cs_prelem-network.
  ls_methproj-refnumber = lv_seqno.
  APPEND ls_methproj TO lt_methproj[].


  SORT lt_activity[] BY activity ASCENDING.
  READ TABLE lt_activity[] INTO ls_activity INDEX 1.
  CLEAR ls_activity_m.
  MOVE-CORRESPONDING ls_activity TO ls_activity_m.
  ADD 10 TO ls_activity_m-activity.
  ls_activity_m-description = cs_prelem-num_zak.
  APPEND ls_activity_m TO lt_activity_m[].

  MOVE-CORRESPONDING ls_activity_m TO ls_act_new.
  APPEND ls_act_new TO lt_act_new[].

  CLEAR ls_methproj.
  ADD 1 TO lv_seqno.
  ls_methproj-objecttype = 'NETWORKACTIVITY'.
  ls_methproj-method = 'CREATE'.
  lv_activity = ls_activity_m-activity.
  CONCATENATE cs_prelem-network lv_activity INTO ls_methproj-objectkey.
  ls_methproj-refnumber = lv_seqno.
  APPEND ls_methproj TO lt_methproj[].

  CLEAR ls_methproj.
  ls_methproj-method = 'SAVEANDWAIT'.
  APPEND ls_methproj TO lt_methproj[].

  LOOP AT lt_network[] INTO ls_network.
    CLEAR ls_network_m.
    MOVE-CORRESPONDING ls_network TO ls_network_m.
    APPEND ls_network_m TO lt_network_m[].
  ENDLOOP.

  CALL FUNCTION 'BAPI_NETWORK_MAINTAIN'
    IMPORTING
      return           = ls_return
    TABLES
      i_method_project = lt_methproj[]
      i_network        = lt_network_m[]
      i_activity       = lt_activity_m[]
      e_message_table  = lt_mess[].