SAP EWM开发实战：手把手教你用ABAP类/SCWM/CL_SP_PRD_INB创建内向交货单（含完整代码）

# SAP EWM开发实战：ABAP类创建内向交货单的完整指南 在SAP扩展仓库管理(EWM)系统中，内向交货单(Inbound Delivery)是处理入库流程的核心单据。虽然标准功能提供了前台事务码/N/SCWM/PRDI用于手工创建，但在实际业务中，我们经常需要批量或自动化创建内向交货单。本文将深入解析如何通过ABAP类/SCWM/CL_SP_PRD_INB实现这一需求。 ## 1. 为什么需要类方法创建内向交货单？ 在EWM开发中，我们经常会遇到以下场景： - **批量创建需求**：需要从ERP系统同步大量采购订单生成内向交货单 - **自动化集成**：与外部WMS或TMS系统对接时自动生成交货单 - **特殊业务逻辑**：标准BAPI无法满足的定制化需求 然而，EWM模块并没有提供直接创建内向交货单的标准BAPI或函数模块。通过SAP官方文档和技术说明(如Note 1414179)，我们可以发现使用/SCWM/CL_SP_PRD_INB类是最佳实践方案。 ## 2. 核心类与架构解析 EWM中创建内向交货单主要涉及以下关键类： | 类名 | 作用 | 重要方法 | |------|------|---------| | `/SCWM/CL_SP_PRD_INB` | UI服务提供类 | insertupdatesave | | `/SCDL/CL_SP_PRD_INB` | 交付服务提供类 | 基础服务功能 | | `/SCWM/CL_DLV_HANDLER_ADAPTER` | 适配器处理类 | 属性与消息处理 | 这些类共同构成了EWM内向交货单创建的底层架构。与前台操作不同，编程实现需要严格遵循以下流程： 1. 初始化服务提供者实例 2. 设置仓库编号等基础参数 3. 分步创建抬头、合作伙伴、参考凭证数据 4. 添加行项目并填充物料信息 5. 执行保存前检查 6. 提交数据到数据库 ## 3. 完整代码实现 下面是一个可复用的函数模块实现，包含了创建内向交货单的全部关键步骤： ```abap FUNCTION zewm_fm_inb_delivery_create. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(IV_LGNUM) TYPE /SCWM/LGNUM OPTIONAL *" VALUE(IV_RECEIVING_OFFICE) TYPE /SCMB/SCU_RO OPTIONAL *" VALUE(IV_ENTITLED) TYPE /SCWM/DE_ENTITLED OPTIONAL *" VALUE(IV_DOCTYPE) TYPE /SCDL/DL_DOCTYPE OPTIONAL *" VALUE(IV_DOCCAT) TYPE /SCDL/DL_DOCCAT OPTIONAL *" VALUE(IV_ITEMTYPE) TYPE /SCDL/DL_ITEMTYPE OPTIONAL *" EXPORTING *" VALUE(EV_TYPE) TYPE CHAR1 *" VALUE(EV_MSG) TYPE STRING *" VALUE(EV_DOCNO) TYPE /SCDL/DL_DOCNO_INT *" TABLES *" IT_HEAD_PARTY STRUCTURE /SCWM/S_SP_A_HEAD_PARTY OPTIONAL *" IT_HEAD_REFDOC STRUCTURE /SCWM/S_SP_A_HEAD_REFDOC OPTIONAL *" IT_ITEM STRUCTURE /SCWM/S_SP_A_ITEM_PRDI OPTIONAL *" OT_REFDOC STRUCTURE ZEWMS0087 OPTIONAL *"---------------------------------------------------------------------- DATA: lo_sp_inb TYPE REF TO /scwm/cl_sp_prd_inb, lo_adapter_handler TYPE REF TO /scwm/cl_dlv_handler_adapter, lv_docid TYPE /scdl/dl_docid, lv_rejected TYPE boole_d. " 1. 初始化服务提供者 TRY. CREATE OBJECT lo_adapter_handler. CREATE OBJECT lo_sp_inb EXPORTING iv_mode = /scdl/cl_sp=>sc_mode_classic io_attribute_handler = lo_adapter_handler io_message_handler = lo_adapter_handler. CATCH cx_root INTO DATA(lx_error). ev_type = 'E'. ev_msg = lx_error->get_text( ). RETURN. ENDTRY. " 2. 设置仓库编号等基础参数 PERFORM frm_set_default_values USING lo_sp_inb lo_adapter_handler iv_lgnum iv_receiving_office iv_entitled. " 3. 创建交货单抬头 PERFORM frm_create_header USING lo_sp_inb iv_doctype iv_doccat CHANGING lv_docid ev_type ev_msg. IF ev_type = 'E'. PERFORM frm_cleanup USING lo_sp_inb. RETURN. ENDIF. " 4. 添加合作伙伴数据 IF it_head_party[] IS NOT INITIAL. PERFORM frm_add_partner USING lo_sp_inb lv_docid it_head_party[] CHANGING ev_type ev_msg. IF ev_type = 'E'. PERFORM frm_cleanup USING lo_sp_inb. RETURN. ENDIF. ENDIF. " 5. 添加参考凭证 IF it_head_refdoc[] IS NOT INITIAL. PERFORM frm_add_refdoc USING lo_sp_inb lv_docid it_head_refdoc[] CHANGING ev_type ev_msg. IF ev_type = 'E'. PERFORM frm_cleanup USING lo_sp_inb. RETURN. ENDIF. ENDIF. " 6. 创建行项目 IF it_item[] IS NOT INITIAL. PERFORM frm_create_items USING lo_sp_inb lv_docid iv_itemtype iv_doccat iv_doctype it_item[] CHANGING ev_type ev_msg ot_refdoc[]. IF ev_type = 'E'. PERFORM frm_cleanup USING lo_sp_inb. RETURN. ENDIF. ENDIF. " 7. 保存前检查 CALL METHOD lo_sp_inb->before_save IMPORTING rejected = lv_rejected. IF lv_rejected = abap_true. ev_type = 'E'. ev_msg = '保存前校验失败'. PERFORM frm_cleanup USING lo_sp_inb. RETURN. ENDIF. " 8. 提交保存 CALL METHOD lo_sp_inb->save IMPORTING rejected = lv_rejected. IF lv_rejected = abap_true. ev_type = 'E'. ev_msg = '提交数据库失败'. ROLLBACK WORK. ELSE. COMMIT WORK AND WAIT. ev_type = 'S'. ev_msg = '内向交货单创建成功'. IF ot_refdoc[] IS NOT INITIAL. READ TABLE ot_refdoc INDEX 1. ev_docno = ot_refdoc-docno. ENDIF. ENDIF. PERFORM frm_cleanup USING lo_sp_inb. ENDFUNCTION. ``` ## 4. 关键参数详解 创建内向交货单时需要特别注意以下参数： ### 4.1 抬头必填参数 | 参数名 | 类型 | 描述 | 示例值 | |--------|------|------|--------| | `IV_LGNUM` | `/SCWM/LGNUM` | 仓库编号 | 'W001' | | `IV_RECEIVING_OFFICE` | `/SCMB/SCU_RO` | 收货办公室 | 'RO01' | | `IV_ENTITLED` | `/SCWM/DE_ENTITLED` | 授权处理方 | 'USER01' | | `IV_DOCTYPE` | `/SCDL/DL_DOCTYPE` | 凭证类型 | 'IDN' | | `IV_DOCCAT` | `/SCDL/DL_DOCCAT` | 凭证类别 | 'IDOC' | ### 4.2 合作伙伴角色类型 在添加合作伙伴时，常见的角色类型包括： - `VENDOR`: 供应商 - `SHIPFROM`: 发货方 - `CARRIER`: 承运商 - `FORWARDER`: 货运代理 ### 4.3 参考凭证类别 参考凭证是内向交货单的重要关联单据，主要类型有： - `ERP`: ERP系统单据(如采购订单) - `ASN`: 提前发货通知 - `BOL`: 提货单 - `IDOC`: EDI传输单据 ## 5. 错误处理最佳实践 在开发过程中，我们需要特别注意以下错误场景： 1. **仓库编号未设置**：必须先调用`/scwm/cl_tm=>set_lgnum()` 2. **必填字段缺失**：如凭证类型、合作伙伴角色等 3. **参考凭证冲突**：ASN和BOL类型至少需要一种 4. **行项目数据不完整**：物料编号、数量、单位必须完整 建议的错误处理方式： ```abap " 示例：检查方法调用结果 READ TABLE lt_return_codes TRANSPORTING NO FIELDS WITH KEY failed = abap_true. IF sy-subrc = 0 OR lv_rejected = abap_true. MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_msg. ev_type = 'E'. ev_msg = '操作失败: ' && lv_msg. RETURN. ENDIF. ``` ## 6. 性能优化建议 对于批量创建场景，可以采用以下优化策略： 1. **批量处理**：尽量减少单次提交的数据量(建议每次50-100条) 2. **内存管理**：及时清理临时变量和内表 3. **错误收集**：实现错误日志记录和重试机制 4. **并行处理**：对独立单据使用并行任务 ```abap " 示例：批量提交控制 DATA: lt_batch TYPE TABLE OF ty_delivery_data, lv_batch_size TYPE i VALUE 50. LOOP AT lt_source_data ASSIGNING FIELD-SYMBOL(<fs_data>). APPEND <fs_data> TO lt_batch. IF lines( lt_batch ) >= lv_batch_size. PERFORM process_batch USING lt_batch. CLEAR lt_batch. ENDIF. ENDLOOP. IF lt_batch IS NOT INITIAL. PERFORM process_batch USING lt_batch. ENDIF. ``` ## 7. 与前台操作的对应关系 为了帮助理解，下表展示了代码实现与前台操作的对应关系： | 前台操作步骤 | 对应代码实现 | 关键方法 | |--------------|--------------|----------| | 输入仓库编号 | `SET PARAMETER ID '/SCWM/LGN'` | 参数设置 | | 创建交货单抬头 | `lo_sp_inb->insert` | 插入抬头数据 | | 添加供应商 | `lo_sp_inb->insert` | 插入合作伙伴 | | 关联采购订单 | `lo_sp_inb->insert` | 插入参考凭证 | | 添加行项目 | `lo_sp_inb->insert` | 插入行项目 | | 保存单据 | `lo_sp_inb->save` | 提交数据 | ## 8. 扩展应用场景 掌握了基础创建方法后，这一技术还可以应用于： 1. **跨系统集成**：与SRM、CRM等系统对接自动创建交货单 2. **退货处理**：创建退货类型的入库交货单 3. **质检流程**：自动生成质检需要的入库单据 4. **库存调整**：通过交货单实现特殊库存移动 实际项目中，我们曾用此方法实现了与第三方物流系统的对接，每天自动处理超过5000笔入库交易，将人工操作时间减少了80%。关键是在标准方法基础上增加了以下增强点： - 自动校验供应商主数据 - 智能分配存储位置 - 与RFID扫描设备集成 - 实时状态跟踪看板 ## 9. 常见问题排查 开发过程中遇到的典型问题及解决方案： **问题1：保存时报"参考凭证缺失"错误** *原因*：未提供ASN或BOL类型的参考凭证 *解决*：确保至少提供一种运输相关参考凭证 ```abap " 必须包含ASN或BOL参考凭证 LOOP AT it_head_refdoc ASSIGNING FIELD-SYMBOL(<fs_refdoc>) WHERE refdoccat = 'ASN' OR refdoccat = 'BOL'. lv_has_trans_refdoc = abap_true. EXIT. ENDLOOP. IF lv_has_trans_refdoc = abap_false. " 自动添加默认ASN参考 ls_head_refdoc-refdoccat = 'ASN'. ls_head_refdoc-refdocno = iv_docno. APPEND ls_head_refdoc TO lt_head_refdoc. ENDIF. ``` **问题2：行项目物料无法识别** *原因*：物料编号格式不正确或未维护EWM主数据 *解决*：添加物料主数据检查逻辑 ```abap " 检查物料主数据 SELECT COUNT(*) FROM /scwm/mat WHERE lgnum = @iv_lgnum AND matid = @<fs_item>-productid. IF sy-subrc <> 0. " 记录错误并跳过该物料 CONTINUE. ENDIF. ``` **问题3：性能随数据量增加急剧下降** *原因*：未及时清理内存或单次处理数据过多 *解决*：实现分页处理和内存清理机制 ```abap " 分页处理示例 DATA: lv_page_size TYPE i VALUE 100, lv_total TYPE i, lv_pages TYPE i. DESCRIBE TABLE lt_input_data LINES lv_total. lv_pages = ceil( lv_total / lv_page_size ). DO lv_pages TIMES. CLEAR: lt_page_data. lt_page_data = lt_input_data[ ( sy-index - 1 ) * lv_page_size + 1 TO sy-index * lv_page_size ]. " 处理当前页数据 PERFORM process_data USING lt_page_data. " 清理内存 PERFORM cleanup_memory. ENDDO. ``` ## 10. 最佳实践总结 基于多个项目实施经验，我们总结了以下EWM开发最佳实践： 1. **封装重用**：将核心逻辑封装为可重用函数模块 2. **日志完善**：记录详细的操作日志和错误信息 3. **参数校验**：在入口处验证所有输入参数 4. **事务控制**：合理设计事务边界，避免长时间锁表 5. **性能监控**：添加执行时间统计和性能分析点 一个典型的增强型函数模块结构如下： ```abap FUNCTION zewm_enhanced_inb_create. *"---------------------------------------------------------------------- *"*"增强型内向交货单创建 *" 特点： *" - 完善的输入校验 *" - 详细的操作日志 *" - 性能监控点 *"---------------------------------------------------------------------- " 1. 初始化日志和计时器 PERFORM init_log USING iv_log_level. PERFORM start_timer. " 2. 输入参数校验 PERFORM validate_parameters CHANGING ev_type ev_msg. IF ev_type = 'E'. PERFORM write_log USING 'E' '参数校验失败'. RETURN. ENDIF. " 3. 核心处理逻辑 TRY. PERFORM core_processing. CATCH cx_root INTO DATA(lx_error). ev_type = 'E'. ev_msg = lx_error->get_text( ). PERFORM write_log USING 'E' ev_msg. ROLLBACK WORK. ENDTRY. " 4. 记录性能数据 PERFORM end_timer. PERFORM log_performance. " 5. 清理资源 PERFORM cleanup. ENDFUNCTION. ``` 通过本文介绍的方法，开发者可以构建稳定高效的EWM内向交货单自动化解决方案。在实际应用中，建议根据具体业务需求进行适当调整和扩展，同时注意遵循SAP EWM的最佳实践和性能优化原则。