Handle Variant with Program

[GoogleCodeExporter]

Describe the enhancement you would like to get in the next release :
Handle Variant with Program. Allow variant to be saved with program.
Handle type VARX.

Original issue reported on code.google.com by taryck%b...@gtempaccount.com on 6 Apr 2010 at 4:58

[GoogleCodeExporter]

Realy need it for devtools default variant in transaction : Low->High

Original comment by taryck%b...@gtempaccount.com on 10 Jun 2010 at 4:21

• Added labels: Priority-High
• Removed labels: Priority-Low

[GoogleCodeExporter]

Voir MF RS_VARIANT_CONTENTS

    perform get_mandt using $rkey-variant
                      changing l_mandt.

* SUBMIT USING SELECTION-SET ... WITH NO_IMPORT=SPACE
    if rsvar-variant ne space and no_import = space.
      l_imp_subrc = 1.
      perform import_var_selc tables selctab l_vari
                              using  report  $rkey
                              changing l_imp_subrc
                                       l_ssc_subrc.
      if l_imp_subrc eq 8.
        message e634 with rsvar-variant rsvar-report
                          raising variant_obsolete.
        exit.
      elseif l_imp_subrc eq 4.
        message e612  with rsvar-variant rsvar-report
                 raising variant_non_existent.     "nicht vorhanden
        exit.
      endif.
      perform %_import_vari_clnt in program (rsvar-report)
                                 using $rkey imp_subrc l_mandt
                                 changing imp_subrc
                                 if found.

      perform adjust_vari tables selctab l_vari.

      loop at l_vari.
        check l_vari-kind = 'P' or  l_vari-kind = 'S'.
        if l_vari-type eq 'v' or l_vari-type = 'h'.
          if l_vari-kind = 'P' and l_vari-appendage = 'I'.
            l_vari-kind = 'M'.
          else.
            continue.
          endif.
        endif.
        move : l_vari-name to desctab-name,
               l_vari-kind to desctab-kind,
               l_vari-olen to desctab-olen.
        append desctab.
      endloop.
    perform brepi(rsdbspva) tables desctab valutab
                            using  rsvar-report
                                   move_or_write
                            changing g_sp.
    sp = g_sp.
* dynamische selectionen
    if not trdir-ldbname is initial or trdir-ldbname eq 'D$S'.
      perform brepi_dyn(rsdbspds) tables dynsel_desc
                                       dynsel_value
                                using  move_or_write
                                       trdir-ldbname.
    else.
      refresh: dynsel_desc, dynsel_value.
    endif.

    sort dynsel_desc by tablename fieldname.
    sort dynsel_value by tablename fieldname.
    if free_selections_desc is requested.
      free_selections_desc[] = dynsel_desc[].
    endif.
    if free_selections_value is requested.
      free_selections_value[] = dynsel_value[].
    endif.

* Werte des Selektionsbildes
    if rsvar-variant eq space or no_import ne space.
      perform values_selectionscreen tables objects.
    else.
*      if l_selop is requested or l_params is requested or
*         l_selop_nonv is requested or l_params_nonv is requested.
*      Nur falls die alten Tabellen benötigt werden
        loop at desctab.
          read table l_vari with key name = desctab-name.
          if sy-subrc = 0.
            if l_vari-kind eq 'S' and
                l_vari-invisible eq space.
              perform fill_tables_ps tables  l_selop
                                     using   l_vari.
            elseif l_vari-kind eq 'S' and
                l_vari-invisible ne space.
              perform fill_tables_ps  tables  l_selop_nonv
                                      using   l_vari.
            elseif l_vari-kind eq 'P' and
                l_vari-invisible eq space and
                l_vari-appendage ne 'I'.
              perform fill_tables_ps  tables  l_params
                                      using   l_vari.
            elseif l_vari-kind eq 'P' and
                l_vari-invisible ne space and
                l_vari-appendage ne 'I'.
              perform fill_tables_ps  tables  l_params_nonv
                                      using   l_vari.
            elseif l_vari-appendage eq 'I'.
              perform fill_mc_desc tables mc_desc l_vari.
            endif.
          endif.
        endloop.
*      else.
*   in der neuen Version reicht eine Beschreibungstabelle
        loop at desctab.
          read table l_vari with key name = desctab-name.
          if sy-subrc = 0.
            perform fill_tables_ps tables objects
                                   using  l_vari.
          endif.
        endloop.

Original comment by taryck%b...@gtempaccount.com on 11 Jun 2010 at 2:23

[GoogleCodeExporter]

Created Customer variant for :
- ZLINK
- ZL_EXTRACT
- ZL_SYNCH

Fixed in changesets :
- Framework : 
https://code.google.com/p/zaplink/source/detail?r=96abff191761febcd858dfaedf25f9
71090c246b
- DevTools : 
https://code.google.com/p/zaplink/source/detail?r=ddc8ea80a52592915323507a426598
19c599a288&repo=devtools

Original comment by taryck%b...@gtempaccount.com on 16 Jun 2010 at 4:12

• Changed state: Done
• Added labels: Release-0.0.006