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.
SAP VLPOD的 BDC 录屏 不带序列号
于 2023-11-27 16:51:21 首次发布