前台工艺路线组件自动分配

*&---------------------------------------------------------------------*
*& Report  ZPP_CA02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

前提,BOM中的排序字符串中的值和工艺路线中工序的标准文本码相同

report  zpp_ca02.
tables mara .
tables marc.
data i_mapl like table of mapl with header line.
data subrc type sy-subrc.
data messtab like  bdcmsgcoll occurs 0.
data wa_messatab like bdcmsgcoll.
data: matnr_001 type bdcdata-fval.
data: werks_002 type bdcdata-fval.
data: p_model type c.
data: w_msg(200) type c.

data: begin of i_matnr occurs 0,
    matnr like marc-matnr,
    werks like marc-werks,
    end of i_matnr.

select-options s_matnr for mara-matnr.
select-options s_werks for marc-werks obligatory.
parameters  p_model1 type c radiobutton group r1.
parameters  p_model2 type c radiobutton group r1.
parameters  p_tag type c as checkbox.

 

start-of-selection.
  clear i_mapl[].
  clear i_matnr[].

  select distinct matnr werks
  into corresponding fields of table i_mapl "UP TO 10 ROWS
  from mapl
  where matnr in s_matnr and werks in s_werks and loekz = space.

  select matnr werks
  into corresponding fields of table i_matnr
  from marc
  where matnr in s_matnr and werks in s_werks.

 

 

  if p_model1 eq 'X'.
    p_model = 'N'.
  else.
    p_model = 'A'.
  endif.

  if lines( i_mapl )     write '没有工艺存在' color col_negative.
    exit.
  endif.

  loop at i_matnr.
    clear w_msg.
    read table i_mapl with key matnr = i_matnr-matnr werks = i_matnr-werks.
    if sy-subrc ne 0.
      concatenate '物料:' i_matnr-matnr+9(9) '在工厂:'  i_matnr-werks '没有工艺路线' INTO w_msg.
      write w_msg color col_negative.
      skip.

    endif.
  endloop.

  clear w_msg.

  loop at i_mapl.

    matnr_001 = i_mapl-matnr.

    werks_002 = i_mapl-werks.

 

    call function 'ZCA02'
     exporting
*   CTU                 = 'X'
     mode                = p_model
*   UPDATE              = 'L'
*   GROUP               = GROUP
*   USER                = USER
*   KEEP                = KEEP
*   HOLDDATE            = HOLDDATE
*   NODATA              = '/'
       matnr_001           = matnr_001
       werks_002           = werks_002
*   PLNNR_003           = '10008203'
*   STTAG_004           = '2010.11.08'
*   PLNAL_005           = ''
*   ENTRY_ACT_006       = '1'
*   SORTF_007           = 'X'
*   SORTF_008           = 'ai'
*   VORNR_009           = '0010'
*   PLNFL_010           = '0'
*   SORTF_011           = 'X'
*   SORTF_012           = 'dip'
*   VORNR_013           = '0020'
*   PLNFL_014           = '0'
     p_tag = p_tag
     importing
       subrc               = subrc
   tables
     messtab             = messtab
              .

  endloop.

时间: 2024-11-10 00:39:42

前台工艺路线组件自动分配的相关文章

工艺路线当日创建或修改自动分配物料组件

*&---------------------------------------------------------------------**& Report  Z_CA01_BACKGROUND*&*&---------------------------------------------------------------------**&*&*&-----------------------------------------------

工艺路线相关配置

工艺路线相关配置..................................................................................................... 1 1 控制数据 Control Data.................................................................................................. 1 2 通用数据 General Dat

读取工艺路线的函数

   call function 'CARO_ROUTING_READ'      exporting       date_from                  = sy-datum*       DATE_TO                    = '99991231'        plnty                      = 'N'        plnnr                      = i_mapl-plnnr "任务清单类型        pln

自动分配IP地址

网络通信离不开TCP/IP协议,在TCP/IP网络中,每台计算机要想进行通信,存取网络上的资源,都必须进行必要的网络配置,一些主要参数诸如IP地址.子网掩码.默认网关.DNS服务器等必不可少.配置这些参数有两种方法:静态手工配置和自动分配. 手工配置TCP/IP参数是一些网络管理员习惯使用的方法.通常,管理员需要创建一张详细的配置清单,并将其他带在身上或存放在计算机上,以便于随时查阅并配置IP地址.子网掩码以及网关和DNS服务器的IP地址.这种方法看似简单可行,但却相当费时且容易出错.以网络中有

路由器充当DHCP服务器自动分配IP地址

总公司最近拓展了办公业务,在很多地区成立了子公司.由于子公司刚刚成立,没有足够的经费购置服务器,而办公用机的IP地址又准备采用DHCP自动分配的方式来进行管理,没有专门的DHCP服务器就无法实现自动分配IP地址. 笔者发现由于每个子公司在网络出口都使用了相应的路由器,所以可以在公司出口的路由设备上启用DHCP服务功能,用路由器充当DHCP服务器. 现在,笔者就以Cisco路由器为例给大家介绍一下配置方法.假设公司内部IP地址为10.30.70.1-10.30.70.255,网内客户机希望通过DH

使用DHCP服务器自动分配工作站地址

在大型网络中,需要将各种地址(IP地址.子网掩码.网关.DNS地址.WINS服务器地址等)及其相关参 数分配给各个工作站.这项工作十分繁重,并且容易出现错误.使用DHCP服务器可以为网络中工作站自动 分配. 一.DHCP服务器概述 DHCP(Dynamic Host Configure Protocol,动态主机配置协议 )是一个简化主机IP地址分配管理的ICP/IP标准协议.网络管理员可以利用DHCP服务器动态地为客户端分 配IP地址及其他相关的环境配置工作. 1.DHCP服务的优点 TCP/

PHP上传文件时自动分配路径的方法_php技巧

本文实例讲述了PHP上传文件时自动分配路径的方法.分享给大家供大家参考.具体分析如下: 网站上传文件时,如果是小的企业站,放在一个目录还没问题,当网站大了,上传的文件多了,我们就不能放在同一个目录了,这里我们就来讲讲用PHP自动给上传的文件分配路径的方法. PHP分配上传文件的路径实例 主要程序片段如下: 复制代码 代码如下: <?php    /*数字方式分配路径*/    function allotPath($id, $extend='jpg') {       $folders = st

matlab-零件多工艺路线决策方法

问题描述 零件多工艺路线决策方法 请问matlab下面实现基于蚁群算法的零件多工艺路线决策方法的实现步骤是什么? 解决方案 http://www.docin.com/p-884127909.html

巧用路由当DHCP服务器自动分配IP地址

总公司最近拓展了办公业务,在很多地区成立了子公司.由于子公司 刚刚成立,没有足够的经费购置服务器,而办公用机的IP地址又准备采用DHCP自动分配的方式来进行管理,没有专门的 DHCP服务器就无法实现自动分配IP地址.笔者发现由于每个子公司在网络出口都使用了相应的路由器, 所以可以在公司出口的路由设备上启用DHCP服务功能,用路由器充当DHCP服务器.现在,笔者就以Cisco路由器为例给大家介绍一下配置方法.假设公司内部IP地址为10.30.70.1-10.30.70.255,网内客户机希望通过D