销售订单的一个直接修改源程序的地方 MV45AFZZ 可以控制销售订单上的价格显示不显示

***INCLUDE MV45AFZZ .

************************************************************************
*                                                                      *
* This include is reserved for user modifications                      *
*                                                                      *
* Forms for sales document processing                                  *
*                                                                      *
* The name of modification modules should begin with 'ZZ'.             *
*                                                                      *
************************************************************************

*---------------------------------------------------------------------*
*       FORM ZZEXAMPLE                                                *
*---------------------------------------------------------------------*
*       text......................................                    *
*---------------------------------------------------------------------*
*FORM ZZEXAMPLE.

*  ...

*ENDFORM.

*eject
*---------------------------------------------------------------------*
*       FORM USEREXIT_DELETE_DOCUMENT                                 *
*---------------------------------------------------------------------*
*       This userexit can be used to delete data in additional tables *
*       when a sales document is deleted.                             *
*                                                                     *
*      This form is called in dialog at the end of form BELEG_LOESCHEN*
*      just before form BELEG_SICHERN is performed to delete the      *
*      datas on the database.                                         *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_DELETE_DOCUMENT.

ENDFORM.                    "USEREXIT_DELETE_DOCUMENT
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_FIELD_MODIFICATION                              *
*---------------------------------------------------------------------*
*       This userexit can be used to modify the attributes of         *
*       screen fields.                                                *
*       This form is processed for each field in the screen.          *
*                                                                     *
*       The use of the fields screen-group1 to screen-group4 is:      *
*                                                                     *
*       Screen-group1: Automatic modification contolles by transaction*
*                      MFAW.                                          *
*       Screen-group2: Contents 'LOO' for steploop-fields.            *
*       Screen-group3: Used for modififaction, which are dependent on *
*                      control tables or other fix information.       *
*       Screen-group4: Unused                                         *
*                                                                     *
*       For field mofifications, which are dependent on the document  *
*       status, you can use the status field in the workareas         *
*       XVBAP for item status and XVBUK for header status.            *
*                                                                     *
*       This form is called from module FELDAUSWAHL.                  *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_FIELD_MODIFICATION.
  DATA: ZSUBRC LIKE SY-SUBRC.
* CASE SCREEN-GROUP3.
*   WHEN '900'.
*     IF VBAK-VBTYP NE 'A'.
*       SCREEN-ACTIVE = 0.
*     ENDIF.
* ENDCASE.
  AUTHORITY-CHECK OBJECT 'Z_SO_MONEY'
              ID 'VKORG' FIELD VBAK-VKORG
              ID 'VTWEG' FIELD VBAK-VTWEG
              ID 'SPART' FIELD VBAK-SPART
              ID 'AUART' FIELD VBAK-AUART
              ID 'ACTVT' DUMMY.
  ZSUBRC = SY-SUBRC.
  IF ZSUBRC NE 0 AND ( SCREEN-NAME = 'VBAK-NETWR'
                      OR   SCREEN-NAME = 'VBAK-WAERK'
                      OR   SCREEN-NAME = 'VBAP-NETWR'
                      OR   SCREEN-NAME = 'KOMV-KBETR'
                      OR   SCREEN-NAME = 'RV45A-KOEIN'
                      OR   SCREEN-NAME = 'VBAP-NETPR'
                      OR   SCREEN-NAME = 'VBAP-NETWR'
                      OR   SCREEN-NAME = 'VBAP-WAERK' ).
    SCREEN-ACTIVE = 0.
  ENDIF.
  MODIFY SCREEN.
* CASE SCREEN-GROUP3.
*   WHEN '900'.
*     IF VBAK-VBTYP NE 'A'.
*       SCREEN-ACTIVE = 0.
*     ENDIF.
* ENDCASE.

* CASE SCREEN-NAME.
*   WHEN 'VBAK-VBELN'.
*     SCREEN-ACTIVE = 0.
* ENDCASE.

ENDFORM.                    "USEREXIT_FIELD_MODIFICATION
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_MOVE_FIELD_TO_VBAK                              *
*---------------------------------------------------------------------*
*       This userexit can be used to move some fields into the sales  *
*       dokument header workaerea VBAK.                               *
*                                                                     *
*       SVBAK-TABIX = 0:  Create header                               *
*       SVBAK-TABIX > 0:  Change header                               *
*                                                                     *
*       This form is called at the end of form VBAK_FUELLEN.          *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_VBAK.
  DATA: L_KTGRD LIKE VBKD-KTGRD,
        L_PSTYV LIKE VBAP-PSTYV.
  DATA: WA_VBKD LIKE XVBKD.

  LOOP AT XVBKD INTO WA_VBKD.
    L_KTGRD = WA_VBKD-KTGRD.
  ENDLOOP.

  LOOP AT XVBAP.
    SELECT SINGLE PSTYV INTO L_PSTYV FROM ZTSD01
                WHERE AUART = VBAK-AUART
                  AND KTGRD = L_KTGRD.

    IF SY-SUBRC = 0.
      XVBAP-PSTYV = L_PSTYV.
      MODIFY XVBAP.
    ENDIF.
  ENDLOOP.
*  vbak-zzfield = xxxx-zzfield2.
ENDFORM.                    "USEREXIT_MOVE_FIELD_TO_VBAK
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_MOVE_FIELD_TO_VBAP                              *
*---------------------------------------------------------------------*
*       This userexit can be used to move some fields into the sales  *
*       dokument item workaerea VBAP                                  *
*                                                                     *
*       SVBAP-TABIX = 0:  Create item                                 *
*       SVBAP-TABIX > 0:  Change item                                 *
*                                                                     *
*       This form is called at the end of form VBAP_FUELLEN.          *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_VBAP.

*  VBAP-zzfield = xxxx-zzfield2.
*{   INSERT         DEVK900046                                        1
***VA01增强 add by panxinyi  2012.2.17
  DATA: L_KTGRD LIKE VBKD-KTGRD,
        L_PSTYV LIKE VBAP-PSTYV.
  DATA: WA_VBKD LIKE XVBKD.

  LOOP AT XVBKD INTO WA_VBKD.
    L_KTGRD = WA_VBKD-KTGRD.
  ENDLOOP.
  SELECT SINGLE PSTYV INTO L_PSTYV FROM ZTSD01
              WHERE AUART = VBAK-AUART
                AND KTGRD = L_KTGRD.

  IF SY-SUBRC = 0.
    VBAP-PSTYV = L_PSTYV.
  ENDIF.

***VA01增强
*}   INSERT

ENDFORM.                    "USEREXIT_MOVE_FIELD_TO_VBAP
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_MOVE_FIELD_TO_VBEP                              *
*---------------------------------------------------------------------*
*       This userexit can be used to move some fields into the sales  *
*       dokument schedule line workaerea VBEP                         *
*                                                                     *
*       SVBEP-TABIX = 0:  Create schedule line                        *
*       SVBEP-TABIX > 0:  Change schedule line                        *
*                                                                     *
*       This form is called at the end of form VBEP_FUELLEN.          *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_VBEP.

*  VBEP-zzfield = xxxx-zzfield2.

ENDFORM.                    "USEREXIT_MOVE_FIELD_TO_VBEP
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_MOVE_FIELD_TO_VBKD                              *
*---------------------------------------------------------------------*
*       This userexit can be used to move some fields into the sales  *
*       dokument business data workaerea VBKD                         *
*                                                                     *
*       SVBKD-TABIX = 0:  Create data                                 *
*       SVBKD-TABIX > 0:  Change data                                 *
*                                                                     *
*       This form is called at the end of form VBKD_FUELLEN.          *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_VBKD.

*  VBKD-zzfield = xxxx-zzfield2.

ENDFORM.                    "USEREXIT_MOVE_FIELD_TO_VBKD
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_NUMBER_RANGE                                    *
*---------------------------------------------------------------------*
*       This userexit can be used to determine the numberranges for   *
*       the internal document number.                                 *
*                                                                     *
*       US_RANGE_INTERN - internal number range                       *
*                                                                     *
*       This form is called from form BELEG_SICHERN                   *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_NUMBER_RANGE USING US_RANGE_INTERN.

* Example: Numer range from TVAK like in standard
* US_RANGE_INTERN = TVAK-NUMKI.

* interne Nummernvergabe
  DATA: DA_RC LIKE INRI-RETURNCODE.
  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR = US_RANGE_INTERN
      OBJECT      = 'RV_BELEG'
    IMPORTING
      RETURNCODE  = DA_RC
      NUMBER      = VBAK-VBELN.
  CASE DA_RC.
    WHEN '1'.
      MESSAGE I532 WITH US_RANGE_INTERN 'RV_BELEG'.
    WHEN '2'.
      MESSAGE I533 WITH US_RANGE_INTERN 'RV_BELEG'.
  ENDCASE.

**更改销售订单编码规则 2012.03.06
  DATA:L_NUMBE LIKE ZTSD04-NUMBE.
  DATA:L_VBELN LIKE VBAK-VBELN.
  DATA:L_VBELN1 LIKE VBAK-VBELN.
  DATA:L_VBELN2 LIKE VBAK-VBELN.
  DATA: INTERVAL LIKE NRIV.

  SELECT SINGLE NUMBE INTO L_NUMBE FROM ZTSD04
                      WHERE VKORG = VBAK-VKORG.
  IF L_NUMBE IS INITIAL.
    MESSAGE '该销售组织未维护号码段，请联系管理员' TYPE 'E'.
    EXIT.
  ENDIF.

  CALL FUNCTION 'NUMBER_GET_INFO'
    EXPORTING
      NR_RANGE_NR = US_RANGE_INTERN
      OBJECT      = 'RV_BELEG'
    IMPORTING
      INTERVAL    = INTERVAL.

  L_VBELN1 = INTERVAL-FROMNUMBER+2(8).
  CONCATENATE  L_NUMBE L_VBELN1 INTO L_VBELN1.
  CONDENSE L_VBELN1 NO-GAPS.
  L_VBELN2 = INTERVAL-TONUMBER+2(8).
  CONCATENATE  L_NUMBE L_VBELN2 INTO L_VBELN2.
  CONDENSE L_VBELN2 NO-GAPS.

  SELECT MAX( VBELN ) INTO L_VBELN FROM VBAK
                      WHERE VBELN > L_VBELN1
                        AND VBELN < L_VBELN2.
  IF L_VBELN IS INITIAL.
*    vbak-vbeln = vbak-vbeln+2(8).
*    CONCATENATE  l_numbe vbak-vbeln INTO vbak-vbeln.
    VBAK-VBELN =  L_VBELN1 + 1.
    CONDENSE VBAK-VBELN NO-GAPS.
  ELSE.
    L_VBELN = L_VBELN + 1.
    IF L_VBELN+2(8) > INTERVAL-TONUMBER+2(8).
      MESSAGE '该销售组织号码段已用完，请联系管理员' TYPE 'E'.
      EXIT.
    ELSE.
      VBAK-VBELN = L_VBELN.
    ENDIF.

  ENDIF.
***

ENDFORM.                    "USEREXIT_NUMBER_RANGE
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_PRICING_PREPARE_TKOMK                           *
*---------------------------------------------------------------------*
*       This userexit can be used to move additional fields into the  *
*       communication table which is used for pricing:                *
*                                                                     *
*       TKOMK for header fields                                       *
*                                                                     *
*       This form is called from form PREISFINDUNG_VORBEREITEN.       *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_PRICING_PREPARE_TKOMK.

*  TKOMK-zzfield = xxxx-zzfield2.

ENDFORM.                    "USEREXIT_PRICING_PREPARE_TKOMK
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_PRICING_PREPARE_TKOMP                           *
*---------------------------------------------------------------------*
*       This userexit can be used to move additional fields into the  *
*       communication table which is used for pricing:                *
*                                                                     *
*       TKOMP for item fields                                         *
*                                                                     *
*       This form is called from form PREISFINDUNG_VORBEREITEN.       *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_PRICING_PREPARE_TKOMP.

*  TKOMP-zzfield = xxxx-zzfield2.

ENDFORM.                    "USEREXIT_PRICING_PREPARE_TKOMP
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_READ_DOCUMENT                                   *
*---------------------------------------------------------------------*
*       This userexit can be used to read data in additional tables   *
*       when the program reads a sales document.                      *
*                                                                     *
*       This form is called at the end of form BELEG_LESEN.           *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_READ_DOCUMENT.

ENDFORM.                    "USEREXIT_READ_DOCUMENT
*eject

*---------------------------------------------------------------------*
*       FORM USEREXIT_SAVE_DOCUMENT                                   *
*---------------------------------------------------------------------*
*       This userexit can be used to save data in additional tables   *
*       when a document is saved.                                     *
*                                                                     *
*       If field T180-TRTYP contents 'H', the document will be        *
*       created, else it will be changed.                             *
*                                                                     *
*       This form is called at from form BELEG_SICHERN, before COMMIT *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_SAVE_DOCUMENT.
* Example:
* CALL FUNCTION 'ZZ_EXAMPLE'
*      IN UPDATE TASK
*      EXPORTING
*           ZZTAB = ZZTAB.
ENDFORM.                    "USEREXIT_SAVE_DOCUMENT
*eject
*---------------------------------------------------------------------*
*       FORM USEREXIT_SAVE_DOCUMENT_PREPARE                           *
*---------------------------------------------------------------------*
*       This userexit can be used for changes or checks, before a     *
*       document is saved.                                            *
*                                                                     *
*       If field T180-TRTYP contents 'H', the document will be        *
*       created, else it will be changed.                             *
*                                                                     *
*       This form is called at the beginning of form BELEG_SICHERN    *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_SAVE_DOCUMENT_PREPARE.


ENDFORM.                    "USEREXIT_SAVE_DOCUMENT_PREPARE
*eject