杭州有哪些景点*&-----------------------------------------------------------------* *& Report YPPR0042 SAP BOM展开
*&-----------------------------------------------------------------*
REPORT YPPR0042 NO STANDARD PAGE HEADING.
TYPE-POOLS: SLIS.
TABLES: MAST, "BOM 链接物料
MARA, "常规物料数据
STKO, "BOM 表头
MAKT. "物料描述
DATA: STB LIKE STPOX OCCURS0WITH HEADER LINE,
WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV, "列描述内表，列清单
WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "定义内表
LAYOUT TYPE SLIS_LAYOUT_ALV,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
COUNTER TYPE I VALUE0,
G_REPID LIKE SY-REPID,
DC(1) TYPE C VALUE'X', "是否多层展开默为多层展开
G_USER_COMMAND TYPE SLIS_FORMNAME VALUE'USER_COMMAND'.
DATA: BEGIN OF SELPOOL.
INCLUDE STRUCTURE CSTMAT.
DATA: END OF SELPOOL.
DATA: DSTST_FLG LIKE CSDATA-XFELD. "BOM 帮助字段
DATA: BEGIN OF IT_DATA OCCURS0,
STUFE LIKE STPOX-STUFE, "层次
MATNR LIKE MARA-MATNR, "父件物料编码
OJTXB(80) TYPE C, "父件物料描述
BMENG TYPE I, "BOM中的基本数量
IDNRK LIKE STPOX-IDNRK, "子件物料编码
OJTXP(80) TYPE C, "子件物料描述
ALPRF LIKE STPO-ALPRF, "优先级
EWAHR LIKE STPO-EWAHR, "使用可能性
STLAN LIKE STPOX-STLAN, "BOM用途
STLAL LIKE STPOX-STLAL, "可选的BOM
ALPGR LIKE STPOX-ALPGR, "替代组
MTART LIKE STPOX-MTART, "物料类型
MMEIN LIKE STPOX-MMEIN, "基本计量单位
STPRS LIKE STPOX-STPRS, "标准价格
MNGLG LIKE STPOX-MNGLG, "以基本计量单位为准的已计算的组件数量
MNGKO LIKE STPOX-MNGKO, "以组件计量单位为准的已计算的组件数量 MENGE LIKE STPOX-MENGE, "组件数量
DATUV LIKE STPOX-DATUV, "开始生效/有效截止日期
AENNR LIKE STPOX-AENNR, "更改编号
ANDAT LIKE STPOX-ANDAT, "日期记录创建于
ANNAM LIKE STPOX-ANNAM, "创建记录的用户
AUSCH LIKE STPOX-AUSCH, "工序报废
AVOAU LIKE STPOX-AVOAU, "工序废品
NTGEW LIKE MARA-NTGEW, "净重
BRGEW LIKE MARA-BRGEW, "毛重
WEIGH LIKE MARA-BRGEW, "重量 = BOM用量 * 单重
STAWN LIKE MARC-STAWN, "外贸的商品代码和进口代码
STAWT(200) TYPE C, "海关编码描述
SEL TYPE C,
END OF IT_DATA.
DATA: BEGIN OF MATCAT OCCURS50.
INCLUDE STRUCTURE CSCMAT.
DATA: END OF MATCAT.
DATA: BEGIN OF MATS.
INCLUDE STRUCTURE CSCMAT.
天目山旅游景点攻略DATA: END OF MATS.
DATA: BEGIN OF DLLH_DATA,
MATNR LIKE MARA-MATNR, "物料编码
BMENG TYPE I, "BOM中的基本数量
END OF DLLH_DATA.
DATA: TDLLH_DATA LIKE DLLH_DATA OCCURS0.
DATA: BEGIN OF WLXX_DATA,
MATNR LIKE MARA-MATNR, "物料编码
NORMT LIKE MARA-NORMT, "延伸机种，即机型
清明文章MAKTX(80) TYPE C, "物料描述
GROES LIKE MARA-GROES, "描述补充
NTGEW LIKE MARA-NTGEW, "净重
赤泥BRGEW LIKE MARA-BRGEW, "毛重
STAWN LIKE MARC-STAWN, "外贸的商品代码和进口代码
END OF WLXX_DATA.
DATA: TWLXX_DATA LIKE WLXX_DATA OCCURS0.
DATA: BEGIN OF HGBM_DATA,
海口骑楼小吃街STAWN LIKE T604T-STAWN, "外贸的商品代码和进口代码
TEXT1(200) TYPE C, "描述
白果有什么功效
TEXT2 LIKE T604T-TEXT2, "描述
TEXT3 LIKE T604T-TEXT3, "描述
TEXT4 LIKE T604T-TEXT4, "描述
TEXT5 LIKE T604T-TEXT5, "描述
TEXT6 LIKE T604T-TEXT6, "描述
TEXT7 LIKE T604T-TEXT7, "描述
END OF HGBM_DATA.
DATA: THGBM_DATA LIKE HGBM_DATA OCCURS0.
SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE text-001.元宵和汤圆有什么区别
* SELECT-OPTIONS: S_WERKS FOR MAST-WERKS DEFAULT '1000'. "工厂
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR, "成品编码
S_MTART FOR MARA-MTART, "物料类型
S_MATKL FOR MARA-MATKL, "物料组
S_MAKTX FOR MAKT-MAKTX, "物料描述
S_NORMT FOR MARA-NORMT. "机型
PARAMETERS: P_EMENG LIKE STKO-BMENG OBLIGATORY DEFAULT'1', "R equired quantity
P_STLAN LIKE MAST-STLAN DEFAULT'1'. "B OM 用途
SELECTION-SCREEN SKIP1.
PARAMETERS:RB_MCB RADIOBUTTON GROUP RG1 DEFAULT'X', "多层展开
RB_SCB RADIOBUTTON GROUP RG1. "单层展开
SELECTION-SCREEN SKIP1.
PARAMETERS:RB_YTD RADIOBUTTON GROUP RG2 DEFAULT'X', "有替代料
综合鉴定材料
RB_WTD RADIOBUTTON GROUP RG2. "无替代料
SELECTION-SCREEN SKIP1.
PARAMETERS:RB_ALL RADIOBUTTON GROUP RG3, "显示所有列
RB_HGY RADIOBUTTON GROUP RG3 DEFAULT'X'. "仅显示海关专用列
SELECTION-SCREEN SKIP1.
PARAMETERS:RB_YBC RADIOBUTTON GROUP RG4, "仅计算原材料重量
RB_WBC RADIOBUTTON GROUP RG4 DEFAULT'X'. "计算所有物料重量
SELECTION-SCREEN END OF BLOCK SCR1.
INITIALIZATION.
G_REPID = SY-REPID.
START-OF-SELECTION.
SELECT MARA~MATNR
INTO CORRESPONDING FIELDS OF TABLE TDLLH_DATA "取得物料编码内表FROM MARA
INNER JOIN MAKT ON MARA~MATNR = MAKT~MATNR
WHERE MARA~MATNR IN S_MATNR AND MARA~MTART IN S_MTART AND MARA~NORMT IN S_NORMT AND MAKT~MAKTX IN S_MAKTX AND MARA~MATKL IN S_MATKL AND MA KT~SPRAS = SY-LANGU.
SORT TDLLH_DATA BY MATNR.
SELECT T604T~STAWN T604T~TEXT1 T604T~TEXT2 T604T~TEXT3 T604T~TEXT4 T6 04T~TEXT5 T604T~TEXT6 T604T~TEXT7
INTO TABLE THGBM_DATA "取得海关编码及描述内表
FROM T604T
WHERE T604T~SPRAS = SY-LANGU.
SORT THGBM_DATA BY STAWN.
LOOP AT THGBM_DATA INTO HGBM_DATA.
CONCATENATE HGBM_DATA-TEXT1 HGBM_DATA-TEXT2 HGBM_DATA-TEXT3 HGBM_DA
TA-TEXT4 HGBM_DATA-TEXT5 HGBM_DATA-TEXT6 HGBM_DATA-TEXT7 INTO HGBM_DA TA-TEXT1.
MODIFY THGBM_DATA FROM HGBM_DATA.
ENDLOOP.
IF RB_MCB = ''. "如果选择为单层展开则把原来的默认值由X 改为空
DC = ''.
ENDIF.
CLEAR: DLLH_DATA.
LOOP AT TDLLH_DATA INTO DLLH_DATA. "循环每个物料号
CLEAR: STB.
CALL FUNCTION'CS_BOM_EXPL_MAT_V2'
EXPORTING
CAPID = 'ZP01'"BOM 应用程序
DATUV = SY-DATUM "有效起始日
EMENG = P_EMENG "基本数量 Required quantity STKO-BMENG
MTNRV = DLLH_DATA-MATNR "成品号或半成品号
STLAN = '1'"BOM用途，1代表生产 STLAL = ''"可选BOM
MKTLS = 'X'
MEHRS = DC "是否多层展开，'X' 代表多层
RNDKZ = '1'"Round off: ' '=a lways, '1'=never, '2'=only levels > 1 是否取整
WERKS = '1000'"工厂
IMPORTING
TOPMAT = SELPOOL "开始BOM 展开的物料显示
DSTST = DSTST_FLG "BOM 帮助字段TABLES
STB = STB
MATCAT = MATCAT "下面含有组件的物料存放在该内表对应 STB-TTIDX 在类别表内的索引﹐标志直属哪个物料下的 BOM EXCEPTIONS
ALT_NOT_FOUND = 1
CALL_INVALID = 2
MATERIAL_NOT_FOUND = 3
MISSING_AUTHORIZATION = 4
NO_BOM_FOUND = 5
