销售订单隐藏成本价

对，就是哥
已于 2024-04-07 11:55:20 修改
阅读量110
点赞数 3
分类专栏： SD 文章标签： java 前端服务器
于 2024-03-28 18:19:59 首次发布
本文链接：https://blog.csdn.net/twins622/article/details/137120375
版权
SD 专栏收录该内容
6 篇文章 0 订阅
订阅专栏
se38  LV69AFZZ
*----------------------------------------------------------------------*
***INCLUDE LV69AFZZ .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form userexit_field_modific_leer.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$:(1) Form USEREXIT_FIELD_MODIFIC_LEER, Start                                                                                                           A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 4  ZSD_ENHANCEMENT_MODIFY_S.    "active version
      IF screen-name = 'RV61A-SELKZ'
     OR   screen-name = 'KOMV-KAWRT'
     OR   screen-name = 'RV61A-AWEIN'
     OR   screen-name = 'KOMV-KBETR'
     OR   screen-name = 'RV61A-KOEIN'
     OR   screen-name = 'KOMV-KPEIN'
     OR   screen-name = 'KOMV-KMEIN'
     OR   screen-name = 'KOMV-KWERT'
     OR   screen-name = 'KOMV-KSCHL'
     OR   screen-name = 'RV61A-LED_KINAK'
     OR   screen-name = 'T685T-VTEXT'
     OR   screen-name = 'XKOMV_WAERK'
     OR   screen-name = 'RV61A-MEINS'
     OR   screen-name = 'KOMV-KUMNE'
     OR   screen-name = 'KOMV-KWERT_K'
     OR   screen-name = 'KOMV-KWAEH'.
      IF KOMV-KSCHL = 'ZPRS' ..
          SCREEN-INPUT = 0. " Disable it
          SCREEN-INVISIBLE = 1. " Hide it
        MODIFY SCREEN.
      ENDIF.
    ENDIF.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*

endform.                               " USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form userexit_field_modific_kzwi.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$:(2) Form USEREXIT_FIELD_MODIFIC_KZWI, Start                                                                                                           A
*$*$-Start: (2)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 3  ZSD_ENHANCEMENT_MODIFY_S.    "active version
      IF screen-name = 'RV61A-SELKZ'
     OR   screen-name = 'KOMV-KAWRT'
     OR   screen-name = 'RV61A-AWEIN'
     OR   screen-name = 'KOMV-KBETR'
     OR   screen-name = 'RV61A-KOEIN'
     OR   screen-name = 'KOMV-KPEIN'
     OR   screen-name = 'KOMV-KMEIN'
     OR   screen-name = 'KOMV-KWERT'
     OR   screen-name = 'KOMV-KSCHL'
     OR   screen-name = 'RV61A-LED_KINAK'
     OR   screen-name = 'T685T-VTEXT'
     OR   screen-name = 'XKOMV_WAERK'
     OR   screen-name = 'RV61A-MEINS'
     OR   screen-name = 'KOMV-KUMNE'
     OR   screen-name = 'KOMV-KWERT_K'
     OR   screen-name = 'KOMV-KWAEH'.
      IF KOMV-KSCHL = 'ZPRS' ..
          SCREEN-INPUT = 0. " Disable it
          SCREEN-INVISIBLE = 1. " Hide it
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDENHANCEMENT.
*$*$-End:   (2)---------------------------------------------------------------------------------$*$*

endform.                               " USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form userexit_field_modific_kopf.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$:(3) Form USEREXIT_FIELD_MODIFIC_KOPF, Start                                                                                                           A
*$*$-Start: (3)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZSD_ENHANCEMENT_MODIFY_S.    "active version
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$:(4) Form USEREXIT_FIELD_MODIFIC_KOPF, Start, Enhancement ZSD_ENHANCEMENT_MODIFY_S, Start                                                              A
*$*$-Start: (4)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZSD_ENHANCEMENT_S.    "active version
*  IF screen-name = 'RV61A-SELKZ'
*     OR   screen-name = 'KOMV-KAWRT'
*     OR   screen-name = 'RV61A-AWEIN'
*     OR   screen-name = 'KOMV-KBETR'
*     OR   screen-name = 'RV61A-KOEIN'
*     OR   screen-name = 'KOMV-KPEIN'
*     OR   screen-name = 'KOMV-KMEIN'
*     OR   screen-name = 'KOMV-KWERT'.
*      IF KOMV-KSCHL = 'ZPRS' ..
*          SCREEN-INPUT = 0. " Disable it
*          SCREEN-INVISIBLE = 1. " Hide it
*        MODIFY SCREEN.
*      ENDIF.
*    ENDIF.
ENDENHANCEMENT.
*$*$-End:   (4)---------------------------------------------------------------------------------$*$*
     IF screen-name = 'RV61A-SELKZ'
     OR   screen-name = 'KOMV-KAWRT'
     OR   screen-name = 'RV61A-AWEIN'
     OR   screen-name = 'KOMV-KBETR'
     OR   screen-name = 'RV61A-KOEIN'
     OR   screen-name = 'KOMV-KPEIN'
     OR   screen-name = 'KOMV-KMEIN'
     OR   screen-name = 'KOMV-KWERT'
     OR   screen-name = 'KOMV-KSCHL'
     OR   screen-name = 'RV61A-LED_KINAK'
     OR   screen-name = 'T685T-VTEXT'
     OR   screen-name = 'XKOMV_WAERK'
     OR   screen-name = 'RV61A-MEINS'
     OR   screen-name = 'KOMV-KUMNE'
     OR   screen-name = 'KOMV-KWERT_K'
     OR   screen-name = 'KOMV-KWAEH'.
      IF KOMV-KSCHL = 'ZPRS' ..
          SCREEN-INPUT = 0. " Disable it
          SCREEN-INVISIBLE = 1. " Hide it
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDENHANCEMENT.
*$*$-End:   (3)---------------------------------------------------------------------------------$*$*

endform.                               " USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form userexit_field_modification.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$:(5) Form USEREXIT_FIELD_MODIFICATION, Start                                                                                                           A
*$*$-Start: (5)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZSD_ENHANCEMENT_MODIFY_S.    "active version


   IF screen-name = 'RV61A-SELKZ'
     OR   screen-name = 'KOMV-KAWRT'
     OR   screen-name = 'RV61A-AWEIN'
     OR   screen-name = 'KOMV-KBETR'
     OR   screen-name = 'RV61A-KOEIN'
     OR   screen-name = 'KOMV-KPEIN'
     OR   screen-name = 'KOMV-KMEIN'
     OR   screen-name = 'KOMV-KWERT'
     OR   screen-name = 'KOMV-KSCHL'
     OR   screen-name = 'RV61A-LED_KINAK'
     OR   screen-name = 'T685T-VTEXT'
     OR   screen-name = 'XKOMV_WAERK'
     OR   screen-name = 'RV61A-MEINS'
     OR   screen-name = 'KOMV-KUMNE'
     OR   screen-name = 'KOMV-KWERT_K'
     OR   screen-name = 'KOMV-KWAEH'.
      IF KOMV-KSCHL = 'ZPRS' ..
          SCREEN-INPUT = 0. " Disable it
          SCREEN-INVISIBLE = 1. " Hide it
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
ENDENHANCEMENT.
*$*$-End:   (5)---------------------------------------------------------------------------------$*$*

endform.                               " USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form userexit_pricing_check.

endform.                               " USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*&      Form  USEREXIT_CHANGE_PRICING_RULE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_RV61A_KSTEU  text
*----------------------------------------------------------------------*
form userexit_change_pricing_rule using    p_rv61a_ksteu.

endform.                               " USEREXIT_CHANGE_PRICING_RULE