Condition Table in SAP SD and MM: Condition Record Query Generator (Axxx + KONP)

REPORT z_condition_record_query.

* Reads condition records from a condition table (Axxx) joined to KONP.
* Find the condition table(s) for a condition type:
*   SELECT kozgf FROM t685
*     WHERE kvewe = 'A' AND kappl = 'V' AND kschl = 'PR00'.
*   SELECT kolnr kotabnr FROM t682i
*     WHERE kvewe = 'A' AND kappl = 'V' AND kozgf = <access sequence>.
*   Table name = 'A' + KOTABNR, e.g. 004 -> A004.
* Document conditions (ECC): KONV WHERE knumv = VBAK-KNUMV or EKKO-KNUMV.
*   In S/4HANA document conditions are in PRCD_ELEMENTS instead.

TYPES: BEGIN OF ty_cond,
         knumh    TYPE konp-knumh,
         datab    TYPE konh-datab,
         datbi    TYPE konh-datbi,
         kopos    TYPE konp-kopos,
         kbetr    TYPE konp-kbetr,
         konwa    TYPE konp-konwa,
         kpein    TYPE konp-kpein,
         kmein    TYPE konp-kmein,
         loevm_ko TYPE konp-loevm_ko,
       END OF ty_cond.

DATA: lt_cond   TYPE STANDARD TABLE OF ty_cond,
      ls_cond   TYPE ty_cond,
      lt_scale  TYPE STANDARD TABLE OF konm,
      ls_scale  TYPE konm,
      lv_tab    TYPE tabname VALUE 'A004',
      lv_fields TYPE string,
      lv_from   TYPE string,
      lv_where  TYPE string,
      lv_pct    TYPE p DECIMALS 3,
      lx_sql    TYPE REF TO cx_sy_dynamic_osql_error,
      lv_msg    TYPE string.

START-OF-SELECTION.

  lv_fields = 'a~knumh a~datab a~datbi p~kopos p~kbetr p~konwa p~kpein p~kmein p~loevm_ko'.

  CONCATENATE lv_tab 'AS a INNER JOIN konp AS p ON p~knumh = a~knumh'
    INTO lv_from SEPARATED BY space.

* Key values must be in internal format (leading zeros for MATNR, KUNNR, LIFNR)
  CONCATENATE 'a~kappl = ''V'' AND a~kschl = ''PR00'''
              'AND a~datab <= ''20261022'' AND a~datbi >= ''20261022'''
              'AND p~loevm_ko = '' '''
    INTO lv_where SEPARATED BY space.

  IF 'vkorg' <> '-'.
    CONCATENATE lv_where 'AND a~vkorg = ''1000'''
      INTO lv_where SEPARATED BY space.
  ENDIF.
  IF 'vtweg' <> '-'.
    CONCATENATE lv_where 'AND a~vtweg = ''10'''
      INTO lv_where SEPARATED BY space.
  ENDIF.
  IF 'matnr' <> '-'.
    CONCATENATE lv_where 'AND a~matnr = ''000000000000100100'''
      INTO lv_where SEPARATED BY space.
  ENDIF.

  TRY.
      SELECT (lv_fields)
        FROM (lv_from)
        INTO CORRESPONDING FIELDS OF TABLE lt_cond
        UP TO 200 ROWS
        WHERE (lv_where).
    CATCH cx_sy_dynamic_osql_error INTO lx_sql.
      lv_msg = lx_sql->get_text( ).
      WRITE: / 'Dynamic SQL error:', lv_msg.
      RETURN.
  ENDTRY.

  LOOP AT lt_cond INTO ls_cond.
    IF ls_cond-konwa = '%'.
* Percentages are stored in per mille: 100.00 in KBETR means 10 %
      lv_pct = ls_cond-kbetr / 10.
      WRITE: / ls_cond-knumh, ls_cond-datab, ls_cond-datbi, lv_pct, '%'.
    ELSE.
      WRITE: / ls_cond-knumh, ls_cond-datab, ls_cond-datbi,
               ls_cond-kbetr CURRENCY ls_cond-konwa, ls_cond-konwa,
               'per', ls_cond-kpein, ls_cond-kmein.
    ENDIF.

* Quantity scales (KONM). Value scales are stored in KONW.
    SELECT * FROM konm INTO TABLE lt_scale
      WHERE knumh = ls_cond-knumh
        AND kopos = ls_cond-kopos
      ORDER BY klfn1.
    LOOP AT lt_scale INTO ls_scale.
      WRITE: /10 'Scale from qty', ls_scale-kstbm, 'rate', ls_scale-kbetr.
    ENDLOOP.
  ENDLOOP.

  IF lt_cond IS INITIAL.
    WRITE: / 'No valid records in', lv_tab, 'for', 'PR00', 'on', '20261022'.
  ENDIF.