《库存明细报表.doc》由会员分享，可在线阅读，更多相关《库存明细报表.doc（28页珍藏版）》请在金锄头文库上搜索。
1、库存明细报表*&-*& REPORT ZTMM_RP0003*& Report Name: 库存明细报表*& Report Description: MM-16 库存明细报表*& T-Code: ZTM003*&-*& Created By: TTC Created On: 2012-08-01*& Updated By: TTC Updated On: 2012-08-01*&-*REPORT ztmm_rp003.TABLES:mara,makt,t023t,ekko,lfa1,vbak,vbap,eket,mseg,mska,vbpa,mchb,ekpo. MCHB MTS无销售单库存
2、MSKA MTO有销售单库存DATA: i_row TYPE i.DATA: g_value1 LIKE ausp-objek.DATA:wa_sclass LIKE sclass OCCURS 0 WITH HEADER LINE, wa_clobjdat LIKE clobjdat OCCURS 0 WITH HEADER LINE.DATA: BEGIN OF wa_stock OCCURS 0 ,mtart LIKE mara-mtart 物料类型 ,werks LIKE mska-werks 工厂 ,slrq(10) 上料日期 ,charg(20) 批次 ,barcode(20) 条
3、形码 ,matnr LIKE mska-matnr 物料号 ,maktx LIKE makt-maktx 物料描述 ,wgbez LIKE t023t-wgbez 物料组描述 ,j_3apgnr LIKE mara-j_3apgnr 物料网格编号 ,j_3asize LIKE mska-j_3asize 网格值 ,atwtb LIKE cawnt-atwtb 网格值描述 ,smno(20) 供应商物料编码 ,clabs LIKE mchb-clabs 非限制使用库存 ,cinsm LIKE mchb-cinsm 质量检验库存 ,cspem LIKE mchb-cspem 已冻结库存 ,now_
4、qty LIKE mska-kalab 最新库存数量 ,meins(10) 基本单位 ,j_3arqda LIKE vbap-j_3arqda 成衣货期 ,state_qi(10) QI状态 ,lgort LIKE mchb-lgort 仓位 ,cwdes(30) 仓位描述 ,ersda LIKE mska-ersda 入仓日期 ,eindt LIKE eket-eindt 交货日期 ,sldh(20) 上料单号 ,ebeln(20) 采购单号 ,lifnr(20) 供应商编码 ,name1(30) 供应商名称 ,kfmc(30) 客户名称 ,prfh(20) 生产款号 ,insmk(20)
5、库存状态 MSEG-INSMK ,gh(20) 缸号 ,sush(20) 供应商色号 ,cgrp(20) 颜色组 ,vbeln LIKE mska-vbeln 销售凭证 ,posnr LIKE mska-posnr 项目 ,spart LIKE vbak-spart 产品类型 ,remark(30) 备注 ,matkl LIKE mara-matkl 物料组 ,END OF wa_stock.DATA: wa_stock_b LIKE wa_stock OCCURS 0.DATA: wa_stock_header LIKE wa_stock OCCURS 0 WITH HEADER LINE.
6、TYPES: t_stock LIKE SORTED TABLE OF wa_stock.SELECTION-SCREEN BEGIN OF BLOCK bl WITH FRAME TITLE text-001.SELECT-OPTIONS:s_werks FOR ekpo-werks, DEFAULT 8101,s_mtart FOR mara-mtart, DEFAULT ZROH, 物料类型s_matkl FOR mara-matkl,s_matnr FOR mara-matnr, DEFAULT FG01050136, 物料号s_lgort FOR mchb-lgort, 仓位s_ch
7、arg FOR mska-charg, DEFAULT 0000248602, 批次s_vbeln FOR vbap-vbeln. 销售凭证PARAMETER:s_bar TYPE char18, 条形码s_gh TYPE char18, 缸号s_pstyle TYPE char18, 生产款号s_po TYPE char18, 采购单号s_slrq TYPE char10. 上料日期SELECTION-SCREEN END OF BLOCK bl.TYPE-POOLS slis.DATA: g_repid LIKE sy-repid, g_callback_pf_status TYPE sl
8、is_formname VALUE PF_STATUS, g_callback_usercommand TYPE slis_formname VALUE USER_COMM, gt_fieldcat TYPE slis_t_fieldcat_alv, wa_fieldcat TYPE slis_fieldcat_alv, gt_event TYPE slis_t_event, wa_event TYPE slis_alv_event, gt_selfield TYPE slis_selfield OCCURS 0, l_layout TYPE slis_layout_alv.AT SELECT
9、ION-SCREEN. IF s_werks IS INITIAL. MESSAGE e000(ztmsg). ENDIF. IF s_mtart IS INITIAL. 物料类型 MESSAGE e002(ztmsg). ENDIF.START-OF-SELECTION. PERFORM get_data. PERFORM process_data. PERFORM build_field.END-OF-SELECTION. IF ( sy-uzeit = 4:00 AND sy-uzeit = 7:00 ) OR sy-uname = TCTANG. PERFORM save_alv_da
10、ta. ENDIF. PERFORM display_data.*&-*& Form GET-DATA*&-*text*-*FORM get_data. IF s_vbeln . 判断销售单号是否为空 PERFORM get_so_fc. ELSE. PERFORM get_so_fc.* 无单库存 MCHB * SELECT mchbwerks mchbcharg mchbmatnr mchbj_3asize mchbersda mchbclabs AS now_qty mchbclabs mchbcinsm mchbcspem mchblgort maramtart maraj_3apgn
11、r marameins maramatkl maktmaktx t023twgbez INTO CORRESPONDING FIELDS OF TABLE wa_stock_b FROM mchb INNER JOIN mara ON maramatnr = mchbmatnr INNER JOIN makt ON maktmatnr = maramatnr AND maktspras = 1 INNER JOIN t023t ON t023tmatkl = maramatkl AND t023tspras = 1 WHERE mchbwerks IN s_werks AND mchbmatnr IN s_matnr AND mchblvorm = AND maramtart IN s_mtart AND maramatkl IN s_matkl
