SAP VLPOD的 BDC 录屏 不带序列号

53 篇文章 3 订阅

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.

  • 6
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gavin_gxh

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值