T+产品考试试题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
T+产品考试试题
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩37页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢批量生成销售订单、退货订单
生成一般销售订单和退货订单所要使用的BAPI不同，
一般销售订单：
BAPI_SALESORDER_CREATEFROMDAT2
退货订单：
BAPI_CUSTOMERRETURN_CREATE
二者的参数基本一样。
以下为例：
& "&tables&for&bapi
DATA:&gt_order_header_in&&&LIKE&bapisdhd1.
DATA:&gt_order_header_inx&&LIKE&bapisdhd1x.
DATA:&gt_return&&&&&&&&&&&&LIKE&bapiret2&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_message&&&&&&&&&&&LIKE&TABLE&OF&bapiret2&WITH&HEADER&LINE.
DATA:&gt_order_items_in&&&&LIKE&bapisditm&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_order_items_inx&&&LIKE&bapisditmx&OCCURS&0&WITH&HEADER&LINE.
DATA:&gv_salesdocument&&&&&LIKE&bapivbeln-vbeln.
DATA:&gt_order_partners&&&&LIKE&bapiparnr&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_schedules_in&&&&&&LIKE&bapischdl&&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_schedules_inx&&&&&LIKE&bapischdlx&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_order_conditions_in&LIKE&&bapicond&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_order_conditions_inx&&LIKE&&bapicondx&OCCURS&0&WITH&HEADER&LINE.
DATA:&gt_order_text&LIKE&&bapisdtext&OCCURS&0&WITH&HEADER&LINE.
DATA:&gv_number&&&&&&&&&&&&TYPE&vbap-posnr.
"&internal&tables
TYPES:&BEGIN&OF&ty_sales_order,
&&numbr&&TYPE&i,&&&&&&&&&&"&序号
&&auart&&TYPE&vbak-auart,&"&订单类型
&&vkorg&&TYPE&vbak-vkorg,&"&销售组织
&&vtweg&&TYPE&vbak-vtweg,&"&分销渠道
&&spart&&TYPE&vbak-spart,&"&产品组
&&vkbur&&TYPE&vbak-vkbur,&"&销售办公室
&&vkgrp&&TYPE&vbak-vkgrp,&"&销售组
&&kunag&&TYPE&vbak-kunnr,&"&售达方
&&kunwe&&TYPE&vbak-kunnr,&"&送达方
&&kunre&&TYPE&vbak-kunnr,&"&收票方
&&kunrg&&TYPE&vbak-kunnr,&"&付款方
&&matnr&&TYPE&vbap-matnr,&"&物料编码
&&kwmeng&TYPE&vbap-kwmeng,"&订单数量
&&zieme&&TYPE&vbap-zieme,&"&订单单位
&&werks&&TYPE&vbap-werks,&"&生产工厂
&&lgort&&TYPE&vbap-lgort,&"&仓库
&&kschl&&TYPE&komv-kschl,&"&条件类型
&&cond_value&TYPE&bapicond-cond_value,&"&金额
&&bstkd&&TYPE&vbkd-bstkd,&"客户采购订单编号
&&charg&&TYPE&vbap-charg,&"批次
&&route&&TYPE&vbap-route,&"路线
&&END&OF&ty_sales_order.
TYPES:BEGIN&OF&ty_result,
&&numbr&&TYPE&i,&&&&&&&&&&"&序号
&&vbeln&&TYPE&vbak-vbeln,
&&message&TYPE&bapiret2-message,
&&bstkd&&TYPE&vbkd-bstkd,&"客户采购订单编号
&&END&OF&ty_result.
DATA:&gs_result&&&&&&&&&&TYPE&ty_result.
DATA:&gt_result&&&&&&&&&&TYPE&TABLE&OF&ty_result.
DATA:&gs_sales_order&&&&&TYPE&ty_sales_order.
DATA:&gt_sales_order&&&&&TYPE&TABLE&OF&ty_sales_order.
DATA:&gv_error_exit_flag&TYPE&flag.&"&whether&error&exit
DATA:&BEGIN&OF&gt_excel_result&OCCURS&0,
&&&&&&&&text&TYPE&string,
&&&&&&END&OF&gt_excel_result.
DATA:&gt_fcat&&&TYPE&lvc_t_fcat.
FIELD-SYMBOLS:
&&&&&&&TYPE&lvc_s_fcat.
SELECTION-SCREEN&BEGIN&OF&BLOCK&b1&WITH&FRAME&TITLE&text-000.
PARAMETERS&p_file&TYPE&&ibipparms-path&OBLIGATORY.
SELECTION-SCREEN&END&OF&BLOCK&b1.
PARAMETERS&p_th&AS&CHECKBOX.&"是否为退货订单
AT&SELECTION-SCREEN&ON&VALUE-REQUEST&FOR&p_file&.
&&CALL&FUNCTION&'WS_FILENAME_GET'
&&&&EXPORTING
&&&&&&def_filename&&&&&=&'*.xls'
&&&&&&def_path&&&&&&&&&=&'C:\'
&&&&&&mask&&&&&&&&&&&&&=&',*.xls.'
&&&&&&mode&&&&&&&&&&&&&=&'O'
&&&&&&title&&&&&&&&&&&&=&'Choose&Input&file'(002)
&&&&IMPORTING
&&&&&&filename&&&&&&&&&=&p_file
&&&&EXCEPTIONS
&&&&&&inv_winsys&&&&&&&=&1
&&&&&&no_batch&&&&&&&&&=&2
&&&&&&selection_cancel&=&3
&&&&&&selection_error&&=&4
&&&&&&OTHERS&&&&&&&&&&&=&5.
START-OF-SELECTION.
&&"&upload&excel
&&PERFORM&process_logic.
*&---------------------------------------------------------------------*
*&&&&&&&Form&&UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*&&&&&&&upload&excel
*----------------------------------------------------------------------*
*&&--&&&p1&&&&&&&&text
*&&&--&&p2&&&&&&&&text
*----------------------------------------------------------------------*
FORM&process_logic&.
&&DATA:&l_row&TYPE&i,
&&&&&&&&l_text&TYPE&string.
&&"&local&parameters
&&DATA:&lt_file&TYPE&STANDARD&TABLE&OF&alsmex_tabline.
&&DATA:&ls_file&TYPE&alsmex_tabline.
&&FIELD-SYMBOLS:&TYPE&ty_sales_order.
&&"&upload&excel&with&sales&order&information
&&CALL&FUNCTION&'ALSM_EXCEL_TO_INTERNAL_TABLE'
&&&&EXPORTING
&&&&&&filename&&&&&&&&&&&&&&&&=&p_file
&&&&&&i_begin_col&&&&&&&&&&&&&=&1
&&&&&&i_begin_row&&&&&&&&&&&&&=&2
&&&&&&i_end_col&&&&&&&&&&&&&&&=&37
&&&&&&i_end_row&&&&&&&&&&&&&&&=&60000
&&&&TABLES
&&&&&&intern&&&&&&&&&&&&&&&&&&=&lt_file
&&&&EXCEPTIONS
&&&&&&inconsistent_parameters&=&1
&&&&&&upload_ole&&&&&&&&&&&&&&=&2
&&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&3.
&&IF&sy-subrc&&&&0.
&&&&MESSAGE&text-t01&TYPE&'E'.
&&&&"&translate&data
&&&&LOOP&AT&lt_file&INTO&ls_file.
&&&&&&l_row&=&ls_file-row&+&1.
&&&&&&CASE&ls_file-col.
&&&&&&&&WHEN&'0001'.&"序号
&&&&&&&&&&gs_sales_order-numbr&=&ls_file-value.
&&&&&&&&WHEN&'0002'.&"&订单类型
&&&&&&&&&&gs_sales_order-auart&=&ls_file-value.
&&&&&&&&WHEN&'0003'.&"&销售组织
&&&&&&&&&&gs_sales_order-vkorg&=&ls_file-value.
&&&&&&&&WHEN&'0004'.&"&分销渠道
&&&&&&&&&&gs_sales_order-vtweg&=&ls_file-value.
&&&&&&&&WHEN&'0005'.&"&产品组
&&&&&&&&&&gs_sales_order-spart&=&ls_file-value.
&&&&&&&&WHEN&'0006'.&"&销售办公室
&&&&&&&&&&gs_sales_order-vkbur&=&ls_file-value.
&&&&&&&&WHEN&'0007'.&"&销售组
&&&&&&&&&&gs_sales_order-vkgrp&=&ls_file-value.
&&&&&&&&WHEN&'0008'.&"&售达方
&&&&&&&&&&gs_sales_order-kunag&=&ls_file-value.
&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_ALPHA_INPUT'
&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&input&&=&gs_sales_order-kunag
&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&output&=&gs_sales_order-kunag.
&&&&&&&&WHEN&'0009'.&"&送达方
&&&&&&&&&&gs_sales_order-kunwe&=&&&ls_file-value.
&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_ALPHA_INPUT'
&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&input&&=&gs_sales_order-kunwe
&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&output&=&gs_sales_order-kunwe.
&&&&&&&&WHEN&'0010'.&"&收票方
&&&&&&&&&&gs_sales_order-kunre&=&&&ls_file-value.
&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_ALPHA_INPUT'
&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&input&&=&gs_sales_order-kunre
&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&output&=&gs_sales_order-kunre.
&&&&&&&&WHEN&'0011'.&"&付款方
&&&&&&&&&&gs_sales_order-kunrg&=&&&ls_file-value.
&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_ALPHA_INPUT'
&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&input&&=&gs_sales_order-kunrg
&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&output&=&gs_sales_order-kunrg.
&&&&&&&&WHEN&'0012'.&"&物料编码
&&&&&&&&&&gs_sales_order-matnr&=&ls_file-value.
&&&&&&&&&&"&conversion
&&&&&&&&&&IF&gs_sales_order-matnr&IS&NOT&INITIAL.
&&&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_MATN1_INPUT'
&&&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&&&input&&=&gs_sales_order-matnr
&&&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&&&output&=&gs_sales_order-matnr.
&&&&&&&&&&ENDIF.
&&&&&&&&WHEN&'0013'.&"&订单数量
&&&&&&&&&&gs_sales_order-kwmeng&=&ls_file-value.
&&&&&&&&WHEN&'0014'.&"&订单单位
&&&&&&&&&&gs_sales_order-zieme&=&ls_file-value.
&&&&&&&&&&CALL&FUNCTION&'CONVERSION_EXIT_CUNIT_INPUT'
&&&&&&&&&&&&EXPORTING
&&&&&&&&&&&&&&input&&&&=&gs_sales_order-zieme
*&&&&&&&&&&&&&LANGUAGE&=&SY-LANGU
&&&&&&&&&&&&IMPORTING
&&&&&&&&&&&&&&output&&&=&gs_sales_order-zieme.
&&&&&&&&WHEN&'0015'.&"&工厂
&&&&&&&&&&gs_sales_order-werks&=&ls_file-value.
&&&&&&&&WHEN&'0016'.&"&仓库
&&&&&&&&&&gs_sales_order-lgort&=&ls_file-value.
&&&&&&&&WHEN&'0017'."&&条件类型
&&&&&&&&&&gs_sales_order-kschl&=&ls_file-value.
&&&&&&&&WHEN&'0018'."&&价格
&&&&&&&&&&gs_sales_order-cond_value&=&ls_file-value.
&&&&&&&&WHEN&'0019'."采购订单编号
&&&&&&&&&&gs_sales_order-bstkd&=&ls_file-value.
&&&&&&&&WHEN&'0020'."批次
&&&&&&&&&&gs_sales_order-charg&=&ls_file-value.
&&&&&&&&WHEN&'0021'."路线
&&&&&&&&&&gs_sales_order-route&=&ls_file-value.
&&&&&&&&WHEN&OTHERS.
&&&&&&ENDCASE.
&&&&&&AT&END&OF&row.
&&&&&&&&IF&gs_sales_order-numbr&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“序号”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-auart&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“订单类型”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-vkorg&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“销售组织”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-vtweg&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“分销渠道”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-spart&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“产品组”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-vkbur&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“销售办公室”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-matnr&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“物料编码”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-kwmeng&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“订单数量”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-zieme&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“订单单位”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-werks&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“工厂”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&IF&gs_sales_order-lgort&=&''.
&&&&&&&&&&l_text&=&l_row.
&&&&&&&&&&CONCATENATE&'第'&l_text&'行“库存地”不能为空。'&INTO&l_text.
&&&&&&&&&&gt_excel_result-text&=&l_text.
&&&&&&&&&&APPEND&gt_excel_result.
&&&&&&&&ENDIF.
&&&&&&&&APPEND&gs_sales_order&TO&gt_sales_order.
&&&&&&&&CLEAR&gs_sales_order.
&&&&&&ENDAT.
&&&&ENDLOOP.
&&&&IF&gt_excel_result[]&IS&NOT&INITIAL.
&&&&&&LOOP&AT&gt_excel_result.
&&&&&&&&WRITE:/&gt_excel_result-text.
&&&&&&ENDLOOP.
&&&&&&SORT&&gt_sales_order&BY&numbr
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&auart&"&订单类型
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&vkorg&"&销售组织
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&vtweg&"&分销渠道
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&spart&"&产品组
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&vkbur&"&销售办公室
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&vkgrp&"&销售组
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&kunag&"&售达方
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&kunwe&"&送达方
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&kunre&"&收票方
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&kunrg.&"&付款方
&&&&&&"&build&records&and&calling&bapi
&&&&&&LOOP&AT&gt_sales_order&ASSIGNING&.
&&&&&&&&gv_number&=&gv_number&+&10.
&&&&&&&&"&build&records
&&&&&&&&PERFORM&build_records_4_bapi&USING&.
&&&&&&&&"&one&order&with&serval&items
&&&&&&&&AT&END&OF&numbr.
&&&&&&&&&&"&build&header
&&&&&&&&&&PERFORM&build_header_4_bapi&USING&.
&&&&&&&&&&"&call&bapi&to&upload&sales&order
&&&&&&&&&&PERFORM&upload_sales_order_with_bapi&&USING&.
&&&&&&&&&&CLEAR&gv_number.
&&&&&&&&ENDAT.
&&&&&&ENDLOOP.
&&&&&&"&if&no&error&exist&,&raise&report
&&&&&&IF&gv_error_exit_flag&IS&INITIAL&AND&gt_result&IS&NOT&INITIAL.
&&&&&&&&CALL&FUNCTION&'BAPI_TRANSACTION_COMMIT'
&&&&&&&&&&EXPORTING
&&&&&&&&&&&&wait&=&'X'.
&&&&&&&&PERFORM&frm_show_detail.
&&&&&&ELSEIF&gv_error_exit_flag&IS&NOT&INITIAL.
&&&&&&&&CALL&FUNCTION&'BAPI_TRANSACTION_ROLLBACK'&.
&&&&&&&&PERFORM&frm_pop_showmessage&USING&'E'.
&&&&&&ENDIF.
&&&&ENDIF.
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*&&&&&&&Form&&BUILD_RECORDS_4_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&build&records&for&calling&bapi
*----------------------------------------------------------------------*
*&&&&&&--&P_GS_SALES_ORDER&&text
*----------------------------------------------------------------------*
FORM&build_records_4_bapi&&USING&&&&ps_sales_order&TYPE&ty_sales_order.
&&"&item&data
&&CLEAR&gt_order_items_in.
&&gt_order_items_in-itm_number&&&=&gv_number.
&&gt_order_items_in-material&&&&&=&ps_sales_order-matnr.
&&gt_order_items_in-plant&&&&&&&&=&ps_sales_order-werks.
&&gt_order_items_in-store_loc&&&&=&ps_sales_order-lgort.
&&gt_order_items_in-target_qty&&&=&ps_sales_order-kwmeng.
&&gt_order_items_in-target_qu&&&&=&ps_sales_order-zieme.
&&gt_order_items_in-sales_unit&&&=&ps_sales_order-zieme.
&&gt_order_items_in-batch&&&&&&&&=&ps_sales_order-charg.
&&gt_order_items_in-route&&&&&&&&=&ps_sales_order-route.
&&APPEND&gt_order_items_in.
&&CLEAR&gt_order_items_inx.
&&gt_order_items_inx-updateflag&&&=&'1'.
&&gt_order_items_inx-material&&&&&=&abap_true.
&&gt_order_items_inx-plant&&&&&&&&=&abap_true.
&&gt_order_items_inx-store_loc&&&&=&abap_true.
&&gt_order_items_inx-target_qty&&&=&abap_true.
&&gt_order_items_inx-target_qu&&&&=&abap_true.
&&gt_order_items_inx-sales_unit&&&=&abap_true.
&&gt_order_items_inx-batch&&&&&&&&=&abap_true.
&&gt_order_items_inx-route&&&&&&&&=&abap_true.
&&APPEND&gt_order_items_inx.
&&"&fill&schedules
&&CLEAR&gt_schedules_in.
&&gt_schedules_in-itm_number&&&&&&=&gv_number.
&&gt_schedules_in-req_qty&&&&&&&&&=&ps_sales_order-kwmeng.
&&APPEND&gt_schedules_in.
&&CLEAR&gt_schedules_inx.
&&gt_schedules_inx-updateflag&&&&&&=&'X'.
&&gt_schedules_inx-itm_number&&&&&&=&abap_true.
&&gt_schedules_inx-req_qty&&&&&&&&&=&abap_true.
&&APPEND&gt_schedules_inx.
&&CLEAR&gt_order_conditions_in.
&&CLEAR&gt_order_conditions_inx.
&&IF&ps_sales_order-kschl&&&&''.
&&&&gt_order_conditions_in-itm_number&=&gv_number.
&&&&gt_order_conditions_in-cond_type&&=&ps_sales_order-kschl.&&"定价条件
&&&&gt_order_conditions_in-cond_value&=&ps_sales_order-cond_value.&&"价格
&&&&gt_order_conditions_in-currency&&&=&'CNY'.&&"币别
&&&&APPEND&gt_order_conditions_in.
&&&&gt_order_conditions_inx-updateflag&&&&&&=&'X'.
&&&&gt_order_conditions_inx-cond_type&&=&abap_true.&&"定价条件
&&&&gt_order_conditions_inx-cond_value&=&abap_true.&&"价格
&&&&gt_order_conditions_inx-currency&&&=&abap_true.&&"币别
&&&&APPEND&gt_order_conditions_inx.
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&BUILD_RECORDS_4_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&Form&&UPLOAD_SALES_ORDER_WITH_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&calling&bapi
*----------------------------------------------------------------------*
*&&--&&&p1&&&&&&&&text
*&&&--&&p2&&&&&&&&text
*----------------------------------------------------------------------*
FORM&upload_sales_order_with_bapi&USING&ps_sales_order&TYPE&ty_sales_order&.
&&CLEAR:&gt_return,
&&&&&&&&&gt_return[],
&&&&&&&&&gv_salesdocument.
&&IF&p_th&IS&INITIAL.
&&&&CALL&FUNCTION&'BAPI_SALESORDER_CREATEFROMDAT2'
&&&&&&EXPORTING
&&&&&&&&order_header_in&&&&&&=&gt_order_header_in
&&&&&&&&order_header_inx&&&&&=&gt_order_header_inx
&&&&&&IMPORTING
&&&&&&&&salesdocument&&&&&&&&=&gv_salesdocument
&&&&&&TABLES
&&&&&&&&return&&&&&&&&&&&&&&&=&gt_return
&&&&&&&&order_items_in&&&&&&&=&gt_order_items_in
&&&&&&&&order_items_inx&&&&&&=&gt_order_items_inx
&&&&&&&&order_partners&&&&&&&=&gt_order_partners
&&&&&&&&order_schedules_in&&&=&gt_schedules_in
&&&&&&&&order_schedules_inx&&=&gt_schedules_inx
&&&&&&&&order_conditions_in&&=&gt_order_conditions_in
&&&&&&&&order_conditions_inx&=&gt_order_conditions_inx.
&&&&CALL&FUNCTION&'BAPI_CUSTOMERRETURN_CREATE'
&&&&&&EXPORTING
&&&&&&&&RETURN_HEADER_IN&&&&&&=&gt_order_header_in
&&&&&&&&RETURN_HEADER_INX&&&&&=&gt_order_header_inx
&&&&&&IMPORTING
&&&&&&&&SALESDOCUMENT&&&&&&&&=&gv_salesdocument
&&&&&&TABLES
&&&&&&&&return&&&&&&&&&&&&&&&=&gt_return
&&&&&&&&RETURN_ITEMS_IN&&&&&&&=&gt_order_items_in
&&&&&&&&RETURN_ITEMS_INX&&&&&&=&gt_order_items_inx
&&&&&&&&RETURN_PARTNERS&&&&&&&=&gt_order_partners
&&&&&&&&RETURN_SCHEDULES_IN&&&=&gt_schedules_in
&&&&&&&&RETURN_SCHEDULES_INX&&=&gt_schedules_inx
&&&&&&&&RETURN_CONDITIONS_IN&&=&gt_order_conditions_in.
&&READ&TABLE&gt_return&WITH&KEY&type&=&'E'.
&&IF&sy-subrc&=&0.
&&&&LOOP&AT&gt_return&WHERE&&type&=&'E'.
&&&&&&gt_message&=&gt_return.
&&&&&&gt_message-message_v4&=&ps_sales_order-numbr.
&&&&&&APPEND&gt_message.
&&&&ENDLOOP.
&&&&gv_error_exit_flag&=&abap_true.
&&&&IF&gv_salesdocument&IS&NOT&INITIAL.
&&&&&&CLEAR&gs_result.
&&&&&&gs_result-numbr&=&ps_sales_order-numbr.
&&&&&&gs_result-vbeln&=&gv_salesdocument.
&&&&&&gs_result-bstkd&=&ps_sales_order-bstkd.
&&&&&&CONCATENATE&'销售订单'&gs_result-vbeln&'创建成功'&INTO&gs_result-message.
&&&&&&APPEND&gs_result&TO&gt_result.
&&&&ENDIF.
&&"&refresh
&&PERFORM&refresh.
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&UPLOAD_SALES_ORDER_WITH_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&Form&&BUILD_HEADER_4_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&text
*----------------------------------------------------------------------*
*&&&&&&--&P_GS_SALES_ORDER&&text
*----------------------------------------------------------------------*
FORM&build_header_4_bapi&&USING&&&&ps_sales_order&TYPE&ty_sales_order.
&&"&build&header&data
&&CLEAR&gt_order_header_in.
&&gt_order_header_in-doc_type&&&=&ps_sales_order-auart.
&&gt_order_header_in-sales_org&&=&ps_sales_order-vkorg.
&&gt_order_header_in-distr_chan&=&ps_sales_order-vtweg.
&&gt_order_header_in-division&&&=&ps_sales_order-spart.
&&gt_order_header_in-sales_off&&=&ps_sales_order-vkbur.
&&gt_order_header_in-sales_grp&&=&ps_sales_order-vkgrp.
&&IF&ps_sales_order-bstkd&IS&NOT&INITIAL.
&&&&gt_order_header_in-purch_no_c&&=&ps_sales_order-bstkd.
&&&&gt_order_header_inx-purch_no_c&=&abap_true.
&&&&gt_order_header_in-purch_no_s&&=&ps_sales_order-bstkd.
&&&&gt_order_header_inx-purch_no_s&=&abap_true.
&&CLEAR&gt_order_header_inx.
&&gt_order_header_inx-doc_type&&&=&abap_true.
&&gt_order_header_inx-sales_org&&=&abap_true.
&&gt_order_header_inx-distr_chan&=&abap_true.
&&gt_order_header_inx-division&&&=&abap_true.
&&gt_order_header_inx-sales_off&&=&abap_true.
&&gt_order_header_inx-sales_grp&&=&abap_true.
&&gt_order_header_inx-updateflag&=&'1'.
&&IF&ps_sales_order-bstkd&IS&NOT&INITIAL.
&&&&gt_order_header_inx-purch_no_c&=&abap_true.
&&&&gt_order_header_inx-purch_no_s&=&abap_true.
&&"&partner&function
&&CLEAR&gt_order_partners.
&&gt_order_partners-partn_role&&&=&'AG'.
&&gt_order_partners-partn_numb&&&=&ps_sales_order-kunag.
&&APPEND&gt_order_partners.
&&CLEAR&gt_order_partners.
&&gt_order_partners-partn_role&&&=&'WE'.
&&gt_order_partners-partn_numb&&&=&ps_sales_order-kunwe.
&&APPEND&gt_order_partners.
&&CLEAR&gt_order_partners.
&&gt_order_partners-partn_role&&&=&'RE'.
&&gt_order_partners-partn_numb&&&=&ps_sales_order-kunre.
&&APPEND&gt_order_partners.
&&CLEAR&gt_order_partners.
&&gt_order_partners-partn_role&&&=&'RG'.
&&gt_order_partners-partn_numb&&&=&ps_sales_order-kunrg.
&&APPEND&gt_order_partners.
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&BUILD_HEADER_4_BAPI
*&---------------------------------------------------------------------*
*&&&&&&&Form&&REFRESH
*&---------------------------------------------------------------------*
*&&&&&&&text
*----------------------------------------------------------------------*
*&&--&&&p1&&&&&&&&text
*&&&--&&p2&&&&&&&&text
*----------------------------------------------------------------------*
FORM&refresh&.
&&&&&&&&gt_order_header_in,
&&&&&&&&gt_order_header_inx,
&&&&&&&&gv_salesdocument,
&&&&&&&&gt_return,
&&&&&&&&gt_return[],
&&&&&&&&gt_order_items_in,
&&&&&&&&gt_order_items_in[],
&&&&&&&&gt_order_items_inx,
&&&&&&&&gt_order_items_inx[],
&&&&&&&&gt_order_partners,
&&&&&&&&gt_order_partners[],
&&&&&&&&gt_schedules_in,
&&&&&&&&gt_schedules_in[],
&&&&&&&&gt_schedules_inx,
&&&&&&&&gt_schedules_inx[],
&&&&&&&&gt_order_conditions_in,
&&&&&&&&gt_order_conditions_in[],
&&&&&&&&gt_order_conditions_inx,
&&&&&&&&gt_order_conditions_inx[].
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&REFRESH
*&---------------------------------------------------------------------*
*&&&&&&&Form&&FRM_SHOW_DETAIL
*&---------------------------------------------------------------------*
*&&&&&&&text
*----------------------------------------------------------------------*
*&&--&&&p1&&&&&&&&text
*&&&--&&p2&&&&&&&&text
*----------------------------------------------------------------------*
FORM&frm_show_detail&.
&&APPEND&INITIAL&LINE&TO&gt_fcat&ASSIGNING&.
&&-fieldname&=&'NUMBR'.
&&-coltext&&&=&'序号'.
&&APPEND&INITIAL&LINE&TO&gt_fcat&ASSIGNING&.
&&-fieldname&=&'VBELN'.
&&-coltext&&&=&'订单号'.
&&APPEND&INITIAL&LINE&TO&gt_fcat&ASSIGNING&.
&&-fieldname&=&'MESSAGE'.
&&-coltext&&&=&'消息'.
&&APPEND&INITIAL&LINE&TO&gt_fcat&ASSIGNING&.
&&-fieldname&=&'BSTKD'.
&&-coltext&&&=&'采购订单号'.
&&CALL&FUNCTION&'REUSE_ALV_GRID_DISPLAY_LVC'
&&it_fieldcat_lvc&&&&&&&&&&&&&&&&&&&=&gt_fcat
&&&&t_outtab&&&&&&&&&&&&&&&&&&&&&&&&&&=&gt_result
&&&&&&&&&&.
&&IF&sy-subrc&&&&0.
*&Implement&suitable&error&handling&here
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&FRM_SHOW_DETAIL
*&---------------------------------------------------------------------*
*&&&&&&&Form&&FRM_POP_SHOWMESSAGE
*&---------------------------------------------------------------------*
*&&&&&&&text
*----------------------------------------------------------------------*
*&&&&&&--&P_0899&&&text
*----------------------------------------------------------------------*
FORM&frm_pop_showmessage&&USING&&&&p_type&TYPE&bapi_mtype.
&&CALL&FUNCTION&'MESSAGES_INITIALIZE'.&&"&Chung&消息处理
&&LOOP&AT&gt_message
&&&&WHERE&type&=&p_type.
&&&&CONDENSE&gt_message-message_v4.
&&&&CALL&FUNCTION&'MESSAGE_STORE'
&&&&&&EXPORTING
&&&&&&&&arbgb&&&&&&&&&&&&&&&&&&&=&gt_message-id
&&&&&&&&exception_if_not_active&=&'&'
&&&&&&&&msgty&&&&&&&&&&&&&&&&&&&=&gt_message-type
&&&&&&&&msgv1&&&&&&&&&&&&&&&&&&&=&gt_message-message_v1
&&&&&&&&msgv2&&&&&&&&&&&&&&&&&&&=&gt_message-message_v2
&&&&&&&&msgv3&&&&&&&&&&&&&&&&&&&=&gt_message-message_v3
*&&&&&&&msgv4&&&&&&&&&&&&&&&&&&&=&gt_message-message_v4
&&&&&&&&txtnr&&&&&&&&&&&&&&&&&&&=&gt_message-number
&&&&&&&&zeile&&&&&&&&&&&&&&&&&&&=&gt_message-message_v4
&&&&&&EXCEPTIONS
&&&&&&&&message_type_not_valid&&=&1
&&&&&&&&not_active&&&&&&&&&&&&&&=&2
&&&&&&&&OTHERS&&&&&&&&&&&&&&&&&&=&3.
&&ENDLOOP.
&&CALL&FUNCTION&'MESSAGES_SHOW'
&&&&EXCEPTIONS
&&&&&&inconsistent_range&=&1
&&&&&&no_messages&&&&&&&&=&2
&&&&&&OTHERS&&&&&&&&&&&&&=&3.
ENDFORM.&&&&&&&&&&&&&&&&&&&&"&FRM_POP_SHOWMESSAGE
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}