ABAP 动态SQL 示例是SD取价格

最新推荐文章于 2024-06-27 14:37:34 发布

放弃幻想_

最新推荐文章于 2024-06-27 14:37:34 发布

阅读量298

点赞数 2

文章标签： ABAP SAP abap

本文链接：https://blog.csdn.net/fqhx_116/article/details/134918311

版权

DATA: lr_kschl TYPE RANGE OF kschl,
l_tabname TYPE tabname,
lt_wheretab TYPE TABLE OF edpline.

DATA:lv_knumh TYPE knumh.

lr_kschl = VALUE #( sign = ‘I’ option = ‘EQ’
( low = ‘PR00’)
( low = ‘PR01’)
( low = ‘YA00’)
( low = ‘YA01’)
( low = ‘YA02’)
( low = ‘YA03’) ) .

LOOP AT ct_konh_new INTO DATA(la_konh_new).

CLEAR lt_wheretab.

IF la_konh_new-kschl NOT IN lr_kschl.
EXIT.

ELSE.
l_tabname = la_konh_new-kvewe && la_konh_new-kotabnr.

CASE l_tabname.
  WHEN 'A505'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KUNNR = '` && la_konh_new-vakey+0(10)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATNR = '` && la_konh_new-vakey+10(18) && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+28(4)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `DATAB = '` && la_konh_new-datab        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `DATBI = '` && la_konh_new-datbi        && `'`  TO lt_wheretab.

  WHEN 'A508'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `REGIO = '` && la_konh_new-vakey+0(3)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATNR = '` && la_konh_new-vakey+3(18)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+21(4)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `DATAB = '` && la_konh_new-datab        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND