#1
|
|||
|
|||
Problema bapi_pr_change al modificar imputacion
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 |
#2
|
|||
|
|||
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
|
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Hola
Nada a ti me alegro que te haya funcionado, es que yo hice lo mismo y me paso igual
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|