ABAP 新增PO计划行时 新增行交货日期默认当前最大交期

ABAP 新增PO计划行时 新增行交货日期默认当前最大交期

复制代码
DATA: ls_poitem   TYPE mepoitem.
DATA: ls_jhh   TYPE meposchedule.
DATA: ls_poitemc TYPE REF TO if_purchase_order_item_mm.
DATA: is_persistent TYPE mmpur_bool.
DATA: lt_eket TYPE TABLE OF eket.
DATA: ls_eket TYPE eket.
DATA: lv_lfdat TYPE eban-lfdat.

ls_jhh = im_schedule->get_data( ).  "当前执行行的计划行

is_persistent = im_schedule->is_persistent( ).

CALL METHOD im_schedule->get_item
  RECEIVING
    re_item = ls_poitemc.

ls_poitem = ls_poitemc->get_data( ).

IF is_persistent = '' AND ( sy-tcode = 'ME23N' OR sy-tcode = 'ME22N' OR sy-tcode = 'ME54N' OR sy-tcode = 'ME29N' ) AND ls_jhh-ebeln <> ''.  "新增计划行
  SELECT COUNT(*) FROM eket WHERE ebeln = ls_jhh-ebeln AND ebelp = ls_jhh-ebelp AND etenr = ls_jhh-etenr.
  IF sy-subrc NE 0.  "为新增计划行
    SELECT SINGLE lfdat INTO lv_lfdat FROM eban WHERE banfn = ls_poitem-banfn AND bnfpo = ls_poitem-bnfpo.
    IF sy-subrc = 0.
      IF lv_lfdat = ls_jhh-eindt."系统默认为PR需求日期,要改为当前PO最大交期
        REFRESH lt_eket.
        SELECT * INTO TABLE lt_eket FROM eket WHERE ebeln = ls_jhh-ebeln AND ebelp = ls_jhh-ebelp.
        SORT lt_eket BY eindt DESCENDING.
        READ TABLE lt_eket INTO ls_eket INDEX 1.
        ls_jhh-eindt = ls_eket-eindt.
        ls_jhh-eeind = ls_eket-eindt.
        im_schedule->set_data( ls_jhh ).
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.
相关推荐
爱喝水的鱼丶16 天前
SAP-ABAP:SAP外网接口调用技术全景指南
运维·http·sap·abap·erp·接口调用·开发运维
ABAP 成16 天前
SAP的WPS导出找不到路径怎么办;上载报错怎么办
abap
爱喝水的鱼丶17 天前
SAP -ABAP:SAP 业务能力培养体系(结构化学习路径)
运维·开发语言·sap·abap·erp·业务学习
爱喝水的鱼丶1 个月前
SAP-ABAP:SAP数据库视图(Database View)详解-创建
sap·abap·erp·企业级应用·经验交流
聆听-往昔1 个月前
SAP Webide系列(7)- 优化FreeStyle新建项目预设模板
前端·sap·开发工具·fiori·sap ui5·webide
izumisrcd2 个月前
Fiori APP配置中的Semantic object 小bug
sap
爱喝水的鱼丶2 个月前
SAP-ABAP:SAP中REPORT程序和online程序的区别对比
sap·abap·erp·企业应用·开发运维
数字化转型20252 个月前
SAP CO End-User Training Material Document Agenda
sap
SAP学习成长之路2 个月前
了解 ALV 中的 field catalog (ABAP List Viewer)
开发语言·sap·abap
天边浮云2 个月前
ABAP 获取用户参数文件
经验分享·sap