供应商冻结与接触:
DATA:
LS_BPDATA TYPE CVIS_EI_EXTERN,
t_retun TYPE BAPIRETM,
t_bp TYPE CVIS_EI_EXTERN_T.
LS_BPDATA-PARTNER-HEADER-OBJECT = 'WX990'.
LS_BPDATA-PARTNER-HEADER-OBJECT_INSTANCE-BPARTNER = 'WX990'.
LS_BPDATA-PARTNER-HEADER-OBJECT_INSTANCE-BPARTNERGUID = '7446A0A1157D1EEBB480A555A0638DA5'.
LS_BPDATA-PARTNER-HEADER-OBJECT_TASK = 'M'.
LS_BPDATA-VENDOR-HEADER-OBJECT_INSTANCE-LIFNR = 'WX990'.
LS_BPDATA-VENDOR-HEADER-OBJECT_TASK = 'U'.
* LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATA-LOEVM = 'X'.
LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATA-LOEVM = ''.
LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATAX-LOEVM = 'X'.
* LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATA-NODEL = 'X'.
LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATA-NODEL = ''.
LS_BPDATA-VENDOR-CENTRAL_DATA-CENTRAL-DATAX-NODEL = 'X'.
* LS_BPDATA-VENDOR-COMANY_DATA = 'X'.
APPEND LS_BPDATA TO t_bp.
CALL METHOD cl_md_bp_maintain=>maintain
EXPORTING
i_data = t_bp
* i_test_run =
IMPORTING
e_return = t_retun
.
LOOP AT t_retun ASSIGNING FIELD-SYMBOL(<FS_L_BPDATA>).
ENDLOOP.
IF SY-SUBRC <> 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
* IMPORTING
* RETURN =
.
ENDIF.