ABAP 动态SQL 示例是SD取价格

放弃幻想_

于 2023-12-11 08:46:25 发布

阅读量107

点赞数

文章标签： 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  `DATBI = '` && la_konh_new-datbi        && `'`  TO lt_wheretab.

  WHEN 'A606'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATNR = '` && la_konh_new-vakey+0(18)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+18(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 'A608'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `PRODH = '` && la_konh_new-vakey+0(18)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+18(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 'A808'.
    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  `PRODH = '` && 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 'A901'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+0(4)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KONDA = '` && la_konh_new-vakey+4(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATNR = '` && la_konh_new-vakey+6(18)  && `'`  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 'A902'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+0(4)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KONDA = '` && la_konh_new-vakey+4(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `PRODH = '` && la_konh_new-vakey+6(18)  && `'`  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 'A903'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KONDA = '` && la_konh_new-vakey+0(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KDGRP = '` && la_konh_new-vakey+2(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATKL = '` && la_konh_new-vakey+4(9)   && `'`  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 'A906'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+0(4)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `REGIO = '` && la_konh_new-vakey+4(3)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KONDA = '` && la_konh_new-vakey+7(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `PRODH = '` && la_konh_new-vakey+9(18)  && `'`  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 'A907'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+0(4)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `REGIO = '` && la_konh_new-vakey+4(3)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `KONDA = '` && la_konh_new-vakey+7(2)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `MATNR = '` && la_konh_new-vakey+9(18)  && `'`  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 'A908'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `PRODH = '` && la_konh_new-vakey+0(18)  && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `REGIO = '` && la_konh_new-vakey+18(3)  && `'`  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  `DATBI = '` && la_konh_new-datbi        && `'`  TO lt_wheretab.

  WHEN 'A911'.
    APPEND  `KSCHL = '` && la_konh_new-kschl        && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `VKORG = '` && la_konh_new-vakey+0(4)   && `'`  TO lt_wheretab.
    APPEND  'AND'   TO lt_wheretab.
    APPEND  `SPART = '` && la_konh_new-vakey+4(2)   && `'`  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 OTHERS.
ENDCASE.

CLEAR lv_knumh.
SELECT SINGLE  knumh
INTO  lv_knumh
FROM (l_tabname)
WHERE (lt_wheretab).

ENDIF.

ENDLOOP.