Skip to Content
0
Former Member
Jan 18, 2011 at 05:27 AM

Unable to update some fields of customized XD01 Transaction

45 Views

I am trying to update some of the customized fields of tcode xd01, but unable to do so.

Please help.

The code is given below:

CLEAR: addr_no,addr_grp.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kunnr

IMPORTING

output = v_kunnr.

SELECT SINGLE adrnr

FROM kna1

INTO addr_no

WHERE kunnr = v_kunnr.

SELECT SINGLE addr_group

FROM adrc

INTO addr_grp

WHERE addrnumber = addr_no.

gi_bapiad1vl-addr_group = addr_grp.

ztitle = wa_final_output-title.

CASE ztitle.

WHEN 'MS.'.

gi_bapiad1vl-title = '0001'.

WHEN 'MR.'.

gi_bapiad1vl-title = '0002'.

WHEN 'COMPANY'.

gi_bapiad1vl-title = '0003'.

WHEN 'MR and MRS'.

gi_bapiad1vl-title = '0004'.

WHEN 'DR.'.

gi_bapiad1vl-title = '0005'.

ENDCASE.

gi_bapiad1vl-name = wa_final_output-name1.

gi_bapiad1vl-name_2 = wa_final_output-name2.

gi_bapiad1vl-city = wa_final_output-ort01.

gi_bapiad1vl-po_box_reg = wa_final_output-regio.

gi_bapiad1vl-postl_cod1 = wa_final_output-pstlz.

gi_bapiad1vl-street = wa_final_output-stras.

gi_bapiad1vl-str_suppl1 = wa_final_output-str_suppl1.

gi_bapiad1vl-country = wa_final_output-land1.

gi_bapiad1vl-langu = 'EN'.

gi_bapiad1vl-sort1 = wa_final_output-sort1.

gi_bapiad1vl-sort2 = wa_final_output-sort2.

gi_bapiad1vl-transpzone = wa_final_output-lzone.

APPEND gi_bapiad1vl.

CLEAR gi_bapiad1vl.

objid = v_kunnr.

CALL FUNCTION 'BAPI_ADDRESSORG_SAVEREPLICA'

EXPORTING

obj_type = 'KNA1'

obj_id = objid

  • OBJ_ID_EXT = ' '

  • CONTEXT = '0001'

iv_check_address = 'X'

IMPORTING

return = return1

  • address_number = lv_addrnum

TABLES

bapiad1vl = gi_bapiad1vl

bapiadtel = gi_bapiadtel

bapiadfax = gi_bapiadfax

bapiadsmtp = gi_bapiadsmtp.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

ENDFORM.