未清SO关闭处理

使用:  SD_SALESDOCUMENT_CHANGE   关闭订单

  DATA: ls_header_in  LIKE bapisdhd1 .
  DATA: ls_header_inx LIKE bapisdhd1x,
        lt_item_in    LIKE TABLE OF bapisditm,
        ls_item_in    LIKE bapisditm,
        lt_item_inx   LIKE TABLE OF bapisditmx,
        ls_item_inx   LIKE bapisditmx,
        lt_bapiret2   LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
  DATA: lv_message    TYPE string.

*BREAK xiangcai.
  LOOP AT pt_data INTO DATA(ls_data).
    SELECT SINGLE lfstk
      INTO @DATA(ls_lfstk)
      FROM vbak
     WHERE vbeln = @ls_data-zbillno.
    IF ls_lfstk = 'C'.
      DATA(lv_msg) = '已完成交货'.
      ls_data-zmess  = '订单已完成交货'.
      ls_data-zpststu = '1'.
      ls_data-updat = sy-datum.
      ls_data-uptim = sy-uzeit.
      ls_data-upnam = sy-uname.
      MODIFY pt_data FROM ls_data.
      CONTINUE.
    ENDIF.
**检查回传的数量 ztotal = 创建的批发销售DN 的项目数量
    CLEAR:ls_zift0008sum.
    READ TABLE lt_zift0008sum INTO ls_zift0008sum WITH KEY zbillno = ls_data-zbillno
                                                           zlineno = ls_data-zlineno
                                                           BINARY SEARCH.

    IF ls_data-ztotal = ls_zift0008sum-ztotal.
      ls_header_inx-updateflag = 'U'.
*      ls_header_in-serv_date = sy-datum .
*      ls_header_inx-serv_date = 'X'.

      ls_item_in-itm_number = ls_data-zlineno.
      ls_item_in-material = ls_data-zmatnr.
      ls_item_in-reason_rej = '01'."拒绝原因
      APPEND ls_item_in TO lt_item_in.
      CLEAR: ls_item_in.

      ls_item_inx-updateflag = 'X'.
      ls_item_inx-itm_number = ls_data-zlineno.
      ls_item_inx-material = 'X'.
      ls_item_inx-reason_rej = 'X'.
      APPEND ls_item_inx TO lt_item_inx.
      CLEAR: ls_item_inx.

    ELSE.
      lv_msg = '前序数据没有接收完全'.
      ls_data-zmess  = '前序数据没有接收完全'.
      ls_data-zpststu = '2'.
      MODIFY pt_data FROM ls_data.
      RETURN.
    ENDIF.
  ENDLOOP.

  IF lt_item_in[] IS NOT INITIAL.
***未清SO关闭处理
    CALL FUNCTION 'SD_SALESDOCUMENT_CHANGE'
      EXPORTING
        salesdocument     = ls_data-zbillno
*       order_header_in   = ls_header_in
        order_header_inx  = ls_header_inx
        behave_when_error = 'P'
      TABLES
        item_in           = lt_item_in
        item_inx          = lt_item_inx
        return            = lt_bapiret2.

    LOOP AT lt_bapiret2 INTO DATA(ls_bapiret2) WHERE type = 'E' OR type = 'A' OR type = 'X'.
      DATA(lv_tyep) = 'E'.
      CLEAR: lv_message.
      MESSAGE ID ls_bapiret2-id
            TYPE ls_bapiret2-type
          NUMBER ls_bapiret2-number
            WITH ls_bapiret2-message_v1 ls_bapiret2-message_v2 ls_bapiret2-message_v3 ls_bapiret2-message_v4
            INTO lv_message.
      ls_data-zmess = ls_data-zmess && lv_message.
    ENDLOOP.



    IF lv_tyep NE 'E'.
      lv_message = 'SO关闭成功'.
      ls_data-zmess   = lv_message.
      ls_data-updat   = sy-datum.
      ls_data-uptim   = sy-uzeit.
      ls_data-upnam   = sy-uname.
      MODIFY pt_data FROM ls_data TRANSPORTING zmess zpststu updat uptim upnam WHERE zpststu NE 1.
    ELSE.
      ls_data-updat   = sy-datum.
      ls_data-uptim   = sy-uzeit.
      ls_data-upnam   = sy-uname.
      MODIFY pt_data FROM ls_data TRANSPORTING zmess zpststu updat uptim upnam WHERE zpststu NE 1.
    ENDIF.

ENDIF.

出现报错：输入凭证编号 （而且错误是第一次调用函数出现，第二次  第三次 针对这个问题测试 就成功了）

 走了标准的这段代码

 

 

 感觉在FORM的上一层，应该走进 ELSE 分支，却走进了 PERFORM  BELEG_LESEN.  的逻辑
进去之后 VBAK-VBELN 为空，所以报错

为了解决问题，先换用了BDC的方式

  IF lt_item_in[] IS NOT INITIAL.
***未清SO关闭处理
*    CALL FUNCTION 'SD_SALESDOCUMENT_CHANGE'
    READ TABLE pt_data INTO ls_data INDEX 1.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.
    PERFORM frm_dynpro  USING                                               'SAPMV45A' '0102' 'X'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_CURSOR'
                                                                            'VBAK-VBELN'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_OKCODE'
                                                                            '=ENT2'.
    PERFORM frm_dynpro  USING                                                ' ' 'VBAK-VBELN'
                                                                            ls_data-zbillno.
    PERFORM frm_dynpro  USING                                               'SAPMV45A' '4001' 'X'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_OKCODE'
                                                                            '=BABS'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_CURSOR'
                                                                            'RV45A-MABNR(01)'.
    PERFORM frm_dynpro  USING                                               'SAPMV45A' '0250' 'X'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_CURSOR'
                                                                            'RV45A-S_ABGRU'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_OKCODE'
                                                                            '=SUEB'.
    PERFORM frm_dynpro  USING                                                ' ' 'RV45A-S_ABGRU'
                                                                            '01'."gs_data-S_ABGRU_009.
    PERFORM frm_dynpro  USING                                               'SAPMV45A' '4001' 'X'.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_OKCODE'
                                                                            '=SICH'.
    PERFORM frm_dynpro  USING                                                ' ' 'VBKD-BSTKD'
                                                                            '01'."gs_data-BSTKD_010.
    PERFORM frm_dynpro  USING                                                ' ' 'BDC_CURSOR'
                                                                            'KUWEV-KUNNR'.
*perform frm_dynpro  using                                                ' ' 'KUWEV-KUNNR'
*                                                                        gs_data-KUNNR_011.
*PERFORM frm_dynpro  USING                                                ' ' 'VBAK-AUGRU'
*                                                                        '01'."gs_data-AUGRU_012.
    CLEAR:gt_messtab[],gt_messtab.
    CALL TRANSACTION 'VA02' USING gt_bdcd
                            MODE gv_mode
                            UPDATE 'S'
                            MESSAGES INTO gt_messtab.
    IF sy-subrc = 0.
      ls_data-zpststu = 1.
    ENDIF.
    LOOP AT gt_messtab WHERE msgtyp = 'E' OR msgtyp = 'A' OR msgtyp = 'X'.
      ls_data-zpststu = 2.
      SELECT SINGLE *
        INTO @DATA(ls_t100)
        FROM t100
       WHERE sprsl = @gt_messtab-msgspra
         AND arbgb = @gt_messtab-msgid
         AND msgnr = @gt_messtab-msgnr.
      IF sy-subrc = 0.
        DATA(l_mstring) = ls_t100-text.
        IF l_mstring CS '&1'.
          REPLACE '&1' WITH gt_messtab-msgv1 INTO l_mstring.
          REPLACE '&2' WITH gt_messtab-msgv2 INTO l_mstring.
          REPLACE '&3' WITH gt_messtab-msgv3 INTO l_mstring.
          REPLACE '&4' WITH gt_messtab-msgv4 INTO l_mstring.
        ELSE.
          REPLACE '&' WITH gt_messtab-msgv1 INTO l_mstring.
          REPLACE '&' WITH gt_messtab-msgv2 INTO l_mstring.
          REPLACE '&' WITH gt_messtab-msgv3 INTO l_mstring.
          REPLACE '&' WITH gt_messtab-msgv4 INTO l_mstring.
        ENDIF.
        CONDENSE l_mstring.
        CONCATENATE ls_data-zmess l_mstring INTO ls_data-zmess.
      ELSE.
        CONCATENATE ls_data-zmess gt_messtab INTO ls_data-zmess.
      ENDIF.
    ENDLOOP.


    IF ls_data-zpststu = 1.
*  lv_type = 'S'.
*  ls_data-zpststu = 1.
*  ZDOCNO
      lv_message = 'SO关闭成功'.
      ls_data-zmess   = lv_message.
      ls_data-updat   = sy-datum.
      ls_data-uptim   = sy-uzeit.
      ls_data-upnam   = sy-uname.
      MODIFY pt_data FROM ls_data TRANSPORTING zmess zpststu updat uptim upnam WHERE zpststu NE 1.
   ELSE.
      ls_data-updat   = sy-datum.
      ls_data-uptim   = sy-uzeit.
      ls_data-upnam   = sy-uname.
      MODIFY pt_data FROM ls_data TRANSPORTING zmess zpststu updat uptim upnam WHERE zpststu NE 1.
**回传回写log表 ZIFT0008
      CLEAR:gv_flag.
      PERFORM frm_update_zift0008 TABLES pt_data
                                  CHANGING gv_flag.
   ENDIF.
ENDIF.