SAP VL01N 交货单不允许手工添加增强

àì夳堔傛蜴生んèń 2022-01-15 00:35 593阅读 0赞

配置不知道行不行，增强控制

SE38  MV50AFZ1

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![20190614111524331.png][]

![20190614110141255.png][]

*\*\*\*INCLUDE MV50AFZ1 .*  
  
*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\**  
*\*                                                                      \**  
*\* This include is reserved for user modifications                      \**  
*\*                                                                      \**  
*\* Forms for delivery 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 delivery 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.  
*\*eject*  
  
*\*---------------------------------------------------------------------\**  
*\*       FORM USEREXIT\_MOVE\_FIELD\_TO\_LIKP                              \**  
*\*---------------------------------------------------------------------\**  
*\*       This userexit can be used to move some fields into the        \**  
*\*       delivery header workaerea LIKP.                               \**  
*\*       This form is called, when a header is created                 \**  
*\*       This form is called at the end of form LIKP\_FUELLEN.          \**  
*\*                                                                     \**  
*\*---------------------------------------------------------------------\**  
FORM USEREXIT\_MOVE\_FIELD\_TO\_LIKP.  
  
*\*  LIKP-zzfield = xxxx-zzfield2.*  
  
  
  
  
ENDFORM.  
*\*eject*  
  
*\*---------------------------------------------------------------------\**  
*\*       FORM USEREXIT\_MOVE\_FIELD\_TO\_LIPS                              \**  
*\*---------------------------------------------------------------------\**  
*\*       This userexit can be used to move some fields into the        \**  
*\*       delivery item workaerea LIPS                                  \**  
*\*       This form is called, when an item is created                  \**  
*\*                                                                     \**  
*\*                                                                     \**  
*\*       This form is called at the end of form LIPS\_FUELLEN.          \**  
*\*                                                                     \**  
*\*---------------------------------------------------------------------\**  
FORM USEREXIT\_MOVE\_FIELD\_TO\_LIPS.  
  
*\*  LIPS-zzfield = xxxx-zzfield2.*  
  
  
  
*\***交货单库存地点权限检查*  
IF ( sy\-tcode = 'VL01N' OR sy\-tcode = 'VL02N' OR sy\-tcode = 'VL03N' OR sy\-tcode = 'VL10A' OR sy\-tcode = 'VL10C' OR sy\-tcode = 'VL10E' )  
   AND LIPS\-LGORT <> '' AND VBAP\-LGORT <> ''.  
    AUTHORITY-CHECK OBJECT 'ZSD001'  
              ID 'LGORT' FIELD LIPS\-LGORT.  
    IF sy\-subrc <> 0.  
      MESSAGE e000(zsdmsg) WITH LIPS\-LGORT .  
    ENDIF.  
  ENDIF.  
  
  
ENDFORM.  
*\*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 TVLK like in standard*  
*\* US\_RANGE\_INTERN = TVLK-NUMKI.*  
  
  
  
ENDFORM.  
*\*eject*  
  
*\*---------------------------------------------------------------------\**  
*\*       FORM USEREXIT\_READ\_DOCUMENT                                   \**  
*\*---------------------------------------------------------------------\**  
*\*       This userexit can be used to read data in additional tables   \**  
*\*       when the program reads a delivery.                            \**  
*\*                                                                     \**  
*\*       This form is called at the end of form BELEG\_LESEN.           \**  
*\*                                                                     \**  
*\*---------------------------------------------------------------------\**  
FORM USEREXIT\_READ\_DOCUMENT.  
  
*\***交货单库存地点权限检查*  
IF ( sy\-tcode = 'VL01N' OR sy\-tcode = 'VL02N' OR sy\-tcode = 'VL03N' OR sy\-tcode = 'VL10A' OR sy\-tcode = 'VL10C' OR sy\-tcode = 'VL10E' )  
   AND LIPS\-LGORT <> '' AND VBAP\-LGORT <> ''.  
    AUTHORITY-CHECK OBJECT 'ZSD001'  
              ID 'LGORT' FIELD LIPS\-LGORT.  
    IF sy\-subrc <> 0.  
      MESSAGE e000(zsdmsg) WITH LIPS\-LGORT .  
    ENDIF.  
  ENDIF.  
  
  
ENDFORM.  
*\*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.*  
  
*\*IF sy-tcode = 'VL01N' OR sy-tcode = 'VL02N' OR sy-tcode = 'VL03N' OR sy-tcode = 'VL10F' OR sy-tcode = 'VL10A' OR sy-tcode = 'VL10E'.*  
*\*    AUTHORITY-CHECK OBJECT 'ZSD001'*  
*\*              ID 'LGORT' FIELD LIPS-LGORT.*  
*\*    IF sy-subrc <> 0.*  
*\*      MESSAGE e000(zsdmsg) WITH LIPS-LGORT .*  
*\*    ENDIF.*  
*\*  ENDIF.*  
  
*\*  BREAK ZSX.*  
*\*DATA lv\_LFIMG LIKE LIPS-LFIMG.*  
*\*lv\_LFIMG = xLIPS-LFIMG.*  
*\*lv\_LFIMG = LIPS-LFIMG.*  
  
 IF lips\-vgbel IS INITIAL OR lips\-vgpos IS INITIAL .  
    MESSAGE '交货单必须关联销售订单 '&& lips\-POSNR  && '项目为手工添加'  TYPE 'E'.  
  ENDIF .  
  
  
ENDFORM.  
*\*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.  
*\*eject*  
  
  
*\*---------------------------------------------------------------------\**  
*\*       FORM USEREXIT\_REFRESH\_DOCUMENT                                \**  
*\*---------------------------------------------------------------------\**  
*\*       It is always necessary to refresh user-specific data before   \**  
*\*       the next document will be processed.                          \**  
*\*       This can be done in this userexit.                            \**  
*\*       This userexit can be used to refresh user-specific data       \**  
*\*       when the processing of a delivery is finished                 \**  
*\*       - after the document is saved                                 \**  
*\*       - when you leave the document processing with F3 or F15       \**  
*\*       It may be necessary to refresh user-specific data before      \**  
*\*       the next document will be processed.                          \**  
*\*                                                                     \**  
*\*      This form is called in dialog at the end of form               \**  
*\*      BELEG\_INITIALISIEREN                                           \**  
*\*                                                                     \**  
*\*---------------------------------------------------------------------\**  
FORM USEREXIT\_REFRESH\_DOCUMENT.  
  
*\* clear: ZZ50A.*  
*\* refresh: zzitemtab.*  
  
ENDFORM.  
*\*eject*

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220114/8734f6a6525a432c9cb18d08cb77a5f9.png
[20190614111524331.png]: /images/20220114/cdb0e80a423941c6a418891ff1e9fb7c.png
[20190614110141255.png]: /images/20220114/09c2d37859d3449eaa2d04c39bcd2cd0.png