SAP bom展开例程

table, and use download function to save content of internal table to local file
(txt format), open this local file use other tools, e.g. Microsoft Access, in
SELECT * FROM MAST WHERE WERKS = IWERKS
AND MATNR IN IMATNR
AND STLAN = ISTLAN.
IMAST-MATNR = MAST-MATNR.
SELECT SINGLE * FROM MAKT WHERE MATNR = MAST-MATNR.
102 istpo-maktx,143 istpo-ausch,
154 istpo-posnr.
endloop.
endloop.
endloop.
uline.
endloop.
系统报没有：ZSDIAUTH
那一部分是我们自己的权限检查，你把它‘*’掉就可以了
众多BOM组件一次性导出系统的处理
stlkn like stas-stlkn,
end of istas.
data: begin of istpo occurs 0,
stlnr like stpo-stlnr,
menge like stpo-menge,
meins like stpo-meins,
idnrk like stpo-idnrk,
endselect.
LOOP AT IMAST.
SELECT SINGLE * FROM STKO WHERE STLNR = IMAST-STLNR
AND STLAL = IMAST-STLAL
AND LOEKZ NE 'X'.
ISTKO-STLNR = STKO-STLNR.
stlan like mast-stlan,
end of imast.
data: begin of istko occurs 0,
stlnr like stko-stlnr,
stlty like stko-stlty,
stlal like stko-stlal,
bmeng like stko-bmeng,
istpo-maktx = makt-maktx.
endif.
istpo-ausch = stpo-ausch.
istpo-posnr = stpo-posnr.
istpo-stlty = stpo-stlty.
append istpo.
clear istpo.
ENDSELECT.
79 '单位',83 'BOM组件料号',102 'BOM组件名称',
143 '部件废品(%)',154 '项目',159 'BOM套数',166 '表头基本数量',
184 '表头单位',192 '有效期始于',203 'BOM用途'.
uline.
START-OF-SELECTION.
LOOP AT ISTAS.
SELECT * FROM STPO WHERE STLNR = ISTAS-STLNR
AND STLTY = ISTAS-STlTY
AND STLKN = ISTAS-STLKN.
istpo-stlnr = stpo-stlnr.
istpo-menge = stpo-menge.
可以写段调用 BAPI 的 VB 程序，把 BOM 读到任何数据库里去。
You can develop one simple program to finish this task, in this program, you should
use BOM explore function (or logical table) to store components of BOM to internal
CLEAR ISTKO.
* ENDSELECT.
ENDLOOP.
LOOP AT ISTKO.
SELECT * FROM STAS WHERE STLNR = ISTKO-STLNR
AND STLTY = ISTKO-STLTY
AND STLAL = ISTKO-STLAL.
and stlty = istko-stlty.
loop at istpo where stlnr = istas-stlnr
and stlkn = istas-stlkn
and stlty = istas-stlty.
write:/60 istpo-menge,79 istpo-meins,83 istpo-idnrk,
access, you can import your original BOM and create new query to compare them.
我有一段导出程序，如果你有开发权限可以用一下。
REPORT ZPPBOMDOWN NO STANDARD PAGE HEADING line-size 213 line-count 65.
159 istko-stlal,
166 istko-bmeng,
184 istko-bmein,
192 istko-datuv,
203 imast-stlan.
loop at istas where stlnr = istko-stlnr
and stlal = istko-stlal
ENDLOOP.
loop at imast.
loop at istko where stlnr = imast-stlnr
and stlal = imast-stlal.
* and loekz <> 'X'.
write:/00 imast-matnr,
19 imast-maktx,
众多BOM组件一次性导出系统的处理
由于工作需要现需要将导入系统的所有BOM组件导出系统进行核对,但是由于组件数据量太多不能
成功导出,会因为时间过长造成处理错误.另外EXCEL表格最大容量为65536,在处理导出的数据时也
存在不能正常打开文件的情况,请问各仁兄有何高见解决这两个问题.
PARAMETERS: IWERKS LIKE MAST-WERKS OBLIGATORY.
SELECT-OPTIONS: IMATNR FOR MAST-MATNR.
PARAMETERS: ISTLAN LIKE MAST-STLAN OBLIGATORY.
SELECTION-SCREEБайду номын сангаас: END OF BLOCK INPUT.
TABLEs: MAST,STKO,STpo,STAS,MAKT,zusr03.
data: begin of imast occurs 0,
matnr like mast-matnr,
maktx like makt-maktx,
stlnr like mast-stlnr,
stlal like mast-stlal,
istpo-meins = stpo-meins.
istpo-stlkn = stpo-stlkn.
istpo-idnrk = stpo-idnrk.
select single * from makt where matnr = stpo-idnrk.
if sy-subrc = 0.
bmein like stko-bmein,
datuv like stko-datuv,
end of istko.
data: begin of istas occurs 0,
stlnr like stas-stlnr,
stlty like stas-stlty,
stlal like stas-stlal,
AT SELECTION-SCREEN ON BLOCK input.
INCLUDE ZSDIAUTH.
CALL FUNCTION 'Z_PP_AUTH_CHECK'
EXPORTING
WERKS = IWERKS
tables
zwerks = duozhi.
top-of-page.
write: 180 '列印者:',zusr03-name1+0(10).
if imatnr-low <> ' '.
write:/02 '物料号码:',imatnr-low.
if imatnr-high <> ' '.
write: '-',imatnr-high.
endif.
maktx like makt-maktx,
stlkn like stpo-stlkn,
ausch like stpo-ausch,
posnr like stpo-posnr,
stlty like stpo-stlty,
end of istpo.
SELECTION-SCREEN: BEGIN OF BLOCK INPUT.
else.
write:/02 '物料号码:'.