SAP BOM 更改记录

曾经终败给现在 2022-02-17 08:09 442阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

\*&---------------------------------------------------------------------\*  
REPORT zppr029 MESSAGE-ID zhele.  
  
INCLUDE zppr029\_top.  
  
INCLUDE zppr029\_scr.  
  
INCLUDE zppr029\_frm.  
  
INITIALIZATION.  
  
START-OF-SELECTION.  
  
  PERFORM frm\_get\_dat.  
  PERFORM frm\_dis\_dat.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZPPR029\_TOP  
\*&---------------------------------------------------------------------\*  
TABLES: mast,stpo.  
DATA:BEGIN OF gs\_stpo,  
       mandt    LIKE mast-mandt,  
       werks    LIKE mast-werks,  
       stlty    LIKE stpo-stlty, "物料清单类别  
       matnr    LIKE mast-matnr,  
       stlnr    LIKE mast-stlnr, "物料单  
       stlan    LIKE mast-stlan, "STLAN  
       stlkn    LIKE stpo-stlkn, "BOM 项目节点号  
       stpoz    LIKE stpo-stpoz, "内部计数器  
       datuv    LIKE stpo-datuv, "有效起始日期  
       aennr    LIKE stpo-aennr, "更改编号  
       vgknt    LIKE stpo-vgknt, "父节点  
       vgpzl    LIKE stpo-vgpzl, "前一项目计数器  
       postp    LIKE stpo-postp, "项目类别  
       posnr    LIKE stpo-posnr, "项目号  
       idnrk    LIKE stpo-idnrk, "BOM 组件  
       objectid LIKE cdpos-objectid,  
       tabkey   LIKE cdpos-tabkey,  
     END OF gs\_stpo.  
  
DATA:BEGIN OF gs\_cdpos,  
       objectid  LIKE cdpos-objectid, "对象值  
       tabkey    LIKE cdpos-tabkey, "表键值  
       fname     LIKE cdpos-fname, "字段名  
       chngind   LIKE cdpos-chngind, "更改类型  
       value\_new LIKE cdpos-value\_new,  
       value\_old LIKE cdpos-value\_old,  
       udate     LIKE cdhdr-udate,  
       utime     LIKE cdhdr-utime,  
       username  LIKE cdhdr-username, "用户名  
     END OF gs\_cdpos.  
  
DATA:BEGIN OF wa\_item,  
       werks     LIKE mast-werks,  
       stlan     LIKE mast-stlan,  
       stlnr     LIKE mast-stlnr,  
       matnr     LIKE mast-matnr,  
       udate     LIKE cdhdr-udate,  
       utime     LIKE cdhdr-utime,  
       username  LIKE cdhdr-username, "用户名  
       chngind   LIKE cdpos-chngind, "更改类型  
       fname     LIKE cdpos-fname, "字段名  
       value\_new LIKE cdpos-value\_new,  
       value\_old LIKE cdpos-value\_old,  
       posnr     LIKE stpo-posnr, "项目号  
       idnrk     LIKE stpo-idnrk, "BOM 组件  
       objectid  LIKE cdpos-objectid,  
       tabkey    LIKE cdpos-tabkey,  
     END OF wa\_item.  
  
  
DATA:gt\_stpo  LIKE TABLE OF gs\_stpo,  
     gt\_cdpos LIKE TABLE OF gs\_cdpos,  
     gt\_item  LIKE TABLE OF wa\_item.  
  
  
DATA: it\_fieldcat TYPE slis\_t\_fieldcat\_alv, "lvc\_t\_fcat, "列描述内表，列清单  
      wa\_fieldcat LIKE LINE OF it\_fieldcat,  
      it\_layout   TYPE slis\_layout\_alv. "lvc\_s\_layo. "表格规格属性内表  
CONSTANTS cns\_user\_command TYPE slis\_formname VALUE 'ALV\_USER\_COMMAND' .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZPPR029\_SCR  
\*&---------------------------------------------------------------------\*  
  
PARAMETERS s\_werk TYPE mast-werks OBLIGATORY DEFAULT'1000'.  
SELECT-OPTIONS: s\_matnr FOR mast-matnr ,  
                s\_stlnr FOR mast-stlnr.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZPPR029\_FRM  
\*&---------------------------------------------------------------------\*  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DAT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_dat .  
  
  
  SELECT mast~mandt werks stlty matnr mast~stlnr mast~stlan  
         stlkn stpoz datuv aennr vgknt vgpzl postp posnr idnrk  
     INTO TABLE gt\_stpo FROM mast JOIN stpo ON mast~stlnr = stpo~stlnr  
                        WHERE matnr IN s\_matnr  
                        AND mast~stlnr IN s\_stlnr.  
  
  IF gt\_stpo IS INITIAL.  
    MESSAGE '没有符合条件的数据' TYPE 'I' DISPLAY LIKE 'E'.  
    STOP.  
  ENDIF.  
  
  LOOP AT  gt\_stpo INTO gs\_stpo.  
    CONCATENATE gs\_stpo-mandt gs\_stpo-stlty gs\_stpo-stlnr INTO gs\_stpo-objectid.  
    CONCATENATE gs\_stpo-mandt gs\_stpo-stlty gs\_stpo-stlnr gs\_stpo-stlkn gs\_stpo-stpoz INTO gs\_stpo-tabkey.  
    MODIFY gt\_stpo FROM gs\_stpo TRANSPORTING objectid tabkey.  
    CLEAR:gs\_stpo.  
  ENDLOOP.  
  
  SELECT cdpos~objectid tabkey fname chngind value\_new value\_old udate utime username  
    INTO TABLE gt\_cdpos FROM cdpos JOIN cdhdr ON cdpos~changenr = cdhdr~changenr  
              FOR ALL ENTRIES IN gt\_stpo  
              WHERE cdpos~objectid = gt\_stpo-objectid  
              AND cdpos~tabname = 'STPO'.  
  
  SORT gt\_stpo BY objectid tabkey.  
  
  LOOP AT  gt\_cdpos INTO gs\_cdpos.  
    wa\_item-udate = gs\_cdpos-udate.  
    wa\_item-utime = gs\_cdpos-utime.  
    wa\_item-username = gs\_cdpos-username.  
    wa\_item-chngind = gs\_cdpos-chngind.  
    wa\_item-fname = gs\_cdpos-fname.  
    wa\_item-value\_new = gs\_cdpos-value\_new.  
    wa\_item-value\_old = gs\_cdpos-value\_old.  
    wa\_item-objectid = gs\_cdpos-objectid.  
    wa\_item-tabkey = gs\_cdpos-tabkey.  
  
    CLEAR gs\_stpo.  
    READ TABLE gt\_stpo INTO gs\_stpo WITH KEY objectid = wa\_item-objectid  BINARY SEARCH.  
    IF sy-subrc EQ 0.  
      wa\_item-werks = gs\_stpo-werks.  
      wa\_item-matnr = gs\_stpo-matnr.  
      wa\_item-stlnr = gs\_stpo-stlnr.  
      wa\_item-stlan = gs\_stpo-stlan.  
    ENDIF.  
    CLEAR gs\_stpo.  
    READ TABLE gt\_stpo INTO gs\_stpo WITH KEY tabkey = wa\_item-tabkey  BINARY SEARCH.  
    IF sy-subrc EQ 0.  
      wa\_item-posnr = gs\_stpo-posnr.  
      wa\_item-idnrk = gs\_stpo-idnrk.  
    ENDIF.  
  
    APPEND wa\_item TO gt\_item.  
    CLEAR wa\_item.  
  ENDLOOP.  
  SORT gt\_item BY tabkey udate utime.  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DIS\_DAT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_dis\_dat .  
  DATA : col\_pos TYPE i VALUE 1.  
  CLEAR:it\_fieldcat,wa\_fieldcat.  
  it\_layout-colwidth\_optimize = 'X'.  
  it\_layout-info\_fieldname = 'COLOR'.  
  
  
  PERFORM fieldcat\_int USING col\_pos  'WERKS' '' '工厂' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'STLNR' '' 'BOM编号' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'STLAN' '' 'BOM用途' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MATNR' '' '产品代码' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'POSNR' '' '项目号' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'IDNRK' '' '子件代码' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'UDATE' '' '更改日期' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'UTIME' '' '更改时间' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'USERNAME' '' '更改者' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'CHNGIND' '' '更改类型' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'FNAME' '' '字段名' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'VALUE\_NEW' '' '新值' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'VALUE\_OLD' '' '旧值' '' 'X'  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'TABKEY' '' '关键值' '' 'X'  '' '' '' ''.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy-repid  
      i\_callback\_pf\_status\_set = 'SET\_PF\_STATUS'  
      i\_callback\_user\_command  = cns\_user\_command  
      is\_layout                = it\_layout  
      it\_fieldcat              = it\_fieldcat  
      i\_save                   = 'A'  
    TABLES  
      t\_outtab                 = gt\_item.  
  
ENDFORM.  
  
FORM set\_pf\_status USING rt\_extab TYPE slis\_t\_extab.  
\*    获取gui状态  
  DATA: wa\_extab TYPE slis\_extab.  
  
\*  AUTHORITY-CHECK OBJECT 'ZE\_ZPPT002'  
\*      ID 'ACTVT' FIELD '01'.  
\*  IF sy-subrc = 0.  
\*    SET PF-STATUS 'OPEN\_01' EXCLUDING rt\_extab.  
\*  ELSE.  
  SET PF-STATUS 'OPEN' EXCLUDING rt\_extab.  
\*  ENDIF.  
  
  
ENDFORM.  
  
  
FORM fieldcat\_int  USING   p\_col\_pos         " 1  
                            p\_fieldname       " 2  
                            p\_key             " 3  
                            p\_seltext\_l       " 4  
                            p\_edit  
                            p\_fix  
\*                            p\_checkbox  
                            p\_no\_out  
                            p\_tname  
                            p\_fname  
                            p\_reffi.  
  wa\_fieldcat-col\_pos       = p\_col\_pos.  
  wa\_fieldcat-fieldname     = p\_fieldname.  
  wa\_fieldcat-key           = p\_key.  
\*  wa\_fieldcat-coltext    = p\_seltext\_l.  
  wa\_fieldcat-seltext\_l = p\_seltext\_l.  
  wa\_fieldcat-edit            = p\_edit.  
  wa\_fieldcat-fix\_column        = p\_fix.  
\*  wa\_fieldcat-checkbox     = p\_checkbox.  
  wa\_fieldcat-no\_out      = p\_no\_out.  
\*  wa\_fieldcat-colddictxt       = 'L'.  
  wa\_fieldcat-ref\_tabname    = p\_tname.  
  wa\_fieldcat-ref\_fieldname  = p\_fname.  
  wa\_fieldcat-qfieldname    = p\_reffi.  
  
  APPEND wa\_fieldcat TO it\_fieldcat.  
  p\_col\_pos = p\_col\_pos + 1.  
  CLEAR: wa\_fieldcat.  
  
ENDFORM.  
  
FORM alv\_user\_command USING r\_ucomm LIKE sy-ucomm  
                        rs\_selfield TYPE slis\_selfield.  
  
\*  CREATE OBJECT g\_event\_receiver.  
\*      SET HANDLER g\_event\_receiver->on\_f4 FOR g\_grid.  
  
\*\*   获取ALV中的鼠标勾选记录  
\*  DATA: l\_grid TYPE REF TO cl\_gui\_alv\_grid.  
\*  CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
\*    IMPORTING  
\*      e\_grid = l\_grid.  
\*  
\*  CALL METHOD l\_grid->check\_changed\_data.  
\*  CASE r\_ucomm.  
\*    WHEN '&IC1' .  
\*      CASE rs\_selfield-sel\_tab\_field.  
\*          READ TABLE gt\_item INTO wa\_item INDEX rs\_selfield-tabindex.  
\*        WHEN '1-AUFNR'.  
\*          SET PARAMETER ID 'ANR' FIELD rs\_selfield-value.  
\*          SET PARAMETER ID 'AUFNR' FIELD wa\_item-aufnr.  
\*          CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.  
\*      ENDCASE.  
\*  ENDCASE.  
ENDFORM.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220217/4269ecbff24e4ea09950e1d5928050de.png