*&---------------------------------------------------------------------**& Form FRM_CHANGE_SALESORDER*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->P_LT_ITEM text*-->P_LT_COND text*-->P_LT_MSG text*-->P_LS_HEAD text*
UPDATEFLAGS:
U = change flg值的三种不同意义
D = delete
I = add
FORM frm_change_salesorder TABLES tp_item STRUCTUREzrmxsds004
tp_condSTRUCTUREzrmxsds005
tp_messageSTRUCTUREzifsret01USING up_head LIKEzrmxsds003CHANGING cp_eind TYPEc.DATA: ls_item LIKEzrmxsds004,
ls_condLIKEzrmxsds005,
ls_msgLIKEzifsret01,
ls_vbepLIKEvbep.DATA: wa_header TYPE bapisdh1, "表头
wa_headerx TYPE bapisdh1x, "表头标志
wa_partnerTYPE bapiparnr, "业务伙伴
wa_partnerc TYPEbapiparnrc,
wa_itemTYPE bapisditm, "行项目
wa_itemx TYPEbapisditmx,
wa_condTYPE bapicond, "价格条件
wa_condx TYPEbapicondx,
wa_schdlTYPE bapischdl, "交付计划
wa_schdlx TYPEbapischdlx,
wa_returnTYPEbapiret2,
wa_sdlsTYPEbapisdls,
wa_textTYPE bapisdtext. "文本
DATA:
lt_partnerTYPE STANDARD TABLE OFbapiparnr,
lt_partnercTYPE STANDARD TABLE OFbapiparnrc,
lt_itemTYPE STANDARD TABLE OFbapisditm,
lt_itemxTYPE STANDARD TABLE OFbapisditmx,
lt_schdlTYPE STANDARD TABLE OFbapischdl,
lt_schdlxTYPE STANDARD TABLE OFbapischdlx,
lt_condTYPE STANDARD TABLE OFbapicond,
lt_condxTYPE STANDARD TABLE OFbapicondx,
lt_returnTYPE STANDARD TABLE OFbapiret2,
lt_textLIKE STANDARD TABLE OFbapisdtext.DATA: lt_sokey TYPE STANDARD TABLE OFzrmxsds015,
ls_sokeyTYPEzrmxsds015.*--------------------------------------------------------------------**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 TOlt_text.ENDIF.*--------------------------------------------------------------------**Partners
IF up_head-kunnr_re IS NOT INITIAL."收票方
CLEAR: wa_partnerc.
wa_partnerc-document = up_head-vbeln.
wa_partnerc-itm_number = '000000'.
wa_partnerc-updateflag =cns_update.
wa_partnerc-partn_role = 'RE'.
wa_partnerc-p_numb_new = up_head-kunnr_re.APPEND wa_partnerc TOlt_partnerc.ENDIF.IF up_head-kunnr_rg IS NOT INITIAL."付款方
CLEAR: wa_partnerc.
wa_partnerc-document = up_head-vbeln.
wa_partnerc-itm_number = '000000'.
wa_partnerc-updateflag =cns_update.
wa_partnerc-partn_role = 'RG'.
wa_partnerc-p_numb_new = up_head-kunnr_rg.APPEND wa_partnerc TOlt_partnerc.ENDIF.IF up_head-kunnr_we IS NOT INITIAL."送达方
CLEAR: wa_partnerc.
wa_partnerc-document = up_head-vbeln.
wa_partnerc-itm_number = '000000'.
wa_partnerc-updateflag =cns_update.
wa_partnerc-partn_role = 'WE'.
wa_partn