Code: Alles auswählen.
DATA: li_return TYPE TABLE OF bapiret2 WITH HEADER LINE,
li_conds TYPE TABLE OF bapicond WITH HEADER LINE,
li_condsx TYPE TABLE OF bapicondx WITH HEADER LINE.
MOVE: '000010' TO li_conds-itm_number,
'ZPR0' TO li_conds-cond_type,
'3000' TO li_conds-cond_value,
'EUR' TO li_conds-currency,
'012' TO li_conds-cond_st_no,
'01' TO li_conds-cond_count,
'D' TO li_conds-cond_updat.
APPEND li_conds.
MOVE: '000010' TO li_condsx-itm_number,
'ZPR0' TO li_condsx-cond_type,
'012' TO li_condsx-cond_st_no,
'01' TO li_condsx-cond_count,
'X' TO li_condsx-cond_value,
'X' TO li_condsx-currency,
'D' TO li_condsx-updateflag.
APPEND li_condsx.
MOVE: '3956' TO lwa_header-sales_org,
'01' TO lwa_header-distr_chan,
'01' TO lwa_header-division,
'EUR' TO lwa_header-currency.
MOVE: 'U' TO lwa_headerx-updateflag.
CALL FUNCTION 'BAPI_CUSTOMERCONTRACT_CHANGE'
EXPORTING
salesdocument = i_fplnr-vbeln
contract_header_in = lwa_header
contract_header_inx = lwa_headerx
* SIMULATION =
* BEHAVE_WHEN_ERROR = ' '
* INT_NUMBER_ASSIGNMENT = ' '
* LOGIC_SWITCH =
TABLES
return = li_return[]
* CONTRACT_ITEM_IN =
* CONTRACT_ITEM_INX =
conditions_in = li_conds[]
conditions_inx = li_condsx[]
* CONTRACT_CFGS_REF =
* CONTRACT_CFGS_INST =
* CONTRACT_CFGS_PART_OF =
* CONTRACT_CFGS_VALUE =
* CONTRACT_CFGS_BLOB =
* CONTRACT_CFGS_VK =
* CONTRACT_CFGS_REFINST =
* CONTRACT_TEXT =
* CONTRACT_DATA_IN =
* CONTRACT_DATA_INX =
* CONTRACT_KEYS =
* EXTENSIONIN =
* PARTNERS =
* PARTNERCHANGES =
* PARTNERADDRESSES =
.