Reading price conditions dynamically from condition tables

[franois_henrotte]

It is not easy to get price conditions as they can be stored into different condition tables based on the needs of each customer. The condition tables are generated and the fields used inside the tables are not always the same.

Here is a solution to get the price linked to a condition LV_KSCHL. We assume that the usage and application (keys from table T685) are fixed into constants - respectively 'A' and 'V' for Sales.

Step 1 : get access sequence

This is needed in order to retrieve the list of condition tables linked to the condition type.

    SELECT SINGLE * FROM t685

                    INTO @gs_t685

                   WHERE kvewe EQ @gc_kvewe

                     AND kappl EQ @gc_kappl

                     AND kschl EQ @lv_kschl.

    IF sy-subrc EQ 0.

      lv_kozgf = gs_t685-kozgf.

    ENDIF.

Step 2 : get the list of condition tables linked to the access sequence

    DATA: lt_t682ia TYPE TABLE OF t682ia.





    CLEAR: gt_t681.



    CALL FUNCTION 'COND_READ_ACCESSES'

      EXPORTING

        i_kvewe    = gc_kvewe

        i_kappl    = gc_kappl

        i_kozgf    = lv_kozgf

      TABLES

        t682ia_tab = lt_t682ia

      EXCEPTIONS

        OTHERS     = 1.



    SELECT * FROM t681

             INTO TABLE gt_t681

              FOR ALL ENTRIES IN lt_t682ia

            WHERE kvewe   EQ gc_kvewe

              AND kotabnr EQ lt_t682ia-kotabnr.

Step 3 : for each condition table, get the data of the condition type

We follow the access sequence, and if some data is found, then we exit the loop. We could also collect all the data from the different condition tables, if needed. The date PRSDT can be also defined externally to some other value than the current date.

LOOP AT gt_t681 INTO DATA(ls_t681).

  "Retrieve data from condition tables

  get_data_from_condition_table( is_t681  = ls_t681

                                 iv_prsdt = sy-datum ).

  IF gt_data IS NOT INITIAL.

    EXIT.

  ENDIF.

ENDLOOP.

Now let's look at the dynamical reading of the data. As we have the structures T685 and T681, we have almost all information needed to do so. The only missing part is about the fields to be used for the selection of the table. This will be easily retrieved using function module WCB_GET_CONDITION_TABLE_KEYS. So the coding to retrieve the data will be like this :

  METHOD GET_DATA_FROM_CONDITION_TABLE.

    DATA: lt_t682z TYPE wcb_t682z_tab.



    DATA: lv_datum TYPE datum,

          ls_where TYPE string.



    DATA: ls_data TYPE ty_data.



    DATA: ob_rec TYPE REF TO data.



    FIELD-SYMBOLS: <lt_rec>   TYPE STANDARD TABLE,

                   <lv_field> TYPE any,

                   <lv_knumh> TYPE knumh.





    CREATE DATA ob_rec TYPE STANDARD TABLE OF (is_t681-kotab) WITH NON-UNIQUE DEFAULT KEY.

    ASSIGN ob_rec->* TO <lt_rec>.



*   Pay attention to this:

*   Method GET_ACCESS_SEQUENCE should be called first in order to fill structure GS_T685

    CALL FUNCTION 'WCB_GET_CONDITION_TABLE_KEYS'

      EXPORTING

        i_use            = gc_kvewe

        i_application    = gc_kappl

        i_condition_type = gs_t685-kschl

        i_con_tab        = is_t681-kotabnr

        i_access         = gs_t685-kozgf

      IMPORTING

        et_t682z         = lt_t682z

      EXCEPTIONS

        OTHERS           = 1.

    IF sy-subrc NE 0.

      RETURN.

    ENDIF.



    LOOP AT lt_t682z INTO DATA(ls_t682z).

      ASSIGN COMPONENT ls_t682z-zifna OF STRUCTURE gs_komg TO <lv_field>.

      IF sy-subrc EQ 0.

        IF ls_where IS INITIAL.

          ls_where = |{ ls_t682z-zifna } EQ '{ <lv_field> }'|.

        ELSE.

          ls_where = ls_where && | AND { ls_t682z-zifna } EQ '{ <lv_field> }'|.

        ENDIF.

      ENDIF.

    ENDLOOP.



    IF is_t681-ksdat IS INITIAL.

      SELECT * INTO TABLE <lt_rec>

               FROM (is_t681-kotab)

              WHERE kappl EQ gc_kappl

                AND kschl EQ gs_t685-kschl

                AND (ls_where).

    ELSE.

      IF iv_prsdt IS INITIAL.

        lv_datum = sy-datum.

      ELSE.

        lv_datum = iv_prsdt.

      ENDIF.

      SELECT * INTO TABLE <lt_rec>

               FROM (is_t681-kotab)

              WHERE kappl EQ gc_kappl

                AND kschl EQ gs_t685-kschl

                AND datbi GE lv_datum

                AND datab LE lv_datum

                AND (ls_where).

    ENDIF.



    LOOP AT <lt_rec> ASSIGNING FIELD-SYMBOL(<ls_line>).

      ASSIGN COMPONENT 'KNUMH' OF STRUCTURE <ls_line> TO <lv_knumh>.

      SELECT konp~knumh

             konp~kbetr AS kbetr_1

             konp~konwa

             konp~kpein

             konp~kmein

             konm~kstbm

             konp~konms

             konm~kbetr AS kbetr_2

        INTO ls_data

        FROM konp

        LEFT OUTER JOIN konm ON konm~knumh = konp~knumh

       WHERE konp~knumh    EQ <lv_knumh>

         AND konp~loevm_ko EQ ' '.



        IF ls_data-konwa CA '%'.

          ls_data-kbetr_1 = ls_data-kbetr_1 / 10 .

          ls_data-kbetr_2 = ls_data-kbetr_2 / 10 .              "BGO01

        ENDIF.

        APPEND ls_data TO gt_data.



      ENDSELECT.

    ENDLOOP.



    SORT gt_data BY knumh kstbm.



  ENDMETHOD.

Notes:

1. the parameters are trivial : IS_T681 TYPE T681 and IV_PRSDT TYPE PRSDT.


2. the field T681-KSDAT indicates if the condition table is time-dependent.


3. depending on your needs you define the table GT_DATA to contain data from tables KONP / KONM


4. those two tables are always read with the key KNUMH coming from the condition tables

Prerequisite :

Now you should have noticed that we compare the values of the condition tables with the values from segment GS_KOMG. This one is of type KOMG and contains all the possible fields to be used in the key fields of condition tables. Of course you have to fill this segment before starting to read the condition tables. Here is some sample code to do it quite easily for a Billing document.

    CALL FUNCTION 'RV_INVOICE_PRICING_PREPARE'

      EXPORTING

        vbrk_i = ls_vbrk

        vbrp_i = ls_vbrp

      IMPORTING

        komk_e = ls_komk

        komp_e = ls_komp

      TABLES

        xkomfk = lt_komfk

        xvbfs  = lt_vbfs

        xvbpa  = lt_xvbpa

        xvbrk  = lt_xvbrk

        xvbrp  = lt_xvbrp

      EXCEPTIONS

        OTHERS = 1.



    "Fill source fields for condition tables

    MOVE-CORRESPONDING ls_komk TO gs_komg.

    MOVE-CORRESPONDING ls_komp TO gs_komg.

 

As you probably noticed, this was extracted from a class that I made to read the condition tables dynamically. I extracted the important parts of the code and removed the Z tables and such things that are not generic so that you can see how this works from a global point of view.