Problema bapi_pr_change al modificar imputacion

[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

[agv1976]

Esto lo he echo yo, mira, que no se te olvide incluir la estructura paralela con las x, en el tipo de inputacion, yo que tu ejecutaria la bapi (no tu programa), en la se37, la bapi standard me refiero solo para que te cambie la imputacion, y luego lo implementas en tu codigo, porque el chorizo que has metido hay es dificil de ver porque te falla, no me acuerdo bien, pero en la estructura paralela con las x, hay algunos campos que le tienes que pasar el valor no la x, no se si era el serial_no pero van por ahi los tiros, no se si me he explicado bien

[vlg1971]

Llevabas razón, las marcas que hay que realizar en la estructura de imputacion son las siguientes;

MOVE 'X' TO it_praccountx-preq_itemx.
MOVE '01' TO it_praccountx-serial_no. "Yo antes pasaba X y eso era lo incorrecto
MOVE 'X' TO it_praccountx-quantity.
MOVE 'X' TO it_praccountx-wbs_element.
MOVE 'X' TO it_praccountx-gl_account.
MOVE 'X' TO it_praccountx-co_area.

Gracias por la atencion

[agv1976]

Nada a ti me alegro que te haya funcionado, es que yo hice lo mismo y me paso igual