标签：lv vbkok UPDATE DELIVERY 过账 vbpok ls error wadat

DATA:ls_vbkok LIKE vbkok,
       lv_error TYPE xfeld,
       it_prott LIKE prott OCCURS 0 WITH HEADER LINE,  "Return Message
       it_vbpok LIKE vbpok OCCURS 0 WITH HEADER LINE.  "Delivery items
DATA:lv_wadat TYPE likp-wadat_ist.

SELECT SINGLE  wadat_ist "dn的移动日期
    FROM  likp
    INTO  lv_wadat
    WHERE vbeln = "交货号
    ls_vbkok-vbeln_vl       = "交货号
    ls_vbkok-wabuc          = 'X'.
    IF lv_wadat+0(6) <> sy-datum+0(6)."移动日期不等于系统当前年月 属于跨月就用接口日期
      lv_wadat = "接口日期
    ENDIF.
    ls_vbkok-wadat_ist      = lv_wadat.

    CALL FUNCTION 'WS_DELIVERY_UPDATE'
      EXPORTING
        vbkok_wa                  = ls_vbkok
        update_picking            = 'X'
        commit                    = 'X'
        delivery                  = "交货号
      IMPORTING
        ef_error_in_goods_issue_0 = lv_error
      TABLES
        prot                      = it_prott
        vbpok_tab                 = it_vbpok
      EXCEPTIONS
        error_message             = 1
        OTHERS                    = 2.

IF sy-subrc <> 0  OR lv_error = 'X'.   "过账失败
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ELSE."过账成功
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = abap_true.

ENDIF.

标签：lv,vbkok,UPDATE,DELIVERY,过账,vbpok,ls,error,wadat
来源： https://www.cnblogs.com/LikZ-WM/p/16531047.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。