SD--关于销售订单的VBAP-WERKS决定代码摘抄分析

最新推荐文章于 2019-02-28 10:00:00 发布

JackWu

最新推荐文章于 2019-02-28 10:00:00 发布

阅读量5.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： 00 SAP SD 文章标签： function include date im

本文链接：https://blog.youkuaiyun.com/sap_jack/article/details/3703345

本文分析了销售订单项目交货工厂（VBAP-WERKS）的确定过程，通过单元FV45PF0V_VBAP-WERKS_ERMITTELN中的FORM VBAP-WERKS_ERMITTELN子程序进行。详细讲述了如何根据不同情况从多个来源建议和确定工作工厂。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

对于销售订单的项目的交货工厂(VBAP-WERKS)决定是由单元FV45PF0V_VBAP-WERKS_ERMITTELN的FORM VBAP-WERKS_ERMITTELN子过程来填写的，具体怎么决定的大家一看下列的代码照抄自然就知道。

Unit name: FV45PF0V_VBAP-WERKS_ERMITTELN
*---------------------------------------------------------------------*
*       FORM VBAP-WERKS_ERMITTELN                                     *
*---------------------------------------------------------------------*
*       Ermitteln des Werkes einer Position                           *
*       Determine the work of a position
*---------------------------------------------------------------------*
FORM VBAP-WERKS_ERMITTELN.
DATA: DA_MSG TYPE C.
DATA: DA_EDATU LIKE VBEP-EDATU.
CLEAR DA_MSG.
* Während der Variantenfindung kein neues Werk ermitteln
CHECK TYPE_MATCHING IS INITIAL OR VBAP-WERKS IS INITIAL.
* Im Positionsvorschlag für eine Position kein Werk ermitteln
* Determine no work in the position proposal for a position
CHECK VBAK-VBTYP NE 'D'.
* Neue Werksermittlung bei geändertem Material
* New work determination with changed material
IF ( VBAP-MATNR NE *VBAP-MATNR OR
       NOT MATNR_CHANGED IS INITIAL ) AND
       TVSU-SUBAR IS INITIAL AND
       WERKS_CHANGED IS INITIAL AND SVBAP-TABIX > 0 AND
       ( VBAP-WERKS = *VBAP-WERKS OR　VBAP-WERKS = VBAPIN-WERKS ).
    CLEAR: VBAP-WERKS, VBAP-BERID, VBAP-LGORT.
ENDIF.
CHECK: VBAP-WERKS = SPACE.
* 1. Werk aus der Hauptposition vorschlagen
*    Work from the main position suggest
* VBAP-UEPOS=物料单结构中的上层项目
IF VBAP-UEPOS > 0 AND
     VBAP-WERKS = SPACE AND
     HVBAP-WERKS NE SPACE.
* Vorschlagswerk prüfen
* Proposal work examine
    PERFORM VBAP-WERKS_PRUEFEN USING VBAP-POSNR
                                     HVBAP-WERKS
                                     SPACE
                                     SPACE
                                     SPACE
                                     SY-SUBRC
                                     SPACE.
    IF SY-SUBRC EQ 0.
*     Vorschlagswerk setzen
      VBAP-WERKS = HVBAP-WERKS.
    ENDIF.
ENDIF.
* 2. Werk aus dem eingegebenen Kopfwerk vorschlagen
*    Work from the entered head work suggest
IF VBAP-WERKS = SPACE AND
     RV45A-DWERK NE SPACE.
*    Vorschlagswerk prüfen
    PERFORM VBAP-WERKS_PRUEFEN USING VBAP-POSNR
                                     RV45A-DWERK
                                     SPACE
                                     SPACE
                                     SPACE
                               &nbs