《原料仓库存价值报表》由会员分享,可在线阅读,更多相关《原料仓库存价值报表(31页珍藏版)》请在金锄头文库上搜索。
1、原料仓库存价值报表原料仓库存价值报表*OB08),kwert_hk_amt LIKE konv-kwert “折港币金额,bukrs LIKE t001-bukrs “公司代码,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.SELECTION-SCREEN BEGIN OF BLOCK bl WITH FRAME TITLE text-001.SELECT-OPTIONS:s_werks FOR ekpo-
2、werks OBLIGATORY,“ Default 8101, “工厂s_mtart FOR mara-mtart OBLIGATORY,“ DEFAULT ZROH, “物料类型s_matkl FOR mara-matkl, “物料组s_matnr FOR mara-matnr,“ DEFAULT FG01050136, “物料号s_lgort FOR mchb-lgort, “仓位s_charg FOR mska-charg, “批次s_vbeln FOR vbap-vbeln. “销售凭证PARAMETER:s_bar TYPE char18, “条形码s_gh TYPE char18
3、, “缸号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 slis_formname VALUE PF_STATUS,g_callback_usercommand TYPE slis_formname VALUE USER_COMM,gt_fieldcat TYPE slis_t_field
4、cat_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 SELECTION-SCREEN.IF s_werks IS INITIAL.MESSAGE e000(ztmsg).ENDIF.IF s_mtart IS INITIAL. “物料类型MESSAGE e002(ztmsg).ENDIF.START-OF-
5、SELECTION.PERFORM get_data.PERFORM process_data.PERFORM build_field.END-OF-SELECTION.PERFORM display_data.* MSC2NCALL FUNCTION CLAF_CLASSIFICATION_OF_OBJECTSEXPORTINGclasstype = 022object = g_objectobjecttable = MCHATABLESt_class = wa_sclasst_objectdata = wa_clobjdatEXCEPTIONSno_classification = 1no_classtypes = 2invalid_class_type = 3OTHERS = 4.ENDFORM. “GET_BARCODE