[vlg1971]

Hola,

Soy capaz de modificar la posicion, texto posicion pero la imputacion no, detallo codigo:

DATA: wa_pritem LIKE bapimereqitemimp,
wa_pritemx LIKE bapimereqitemx,
wa_praccount LIKE bapimereqaccount,
wa_praccountx LIKE bapimereqaccountx,
wa_pheader LIKE bapimereqheader.

DATA: BEGIN OF it_pritemx OCCURS 0.
INCLUDE STRUCTURE bapimereqitemx.
DATA: END OF it_pritemx.

DATA: BEGIN OF it_pritem OCCURS 0.
INCLUDE STRUCTURE bapimereqitemimp.
DATA: END OF it_pritem.

DATA: BEGIN OF it_praccountx OCCURS 0.
INCLUDE STRUCTURE bapimereqaccountx.
DATA: END OF it_praccountx.

DATA: BEGIN OF it_change_return OCCURS 0.
INCLUDE STRUCTURE bapiret2.
DATA: END OF it_change_return.


DATA: it_item LIKE bapimereqitem OCCURS 0 WITH HEADER LINE.
DATA: it_account LIKE bapimereqaccount OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'BAPI_PR_GETDETAIL'
EXPORTING
number = '0100000268'
account_assignment = 'X'
* ITEM_TEXT = ' '
* HEADER_TEXT = ' '
* DELIVERY_ADDRESS = ' '
* VERSION = ' '
IMPORTING
prheader = wa_pheader
TABLES
return = it_change_return
pritem = it_item
praccount = it_account
* PRADDRDELIVERY =
* PRITEMTEXT =
* PRHEADERTEXT =
* EXTENSIONOUT =
* ALLVERSIONS =
.

"Cargar valores obtenidos en bapi_pr_getdetail en
"estructura para bapi bapi_pr_change
LOOP AT it_item.
MOVE-CORRESPONDING it_item TO it_pritem.
APPEND it_pritem.
ENDLOOP.
"Marcar todos los campos a modiciar en posicion
wa_pritemx-preq_item = '00010'.
wa_pritemx-ctrl_ind = 'X'.
wa_pritemx-delete_ind = 'X'.
wa_pritemx-pur_group = 'X'.
wa_pritemx-preq_name = 'X'.
wa_pritemx-short_text = 'X'.
wa_pritemx-material = 'X'.
wa_pritemx-material_external = 'X'.
wa_pritemx-material_guid = 'X'.
wa_pritemx-material_version = 'X'.
wa_pritemx-pur_mat = 'X'.
wa_pritemx-pur_mat_external = 'X'.
wa_pritemx-pur_mat_guid = 'X'.
wa_pritemx-pur_mat_version = 'X'.
wa_pritemx-plant = 'X'.
wa_pritemx-store_loc = 'X'.
wa_pritemx-trackingno = 'X'.
wa_pritemx-matl_group = 'X'.
wa_pritemx-suppl_plnt = 'X'.
wa_pritemx-quantity = 'X'.
wa_pritemx-unit = 'X'.
wa_pritemx-preq_unit_iso = 'X'.
wa_pritemx-preq_date = 'X'.
wa_pritemx-del_datcat_ext = 'X'.
wa_pritemx-deliv_date = 'X'.
wa_pritemx-rel_date = 'X'.
wa_pritemx-gr_pr_time = 'X'.
wa_pritemx-preq_price = 'X'.
wa_pritemx-price_unit = 'X'.
wa_pritemx-item_cat = 'X'.
wa_pritemx-acctasscat = 'X'.
wa_pritemx-distrib = 'X'.
wa_pritemx-part_inv = 'X'.
wa_pritemx-gr_ind = 'X'.
wa_pritemx-gr_non_val = 'X'.
wa_pritemx-ir_ind = 'X'.
wa_pritemx-des_vendor = 'X'.
wa_pritemx-fixed_vend = 'X'.
wa_pritemx-purch_org = 'X'.
wa_pritemx-agreement = 'X'.
wa_pritemx-agmt_item = 'X'.
wa_pritemx-info_rec = 'X'.
wa_pritemx-mrp_ctrler = 'X'.
wa_pritemx-bomexpl_no = 'X'.
wa_pritemx-val_type = 'X'.
wa_pritemx-commitment = 'X'.
wa_pritemx-closed = 'X'.
wa_pritemx-reserv_no = 'X'.
wa_pritemx-fixed = 'X'.
wa_pritemx-po_unit = 'X'.
wa_pritemx-po_unit_iso = 'X'.
wa_pritemx-rev_lev = 'X'.
wa_pritemx-pckg_no = 'X'.
wa_pritemx-kanban_ind = 'X'.
wa_pritemx-po_price = 'X'.
wa_pritemx-int_obj_no = 'X'.
wa_pritemx-promotion = 'X'.
wa_pritemx-batch = 'X'.
wa_pritemx-cmmt_item = 'X'.
wa_pritemx-funds_ctr = 'X'.
wa_pritemx-fund = 'X'.
wa_pritemx-matl_cat = 'X'.
wa_pritemx-address2 = 'X'.
wa_pritemx-address = 'X'.
wa_pritemx-customer = 'X'.
wa_pritemx-supp_vendor = 'X'.
wa_pritemx-sc_vendor = 'X'.
wa_pritemx-valuation_spec_stock = 'X'.
wa_pritemx-currency = 'X'.
wa_pritemx-currency_iso = 'X'.
wa_pritemx-vend_mat = 'X'.
wa_pritemx-manuf_prof = 'X'.
wa_pritemx-langu = 'X'.
wa_pritemx-langu_iso = 'X'.
wa_pritemx-validity_object = 'X'.
wa_pritemx-fw_order = 'X'.
wa_pritemx-fw_order_item = 'X'.
wa_pritemx-plnd_delry = 'X'.
wa_pritemx-deliv_time = 'X'.
wa_pritemx-ref_req = 'X'.
wa_pritemx-ref_req_item = 'X'.
wa_pritemx-grant_nbr = 'X'.
wa_pritemx-func_area = 'X'.
wa_pritemx-req_blocked = 'X'.
wa_pritemx-reason_blocking = 'X'.
wa_pritemx-version = 'X'.
wa_pritemx-procuring_plant = 'X'.
wa_pritemx-ext_proc_prof = 'X'.
wa_pritemx-ext_proc_ref_doc = 'X'.
wa_pritemx-ext_proc_ref_item = 'X'.
wa_pritemx-funds_res = 'X'.
wa_pritemx-res_item = 'X'.
wa_pritemx-suppl_stloc = 'X'.
wa_pritemx-prio_urgency = 'X'.
wa_pritemx-prio_requirement = 'X'.
APPEND wa_pritemx TO it_pritemx.


"Indicar que cambios son los que se deben ejecutar
wa_praccountx-preq_item = '00010'.
*wa_praccountx-SERIAL_NO = 'X'.
wa_praccountx-preq_itemx = 'X'.
wa_praccountx-serial_nox = 'X'.
wa_praccountx-delete_ind = 'X'.
wa_praccountx-creat_date = 'X'.
wa_praccountx-quantity = 'X'.
wa_praccountx-distr_perc = 'X'.
wa_praccountx-net_value = 'X'.
wa_praccountx-gl_account = 'X'.
wa_praccountx-bus_area = 'X'.
wa_praccountx-costcenter = 'X'.
wa_praccountx-sd_doc = 'X'.
wa_praccountx-itm_number = 'X'.
wa_praccountx-sched_line = 'X'.
wa_praccountx-asset_no = 'X'.
wa_praccountx-sub_number = 'X'.
wa_praccountx-orderid = 'X'.
wa_praccountx-gr_rcpt = 'X'.
wa_praccountx-unload_pt = 'X'.
wa_praccountx-co_area = 'X'.
*wa_praccountx-COSTOBJECTV = 'X'.
wa_praccountx-profit_ctr = 'X'.
wa_praccountx-wbs_element = 'X'.
wa_praccountx-network = 'X'.
wa_praccountx-rl_est_key = 'X'.
wa_praccountx-part_acct = 'X'.
wa_praccountx-cmmt_item = 'X'.
wa_praccountx-rec_ind = 'X'.
wa_praccountx-funds_ctr = 'X'.
wa_praccountx-fund = 'X'.
wa_praccountx-func_area = 'X'.
wa_praccountx-ref_date = 'X'.
wa_praccountx-tax_code = 'X'.
wa_praccountx-taxjurcode = 'X'.
wa_praccountx-nond_itax = 'X'.
wa_praccountx-acttype = 'X'.
wa_praccountx-co_busproc = 'X'.
wa_praccountx-res_doc = 'X'.
wa_praccountx-res_item = 'X'.
wa_praccountx-activity = 'X'.
wa_praccountx-grant_nbr = 'X'.
wa_praccountx-cmmt_item_long = 'X'.
wa_praccountx-func_area_long = 'X'.
APPEND wa_praccountx TO it_praccountx.

"Modif. field
LOOP AT it_account.
it_account-wbs_element = 'VIVES'.
MODIFY it_account.
ENDLOOP.

DATA lv_banfn TYPE bapimereqheader-preq_no VALUE '0100000268'.
CALL FUNCTION 'BAPI_PR_CHANGE'
EXPORTING
number = lv_banfn
* prheader =
* prheaderx =
* TESTRUN =
* IMPORTING
* PRHEADEREXP =
TABLES
return = it_change_return
pritem = it_pritem
pritemx = it_pritemx
praccount = it_account
praccountx = it_praccountx
.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
.

Alguien me puede horientar al respecto??
Gracias por la atencion