谁可以帮我测试WSTN1_INFO_RECORD_BUILD调用

[Former Member]

谁可以帮我测试WSTN1_INFO_RECORD_BUILD调用，我的代码老提示出错：

REPORT ZIFCCREATE.

DATA: M_MSG LIKE SMESG,

ES_INFO TYPE WSTN_INFO_RECORDS.

DATA:BEGIN OF ITAB1 OCCURS 0.

INCLUDE STRUCTURE WSTN_PP_PURCH.

DATA:END OF ITAB1.

ITAB1-PPNR = '000000001030000147'." 预包装物料的物料编号

ITAB1-EKORG = '1000'." EKORG CHAR 4 0 采购组织

ITAB1-WERKS = '1000'." EWERK CHAR 4 0 工厂

ITAB1-LIFNR = '0000200016'."LIFNR CHAR 10 0 供应商或债权人的帐号

ITAB1-ACTUAL_PR = '11' ."WSTN_ACTUAL_PR CURR 11 2 当前预包装采购价格

ITAB1-CALC_PR = '12'."WSTN_CALC_PR CURR 11 2 计算的预包装采购价格1

ITAB1-OVR_PR = '13'." WSTN_OVR_PR CURR 11 2 覆盖预包装采购价格

ITAB1-WAERS = 'CNY'."WAERS CUKY 5 0 货币码

ITAB1-FRC_RECALC = '14'." WSTN_FRC_RECALC CHAR 1 0 更新预包装采购价格

append ITAB1.

call FUNCTION 'WSTN1_INFO_RECORD_BUILD'

EXPORTING

IV_REFERENCE = '000000001030000147' "MARA-MATNR

IV_MATERIAL = '000000001030000147' "MARA-MATNR

IT_PP_PURCH = ITAB1"L_INFOR "WSTN_PP_PURCH_TAB

IMPORTING

• ES_INFO_RECORDS = last_id "WSTN_INFO_RECORDS

ES_SMESG = M_MSG "SMESG

.

IF sy-subrc = 0.

WRITE /:'OK'.

ELSE.

WRITE /:'NO'.

ENDIF.

[Former Member · Accepted solution]

你的程序应该是直接dump掉的

你检查 ITAB1与IT_PP_PURCH 类型，是不一致导致的。

IV_REFERENCE这个参数可以不用的。

[Former Member · Accepted solution]

我用的就是这个函数的类型，以下也一样报错，也不知道为什么会不一样。

data:ITAB2 type WSTN_PP_PURCH_TAB."wstn_pp_purch_tab . "生成调用

data itab1 like itab2 WITH HEADER LINE.

ITAB1-PPNR = '000000001030000147'." 预包装物料的物料编号

ITAB1-EKORG = '1000'." EKORG CHAR 4 0 采购组织

ITAB1-WERKS = '1000'." EWERK CHAR 4 0 工厂

ITAB1-LIFNR = '0000200016'."LIFNR CHAR 10 0 供应商或债权人的帐号

ITAB1-ACTUAL_PR = '11' ."WSTN_ACTUAL_PR CURR 11 2 当前预包装采购价格

ITAB1-CALC_PR = '12'."WSTN_CALC_PR CURR 11 2 计算的预包装采购价格1

ITAB1-OVR_PR = '13'." WSTN_OVR_PR CURR 11 2 覆盖预包装采购价格

ITAB1-WAERS = 'CNY'."WAERS CUKY 5 0 货币码

ITAB1-FRC_RECALC = '14'." WSTN_FRC_RECALC CHAR 1 0 更新预包装采购价格

append ITAB1.

[Former Member · Accepted solution]

FRC_RECALC长度是1位

你的是2位

[Former Member · Accepted solution]

　已找到原因了，谢谢!