Issue on Defining Partner Determination Procedure

* remove partner functions which are already represented in determ --
* proc and should be unique. ----------------------------------------
  LOOP AT lt_determ_proc INTO ls_determ_proc.

   SUPPLY partner_fct = ls_determ_proc-partner_fct
      TO CONTEXT gn_partner_context.
    DEMAND type_unique = lv_unique
           partner_pft = lv_partner_pft
           count_high  = lv_count_high FROM CONTEXT gn_partner_context
      MESSAGES INTO lt_symsg.

    IF NOT lv_unique IS INITIAL.

      LOOP AT lt_functions INTO ls_function
        WHERE partner_pft = lv_partner_pft
          AND partner_fct NE ls_determ_proc-partner_fct.

        DELETE lt_functions_to_use
          WHERE partner_fct = ls_function-partner_fct.

        DELETE lt_determ_proc
          WHERE partner_fct = ls_function-partner_fct.

      ENDLOOP.

    ENDIF.

*   delete function that is not allowed
    IF ls_determ_proc-count_high = 0.
      DELETE lt_functions_to_use
        WHERE partner_fct = ls_determ_proc-partner_fct.
    ENDIF.

  ENDLOOP.