Updating custom fields on VBAP OR VBAK using BAPI

fields on VBAP OR VBAK using BAPI"/>

Updating custom fields on VBAP OR VBAK using BAPI

转载自：

根据客制化字段不同的位置需要扩展如下类型：

更新抬头：VBAK, BAPE_VBAK, BAPE_VBAKX, VBAKKOZ and VBAKKOZX.

更新行项目：VBAP, BAPE_VBAP, BAPE_VBAPX, VBAPKOZ and VBAPKOZX.

1.Append one structure in BAPE_VBAK with the fields which need to be changed

1. field.. dataelement... datatype.. length
2. zz_disp .. zzdisp .. char .. 4

2 Append one structure in BAPE_VBAKX with the fields with one character fields.

1. field.. dataelement... datatype.. length
2. zz_disp .. char01... char.. 1

3.Append the same fields of the structure which was appended in the BAPE_VBAK to VBAKKOZ

1. field.. dataelement... datatype.. length
2. zz_disp .. zzdisp .. char .. 4

4.Append the same structure which was appended in the BAPE_VBAKX to VBAKKOZX.

1. field.. dataelement... datatype.. length
2. zz_disp .. char01... char.. 1

Now, check this program how to fill the EXTENSION parameter

Report ZTEST_NP.
parameters: p_vbeln like vbak-vbeln.start-of-selection.data: l_vbeln like BAPIVBELN-VBELN,l_inx   like BAPISDH1X.
data: it_ret like BAPIRET2 occurs 0 with header line,it_ext like BAPIPAREX occurs 0 with header line,is_hdr like BAPISDH1.l_inx-UPDATEFLAG = 'U'.
l_vbeln = p_vbeln.
* fill the table with values to be changed
it_ext-STRUCTURE = 'BAPE_VBAK'.      "Strcture with the fields
it_ext-VALUEPART1+0(10) = l_vbeln.
it_ext-valuepart1+11(4) = 'TEST'.          "<< My ZZ_DISP field
append it_ext.* mark the fields which you need to change
it_ext-STRUCTURE = 'BAPE_VBAKX'.     " Strcture with the flags
it_ext-VALUEPART1+0(10) = l_vbeln.
it_ext-VALUEPART1+10(1) = 'X'.
it_ext-VALUEPART1+11(1) = 'X'.
append it_ext.*it_ext-STRUCTURE = 'ZAVBAK'.     " Strcture with the flags
*it_ext-VALUEPART1+24(1) = 'T'.
*append it_ext.CALL FUNCTION 'BAPI_SALESORDER_CHANGE'EXPORTINGSALESDOCUMENT               = l_vbelnORDER_HEADER_INX            = l_inxTABLESRETURN                      = it_retEXTENSIONIN                 = it_ext.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT          = 'X'.