VOFM例程增强

Harryjing2018

于 2024-01-16 15:52:36 发布

阅读量482

点赞数 12

分类专栏： ABAP 文章标签：其他

本文链接：https://blog.csdn.net/beyond911/article/details/135626415

版权

ABAP 专栏收录该内容

331 篇文章 78 订阅

订阅专栏

文章目录

1 Routine Enhancement

In the context of SAP (Systems, Applications, and Products in Data Processing), routine enhancement refers to the process of modifying or extending standard SAP functionalities to meet specific business requirements .

2 Code

The path is Formulas->condition base value .

FORM FRM_KOND_BASIS_602.
*{   INSERT         ED1K953864                                        3
 data:
    lv_zbom_kwert like komv-kwert,
    lv_zprd_kwert like komv-kwert,
    lv_zcus_kwert like komv-kwert,
    lv_zime_kwert like komv-kwert,
    lv_zcul_kwert like komv-kwert,
    lv_ztrt_kwert like komv-kwert,
    lv_zotv_kwert like komv-kwert,
    lv_ZROY_kwert  like komv-kwert,
    lv_ZROT_kwert  like komv-kwert.
  data:ls_xkomv  type komv_index.

  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZBOM'.
  if sy-subrc = 0.
    lv_zbom_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZPRD'.
  if sy-subrc = 0.
    lv_zprd_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZCUS'.
  if sy-subrc = 0.
    lv_zcus_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZIME'.
  if sy-subrc = 0.
    lv_zime_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZCUL'.
  if sy-subrc = 0.
    lv_zcul_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZTRT'.
  if sy-subrc = 0.
    lv_ztrt_kwert = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZOTV'.
  if sy-subrc = 0.
    lv_zotv_kwert = ls_xkomv-kwert.
  endif.
   read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZROY'.
  if sy-subrc = 0.
    lv_ZROY_kwert  = ls_xkomv-kwert.
  endif.
  read table xkomv into ls_xkomv with key  kposn = xkomv-kposn  kschl = 'ZROT'.
  if sy-subrc = 0.
   lv_ZROT_kwert = ls_xkomv-kwert.
  endif.

  case xkomv-kschl.
     WHEN 'ZROY' .
       xkwert = lv_zbom_kwert + lv_zprd_kwert + lv_zcus_kwert + lv_zime_kwert .
     WHEN 'ZROT' .
       xkwert = lv_zroy_kwert .
     WHEN 'ZCUL' .
       xkwert = lv_zbom_kwert + lv_zprd_kwert + lv_zcus_kwert + lv_zime_kwert + lv_ZROY_kwert + lv_ZROT_kwert .
     WHEN 'ZTRT' .
        xkwert = lv_zbom_kwert + lv_zprd_kwert + lv_zcus_kwert + lv_zime_kwert + lv_ZROY_kwert + lv_ZROT_kwert + lv_ZCUL_kwert .
     WHEN 'ZOTV' .
        xkwert =  lv_zbom_kwert + lv_zprd_kwert + lv_zcus_kwert + lv_zime_kwert + lv_ZROY_kwert + lv_ZROT_kwert + lv_ZCUL_kwert + lv_ZTRT_kwert .
     WHEN 'MWST' .
       xkwert =   lv_zbom_kwert + lv_zprd_kwert + lv_zcus_kwert + lv_zime_kwert + lv_ZROY_kwert +  lv_ZROT_kwert + lv_ZCUL_kwert + lv_ZTRT_kwert + lv_ZOTV_kwert .
  endcase.
ENDFORM.