代码示例

FUNCTION zsdfm003f001.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  TABLES
*"      PT_DLXQ TYPE  ZTYDS_DLXQ_IN
*"      PT_RETURN TYPE  ZTYDS_DLXQ_OUT OPTIONAL
*"----------------------------------------------------------------------* bapi dataDATA: matemp LIKE bapisitemr-material.DATA: req_item LIKE bapisitemr.DATA: req_data LIKE bapisshdin OCCURS 0 WITH HEADER LINE.DATA: return LIKE bapireturn1 OCCURS 0 WITH HEADER LINE.DATA: matertemp LIKE bapisitemr-material.DATA:re_item        LIKE  bapisitemr,re_schedule_in LIKE TABLE OF  bapisshdin WITH HEADER LINE,re_change      LIKE bapisitemr.DATA: gt_dlxq  TYPE TABLE OF zsds_dlxq_in WITH HEADER LINE,piv_mode TYPE mode VALUE 'C'.TYPES: BEGIN OF typ_cha,material TYPE matnr18,plant    TYPE werks_d,version  TYPE versb,pbdnr    TYPE pbdnr,END OF typ_cha.DATA: gs_cha TYPE typ_cha.gt_dlxq[] = pt_dlxq[]."物料编码READ TABLE gt_dlxq INDEX 1.IF sy-subrc = 0.CLEAR:matertemp.CALL FUNCTION 'CONVERSION_EXIT_MATN5_INPUT'EXPORTINGinput        = gt_dlxq-materialIMPORTINGoutput       = matertempEXCEPTIONSlength_error = 1OTHERS       = 2.SELECT SINGLE *INTO @DATA(lw_pbim)FROM pbimWHERE matnr = @matertempAND werks = @gt_dlxq-plantAND versb = @gt_dlxq-versionAND vervs = 'X'.IF sy-subrc = 0."若预测已存在，先删除再创建CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'EXPORTINGmaterial         = matertempplant            = lw_pbim-werksrequirementstype = lw_pbim-bedaeversion          = lw_pbim-versbreqmtsplannumber = lw_pbim-pbdnrvers_activ       = ''TABLESreturn           = return.READ TABLE return INTO DATA(w_return) WITH KEY type = 'E'.IF sy-subrc = 0."E类型错误CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.CLEAR pt_return.pt_return-material = matertemp.pt_return-plant = lw_pbim-werks.
*        pt_return-version = lw_pbim-versb.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGmsgid               = w_return-idmsgnr               = w_return-numbermsgv1               = w_return-message_v1msgv2               = w_return-message_v2msgv3               = w_return-message_v3msgv4               = w_return-message_v4IMPORTINGmessage_text_output = pt_return-message.pt_return-message   = w_return-type.APPEND pt_return .RETURN.ELSE.READ TABLE return INTO w_return WITH KEY type = 'A'.IF sy-subrc = 0."A类型错误CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.pt_return-material = matertemp.pt_return-plant = lw_pbim-werks.
*          pt_return-version = lw_pbim-versb.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGmsgid               = w_return-idmsgnr               = w_return-numbermsgv1               = w_return-message_v1msgv2               = w_return-message_v2msgv3               = w_return-message_v3msgv4               = w_return-message_v4IMPORTINGmessage_text_output = pt_return-message.pt_return-message   = w_return-type.APPEND pt_return .RETURN.ELSE.WAIT UP TO 1 SECONDS.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.WAIT UP TO 1 SECONDS.ENDIF.ENDIF.piv_mode = 'U'.ELSE.piv_mode = 'C'.ENDIF.ENDIF.*---bapi调用前内表赋值LOOP AT gt_dlxq.IF piv_mode = 'C'.req_item-material = matertemp.req_item-plant = gt_dlxq-plant.req_item-requ_type = ''."gt_dlxq-requ_type.req_item-version = gt_dlxq-version.req_item-vers_activ = gt_dlxq-vers_activ.req_item-req_number = gt_dlxq-pbdnr."期间标识IF gt_dlxq-date_type = 'D' OR gt_dlxq-date_type = '1'.req_data-date_type = '1'.ENDIF.req_data-req_date = gt_dlxq-req_date."需求日期req_data-req_qty = gt_dlxq-req_qty."计划数量APPEND req_data.ELSEIF piv_mode = 'U'.gs_cha-material = gt_dlxq-material.gs_cha-plant = gt_dlxq-plant.gs_cha-version = gt_dlxq-version.gs_cha-pbdnr = gt_dlxq-pbdnr."期间标识IF gt_dlxq-date_type = 'D' OR gt_dlxq-date_type = '1'.re_schedule_in-date_type = '1'.ENDIF.re_schedule_in-req_date  = gt_dlxq-req_date.re_schedule_in-req_qty   = gt_dlxq-req_qty.
*      re_schedule_in-prod_ves  = gt_dlxq-version.APPEND re_schedule_in.CLEAR  re_schedule_in.ENDIF.ENDLOOP.*---调用bapiIF piv_mode = 'C'.*   创建独立需求CLEAR:matemp.CALL FUNCTION 'BAPI_REQUIREMENTS_CREATE'EXPORTINGrequirements_item        = req_item
*       REQUIREMENT_PARAM        =IMPORTINGmaterial                 = matemp
*       PLANT                    =
*       REQUIREMENTSTYPE         =
*       VERSION                  =
*       REQMTSPLANNUMBER         =TABLESrequirements_schedule_in = req_data
*       REQUIREMENTS_CHAR_IN     =return                   = return.IF NOT matemp IS INITIAL.pt_return-pbdnr = matemp.pt_return-type = 'S'.pt_return-message = '计划独立需求创建成功.'.APPEND pt_return.COMMIT WORK.ELSE.pt_return-index = gt_dlxq-index.pt_return-type = 'E'.pt_return-message = return-message.APPEND pt_return.ROLLBACK WORK.ENDIF.CLEAR matemp.REFRESH req_data.CLEAR matertemp.CLEAR req_item.ELSEIF piv_mode = 'U'.*   更改独立需求CLEAR re_change.CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'EXPORTINGmaterial                 = gs_cha-materialplant                    = gs_cha-plantrequirementstype         = lw_pbim-bedaeversion                  = gs_cha-versionreqmtsplannumber         = gs_cha-pbdnrvers_activ               = 'X'
*       REQUIREMENT_PARAM        =
*       MRP_AREA                 =
*       DO_COMMIT                = 'X'
*       UPDATE_MODE              = 'X'delete_old               = ''
*       NO_WITHDR                = ' '
*       MATERIAL_EVG             =IMPORTINGrequirement_item_out     = re_changeTABLESrequirements_schedule_in = re_schedule_in
*       REQUIREMENTS_CHAR_IN     =return                   = return.IF re_change IS NOT INITIAL.pt_return-material = gs_cha-material.pt_return-plant = gs_cha-plant.pt_return-pbdnr = gs_cha-pbdnr.pt_return-type   = 'S'.pt_return-message   = '计划独立需求修改成功.'.APPEND pt_return .CLEAR pt_return.COMMIT WORK.ELSE.READ TABLE return WITH KEY type = 'E'.pt_return-material = gs_cha-material.pt_return-plant = gs_cha-plant.pt_return-type   = 'E'.pt_return-message   = return-message.APPEND pt_return .CLEAR pt_return.ROLLBACK WORK.ENDIF.CLEAR:return,return[],"lv_pbdnr,re_item,re_schedule_in[].ENDIF.ENDFUNCTION.

前台界面

TCODE:MD61

SAP PP销售预测转独立需求CODE相关推荐

sap 客户独立需求作用_SAP 动态安全库存其中动态时间应用
SAP 博大精深,关键在于我们理解透彻灵活运用,软件应用于业务,服务于管理.所有的系统改造都应该基于实际的业务场景,条条大路通罗马"-"All Roads Lead to Rome ...
SAP中计划独立需求与生产版本的关联导致无法删除问题的处理实例
用户反映生产版本建立后发现有误名称,需要修改.尝试通过C223进行处理,如下图可见,生产版本名称这个字段无法更改,其它字段如有效从,批量等都可以更改. 既然无法更改,就尝试删除后再重建.但能否删除要视 ...
SAP中几个与计划独立需求PIR相关的表
近期基于业务需求,需要了解一下计划独立需求PIR的相关变化记录. 找了一下资料,发现下面三个表是可以利用的.分别是PBIM,PBED和PBHI: 下面做简单应用说明: PBIM用来找到物料与需求指针的 ...
SAP中MD04中计划独立需求的MRP元素标识与需求类型的关系及应用
在MD04中计划独立需求的MRP元素标识中,可以看到诸如LSF.BSF.VSF这样的标识.作为用户,如果不了解计划模式及计划模式相关后台配置,不可能知道其含义. 从后台配置可见,该标识代表不同计划模式 ...
SAP 创建销售订单和生产订单收货如何冲减独立需求
今天用户问我,这两张销售订单为什么没有让下面这个45的独立需求变成 43 之前我都不知道会有这个业务,于是百度了一下首先, 在创建销售订单的时候会根据销售订单类型+物料主数据中的项目类别组 --- ...
SAP PP 笔记（一）概述
生产计划与控制流程概况一般来说SAP的SFC车间控制较为薄弱,很多公司都用MES来解决问题生产计划与控制流生产计划与控制组织结构与计划层次 PP模块涵盖了整个生产流程,从主数据的生成到生产计划 ...
SAP PP 计划策略组40、50对比分析
PP的策略常用的是按单生产和按库存生产两大类,其中有一些是疑似两种功能混和的.策略的应用取决于企业或者产品的生产模式,如金字塔型,倒金塔型,凹凸型等等. SAP的策略很多. 按库存MTS:40,30, ...
入门SAP PP的学习流程
要学好生产计划我们首先要了解生产计划的各个流程这样学习与操作起来就事半功倍了,操作如下: 1.定义生产计划参数文件,生产计划参数文件可以分配给物料或者生产计划员.分配给物料主数据的生产计划参数具有更高 ...
SAP PP顾问面试题及资料
SAP PP顾问面试试题及资料 1.主数据组织架构 •SAP中主要的组织架构有哪些?哪些用于PP的组织架构? •成本控制范围.公司代码.估价范围.工厂.库存地点之间的关系物料主数据 •不同的物料主 ...
SAP PP配置详解之五：生产计划编制
1.计划策略功能说明计划策略包含了产品生产.采购的方法,采用何用方式进行计划.调度.制造和采购.计划策略由计划独立需求类型及客户需求类型共同控制消耗过程. 配置路径 IMG>生产>生产 ...

SAP PP销售预测转独立需求CODE

销售预测转独立需求调用BAPI_REQUIREMENTS_CREATE生成MD61

代码示例

前台界面

SAP PP销售预测转独立需求CODE相关推荐

最新文章

热门文章

SAP PP销售预测转独立需求CODE

销售预测转独立需求 调用BAPI_REQUIREMENTS_CREATE生成MD61

代码示例

前台界面

SAP PP销售预测转独立需求CODE相关推荐

最新文章

热门文章

销售预测转独立需求调用BAPI_REQUIREMENTS_CREATE生成MD61