生產(chǎn)欠料訂單

1、INCLUDE ZBCDWI000.INCLUDE <ICON>.TYPE-POOLS: SLIS.*-* Constants                                   &

2、#160;                        *-*-* Data dictionary tables and structures              

3、;                  *-*TABLES: AFKO.          " Order header data PP ordersTABLES: AFPO.     

4、60;    " Order itemTABLES: EKKO.          " Purchasing Document HeaderTABLES: EKPO.          " Purchasing Document 

5、ItemTABLES: JEST.          " Individual Object StatusTABLES: MARA.          " General Material DataTABLES: MARC.     

6、60;    " Plant Data for MaterialTABLES: MARD.          " Storage Location Data for MaterialTABLES: MAKT.          &

7、quot; Material DescriptionsTABLES: MAST.          " Material to BOM LinkTABLES: MBEW.          " Material ValuationTABLES: MKOL. &

8、#160;        " Special Stocks from VendorTABLES: MSLB.          " Special Stocks with VendorTABLES: PLAF.       

9、60;  " Planned orderTABLES: RESB.          " Reservation/dependent requirementsTABLES: T001W.         " Plants/BranchesTABLES: TJ02T. &

10、#160;       " System status textsTABLES: T001.          " Company CodesTABLES: T001K.         " Valuation area

11、TABLES: T024W.         " Valid Purchasing Organizations for PlantTABLES: T399D.         " Control Parameters for MRPTABLES: T438A. 

12、0;       " MRP TypeTABLES: T438M.         " Control Parameter for MRP -Material Level-TABLES: T450N.         "

13、 Transaction Control MRP With ObjectTABLES: VBEP .         " Sales Document: Schedule Line DataTABLES: CAUFV.         " Production

14、 order tableTABLES: MSEG.          " Material doc. detail*-* Select options and parameters                 

15、60;                      *-*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-F01.SELECT-OPTIONS: S_AUFNR FOR RESB-AUFNR &#

16、160;MEMORY ID ANR."MATCHCODE OBJECT ORDER.SELECT-OPTIONS: S_MATNR FOR RESB-MATNR  MATCHCODE OBJECT MAT MEMORY ID MAT.SELECT-OPTIONS: S_MTART FOR MARA-MTART  DEFAULT 'ROH'.SELECT-OPTIONS:&

17、#160;S_BDTER FOR RESB-BDTER  DEFAULT SY-DATUM.SELECT-OPTIONS: S_WERKS FOR T001W-WERKS DEFAULT '2001' OBLIGATORY.*PARAMETERS   : P_WERKS LIKE T001W-WERKS DEFAULT '2001' OBLIGATORY.SELEC

18、T-OPTIONS: S_DISPO FOR MARC-DISPO MEMORY ID DGR.SELECT-OPTIONS: S_EKGRP FOR MARC-EKGRP MEMORY ID EKG.SELECT-OPTIONS: S_EBELN FOR EKPO-EBELN .SELECT-OPTIONS: S_EBELP FOR EKPO-EBELP .PARAMETERS 

19、60;  : P_EXOPN AS CHECKBOX DEFAULT 'X'. "Exclude zero open qty.PARAMETERS    : P_OUTST AS CHECKBOX DEFAULT 'X'.SELECTION-SCREEN SKIP .SELECTION-SCREEN BEGIN OF

20、 LINE.PARAMETERS    : P_PRDCHK RADIOBUTTON GROUP GRP.SELECTION-SCREEN COMMENT 04(15) TEXT-AB1.PARAMETERS    : P_POCHK  RADIOBUTTON GROUP GRP.SELECTION-SCREEN COMMENT 22(16) TEXT-AB

21、2.PARAMETERS    : P_PLAN   RADIOBUTTON GROUP GRP.SELECTION-SCREEN COMMENT 41(20) TEXT-AB4.PARAMETERS    : P_ALL    RADIOBUTTON GROUP GRP.SELECTION-SCREEN COMMENT 64(17)&#

22、160;TEXT-AB3.SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.PARAMETERS    : P_DET    RADIOBUTTON GROUP GRP DEFAULT 'X'.SELECTION-SCREEN COMMENT 04(40) TEXT-AB5.SELECTION

23、-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK B1.SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-F02.SELECTION-SCREEN END OF BLOCK B2.SELECTION-SCREEN BEGIN OF BLOCK B3

24、0;WITH FRAME TITLE TEXT-F03.SELECTION-SCREEN END OF BLOCK B3.SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-F04.PARAMETERS    : P_DAT00 LIKE MDEZ-DAT00 OBLIGATORY DEFAULT

25、 SY-DATUM.PARAMETERS    : P_DAY   RADIOBUTTON GROUP RAD1.PARAMETERS    : P_WEEK  RADIOBUTTON GROUP RAD1 DEFAULT 'X'.PARAMETERS    : P_MNTH  RADIOBU

26、TTON GROUP RAD1.SELECTION-SCREEN END OF BLOCK B4.SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-F05.PARAMETERS    : P_COLT RADIOBUTTON GROUP DPL  DEFAULT 'X'

27、 .PARAMETERS    : P_DETL RADIOBUTTON GROUP DPL.SELECTION-SCREEN END OF BLOCK B5.*-* Constants                       

28、;                                   *-*CONSTANTS: TRUE(001)   TYPE C VALUE  '0

29、9;.CONSTANTS: FALSE(001)  TYPE C VALUE  '1'.CONSTANTS: D_INTER     TYPE I VALUE  '69'.CONSTANTS: TCODE       LIKE T450N-TCODE VALUE 'MD04

30、9;.CONSTANTS: ANZML(002)  TYPE C   VALUE 'B7'  .CONSTANTS: LFRML(002)  TYPE C   VALUE 'L7'  .CONSTANTS: CHAR1(001)  TYPE C   VALUE '1'&#

31、160;  .CONSTANTS: XFLAG(001)  TYPE C   VALUE 'X'   .*-* Internal tables and field strings                   

32、;                 *-*TYPES:  BEGIN OF WTAB_TYPE,                   "    

33、60;    MATNR        LIKE   MARA-MATNR,   " Material Number         MAKTX        LIKE   MAKT-MAK

34、TX,   " Material description         WERKS        LIKE   MARD-WERKS,   " Plant         DAT00 &#

35、160;      LIKE   MDEZ-DAT00,   " Date         OSQTY        LIKE   MDEZ-MNG01,   " WO/PO oustanding&#

36、160;qtyEND OF WTAB_TYPE.TYPES:  BEGIN OF ITAB_TYPE,         MATNR        LIKE   MARA-MATNR,   " Material Number     

37、;    MAKTX        LIKE   MAKT-MAKTX,   " Material description         WERKS        LIKE   MARD-

38、WERKS,   " Plant         BACK_LOGQTY  LIKE   MDEZ-MNG01,   " Backlog qty         OSQTY01      LIKE&#

39、160;  MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY02      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty    

40、;     OSQTY03      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY04      LIKE   MDEZ-MNG01,

41、60;  " WO/PO oustanding qty         OSQTY05      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         

42、;OSQTY06      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY07      LIKE   MDEZ-MNG01,   " WO/

43、PO oustanding qty         OSQTY08      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY09   

44、0;  LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY10      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty

45、60;        OSQTY11      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY12      LIKE  

46、 MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY13      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty     

47、60;   OSQTY14      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY15      LIKE   MDEZ-MNG01,  &

48、#160;" WO/PO oustanding qty         OSQTY16      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY17&#

49、160;     LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY18      LIKE   MDEZ-MNG01,   " WO/PO ou

50、standing qty         OSQTY19      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY20     &#

51、160;LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY21      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty  &

52、#160;      OSQTY22      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY23      LIKE   MDEZ

53、-MNG01,   " WO/PO oustanding qty         OSQTY24      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty       &

54、#160; OSQTY25      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY26      LIKE   MDEZ-MNG01,   "

55、; WO/PO oustanding qty         OSQTY27      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY28  

56、    LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY29      LIKE   MDEZ-MNG01,   " WO/PO oustanding&#

57、160;qty         OSQTY30      LIKE   MDEZ-MNG01,   " WO/PO oustanding qty         OSQTY31      LIKE&#

58、160;  MDEZ-MNG01,   " WO/PO oustanding qty         OVER_QTY     LIKE   MDEZ-MNG01,   " Over qty       

59、60; ICON(004),         SELK(001),END OF ITAB_TYPE.DATA : PTAB TYPE ITAB_TYPE OCCURS 0 WITH HEADER LINE.DATA : WTAB TYPE WTAB_TYPE OCCURS 0 WITH HEADER 

60、;LINE.DATA: BEGIN OF MTAB OCCURS 0.DATA: MATNR  LIKE MARA-MATNR.DATA: MAKTX  LIKE MAKT-MAKTX.DATA: WERKS  LIKE MARC-WERKS.DATA: LABST  LIKE MARD-LABST .  " Standard 

61、StockDATA: UMLME  LIKE MARD-UMLME.DATA: INSME  LIKE MARD-INSME.   " Stock in Quality InspectionDATA: SLABS  LIKE MKOL-SLABS.DATA: LBLAB  LIKE MSLB-LBLAB .  "

62、60;Valuated Unrestricted-Use StockDATA: AVASTK LIKE MARD-LABST.   " Available StockDATA: END OF MTAB.DATA: BEGIN OF I_RESB OCCURS 0 .        INCLUDE STRUCT

63、URE RESB .DATA: SELK(001).                  " Selected FieldsDATA: ICON(004).DATA: END   OF I_RESB .DATA: BEGIN OF ITAB OCCUR

64、S 0 .        INCLUDE STRUCTURE RESB .DATA: MAKTX    LIKE MAKT-MAKTX.   " Component descriptionDATA: MTART    LIKE MARA-MTART.   &q

65、uot; Material TypeDATA: OPNQTY   LIKE RESB-BDMNG.   " Qty OpenDATA: SHORTAGE LIKE RESB-ENMNG.   " Material ShortageDATA: AVASTK   LIKE MARD-LABST.   &

66、quot; Available StockDATA: XMENG    LIKE RESB-ENMNG.   " Outstanding PODATA: BDMNG1   LIKE RESB-BDMNG.   " Total Req'd Qty => ReservationDATA: LABST

67、    LIKE MARD-LABST.   " Standard StockDATA: UMLME    LIKE MARD-UMLME.   " Stock in transferDATA: INSME    LIKE MARD-INSME.   "

68、60;Stock in Quality InspectionDATA: SLABS    LIKE MKOL-SLABS .  " Consignment StockDATA: LBLAB    LIKE MSLB-LBLAB .  " Valuated Unrestricted-Use StockDATA: 

69、;BACK_LOGQTY LIKE MDEZ-MNG01." Backlog qtyDATA: OSQTY01  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY02  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: 

70、OSQTY03  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY04  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY05  LIKE MDEZ-MNG01.   " WO/PO

71、60;oustanding qtyDATA: OSQTY06  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY07  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY08  LIKE MDEZ-MNG01. 

72、;  " WO/PO oustanding qtyDATA: OSQTY09  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY10  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY11 

73、; LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY12  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY13  LIKE MDEZ-MNG01.   " WO/PO oustandin

74、g qtyDATA: OSQTY14  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY15  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY16  LIKE MDEZ-MNG01.   

75、;" WO/PO oustanding qtyDATA: OSQTY17  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY18  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY19  LIKE&

76、#160;MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY20  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY21  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDA

77、TA: OSQTY22  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY23  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY24  LIKE MDEZ-MNG01.   " 

78、;WO/PO oustanding qtyDATA: OSQTY25  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY26  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY27  LIKE MDEZ-MN

79、G01.   " WO/PO oustanding qtyDATA: OSQTY28  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY29  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQ

80、TY30  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY31  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OVER_QTY LIKE MDEZ-MNG01.   " Over qtyDAT

81、A: SELK(001).                  " Selected FieldsDATA: ICON(004).DATA: END   OF ITAB .* define internal table for collectiveDATA:&#

82、160;BEGIN OF COLLECT_ITAB OCCURS 0 .DATA: MATNR    LIKE RESB-MATNR.DATA: MAKTX    LIKE MAKT-MAKTX.   " Component descriptionDATA: BDART    LIKE RESB-BDART.

83、DATA: MTART    LIKE MARA-MTART.   " Material TypeDATA: EKGRP    LIKE RESB-EKGRP.DATA: MEINS    LIKE RESB-MEINS.DATA: WERKS    LIKE RESB-WERKS.DATA:

84、60;BDMNG    LIKE RESB-BDMNG.DATA: ENMNG    LIKE RESB-ENMNG.DATA: OPNQTY   LIKE RESB-BDMNG.   " Qty OpenDATA: SHORTAGE LIKE RESB-ENMNG.   " Material

85、60;ShortageDATA: AVASTK   LIKE MARD-LABST.   " Available StockDATA: XMENG    LIKE RESB-ENMNG.   " Outstanding PODATA: BDMNG1   LIKE RESB-BDMNG.   

86、;" Total Req'd Qty => ReservationDATA: LABST    LIKE MARD-LABST.   " Standard StockDATA: UMLME    LIKE MARD-UMLME.   " Stock in transferDA

87、TA: INSME    LIKE MARD-INSME.   " Stock in Quality InspectionDATA: SLABS    LIKE MKOL-SLABS .  " Consignment StockDATA: LBLAB    LIKE MSLB-L

88、BLAB .  " Valuated Unrestricted-Use StockDATA: BACK_LOGQTY LIKE MDEZ-MNG01." Backlog qtyDATA: OSQTY01  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY02  LIKE&#

89、160;MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY03  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY04  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDAT

90、A: OSQTY05  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY06  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY07  LIKE MDEZ-MNG01.   " 

91、WO/PO oustanding qtyDATA: OSQTY08  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY09  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY10  LIKE MDEZ-MNG

92、01.   " WO/PO oustanding qtyDATA: OSQTY11  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY12  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQT

93、Y13  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY14  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY15  LIKE MDEZ-MNG01.   " WO/PO o

94、ustanding qtyDATA: OSQTY16  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY17  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY18  LIKE MDEZ-MNG01. 

95、60; " WO/PO oustanding qtyDATA: OSQTY19  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY20  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY21 

96、60;LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY22  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY23  LIKE MDEZ-MNG01.   " WO/PO oustanding

97、60;qtyDATA: OSQTY24  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY25  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY26  LIKE MDEZ-MNG01.   &qu

98、ot; WO/PO oustanding qtyDATA: OSQTY27  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY28  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY29  LIKE 

99、;MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY30  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA: OSQTY31  LIKE MDEZ-MNG01.   " WO/PO oustanding qtyDATA:&

100、#160;OVER_QTY LIKE MDEZ-MNG01.   " Over qtyDATA: SELK(001).                  " Selected FieldsDATA: ICON(004).DATA: END   OF&

101、#160;COLLECT_ITAB .DATA:  BEGIN OF DATE_TAB OCCURS 0."Column heading for date displayingDATA:  DAT00 LIKE MDEZ-DAT00.     "DateDATA:  WEEK  LIKE SCAL-WEEK. 

102、0;    "WeekDATA:  MONTH LIKE S031-SPMON.     "MonthDATA:  END OF DATE_TAB.DATA: IMARD LIKE MARD OCCURS 0 WITH HEADER LINE.DATA: IMKOL LIKE MKOL O

103、CCURS 0 WITH HEADER LINE.*> bom explosion data storeDATA: I_BOM    LIKE STPOX  OCCURS 0 WITH HEADER LINE.DATA: I_MATCAT LIKE CSCMAT OCCURS 0 WITH HEADER LINE

104、.DATA:  BEGIN OF DUMMY OCCURS 1,         DUMMY,       END OF DUMMY.DATA:  MT61D           LIKE MT61D, 

105、60;     CM61X           LIKE CM61X,       CM61W           LIKE CM61W,       CM61M

106、0;          LIKE CM61M,       MTCOM           LIKE MTCOM,       MTCOR       

107、0;   LIKE MTCOR,       MASEL           LIKE MASEL.DATA:  MDKP            LIKE MDKP,    

108、60;  MDKPS           LIKE MDKP,       MDST            LIKE MDST,       MDSTA   &

109、#160;       LIKE MDSTA,       MDPSX           LIKE MDPS   OCCURS 0 WITH HEADER LINE,       MDEZ

110、X           LIKE MDEZ   OCCURS 0 WITH HEADER LINE,       MDSUX           LIKE MDSU   OCCURS

111、0;0 WITH HEADER LINE,       MDINX           LIKE MDIN   OCCURS 0 WITH HEADER LINE.DATA:  MDEZX_MLINE     LIKE SY-TA

112、BIX,       MDSUX_MLINE     LIKE SY-TABIX,       MDSUX_BLINE     LIKE SY-TABIX.*-> Tabelle der offenen BestellungenDATA: BEGIN OF XTA

113、B OCCURS 10,         WERKS LIKE EKPO-WERKS,         LGORT LIKE EKPO-LGORT,         MATNR LIKE EKPO-MATNR,   &#

114、160;     MENGE LIKE EKPO-MENGE,         MENGK LIKE EKPO-MENGE,       END OF XTAB.*-> Kennzeichen Mengenabw. Stahl, Wirkst.DATA: KZWSO

115、0;LIKE MARA-KZWSM.*-> Tabelle der ReservierungenDATA: BEGIN OF XTAB1 OCCURS 10,        "Tabelle der Reservierungen         WERKS LIKE RESB-WER

116、KS,         LGORT LIKE RESB-LGORT,         CHARG LIKE RESB-CHARG,         MATNR LIKE RESB-MATNR,      

117、60;  BDMNG LIKE RESB-BDMNG,         BDMNS LIKE RESB-BDMNG,         ERFME LIKE RESB-ERFME,             

118、60;        "ALRK014884 SW         ERFMG LIKE RESB-ERFMG,                      "A

119、LRK014884 SW       END OF XTAB1.*-> Hilfsfelder f榛?die Sammelanzeige aktuelle BBLsDATA: BEGIN OF MATOV.DATA: WERKS(004) TYPE C.           

120、;"Werk aus dem EinstiegsbildDATA: INITF(001) TYPE C.           "Initialisierung wurde durchgef榛tDATA: DISVI(001) TYPE C.          

121、 "Disponenten-Feinsel. sichtbarDATA: LIFVI(001) TYPE C.           "Lieferanten-Feinsel. sichtbarDATA: FLIVI(001) TYPE C.           &quo

122、t;Fert.Linien-Feinsel. sichtbarDATA: MODUS(001) TYPE C.           "Materialdaten ErmittelungsmodusDATA: ERROR(001) TYPE C.           "Fehler

123、 beim Ermitteln ABBLDATA: DSPER(001) TYPE C.           "Ausgabe von Fehlern: 'X', wenn jaDATA: REFRE(001) TYPE C.        &

124、#160;  "Auffrischmodus f榛?die ABBLDATA: END OF MATOV.* data declaration for times recordedDATA:  V_TIMES  TYPE P.DATA: S_REPID LIKE SY-REPID,      ST_LIST_TOP_OF_PAG

125、E TYPE SLIS_T_LISTHEADER."page headerDATA: ST_FIELDCAT    TYPE SLIS_T_FIELDCAT_ALV,   "table col name      ST_LAYOUT      TYPE SLIS_LAYOUT_ALV,  

126、     "layoutsetting      ST_SP_GROUP    TYPE SLIS_T_SP_GROUP_ALV,      ST_EVENTS      TYPE SLIS_T_EVENT,       

127、0;  "event header*     s_default(001) type c,*     s_exit(001)    type c,*     st_variant     like disvariant,     

128、 CODE           LIKE DISVARIANT-HANDLE,      S_VARIANT      LIKE DISVARIANT,      S_STATUS       TYPE

129、0;SLIS_FORMNAME VALUE 'STANDARD_ST01',      S_STATUS_CP    TYPE SLIS_FORMNAME VALUE 'STANDARD_ST02',      S_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COM

130、MAND-ALV',      S_USER_COMM_SO TYPE SLIS_FORMNAME VALUE 'USER_COMM_SO-ALV',      S_USER_COMM_CP TYPE SLIS_FORMNAME VALUE 'USER_COMM_CP-ALV',      S_US

131、ER_COMDTL  TYPE SLIS_FORMNAME VALUE 'USER_COMDTL-ALV'.DATA  : BEGIN OF EXTAB OCCURS 0,        FCODE LIKE RSMPE-FUNC.DATA  : END OF EXTAB.DATA  : TAB TYPE SLIS_T_EXTAB.RANGES: XBDART FOR RESB-BDART .DATA  : BEGIN OF BOM_MAT OCCURS