关闭

关闭

封号提示

内容

首页 BOM反查.doc

BOM反查.doc

BOM反查.doc

上传者: sophsong 2011-09-14 评分 0 0 0 0 0 0 暂无简介 简介 举报

简介:本文档为《BOM反查doc》,可适用于IT/计算机领域,主题内容包含*** Report  ZBOMREV                                                   **  符等。

*** Report  ZBOMREV                                                   **                                                                     ****                                                                     **                                                                     ***REPORT  ztest LINESIZE  TYPES : BEGIN OF tymat,  matnrs TYPE matnr,  maktxs TYPE maktx,  matnr   TYPE matnr,  andat   TYPE andat,  maktx   TYPE maktx,  vwalt   TYPE stalt,END OF tymatTYPES:BEGIN OF tymatnr,  matnr   TYPE matnr,END OF tymatnrDATA ms     TYPE TABLE OF tymatnr WITH HEADER LINEDATA itmat TYPE TABLE OF tymat   WITH HEADER LINEDATA: itab  TYPE TABLE OF stpov    WITH HEADER LINE,      equi  TYPE TABLE OF cscequi,      knd   TYPE TABLE OF cscknd,      mat   TYPE TABLE OF cscmat,      std   TYPE TABLE OF cscstd,      tpl   TYPE TABLE OF csctplSELECTIONSCREEN BEGIN OF BLOCK bl WITH FRAME TITLE tPARAMETERS:          pwerks TYPE werks OBLIGATORY DEFAULT '',          pstlan TYPE stlan OBLIGATORY DEFAULT ''SELECTOPTIONS smatnr FOR itmatmatnr memory id "NO INTERVALS DEFAULT ''"obligatorySELECTIONSCREEN END OF BLOCK bl INITIALIZATION  t = '查询'AT SELECTIONSCREEN**  IF smatnr IS INITIAL*    MESSAGE '物料号码是必输!' TYPE 'E'*  ENDIFSTARTOFSELECTION  SELECT matnr FROM marc INTO TABLE ms WHERE matnr IN smatnr AND werks = pwerks*select zcpbh from zmjxxb into table ms where zcpbh IN smatnr AND werks = pwerks  WRITE: '源物料号', '源物料描述', '顶层物料号', '顶层物料描述' , '创建日期', '可选BOM号'  "'   源物料号        ' ,'     源物料描述             ',  '  顶层物料号                ' ,'      顶层物料描述            ', ' 创建日期            ', '可选BOM号'  LOOP AT ms    CALL FUNCTION 'CONVERSIONEXITMATNINPUT'      EXPORTING        input  = msmatnr      IMPORTING        output = msmatnr    MODIFY ms    PERFORM gettops USING msmatnr '' ''     PERFORM disp    WRITE   ENDLOOP***      Form  gettops**FORM gettops USING matnr  andat vwalt  DATA intab TYPE TABLE OF  stpov WITH HEADER LINE   DATA count TYPE i  intab = itab  LOCAL itab  CALL FUNCTION 'CSWHEREUSEDMAT'         EXPORTING           datub                             = sydatum           datuv                             = sydatum           matnr                             = matnr           stlan                             = ''           werks                             = pwerks           mclmt                             = ''           mnstl                             = ''           mxstl                             = ''           stltp                             = ''           newsi                             = ''         TABLES           wultb                             = intab           equicat                           = equi           kndcat                            = knd           matcat                            = mat           stdcat                            = std           tplcat                            = tpl        EXCEPTIONS          callinvalid                      =           materialnotfound                =           nowhereusedrecfound           =           nowhereusedrecselected        =           nowhereusedrecvalid           =           cxsydyncallillegaltype       =           OTHERS  IF sysubrc =     LOOP AT intab WHERE matnr <> matnr AND stlan = pstlan      count = count      ENDLOOP    IF count =       itmatmatnr = matnr      itmatandat = andat      itmatvwalt = vwalt      itmatmatnrs = msmatnr      APPEND itmat    ELSE      LOOP AT intab WHERE matnr <> matnr AND stlan = pstlan        PERFORM gettops USING intabmatnr intabandat intabvwalt       ENDLOOP    ENDIF  ELSE    itmatmatnr = matnr    itmatandat = andat    itmatvwalt = vwalt    itmatmatnrs = msmatnr    APPEND itmat  ENDIFENDFORM                    "gettops***      Form  DISP**FORM disp  SORT itmat BY matnr andat vwalt  DELETE ADJACENT DUPLICATES FROM itmat  LOOP AT itmat    SELECT SINGLE maktx INTO itmatmaktx    FROM makt    WHERE matnr = itmatmatnr AND spras = ''    SELECT SINGLE maktx INTO itmatmaktxs FROM makt WHERE matnr = itmatmatnrs AND spras = ''*  write:  itmatmatnr under '物料号',itmatmaktx under '物料描述',ITMATANDAT UNDER '创建日期' ,ITMATVWALT UNDER '可选BOM号'* WRITE: '   源物料号        ' ,'     源物料描述             ',  '          顶层物料号        ' ,'      顶层物料描述            ', '            创建日期 ', '可选BOM号'*    WRITE:  itmatmatnrs,itmatmaktxs UNDER '     源物料描述             ', itmatmatnr  UNDER '  顶层物料号                ',itmatmaktx UNDER '      顶层物料描述            ',itmatandat UNDER ' 创建日期            '  ,itmatvwalt UNDER*'可选BOM号'     WRITE:  itmatmatnrs,itmatmaktxs UNDER '源物料描述', itmatmatnr  UNDER '顶层物料号',itmatmaktx UNDER '顶层物料描述',itmatandat UNDER '创建日期'  ,itmatvwalt UNDER '可选BOM号'   ENDLOOP  CLEAR itmat  REFRESH itmatENDFORM                    "DISP

职业精品

精彩专题

上传我的资料

热门资料

资料评价:

/ 5
所需积分:0 立即下载

意见
反馈

返回
顶部

Q