BAPI:创建销售订单（VA01）

最新推荐文章于 2025-04-25 11:41:38 发布
王老茂儿
最新推荐文章于 2025-04-25 11:41:38 发布
阅读量2.7k
点赞数 3
分类专栏： SD
本文链接：https://blog.youkuaiyun.com/weixin_41641081/article/details/106691579
版权
SD 专栏收录该内容
1 篇文章
订阅专栏
业务：如果用户自己填写了销售价格，根据填写的价格维护销售订单定价条件，如果没填则根据配置的定价条件自动带出。
在这里插入图片描述
*&---------------------------------------------------------------------*
*&      Form  FRM_SALESDOCUMENT_CREATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
 FORM FRM_SALESDOCUMENT_CREATE .
   DATA: LW_SALES_HEADER_IN      LIKE BAPISDHD1,
         LW_SALES_HEADER_INX     LIKE BAPISDHD1X,
         LW_LOGIC_SWITCH         TYPE BAPISDLS,
         LV_SALESDOCUMENT_EX     LIKE BAPIVBELN-VBELN,
         LT_SALES_ITEMS_IN       LIKE TABLE OF BAPISDITM  WITH HEADER LINE,
         LT_SALES_ITEMS_INX      LIKE TABLE OF BAPISDITMX WITH HEADER LINE,
         LT_SALES_SCHEDULES_IN   LIKE TABLE OF BAPISCHDL  WITH HEADER LINE,
         LT_SALES_SCHEDULES_INX  LIKE TABLE OF BAPISCHDLX WITH HEADER LINE,
         LT_SALES_CONDITIONS_IN  LIKE TABLE OF BAPICOND   WITH HEADER LINE,
         LT_SALES_CONDITIONS_INX LIKE TABLE OF BAPICONDX  WITH HEADER LINE,
         LT_SALES_TEXT           LIKE TABLE OF BAPISDTEXT WITH HEADER LINE,
         LT_SALES_PARTNERS_IN    LIKE TABLE OF BAPIPARNR  WITH HEADER LINE,
         LT_RETURN               LIKE TABLE OF BAPIRET2   WITH HEADER LINE.
   DATA: L_ANSWER TYPE C,
         LW_KWMENG TYPE KWMENG,
         LW_COND_VALUE TYPE BAPIKBETR1,
         LW_COND_VALUE1 TYPE BAPIKBETR1,
         LW_SCHED_LINE TYPE ETENR VALUE '0001',
         LW_ITM_NUM TYPE POSNR_VA .

   CLEAR: LT_SALES_ITEMS_IN,     LT_SALES_ITEMS_INX,
          LT_SALES_SCHEDULES_IN, LT_SALES_SCHEDULES_INX,
          LT_SALES_CONDITIONS_IN,LT_SALES_CONDITIONS_INX,
          LT_SALES_PARTNERS_IN,
          LT_RETURN.
   CLEAR :GT_ZTSD003[],
          GT_YTLIST1[].

   GT_YTLIST1[] = GT_YTLIST[].
   SORT GT_YTLIST1 BY VBELN.
   DELETE GT_YTLIST1 WHERE FLAG <> ABAP_ON.

   SELECT *
     INTO CORRESPONDING FIELDS OF TABLE GT_ZTSD003
     FROM ZTSD003
     FOR ALL ENTRIES IN GT_YTLIST1
     WHERE VBELN = GT_YTLIST1-VBELN.

   SORT GT_ZTSD003 BY MATNR.

**=> sales order header
   IF LW_SALES_HEADER_IN IS INITIAL.
     LW_SALES_HEADER_IN-DOC_TYPE    = GS_XSBC-AUART.    " 销售凭证类型
     LW_SALES_HEADER_IN-SALES_ORG   = GS_XSBC-VKORG.    " 销售机构
     LW_SALES_HEADER_IN-DISTR_CHAN  = GS_XSBC-VTWEG.    " 分销渠道
     LW_SALES_HEADER_IN-DIVISION    = GS_XSBC-SPART.    " 产品组

     LW_SALES_HEADER_INX-DOC_TYPE   = ABAP_TRUE.
     LW_SALES_HEADER_INX-SALES_ORG  = ABAP_TRUE.
     LW_SALES_HEADER_INX-DISTR_CHAN = ABAP_TRUE.
     LW_SALES_HEADER_INX-DIVISION   = ABAP_TRUE.

   ENDIF.

   IF LT_SALES_PARTNERS_IN[] IS INITIAL.
     CLEAR : LT_SALES_PARTNERS_IN.
     LT_SALES_PARTNERS_IN-PARTN_ROLE = 'AG'.         "
     LT_SALES_PARTNERS_IN-PARTN_NUMB = GS_XSBC-KUNAG. " 售达方
     APPEND LT_SALES_PARTNERS_IN.
     CLEAR LT_SALES_PARTNERS_IN.

     LT_SALES_PARTNERS_IN-PARTN_ROLE = 'WE'.         "
     LT_SALES_PARTNERS_IN-PARTN_NUMB = GS_XSBC-KUNWE." 送达方
     APPEND LT_SALES_PARTNERS_IN.
     CLEAR LT_SALES_PARTNERS_IN.
   ENDIF.

   LOOP AT GT_ZTSD003 INTO GS_ZTSD003.

     LW_KWMENG     = GS_ZTSD003-KWMENG + LW_KWMENG.
     LW_COND_VALUE = GS_ZTSD003-ZKBETR_XS.
     LW_COND_VALUE1 = GS_ZTSD003-ZKBETR_ZD.

**=> sales order item
     LT_SALES_ITEMS_IN-MATERIAL   = GS_ZTSD003-MATNR.        " 物料
     LT_SALES_ITEMS_IN-PLANT      = GS_ZTSD003-WERKS.        " 工厂
     LT_SALES_ITEMS_IN-STORE_LOC  = GS_ZTSD003-LGORT.        " 库存地点
     LT_SALES_ITEMS_INX-MATERIAL    = ABAP_TRUE.
     LT_SALES_ITEMS_INX-PLANT       = ABAP_TRUE.
     LT_SALES_ITEMS_INX-STORE_LOC   = ABAP_TRUE.
     AT END OF MATNR.
       LW_ITM_NUM = LW_ITM_NUM + 10.
**=> sales order item
       LT_SALES_ITEMS_IN-ITM_NUMBER = LW_ITM_NUM.
       LT_SALES_ITEMS_INX-ITM_NUMBER  = LW_ITM_NUM.
*
       APPEND: LT_SALES_ITEMS_IN, LT_SALES_ITEMS_INX.
       CLEAR:  LT_SALES_ITEMS_IN, LT_SALES_ITEMS_INX.

       " 计划行号
       LT_SALES_SCHEDULES_IN-ITM_NUMBER = LW_ITM_NUM.
       LT_SALES_SCHEDULES_IN-SCHED_LINE = LW_SCHED_LINE.       " L_TABIX.
       LT_SALES_SCHEDULES_IN-REQ_DATE   = SY-DATUM.     " 计划行日期
       LT_SALES_SCHEDULES_IN-REQ_QTY    = LW_KWMENG.    " 以销售单位计的 订单数量

       LT_SALES_SCHEDULES_INX-ITM_NUMBER = LW_ITM_NUM.
       LT_SALES_SCHEDULES_INX-SCHED_LINE = LW_SCHED_LINE.
       LT_SALES_SCHEDULES_INX-REQ_DATE   = ABAP_TRUE.
       LT_SALES_SCHEDULES_INX-REQ_QTY    = ABAP_TRUE.

       APPEND: LT_SALES_SCHEDULES_IN, LT_SALES_SCHEDULES_INX.
       CLEAR:  LT_SALES_SCHEDULES_IN, LT_SALES_SCHEDULES_INX,LW_KWMENG.

*----- 条件
       IF LW_COND_VALUE NE 0 AND LW_COND_VALUE1 NE 0.
*----- 复制不变定价因素且重定税款
         LW_LOGIC_SWITCH-PRICING = 'G'.

         LT_SALES_CONDITIONS_IN-ITM_NUMBER  = LW_ITM_NUM.
         LT_SALES_CONDITIONS_IN-COND_TYPE   = 'ZPR1'.           " 条件类型 定价条件
         LT_SALES_CONDITIONS_IN-COND_VALUE  = LW_COND_VALUE.    " 价格     定价比率
         LT_SALES_CONDITIONS_IN-CURRENCY    = 'CNY'.            " 货币码

         LT_SALES_CONDITIONS_INX-ITM_NUMBER = LW_ITM_NUM.
         LT_SALES_CONDITIONS_INX-COND_TYPE  = 'ZPR1'.
         LT_SALES_CONDITIONS_INX-CURRENCY   = ABAP_TRUE.
         LT_SALES_CONDITIONS_INX-COND_VALUE = ABAP_TRUE.


         APPEND: LT_SALES_CONDITIONS_IN,LT_SALES_CONDITIONS_INX.
         CLEAR:  LT_SALES_CONDITIONS_IN,LT_SALES_CONDITIONS_INX,LW_COND_VALUE.

         LT_SALES_CONDITIONS_IN-ITM_NUMBER  = LW_ITM_NUM.
         LT_SALES_CONDITIONS_IN-COND_TYPE   = 'ZPR2'.           " 条件类型 定价条件
         LT_SALES_CONDITIONS_IN-COND_VALUE  = LW_COND_VALUE1.    " 价格     定价比率
         LT_SALES_CONDITIONS_IN-CURRENCY    = 'CNY'.            " 货币码

         LT_SALES_CONDITIONS_INX-ITM_NUMBER = LW_ITM_NUM.
         LT_SALES_CONDITIONS_INX-COND_TYPE  = 'ZPR2'.
         LT_SALES_CONDITIONS_INX-CURRENCY   = ABAP_TRUE.
         LT_SALES_CONDITIONS_INX-COND_VALUE = ABAP_TRUE.


         APPEND: LT_SALES_CONDITIONS_IN,LT_SALES_CONDITIONS_INX.
         CLEAR:  LT_SALES_CONDITIONS_IN,LT_SALES_CONDITIONS_INX,LW_COND_VALUE.

       ENDIF.

     ENDAT.

   ENDLOOP.

   CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
     EXPORTING
       SALES_HEADER_IN      = LW_SALES_HEADER_IN
       SALES_HEADER_INX     = LW_SALES_HEADER_INX
       CONVERT_PARVW_AUART  = ABAP_ON
       LOGIC_SWITCH         = LW_LOGIC_SWITCH
     IMPORTING
       SALESDOCUMENT_EX     = LV_SALESDOCUMENT_EX
     TABLES
       RETURN               = LT_RETURN
       SALES_ITEMS_IN       = LT_SALES_ITEMS_IN
       SALES_ITEMS_INX      = LT_SALES_ITEMS_INX
       SALES_SCHEDULES_IN   = LT_SALES_SCHEDULES_IN
       SALES_SCHEDULES_INX  = LT_SALES_SCHEDULES_INX
       SALES_CONDITIONS_IN  = LT_SALES_CONDITIONS_IN
       SALES_CONDITIONS_INX = LT_SALES_CONDITIONS_INX
       SALES_PARTNERS       = LT_SALES_PARTNERS_IN.

   IF SY-SUBRC EQ 0 AND LV_SALESDOCUMENT_EX IS NOT INITIAL.

     GT_YTLIST-ZVBELN_S = LV_SALESDOCUMENT_EX.
     MODIFY GT_YTLIST TRANSPORTING ZVBELN_S WHERE FLAG = ABAP_ON .
     LOOP AT GT_YTLIST WHERE FLAG = ABAP_ON.
       UPDATE ZTSD004 SET ZVBELN_S = LV_SALESDOCUMENT_EX
       WHERE VBELN = GT_YTLIST-VBELN.
     ENDLOOP.
     MESSAGE S020(ZMSG) WITH LV_SALESDOCUMENT_EX.
     COMMIT WORK.
   ELSE.

     LOOP AT LT_RETURN WHERE TYPE = 'E'.
       MESSAGE LT_RETURN-MESSAGE TYPE 'S' DISPLAY LIKE 'E'.
       EXIT.
     ENDLOOP.

     ROLLBACK WORK.
   ENDIF.
 ENDFORM.