FZMM技术说明书调度排产程序V10.docx
- 文档编号:9441691
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:12
- 大小:166.73KB
FZMM技术说明书调度排产程序V10.docx
《FZMM技术说明书调度排产程序V10.docx》由会员分享,可在线阅读,更多相关《FZMM技术说明书调度排产程序V10.docx(12页珍藏版)》请在冰豆网上搜索。
FZMM技术说明书调度排产程序V10
FZSAP项目
计划调度排产工作程序
打印
开发设计文档
定稿版本
作者:
董坤令
日期:
2005.10.18date:
1.程序概要描述
项目:
FZSAP
日期:
YYYY.MM.DD
模块:
PP
作者:
阶段:
BP
优先级:
H/M/L
标题:
采购订单打印
程序ID:
Zpppr_ddpc
程序名:
Zpppr_ddpc
业务分析员:
开发人员:
董坤令
运行频率:
按需触发
程序类型
窗口
用户/部门:
语言:
中文
2.设计综述
程序使用对象:
联系人:
运行频率:
语言:
中文程序类型:
FORM
开发语言.:
优先级:
复杂度:
高
描述和目标:
目标:
根据订单信息调度人员进行合锅
注释:
周期:
OnRequest
复杂度(开发量):
高(大于等于10人天)
中(大于等于5人天,小于10人田)
低(小于5人天)
输入信息:
查询条件
1.工厂:
p_werks
2.MRP控制者:
p_dispo
3.工作中心:
p_arbpl
4.订单编码:
p_aufnr
选择条件
输出格式:
无
另附:
报表格式(略)
选择界面:
操作界面:
显示已排订单界面
相应逻辑及要求:
1、操作人员在系统中根据要排产的订单号输入机号;
2、然后进行保存:
3、如果想看排机的结果,请进入到已排产的界面.
程序主要逻辑:
一、根据搜索条件筛选出相应的采购订单内容:
取订单表里面的数据
select
a~aufnr
a~rsnum
a~gamng"重量
a~plnbez"t物料号
a~cuobj"配置(内部对象号)
a~aufpl"
a~stlnr
a~gltrp
a~gltrs
a~cy_seqnr
b~matnr
b~psmng
makt~maktx
b~charg
b~kdauf
into(itab-aufnr,itab-rsnum,itab-gamng,
itab-plnbez,itab-cuobj,itab-aufpl,
itab-stlnr,itab-gltrp,itab-gltrs,
itab-cy_seqnr,itab-matnr,itab-psmng,
itab-maktx1,itab-charg,itab-kdauf)
fromafkoasa
innerjoinafpoasb
ona~aufnr=b~aufnr
innerjoinmakt
ona~plnbez=makt~matnr
where
a~aufnrinp_aufnrand
b~xloek<>'X'and"删除标志
makt~spras='1'and
a~dispo=p_dispoand
b~pwerk=p_werks.
appenditab.
clearitab.
endselect.
取工作中心
loopatitab.
selectcrhd~arbpl
crhd~objid
crhd~vgwts
afvc~aplzl"订单的通用计数器
into(itab-arbpl,itab-objid,itab-vgwts,
itab-aplzl)
fromcrhd
innerjoinafvc
oncrhd~objid=afvc~arbid
where
crhd~arbpl=p_arbpland
afvc~aufpl=itab-aufpl
andafvc~vornrin('0101','0102','0103','0100',
'0020','0201','0202','0203')
andafvc~steus='ZP01'
andobjty='A'.
modifyitab.
endselect.
endloop.
根据筛选出的符合条件的订单,取相关内容:
*******************取系统状态
loopatitab.
selectaufk~objnr
jest~stat
jest~inact
aufk~aufnr
into(i_jest-objnr,i_jest-stat,i_jest-inact,i_jest-aufnr)
fromaufk
innerjoinjestonaufk~objnr=jest~objnr
whereaufk~aufnr=itab-aufnrand
(
jest~stat='I0045'or"技术实现TECO
jest~stat='I0002'or"释放REL
jest~stat='I0076'or"删除标志DLFL
jest~stat='E0006'"合锅标志
).
appendi_jest.
cleari_jest.
endselect.
endloop.
loopatitab.
loopati_jestwhereaufnr=itab-aufnr.
ifi_jest-stat='I0045'.
ifi_jest-inact=''.
deleteitab.
endif.
endif.
ifi_jest-stat='I0002'.
ifi_jest-inact=''."rel
deleteitab.
endif.
endif.
endloop.
endloop.
loopatitab.
loopati_jestwhereaufnr=itab-aufnr.
ifi_jest-stat='I0076'.
ifi_jest-inact=''."删除有删除标志
deleteitab.
endif.
endif.
ifi_jest-stat='E0006'.
ifi_jest-inact=''."打上合锅标志
deleteitab.
endif.
endif.
endloop.
endloop.
*******************取色名
selectatinn
atwrt
into(itab-atinn,itab-atwrt)
fromzv_txz
wherezv_txz~aufnr=itab-aufnr
andzv_txz~atinn='0000000869'.
modifyitab.
endselect.
*******************取色号
selectatinn
atwrt
into(itab-atinn,itab-atwrt1)
fromzv_txz
wherezv_txz~aufnr=itab-aufnr
andzv_txz~atinn='0000000868'.
modifyitab.
endselect.
*******************取染料类别
selectzv_txz~atinn
cawn~atzhl"4活性
cawnt~atwtb
into(itab-atinn,itab-atzhl,itab-atwtb)
fromzv_txz
innerjoincawn
onzv_txz~atwrt=cawn~atwrt
andzv_txz~atinn=cawn~atinn
innerjoincawnt
oncawn~atinn=cawnt~atinn
andcawn~atzhl=cawnt~atzhl
wherezv_txz~aufnr=itab-aufnr
andzv_txz~atinn='0000000866'.
*andcawnt~atzhl='0004'.
modifyitab.
endselect.
endloop.
二、在操作界面输入机号保存:
SORTi_itabBYpsmngbaugrDESCENDING."ascending
loopati_itab.
ftab-aufnr=i_itab-aufnr.
ftab-vornr=i_itab-vornr.
ftab-cy_seqnr=i_itab-cy_seqnr.
ftab-arbpl=i_itab-arbpl.
ftab-ktsch=i_itab-ktsch.
appendftab.
clearftab.
endloop.
三.显示已排产订单号逻辑同上.
loopatitabwherektsch<>''andcy_seqnr=''
andfsbj=''.
i_itab2-cy_seqnr=itab-cy_seqnr.
i_itab2-aufnr=itab-aufnr.
i_itab2-matnr=itab-matnr.
i_itab2-maktx1=itab-maktx1.
i_itab2-atwrt=itab-atwrt.
i_itab2-atwrt1=itab-atwrt1.
i_itab2-baugr=itab-baugr.
i_itab2-maktx=itab-maktx.
i_itab2-arbpl=itab-arbpl.
i_itab2-charg=itab-charg.
i_itab2-psmng=itab-psmng.
i_itab2-name1=itab-name1.
i_itab2-kunnr=itab-kunnr.
i_itab2-gltrp=itab-gltrp.
i_itab2-gltrs=itab-gltrs.
i_itab2-vornr=itab-vornr.
i_itab2-ktsch=itab-ktsch.
i_itab2-fy=itab-fsbj.
i_itab2-rllb=itab-atwtb.
appendi_itab2.
cleari_itab2.
endloop.
源代码:
(略)
Abaper:
________________日期:
_______________
开发组长:
________________日期:
_______________
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FZMM 技术 说明书 调度 程序 V10
![提示](https://static.bdocx.com/images/bang_tan.gif)