没有合适的资源?快使用搜索试试~ 我知道了~
SAP 批量导出BOM的代码实现.docx
5星 · 超过95%的资源 需积分: 50 40 下载量 186 浏览量
2020-03-25
10:27:17
上传
评论 3
收藏 59KB DOCX 举报
温馨提示
试读
12页
ABAP代码实现了批量导出BOM的功能。包含物料号、物料描述、基本数量、物料单位、替代BOM、可选文本
资源详情
资源评论
资源推荐
REPORTzpp015.
TABLES:stko,stpo,mast,makt,stpox,cstmat,tc04.
TYPE-POOLS:slis.
DATA:ws_fieldcatTYPElvc_t_fcat,"slis_t_fieldcat_alvWITHHEADERL
INE,
ws_layoutTYPElvc_s_layo."lvc_s_layo
DATA:BEGINOFitab_mastOCCURS0,
matnrLIKEmast-matnr,"
物料号
maktxLIKEmakt-maktx,"
物料描述
stlnrLIKEstko-stlnr,"BOM
stlalLIKEmast-stlal,"
可选
BOM
stktxLIKEstko-stktx,"
可选文本
bmengLIKEstko-bmeng,"
基本用量
bmeinLIKEstko-bmein,
stlanLIKEmast-stlan,"BOM
用途
ENDOFitab_mast.
DATA:BEGINOFitab_okOCCURS0,
fmatnrLIKEmast-matnr,
vmatnrLIKEmast-matnr,
vmaktxLIKEmakt-maktx,
stufeLIKEstpox-stufe,"BOM
层次
stufex(10)TYPEc,
posnrLIKEstpo-posnr,"item
sortfLIKEstpo-sortf,
ustlnrLIKEstpo-stlnr,"
物料单,上级,所属
dstlnrLIKEstpo-stlnr,"
物料单,下级,所辖
stlknLIKEstpo-stlkn,"
子节点编号
level
stlanLIKEmast-stlan,"BOM
用途
idnrkx(50)TYPEc,"BOM
物料显示
idnrkLIKEstpo-idnrk,"BOM
组件号
maktxxLIKEmakt-maktx,"
组件号描述
matnrLIKEmast-matnr,"
物料号
brgewLIKEmara-brgew,
ntgewLIKEmara-ntgew,
geweiLIKEmara-gewei,"
重量单位
maktxLIKEmakt-maktx,
meinsLIKEstpo-meins,"
组件计量单位
mengeLIKEstpo-menge,
auschLIKEstpo-ausch,
potx1LIKEstpo-potx1,
potx2LIKEstpo-potx2,
POSTPLIKESTPO-POSTP,
lgortLIKEstpo-lgort,
sankaLIKEstpo-sanka,
aennrLIKEstpo-aennr,
beikzLIKEstpo-beikz,"L
为供应商,空为自供
datuvLIKEstpo-datuv,"
有效起始日期
datubLIKEstpox-datub,
labstTYPEmard-labst,"
非限制性库存
zxmlbTYPEc,
xcolor(4)TYPEc,
bmengLIKEstko-bmeng,"
基本用量
bmeinLIKEstko-bmein,
stlnrLIKEmast-stlnr,"
替代
BOM
stlalLIKEmast-stlal,"
可选
BOM
stktxLIKEstko-stktx,"
可选文本
ewahrLIKEstpo-ewahr,"
使用可能性
alprfLIKEstpo-alprf,"
策略
alpgrLIKEstpo-alpgr,"
优先级
alpstLIKEstpo-alpst,"
替代项目组
stvknLIKEstpo-stvkn,
ENDOFitab_ok.
DATA:s_capidLIKEtc04-capid,
noTYPEi,
timeTYPEi,"
每张
BOM
中的最大子节点数
nodeTYPEi,"
子节点
,
层次
linesTYPEi."
循环次数
DATA:bom_itabLIKETABLEOFstpoxWITHHEADERLINE,
bom_itab1LIKETABLEOFstpoxWITHHEADERLINE,
lt_itabLIKETABLEOFitab_okWITHHEADERLINE,
gt_itabLIKETABLEOFitab_okWITHHEADERLINE,
wa_gt_itabLIKETABLEOFitab_okWITHHEADERLINE,
i_topmatLIKEcstmat.
*---------------------Selectionscreen-------------------------------
---
SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLETEXT-010.
SELECT-OPTIONS:s_matnrFORmast-matnr.
SELECT-OPTIONS:s_matnr1FORmast-matnr.
PARAMETERS:s_werksLIKEmast-werksOBLIGATORYMEMORYIDwrk.
PARAMETERS:s_stlanLIKEmast-stlanOBLIGATORYDEFAULT'1'."BOM
用途
SELECT-OPTIONS:s_dateFORstko-datuv.
SELECTION-SCREEN:ENDOFBLOCKb1.
*--------------------Startofselection------------------------------
---
INITIALIZATION.
START-OF-SELECTION.
IFs_matnr1ISNOTINITIAL.
PERFORMfrm_getdata.
IFgt_itab[]ISINITIAL.
MESSAGE'所查询的物料没有 BOM 清单.'TYPE'I'.
EXIT.
ENDIF.
ELSE.
PERFORMfrm_get_headdata.
IFNOTitab_mast[]ISINITIAL.
PERFORMfrm_get_bomdata.
ELSE.
MESSAGE'所查询的物料没有 BOM 清单.'TYPE'I'.
剩余11页未读,继续阅读
dndxcsy
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论5