me12里更改信息记录的净价和有效价格，以及信息记录的条件价格

 REPORT ztest.
DATA:l_kbetr LIKE konp-kbetr.
l_kbetr = '999999'.

*UPDATE konp SET kbetr = l_kbetr  WHERE knumh = '0002394137'.
DATA:it_condct LIKE TABLE OF bapicondct WITH HEADER LINE,
     it_condhd LIKE TABLE OF bapicondhd WITH HEADER LINE,
     it_condit LIKE TABLE OF bapicondit WITH HEADER LINE,
     it_condqs LIKE TABLE OF bapicondqs WITH HEADER LINE,
     it_condvs LIKE TABLE OF bapicondvs WITH HEADER LINE,
     it_ret_mes LIKE TABLE OF bapiret2  WITH HEADER LINE,
     it_knumhs  LIKE TABLE OF bapiknumhs WITH HEADER LINE,
     it_mem_initial LIKE TABLE OF cnd_mem_initial WITH HEADER LINE.

*& 条件价格赋值,需要填充TI_BAPICONDCT,TI_BAPICONDHD,TI_BAPICONDIT.

it_condct-table_no = '017'.
it_condct-cond_usage = 'A'.
it_condct-cond_type  = 'PB00'.
it_condct-applicatio = 'M'.
it_condct-operation  = '004'.

it_condct-cond_no    = '0002394137'.
it_condct-valid_from = 20090907.
it_condc