SD-交货过账-WS_DELIVERY_UPDATE

**********************************************************************    ls_vbkok-vbeln_vl  = gt_out-vbeln.
  DATA: LS_VBKOK TYPE VBKOK.
  DATA: LT_PROT  LIKE TABLE OF PROTT WITH HEADER LINE.
  DATA: BEGIN OF LT_VBPOK OCCURS 0.
          INCLUDE STRUCTURE VBPOK.
  DATA: END OF LT_VBPOK.

  LS_VBKOK-VBELN_VL  = P_VBELN.         " Delivery number
  LS_VBKOK-WABUC     = GC_X.            " Automatic PGI
  LS_VBKOK-WADAT_IST = P_DATUM.         " 实际货物移动日期
  LS_VBKOK-TDDAT     = SY-DATUM.        " 运输计划日期
  LS_VBKOK-BLDAT     = SY-DATUM.        " 凭证中的凭证日期

**
  CALL FUNCTION 'WS_DELIVERY_UPDATE'
    EXPORTING
      VBKOK_WA      = LS_VBKOK
      COMMIT        = 'X'
      DELIVERY      = P_VBELN
**      UPDATE_PICKING = 'X'
    TABLES
*     VBPOK_TAB     = LT_VBPOK
      PROT          = LT_PROT
    EXCEPTIONS
      ERROR_MESSAGE = 1
      OTHERS        = 2.


* 过账成功时,
    IF LT_PROT[] IS INITIAL.

      LS_SD3030-MSGTY  = GC_DODPS_GI_SUCC.
      LS_SD3030-MESS   = TEXT-R09.
      $$DATE_USER 'M' LS_SD3030.              " lycao 2015.02.16
      APPEND LS_SD3030 TO LT_P_3030.          " lycao 2015.03.16
*      MODIFY ZTSD3030 FROM LS_SD3030.        " lycao 2015.03.16
*      IF SY-SUBRC = 0.
*        COMMIT WORK.
*      ELSE.
*        ROLLBACK WORK.
*      ENDIF.

      CS_DATA-IFRESULT = GC_DODPS_GI_SUCC.
      CS_DATA-IFMSG    = TEXT-R09.

      LS_LOG-MSGTY = GC_DODPS_GI_SUCC.
      LS_LOG-MESS  = TEXT-R09.
      $$DATE_USER 'C' LS_LOG.              " lycao 2015.03.20
      APPEND LS_LOG TO LT_P_LOG.              " lycao 2015.03.16
*      $$LOG_UPDATE 'C' LS_LOG CS_DATA ZTSD0001XI04.       " lycao 2015.03.16

      CLEAR: LS_SD3030, LS_LOG.
    ELSE.
* 过账失败时
      DATA: L_MESS    TYPE STRING.
      DATA: LT_STR_MSG TYPE TABLE OF STRING WITH HEADER LINE.
      CLEAR: L_MESS, LT_STR_MSG[], LT_STR_MSG.
      LOOP AT LT_PROT WHERE MSGTY EQ  'E' OR MSGTY = 'A' OR MSGTY = 'X'.
        CALL FUNCTION 'MESSAGE_TEXT_BUILD'
          EXPORTING
            MSGID               = LT_PROT-MSGID
            MSGNR               = LT_PROT-MSGNO
            MSGV1               = LT_PROT-MSGV1
            MSGV2               = LT_PROT-MSGV2
            MSGV3               = LT_PROT-MSGV3
            MSGV4               = LT_PROT-MSGV4
          IMPORTING
            MESSAGE_TEXT_OUTPUT = LT_STR_MSG.
        APPEND LT_STR_MSG.
        CLEAR: LT_STR_MSG.
      ENDLOOP.
      SORT  LT_STR_MSG.
      DELETE ADJACENT DUPLICATES FROM LT_STR_MSG.
      LOOP AT LT_STR_MSG.
        CONCATENATE LT_STR_MSG  ';' L_MESS INTO L_MESS.
      ENDLOOP.

      CS_DATA-IFRESULT = GC_DODPS_GI_FAIL.
      CS_DATA-IFMSG    = L_MESS.

      LS_LOG-MSGTY = GC_DODPS_GI_FAIL.
      LS_LOG-MESS  = L_MESS.
      $$DATE_USER 'C' LS_LOG.              " lycao 2015.03.20
      APPEND LS_LOG TO LT_P_LOG.              " lycao 2015.03.16
*      $$LOG_UPDATE 'C' LS_LOG CS_DATA ZTSD0001XI04.
    ENDIF.
 

 

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 首先,需要确定您所提到的 "增强点" 是什么,这样我才能给出合适的回答。 在 SAP 系统中,交货单是在销售订单的基础上产生的,用于记录产品的交付情况。在 ABAP 程序中,可以使用函数模块来进行交货单的过账操作。常用的函数模块有: - BAPI_OUTB_DELIVERY_CONFIRM 实现交货单的过账,包括物料出库和交货过账。 - VL01N_SAVE_AND_CHECK 在交货单创建和修改的过程中,可以使用这个函数模块来保存并检查数据的有效性。 如果您想对交货过账的流程进行增强,可以使用以下方法: - 在交货过账之前,使用 ABAP 代码来执行数据检查和转换,以确保数据的完整性和一致性。 - 在交货过账之后,使用 ABAP 代码来执行后续的业务逻辑,比如发送通知邮件或者更新其他业务对象的数据。 希望这些内容能帮助到您。如果您有其他问题,请随时告诉我。 ### 回答2: ABAP交货过账的增强点是指在交货过账的过程中,通过ABAP编程进行功能的扩展和增强。主要包括以下几个方面: 首先,可以通过增强点在交货过账之前进行数据的校验和处理。例如,在过账之前可以增加一些自定义的业务逻辑,对交货单的数据进行检查,确保数据的准确性和完整性。例如,可以检查交货数量、价格、交货日期等信息是否符合业务规则,并进行相应的处理,例如自动调整数量或价格。 其次,可以通过增强点在交货过账之后进行自定义的后处理。例如,在过账完成后,可以触发自定义逻辑,例如生成相关报表、发送通知、触发其他交接流程等,以满足业务需求。 另外,还可以通过增强点在交货过账页面上增加自定义的字段或功能。例如,在交货过账的界面上增加某个字段来输入额外的信息,或者增加某个按钮来进行特定的操作。这样可以根据具体业务需求对交货过账进行个性化定制,提升用户体验和操作效率。 总之,ABAP交货过账的增强点提供了一种灵活、自定义的方式,通过编程进行交货过账功能的扩展和增强,在满足业务需求的同时提升系统的灵活性和用户体验。 ### 回答3: ABAP语言是一种在SAP系统中进行编程和开发的语言。在交货过账功能中,可以通过使用ABAP语言来进行增强。 ABAP交货过账的增强点包括以下几个方面: 1. 自定义报表:可以使用ABAP语言编写代码,自定义交货过账后的报表输出。通过对交货单数据的处理和计算,生成符合业务需求的报表格式,提供更精准和实用的数据展示。 2. 增加校验逻辑:借助ABAP语言的强大功能,可以对交货单的数据进行更严格的校验。例如,可以添加代码来验证交货数量是否超过库存数量,或者检查交货日期是否在有效范围内。通过增加校验逻辑,可以避免输入错误或不合规的交货数据被过账,提高数据的准确性和完整性。 3. 业务流程扩展:通过在交货过账功能中增加ABAP代码,可以对业务流程进行扩展。例如,在交货过账后自动触发其他相关的处理逻辑,如更新相应的库存信息或生成相应的财务凭证。这样可以实现整个交货流程的自动化和高效化。 4. 输出界面定制:利用ABAP语言的特性,可以定制交货过账时的输出界面。可以根据具体业务需求,调整界面布局、添加额外的字段或标签,使界面更加符合用户的习惯和实际操作需求。 总之,使用ABAP语言对交货过账功能进行增强,可以根据具体需求对报表、校验逻辑、业务流程和界面进行定制和扩展,提高功能的灵活性、效率和用户体验。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值