前臺工藝路線元件自動分配
*&---------------------------------------------------------------------*
*& 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 ) < 1.
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.
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29829936/viewspace-1595533/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 工藝路線當日建立或修改自動分配物料元件元件
- 讀取工藝路線的函式函式
- CRM系統如何自動分配線索
- PDM工藝路線在ERP系統中的應用
- 用於工業自動化的高精度直線電機平臺
- 工藝品的網路營銷策略
- 長連線在後臺和前臺之間的互動
- 電子元件的自動AXI射線檢測元件
- CentOS自動開啟網路連線CentOS
- 線路分流自動跳轉程式碼
- AJAX-前後端互動的藝術後端
- [軟體工藝]
- 12、spring工廠+web前臺搭建SpringWeb
- 利用可恢復空間分配技術自動分配表空間
- oracle區統一大小分配與系統自動分配Oracle
- 軟體工藝運動的目標是什麼?
- PCBA貼片加工無鉛工藝與有鉛工藝的區別?
- 直播平臺軟體開發,flutter Wrap 自動換行元件Flutter元件
- Windows7系統自動連線無線網路的方法Windows
- 自動化元件測試元件
- 爬蟲代理IP自動分配失敗的原因爬蟲
- CRM公海客戶自動分配功能的實現
- CentOS 7設定網路開機自動連線CentOS
- 【工業網際網路】李少遠:工業網際網路與智慧製造推動下的自動化技術
- 基於 Django 和 Vue 前後端分離介面自動化平臺DjangoVue後端
- 開源:C# 程式碼自動生成工具,支援站點前後臺C#
- 演藝平臺
- Autocomplete自動補全元件-HeyUI元件庫元件UI
- 網路問題:Tuxedo不能自動連線Oracle資料UXOracle
- 安集科技參加積體電路超級工藝技術Workshop
- 專業自動化測試資訊平臺初步上線了
- Spring 自動掃描元件Spring元件
- 自動偵測spring元件Spring元件
- Jquery 自動完成控制元件jQuery控制元件
- win10網路總是自動掉線斷網怎麼辦_win10網路自動掉線斷網的解決教程Win10
- unity 自動尋路Unity
- 不再滿足於iPhone流水線工廠,富士康開始部署自動駕駛?iPhone自動駕駛
- win7系統開啟或關閉自動連線無線網路Win7