sap 获取计划订单bapi_SAP, 用BAPI 实现销售订单修改_Cond_Value

*&---------------------------------------------------------------------*

*& Form FRM_CHANGE_SALESORDER

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gtP_LT_ITEM text

* --&gtP_LT_COND text

* --&gtP_LT_MSG text

* --&gtP_LS_HEAD text

* &lt--P_LV_EIND text

*----------------------------------------------------------------------*

FORM frm_change_salesorder TABLES tp_item STRUCTURE zrmxsds004

tp_cond STRUCTURE zrmxsds005

tp_message STRUCTURE zifsret01

USING up_head LIKE zrmxsds003

CHANGING cp_eind TYPE c.

DATA: ls_item LIKE zrmxsds004,

ls_cond LIKE zrmxsds005,

ls_msg LIKE zifsret01,

ls_vbep LIKE vbep.

DATA: wa_header TYPE bapisdh1, "表头

wa_headerx TYPE bapisdh1x, "表头标志

wa_partner TYPE bapiparnr, "业务伙伴

wa_partnerc TYPE bapiparnrc,

wa_item TYPE bapisditm, "行项目

wa_itemx TYPE bapisditmx,

wa_cond TYPE bapicond, "价格条件

wa_condx TYPE bapicondx,

wa_schdl TYPE bapischdl, "交付计划

wa_schdlx TYPE bapischdlx,

wa_return TYPE bapiret2,

wa_sdls TYPE bapisdls,

wa_text TYPE bapisdtext. "文本

DATA:

lt_partner TYPE STANDARD TABLE OF bapiparnr,

lt_partnerc TYPE STANDARD TABLE OF bapiparnrc,

lt_item TYPE STANDARD TABLE OF bapisditm,

lt_itemx TYPE STANDARD TABLE OF bapisditmx,

lt_schdl TYPE STANDARD TABLE OF bapischdl,

lt_schdlx TYPE STANDARD TABLE OF bapischdlx,

lt_cond TYPE STANDARD TABLE OF bapicond,

lt_condx TYPE STANDARD TABLE OF bapicondx,

lt_return TYPE STANDARD TABLE OF bapiret2,

lt_text LIKE STANDARD TABLE OF bapisdtext.

DATA: lt_sokey TYPE STANDARD TABLE OF zrmxsds015,

ls_sokey TYPE zrmxsds015.

*--------------------------------------------------------------------*

* Header

CLEAR: wa_header,wa_headerx.

IF up_head-updateflag = cns_update.

wa_header-pmnttrms = up_head-zterm. "付款条件

wa_headerx-pmnttrms = cns_yes.

wa_headerx-updateflag = cns_update. "Update

*--------------------------------------------------------------------*

* Header texts

*表头文本,若传输空值，则清空该字段

CLEAR: wa_text,lt_text[].

wa_text-itm_number = space.

wa_text-text_id = cns_textid.

wa_text-langu = sy-langu.

wa_text-format_col = '*'.

wa_text-text_line = up_head-tknum. "运输合同号

APPEND wa_text TO lt_text.

ENDIF.

*-----------------------------------------------------