SAP VLPOD的 BDC 录屏不带序列号

gavin_gxh

已于 2024-02-05 13:29:22 修改

阅读量538

点赞数 6

分类专栏： ABAP SD 文章标签：其他经验分享

于 2023-11-27 16:51:21 首次发布

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/134649388

版权

ABAP 同时被 2 个专栏收录

235 篇文章 17 订阅

订阅专栏

54 篇文章 3 订阅

订阅专栏

本文详细描述了如何在SAP系统中使用FUNCTIONZIF_BDC_VLPOD函数处理POD确认，涉及接口导入值、动态过程调用、字段处理以及事务VLPOD的调用和错误处理。

摘要由CSDN通过智能技术生成

FUNCTION ZIF_BDC_VLPOD.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(PVBELN) TYPE  VBELN OPTIONAL
*"     VALUE(PBUDAT) TYPE  BUDAT OPTIONAL
*"     VALUE(LV_MODE) TYPE  APQI-PUTACTIVE DEFAULT 'N'
*"  EXPORTING
*"     VALUE(OSTATUS) TYPE  BAPI_MTYPE
*"     VALUE(OMESSAGE) TYPE  BAPI_MSG
*"----------------------------------------------------------------------
  data:lt_bdcmessage like TABLE OF BDCMSGCOLL.

  PERFORM bdc_dynpro  USING 'SAPMV50A' '4006'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'LIKP-VBELN'.
  PERFORM bdc_field USING 'BDC_OKCODE' '=ENT2'.
  PERFORM bdc_field USING 'LIKP-VBELN' pvbeln.

  PERFORM bdc_dynpro USING 'SAPMV50A' '1000'.
  PERFORM bdc_field USING 'BDC_OKCODE' '=PODQ'.
  PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV50A                                1502SUBSCREEN_HEADER'.
   PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV50A                                1110SUBSCREEN_BODY'.
  PERFORM bdc_field  USING 'LIKP-PODAT' pbudat.
  PERFORM bdc_field USING 'BDC_CURSOR' 'TVPODVB-GRUND(01)'.
  PERFORM bdc_field USING 'GV_XSIT' '2'.

  PERFORM bdc_dynpro  USING 'SAPMV50A' '1000'.
  PERFORM bdc_field USING 'BDC_OKCODE' '=SICH_T'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'TVPODVB-GRUND(02)'.

  data:ls_params TYPE ctu_params.
  ls_params-dismode = 'N'.
  ls_params-racommit = 'X'.
  ls_params-updmode = 'S'.
  CALL TRANSACTION 'VLPOD' USING bdcdata
*        OPTIONS FROM ls_params
        MODE lv_mode UPDATE 'S'
        MESSAGES INTO lt_bdcmessage.

  READ TABLE lt_bdcmessage TRANSPORTING NO FIELDS
            WITH KEY
             msgtyp = 'S'
             msgid = 'VL' "表示保存成功
             msgnr = '311'.
  IF sy-subrc <> 0.
    ostatus = 'E'.
    omessage =  'pod确认失败!'.
  ELSE .
    ostatus = 'S'.
    omessage =  'pod确认成功!'.
  ENDIF.
ENDFUNCTION.