2013年sap abap51sap知名机构培训实战视频教程英文exe

1、*&-*& Program Name: Z_EXAM1_angelq *& Module: RT *& Author: *& Create Date:/ / *& Program Type: Report *& SAP Release: *& Description: 本报表用于入库单查询的相关信息*&-*REPORT z_exam1_angelqLINE-SIZE 175LINE-COUNT 50(2)MESSAGE-ID 00NO STANDARD PAGE HEADING.*Table Definition-*TABLES: mkpf,商品凭证mseg,商品makt,商品描述t001w.

2、地点/分支机构*type-pools-*TYPE-POOLS: slis.*variable Definition-*DATA : fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,v_layout TYPE slis_layout_alv.DATA: gs_layoutTYPE slis_layout_alv,gt_sortTYPE slis_t_sortinfo_alv WITH HEADER LINE,*& Title:入库单查询*SORT FORMATgt_eventsTYPE slis_t_event,i_eventsTYPE sl

3、is_t_event WITH HEADER LINE. DATA: g_rd LIKE sy-rd,page_num(2) TYPE c ,page_txt(10) TYPE c .RANGES: r_datum FOR sy-datum.*ernal Table Definition-*FIELD-SYMBOLS: TYPE ANY, TYPE ANY, TYPE ANY,商品凭证中的项目 TYPE ANY,凭证类型 TYPE ANY,参考凭证号 TYPE ANY,移动类型 TYPE ANY,商品号 TYPE ANY,商品名称 TYPE ANY, 地点 TYPE ANY, 地点名称 TYP

4、E ANY,库存地点 TYPE ANY,特殊库存标识 TYPE ANY, 数量*box, TYPE ANY.DATA:BEGIN OF i_table OCCURS 0 ,mblnr LIKE mseg-mblnr,商品凭证zeile LIKE mseg-zeile,商品凭证中的项目blart LIKE mkpf-blart,凭证类型xblnr LIKE mkpf-xblnr,参考凭证号bwart LIKE mseg-bwart,移动类型matnr LIKE mseg-matnr,商品号maktx LIKE makt-maktx,商品名称werks LIKE mseg-werks,地点name

5、1 LIKE t001w-name1,地点名称lgort LIKE mseg-lgort,库存地点sobkz LIKE mseg-sobkz,特殊库存标识menge LIKE mseg-menge ,数量*box,didian(25),复合地点名称END OF i_table.DATA: it_01 LIKE i_table OCCURS 0.*t_sortTYPE slis_t_sortinfo_alv WITH HEADER LINE,DATA:BEGIN OF i_table1 OCCURS 0 ,matnr LIKE mseg-matnr,商品号maktx LIKE makt-makt

6、x,商品名称END OF i_table1.DATA:BEGIN OF i_table2 OCCURS 0 ,werks LIKE mseg-werks,地点name1 LIKE t001w-name1,地点名称END OF i_table2.SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-010.SELECT-OPTIONS:s_budat FOR mkpf-budat OBLIGATORY ,入库的记账日期s_blart FOR mkpf-blart,凭证类型s_bwart FOR mseg-bwart DEFAUL

7、T 101,移动类型s_matnr FOR mseg-matnr,商品编码s_werks FOR mseg-werks.地点 SELECTION-SCREEN END OF BLOCK block1.SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-020. SELECTION-SCREEN BEGIN OF LINE.PARAMETERS:alv RADIOBUTTON GROUP b1.SELECTION-SCREEN COMMENT 10(22) text-021 FOR FIELD alv.PARAMETERS:l

8、ist RADIOBUTTON GROUP b1.SELECTION-SCREEN COMMENT 70(22) text-022 FOR FIELD list. SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK block2 .*At Selection-Screen-*AT SELECTION-SCREEN. IF s_matnr IS INITIAL AND s_werks IS INITIAL .MESSAGE e368 WITH DDDDDDD 地点/商品编码至少输入一个. ENDIF.INITIALIZATION.

9、 r_datum-option = EQ. r_datum-sign = I. r_datum-low = sy-datum - 1. APPEND r_datum.*&-*&-*START-OF-SELECTION. CLEAR:i_table. REFRESH:i_table. PERFORM sub_fetchdata. PERFORM sub_testing. IF i_table IS INITIAL.MESSAGE i368 WITH 没有符合条件的.EXIT. 代表跳出当前界面，回到选择界面 ENDIF.*&-*&-*END-OF-SELECTION. IF alv = X.PE

10、RFORM alv-display. ELSE.PERFORM list-display. ENDIF.*&-*&-*FORM sub_fetchdata. BREAK-PO.msegzeile 物料凭证中的项目mkpfblart 凭证类型mkpfxblnr 参考凭证号msegbwart 移动类型（库存管理）msegmatnr 物料号msegwerks 工厂 SELECT msegmblnr 物料凭证*&FORM FETCHDATA*&EVENT END-OF-SELECTION*&Event START-OF-SELECTIONmsegsobkz 特殊库存标识msegmenge 数量 FRO

11、M mseg INNER JOkpf ON msegmblnr = mkpfmblnrO CORRESPONDING FIELDS OF TABLE i_table WHEREmkpfbudat IN s_budatAND mkpfblart IN s_blartAND msegbwart IN s_bwartAND msegmatnr IN s_matnrAND msegwerks IN s_werks. IF i_table IS NOT INITIAL.SELECT matnr maktx 物料短文本描述O CORRESPONDING FIELDS OF TABLE i_table1FR

12、OM maktFOR ALL ENTRIES IN i_tableWHERE maktmatnr = i_table-matnr .SELECT werks name1O CORRESPONDING FIELDS OF TABLE i_table2FROM t001wFOR ALL ENTRIES IN i_tableWHERE t001wwerks = i_table-werks. ENDIF. SORT i_table1 BY matnr. SORT i_table2 BY werks.* 普通 loop 实例； LOOP AT i_table.READ TABLE i_table1 WI

13、TH KEY matnr = i_table-matnr BINARY SEARCH .IF sy-subrc = 0.i_table-maktx = i_table1-maktx.ENDIF.READ TABLE i_table2 WITH KEY werks = i_table-werks BINARY SEARCH.IF sy-subrc = 0.i_table-name1 = i_table2-name1.ENDIF.CONCATENATE i_table-werks i_table-name1O i_table-didian.MODIFY i_table . ENDLOOP.*fie

14、ld-symbol loop 实例* LOOP AT i_table ASSIGNING .mseglgort 库存地点ASSIGN COMPONENT DIDIAN OF STRUCTURE TO .*SELECT SINGLE maktxO FROM maktWHERE matnr = AND spras = E.SELECT SINGLE name1 FROM t001wO WHERE werks = .CONCATENATE O .ENDLOOP. SORT i_tabY mblnr zeile.ENDFORM.sub_fetchdata*&-*&FORM FRM_FILL_FIELD

15、*&-*-*-DESCRIPTION TEXT*-*FORM frm_fill_field USING name description dosum outputlen no_zero. CLEAR fieldcat. fieldcat-fieldname= name. fieldcat-tabname= ITAB. fieldcat-seltext_s= description. fieldcat-seltext_m= description. fieldcat-do_sum= dosum. fieldcat-outputlen= outputlen. fieldcat-no_zero= n

16、o_zero. 显示中没有前零 APPEND fieldcat.ENDFORM.FRM_FILL_FIELD*&-*&Form layout_init*&-*-NAMETEXT*TEXT*ASSIGN COMPONENT MATNR OF STRUCTURE TO .*ASSIGN COMPONENT WERKS OF STRUCTURE TO .*ASSIGN COMPONENT MAKTX OF STRUCTURE TO .*ASSIGN COMPONENT NAME1 OF STRUCTURE TO .*text*-*-P_GS_LAYOUT text*-*FORM layout_ini

17、t USING ls_layout TYPE slis_layout_alv. ls_layout-zebra = X.ENDFORM. layout_init*&-*&FORM ALV-DISPLAY*&-*FORM alv-display. REFRESH fieldcat. PERFORM frm_fill_field USING:WERKS地点 10,*NAME1地点名称 10, DIDIAN地点名称 15, MBLNR商品凭证 15, ZEILE商品凭证中的项目 30, BLART凭证类型 10, XBLNR参考凭证号 10, BWART移动类型 10, MATNR商品号 10X,

18、MAKTX商品名称 15, LGORT库存地点8, SOBKZ特殊库存标识 15, MENGE数量X 4.PERFORM layout_init USING gs_layout.PERFORM sort_build USING gt_sort. gs_layoolwidth_optimize = X.gs_layout-get_selinfos = X. gs_layout-zebra = X.gs_layout-box_fieldname = BOX.gt_sort-up = X.gt_sort-fieldname = MBLNR.gt_sort-subtot= X.APPEND gt_so

19、rt.gt_sort-up = X. gt_sort-fieldname = DIDIAN.gt_sort-subtot= X. APPEND gt_sort. CALL FUNCTION REUSE_ALV_GRID_DISPLAYEXPORTINGi_callback_program = g_rdit_fieldcat= fieldcatis_layout= gs_layout v_layouti_save= Ai_default= Xi_grid_title= 入库单查询it_sort= gt_sortit_events= gt_eventsTABLESt_outtab= i_table

20、EXCEPTIONSOTHERS= 2.ENDFORM.ALV-DISPLAY*&-*&Form sort_build*&-*text*-*-P_GT_SORT text*-*FORM sort_build USING lt_sort TYPE slis_t_sortinfo_alv.DATA: ls_sort TYPE slis_sortinfo_alv.ls_sort-fieldname = DIDIAN.ls_sort-s= 1.ls_sort-up= X.ls_sort-subtot= X.APPEND ls_sort TO lt_sort.*ENDFORM.sort_build*&-

21、*&-*FORM list-display. DATA: numTYPE i,flagTYPE c,sumTYPE i,num1TYPE i,v_tabix LIKE sy-tabix. CLEAR sum. LOOP AT i_table.v_tabix = sy-tabix .num = v_tabix MOD 2.CASE num.WHEN 0.FORMAT COLOR 1.WHEN 1.FORMAT COLOR 2.ENDCASE.sum = sum + i_table-menge.AT NEW mblnr.WRITE:/2 i_table-mblnr.flag = X .ENDAT.

22、IF flag = X .WRITE: 1 |, 15 |, i_table-zeile,26 |,i_tablart,37 |, i_table-xblnr,51 |,i_tabwart,60 |,i_table-matnr,79 |,i_tabl e-maktx,105 |,i_table-werks,115 |,i_table-name1,136 |,i_tabl e-lgort,143 |,i_table-sobkz ,156 |,i_table-menge LEFT-JUSTIFIED,1 75 |.CLEAR flag.ELSE.WRITE:/1 |,15 |, i_table-z

23、eile,26 |,i_tablart,37 |,i_table-xblnr,51 |,i_tabwart,60 |,i_table-matnr,79 |,i_table-maktx,105 |,i_table-werks,115 |,i_table-name1,136 |,i_tabl e-lgort,143 |,i_table-sobkz ,156 |,i_table-menge LEFT-JUSTIFIED,1 75 |.ENDIF.FORMAT COLOR COL_KEY OFF. ENDLOOP. ULINE. WRITE:|,合计：,154 sum ,175 |.*&FORM LIST-DISPLAY ULINE. num1 = v_tabix MOD 48. IF num1 0.page_num = sy-pagno.CONCATENATE 第 page_num 页O page_txt.WRITE:/79 page_txt. ENDIF.ENDFORM.LIST-DI