SAP: CO02 Enhancement LCO05F02

最新推荐文章于 2024-07-17 18:32:22 发布

yong325

最新推荐文章于 2024-07-17 18:32:22 发布

阅读量282

点赞数

分类专栏： SAP User exit 文章标签： CO02

本文链接：https://blog.csdn.net/yong325/article/details/8834652

版权

SAP 同时被 2 个专栏收录

433 篇文章 4 订阅

订阅专栏

User exit

58 篇文章 0 订阅

订阅专栏

LCO05F02:

FORM material_check USING  rcosu_dyn STRUCTURE rcosu
                           rcosu_kom STRUCTURE rcosu
                           flg_back  TYPE c
                           flg_found TYPE c.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form MATERIAL_CHECK, Start                                                                                                                        A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZCOMPARE_ITEM.    "active version
*
*  IF NOT rcosu_dyn-posnr IS INITIAL.
*    l_rspos = rcosu_dyn-posnr.
*    CLEAR rcosu_dyn-posnr.
*  ENDIF.
*  IF NOT l_RSPOS IS INITIAL.
*    CHECK rcosu_kom-status1 = l_rspos.
*  ENDIF.

  IF sy-BINPT eq 'X'.

  ENDIF.

ENDENHANCEMENT.
ENHANCEMENT 1  ZCOMPARE_MATXT.    "active version
***change co02
  IF SY-BINPT EQ 'X'.

      CONDENSE :rcosu_dyn-matxt.
      IF NOT rcosu_dyn-matxt IS INITIAL.

        IF rcosu_dyn-matxt+0(1) EQ '$'.

          rcosu_dyn-matxt = rcosu_dyn-matxt+1.

          SEARCH rcosu_kom-vsttxt FOR rcosu_dyn-matxt.

          IF sy-subrc <> 0.
            CONCATENATE '$' rcosu_dyn-matxt INTO rcosu_dyn-matxt.
            EXIT.
          ENDIF.

          CLEAR rcosu_dyn-matxt.

        ENDIF.

        IF rcosu_dyn-matxt+0(1) EQ '#'.

          rcosu_dyn-matxt = rcosu_dyn-matxt+1.
          SEARCH rcosu_kom-status1 for rcosu_dyn-matxt.
          IF sy-subrc <> 0.
            CONCATENATE '#' rcosu_dyn-matxt INTO rcosu_dyn-matxt.
            EXIT.
          ENDIF.

         CLEAR rcosu_dyn-matxt.

         " RCOSU_EXP-VSTTXT = KOMP_INT-AENNR.
          "rcosu_exp-status1 = komp_int-rspos.
        ENDIF.

      ENDIF.
  ENDIF.
ENDENHANCEMENT.