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
销售订单隐藏成本价
于 2024-03-28 18:19:59 首次发布