如果您要检查它，我们的代码就是这样，可以帮助我们解决问题。

在此先感谢。

SPAN { 字体家族：" Courier New"； 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 { 字体样式：斜体； 颜色：#808080; } .L0S32 { 颜色：#3399FF; } .L0S33 { 颜色：#4DA619; } .L0S52 { 颜色：#0000FF; } .L0S55 { 颜色：#800080; } .L0S70 { 颜色：#808080; }

报告zprueba_sust。

常量：c_prov（6）类型c值'C_PROV'。
常量：c_n_prov（8）类型c值'C_N_PROV'。

数据：ls_sustancia TYPE zsustancia_s，
lt_return bapiret2的类型表，
lt_return_c bapiret2的类型表，
lt_return_s bapiret2的类型表，
ls_return_t TYPE bapiret2，
lt_sub_header bapi1077rh的类型表，
ls_sub_header TYPE bapi1077rh，
lt_prop_data bapi1077pr的类型表，
lt_prop_data_bapi bapi1077pr的类型表，
lt_prop_data_bapi_create bapi1077pr的类型表，
lt_prop_datax bapisubprx的类型表，
ls_prop_datax TYPE bapisubprx，
ls_prop_data TYPE bapi1077pr，
ls_estva TYPE estva，
ls_estvh TYPE estvh，
lt_estmj带有标题行的estmj的标准表，
lt_eine带有标题行的eine类型标准表，
ls_eina TYPE eina，
lv_cont TYPE i，
lv_c TYPE i，
lt_prop_header bapi1077vh的类型标准表，
ls_prop_header TYPE bapi1077vh，
lt_prop_val bapi1077va的类型标准表，
ls_prop_val TYPE bapi1077va，
lt_ident_header bapi1077ri的类型标准表，
lt_ident_longtext bapi1077il的标准类型表，
lt_ident_sublist bapi1077rl的类型标准表，
lt_prop_usage bapi1077du的类型标准表，
lt_prop_component bapi1077vp的类型标准表，
ls_prop_component TYPE bapi1077vp，
lt_prop_componentx bapisubvpx的类型标准表，
ls_prop_componentx TYPE bapisubvpx，
lt_prop_ftext bapi1077df的类型标准表，
lt_prop_ftext_longtext bapi1077fl的标准类型表，
lt_prop_source bapi1077ds的类型标准表。

数据：lv_val1 TYPE命名空间。
数据：lv_val2 TYPE命名空间。
数据：lv_flag（1）TYPE c。
数据：ls_lfa1类型lfa1。
数据：lv_prov TYPE属性。
数据：lv_name TYPE atwrt。
数据：lv_tb TYPE sy-tabix。

数据：record_no_wa TYPE eserecn。
数据：l_estva_wa TYPE estva。

数据：lt_refsubs bapi1077rr的类型表，
ls_refsubs TYPE bapi1077rr。

刷新lt_sub_header。
ls_sub_header-substance ='000000100335'。
附加ls_sub_header至lt_sub_header。

*中产阶级联盟的中产阶级的洛杉机：
通话功能'Z_EHS_OBTAIN_EAN_TABLA'
表格
it_sub_header = lt_sub_header
prop_header = lt_prop_header
et_return = lt_return。

选择单身勇士
INTO ls_prop_data-name_char
来自zmaestro_valores
哪里programa = sy-repid
AND id = c_prov。
lv_val1 = ls_prop_data-name_char。
清除ls_prop_data。

选择单身勇士
INTO ls_prop_data-name_char
来自zmaestro_valores
哪里programa = sy-repid
AND ID = c_n_prov。
lv_val2 = ls_prop_data-name_char。
清除ls_prop_data。

读取表lt_prop_header并使用KEY subchacat ='ZSAP_EHS_1000_007A'进入ls_prop_header。
读取表lt_sub_header INTO ls_sub_header索引1。

ls_prop_val-function ='009'。
ls_prop_val-primarykey =1。
ls_prop_val-flgprimkey ='X'。
ls_prop_val-foreignkey = ls_prop_header-record_no。
ls_prop_val-flgfrgnkey =''。
ls_prop_val序列= 1.
APPEND ls_prop_val至lt_prop_val。

ls_prop_data-function ='009'。
ls_prop_data-primarykey =2。
ls_prop_data-flgprimkey ='X'。
ls_prop_data-foreignkey = ls_prop_val-primarykey。
ls_prop_data-flgfrgnkey = ls_prop_val-flgprimkey。
ls_prop_data-name_char = lv_val1。
ls_prop_data-char_value ='6'。
ls_prop_data-oper_inc =0。
附加ls_prop_data至lt_prop_data。

刷新lt_return。
通话功能'BAPI_BUS1077_CREATE'
出口
flg_prop_data ='X'
flg_prop_header ='X'
表格
return = lt_return
sub_header = lt_sub_header
prop_val = lt_prop_val
prop_data = lt_prop_data。

呼叫功能'BAPI_TRANSACTION_COMMIT'
出口
等待='X'
导入
return = ls_return_t。

通话功能'BAPI_BUS1077_SAVEFROMBUFFER'
出口
flg_luw_close_for_bapi ='X'
表格
return = lt_return_s。