sap客户主数据bapi_SAP 各模块常用的BAPI

*&---------------------------------------------------------------------**& 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