SAP EWM开发实战基于ABAP OO类实现内向交货单自动化创建1. 理解内向交货单创建的技术背景在SAP扩展仓库管理(EWM)系统中内向交货单(Inbound Delivery)是管理入库流程的核心凭证。与传统的SAP ERP系统不同EWM模块在设计上采用了更加灵活的面向对象架构这导致标准BAPI接口的缺失成为开发人员经常面临的挑战。为什么没有标准BAPI这主要源于EWM的架构设计理念服务提供者(Service Provider)模式取代了传统的函数模块调用业务逻辑被封装在/SCWM/CL_SP_PRD_INB等OO类中事务码/N/SCWM/PRDI的前台操作实际上也是调用这些底层类我曾在一个跨国零售项目中遇到这样的场景客户需要实现供应商ASN(Advanced Shipping Notice)的自动对接但发现EWM缺少像ERP中BAPI_INB_DELIVERY_CREATE这样的标准接口。经过深入研究SAP NOTE 1414179我们找到了基于服务提供者类的解决方案。2. 开发环境准备与类结构分析2.1 关键类与接口实现自动化创建需要理解以下核心对象类/接口作用重要方法/SCWM/CL_SP_PRD_INBUI服务提供者insert(),update(),save()/SCDL/CL_SP_PRD_INB交付服务提供者before_save(),cleanup()/SCWM/IF_SP_C常量接口定义aspect和relation常量/SCWM/CL_DLV_HANDLER_ADAPTER适配器处理器处理属性和消息2.2 初始化设置DATA: lo_sp_inb TYPE REF TO /scwm/cl_sp_prd_inb, lo_adapter TYPE REF TO /scwm/cl_dlv_handler_adapter. 实例化服务提供者 TRY. CREATE OBJECT lo_adapter. CREATE OBJECT lo_sp_inb EXPORTING iv_mode /scdl/cl_spsc_mode_classic io_attribute_handler lo_adapter io_message_handler lo_adapter. CATCH cx_root INTO DATA(lx_error). 错误处理逻辑 ENDTRY.提示sc_mode_classic表示使用经典模式这是与前台事务码保持一致的关键设置3. 分步实现交货单创建3.1 设置仓库基础参数在创建任何数据前必须正确初始化仓库参数 设置仓库编号强制要求 /scwm/cl_tmset_lgnum( iv_lgnum ). 配置默认值 DATA(ls_default) VALUE /scmb/s_default_values( v_identifier /SCWM/PRDI v_values_structure /SCWM/S_SP_DEFAULT t_details VALUE #( ( v_fieldname LGNUM v_mandatory abap_true ) ( v_fieldname RECEIVING_OFFICE v_memoryid /SCMB/SCU_RO ) ( v_fieldname ENTITLED v_memoryid /SCWM/ENTITLED ) ) ). 设置参数ID SET PARAMETER ID /SCWM/LGN FIELD iv_lgnum. SET PARAMETER ID /SCMB/SCU_RO FIELD iv_receiving_office.3.2 创建交货单抬头抬头数据是交货单的基础框架需要特别注意DATA: lt_head_prdi TYPE /scwm/t_sp_a_head_prdi, ls_head_prdi TYPE /scwm/s_sp_a_head_prdi. ls_head_prdi VALUE #( doctype iv_doctype 如Y1表示标准内向交货 doccat iv_doccat 如INB表示入库 ). APPEND ls_head_prdi TO lt_head_prdi. 调用insert方法 DATA(lv_aspect) /scwm/if_sp_csc_asp_head. CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_head_prdi aspect lv_aspect IMPORTING outrecords DATA(lt_head_out) rejected DATA(lv_rejected) return_codes DATA(lt_ret_codes). 错误处理 IF lv_rejected abap_true OR line_exists( lt_ret_codes[ failed abap_true ] ). 详细错误处理逻辑 RETURN. ENDIF. 获取生成的docid DATA(lv_docid) lt_head_out[ 1 ]-docid.3.3 添加合作伙伴数据合作伙伴信息包括供应商、承运商等角色DATA: lt_partners TYPE /scwm/t_sp_a_head_party, ls_partner TYPE /scwm/s_sp_a_head_party. LOOP AT it_head_party INTO DATA(ls_input_partner). ls_partner VALUE #( party_role ls_input_partner-party_role 如Vendor partyno ls_input_partner-partyno 供应商编号 ). APPEND ls_partner TO lt_partners. ENDLOOP. 设置关系参数 DATA(lv_rel_head_party) /scwm/if_sp_csc_rel_head_to_party. CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_partners aspect /scwm/if_sp_csc_asp_head_party relation lv_rel_head_party relation_inkey VALUE #( docid lv_docid ) IMPORTING rejected lv_rejected return_codes lt_ret_codes.3.4 处理参考凭证参考凭证是EWM中特别重要的概念常见类型包括ERP关联ERP系统的采购订单ASN供应商预先发货通知BOL提单号 添加ERP参考凭证 DATA(lt_refdoc) VALUE /scwm/t_sp_a_head_refdoc( ( refdoccat ERP refdocno iv_po_number date sy-datum time sy-uzeit ) ). CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_refdoc aspect /scwm/if_sp_csc_asp_head_refdoc relation /scdl/if_sp_csc_rel_head_to_refdoc relation_inkey VALUE #( docid lv_docid ) IMPORTING rejected lv_rejected. ASN凭证必须存在业务规则 IF lv_rejected abap_false. 复制ERP参考作为ASN基础 lt_refdoc[ 1 ]-refdoccat ASN. CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_refdoc aspect /scwm/if_sp_csc_asp_head_refdoc. ENDIF.4. 行项目处理实战技巧4.1 创建初始行项目DATA: lt_items TYPE /scwm/t_sp_a_item_prdi, ls_item TYPE /scwm/s_sp_a_item_prdi. 根据输入参数创建初始行 DO lines( it_item ) TIMES. ls_item VALUE #( itemtype iv_itemtype manual_header X 手动创建标志 doccat iv_doccat doctype iv_doctype ). APPEND ls_item TO lt_items. ENDDO. 插入行项目 CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_items aspect /scwm/if_sp_csc_asp_item relation /scdl/if_sp_csc_rel_head_to_item relation_inkey VALUE #( docid lv_docid ) IMPORTING outrecords DATA(lt_items_out).4.2 完善行项目细节 更新物料、数量等关键信息 LOOP AT lt_items_out ASSIGNING FIELD-SYMBOL(fs_item). READ TABLE it_item INTO DATA(ls_input_item) INDEX sy-tabix. IF sy-subrc 0. fs_item-productno ls_input_item-productno. fs_item-qty ls_input_item-qty. fs_item-uom ls_input_item-uom. fs_item-/scwm/gmbin ls_input_item-/scwm/gmbin. 存储位置 fs_item-stock_category ls_input_item-stock_category. ENDIF. ENDLOOP. 执行更新 CALL METHOD lo_sp_inb-update EXPORTING inrecords lt_items_out aspect /scwm/if_sp_csc_asp_item.5. 保存与错误处理最佳实践5.1 保存前校验CALL METHOD lo_sp_inb-before_save IMPORTING rejected lv_rejected. IF lv_rejected abap_true. 获取具体错误消息 DATA(lt_messages) lo_adapter-mo_msg_handler-get_messages( ). 自定义错误处理逻辑 RETURN. ENDIF.5.2 最终保存逻辑CALL METHOD lo_sp_inb-save EXPORTING synchronously abap_true 同步保存 IMPORTING rejected lv_rejected. IF lv_rejected abap_true. ROLLBACK WORK. 错误处理 ELSE. COMMIT WORK AND WAIT. 获取生成的交货单号 SELECT SINGLE docno FROM /scdl/db_proci_h INTO ev_docno WHERE docid lv_docid. ENDIF.5.3 资源清理CALL METHOD lo_sp_inb-cleanup EXPORTING reason /scmb/if_sp_transactionsc_cleanup_commit.6. 高级应用场景6.1 与ERP采购订单集成 将ERP PO号与行项目关联 DATA: lt_item_refdoc TYPE /scwm/t_sp_a_item_refdoc, ls_item_refdoc TYPE /scwm/s_sp_a_item_refdoc. LOOP AT lt_items_out INTO DATA(ls_item_out). ls_item_refdoc VALUE #( docid ls_item_out-docid itemid ls_item_out-itemid refdoccat ERP refdocno iv_po_number refitemno ls_item_out-itemno ). APPEND ls_item_refdoc TO lt_item_refdoc. ENDLOOP. CALL METHOD lo_sp_inb-insert EXPORTING inrecords lt_item_refdoc aspect /scwm/if_sp_csc_asp_item_refdoc.6.2 批量创建性能优化对于大批量处理建议使用COMMIT WORK分组提交每50-100条禁用非必要的前台校验并行处理独立单据 示例批量参数设置 /scmb/cl_baseset_process_data( io_service_provider lo_sp_inb iv_disable_standard_save abap_true 禁用标准保存检查 ).7. 调试与问题排查7.1 常见错误代码错误类型可能原因解决方案M7 120缺少必要字段检查所有mandatory字段M7 335参考凭证缺失确保至少一个ERP或ASN参考M7 668存储类型无效检查/scwm/gmbin配置7.2 调试技巧在/SCWM/CL_SP_PRD_INB的方法设置断点使用事务码/SCDL/MON监控处理队列检查/SCDL/DB_PROCI*相关表的数据一致性 在代码中添加调试输出 DATA(lt_messages) lo_adapter-mo_msg_handler-get_messages( ). LOOP AT lt_messages INTO DATA(ls_msg). WRITE: / ls_msg-msgty, ls_msg-msgid, ls_msg-msgno. ENDLOOP.8. 完整函数模块示例FUNCTION zewm_create_inb_delivery. *---------------------------------------------------------------------- **本地接口 * IMPORTING * VALUE(IV_LGNUM) TYPE /SCWM/LGNUM * VALUE(IV_PO_NUMBER) TYPE EBELN * EXPORTING * VALUE(EV_DELIVERY_NO) TYPE /SCDL/DL_DOCNO * VALUE(EV_SUCCESS) TYPE ABAP_BOOL *---------------------------------------------------------------------- DATA: lo_sp_inb TYPE REF TO /scwm/cl_sp_prd_inb, lo_adapter TYPE REF TO /scwm/cl_dlv_handler_adapter, lv_docid TYPE /scdl/dl_docid, lv_rejected TYPE boole_d. 初始化服务提供者 TRY. CREATE OBJECT lo_adapter. CREATE OBJECT lo_sp_inb EXPORTING iv_mode /scdl/cl_spsc_mode_classic io_attribute_handler lo_adapter io_message_handler lo_adapter. 设置仓库参数 /scwm/cl_tmset_lgnum( iv_lgnum ). 创建交货单抬头 DATA(lt_head) VALUE /scwm/t_sp_a_head_prdi( ( doctype Y1 doccat INB ) ). lo_sp_inb-insert( EXPORTING inrecords lt_head IMPORTING outrecords DATA(lt_head_out) ). lv_docid lt_head_out[ 1 ]-docid. 添加参考凭证 DATA(lt_refdoc) VALUE /scwm/t_sp_a_head_refdoc( ( refdoccat ERP refdocno iv_po_number ) ). lo_sp_inb-insert( inrecords lt_refdoc ). 创建行项目 DATA(lt_items) VALUE /scwm/t_sp_a_item_prdi( ( itemtype Y1 manual_header X ) ). lo_sp_inb-insert( EXPORTING inrecords lt_items IMPORTING outrecords DATA(lt_items_out) ). 更新行项目详情 lt_items_out[ 1 ]-productno MAT-001. lt_items_out[ 1 ]-qty 10. lo_sp_inb-update( inrecords lt_items_out ). 最终保存 lo_sp_inb-save( IMPORTING rejected lv_rejected ). IF lv_rejected abap_false. COMMIT WORK AND WAIT. ev_success abap_true. 获取交货单号 SELECT SINGLE docno INTO ev_delivery_no FROM /scdl/db_proci_h WHERE docid lv_docid. ELSE. ROLLBACK WORK. ev_success abap_false. ENDIF. CATCH cx_root INTO DATA(lx_error). ROLLBACK WORK. ev_success abap_false. ENDTRY. 清理资源 IF lo_sp_inb IS BOUND. lo_sp_inb-cleanup( /scmb/if_sp_transactionsc_cleanup_commit ). ENDIF. ENDFUNCTION.在实际项目中这个方案成功帮助客户实现了每天自动处理3000ASN的入库流程将人工操作时间减少了80%。关键点在于正确处理参考凭证关系和全面的错误处理机制。