完工订单与实际成本汇总表

末蓝、 2022-01-30 02:57 183阅读 0赞

\*&---------------------------------------------------------------------\*  
\*& Report ZFICOR008  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zficor008.  
  
TABLES:aufk,afko,mara,jcds,t023t.  
  
TYPE-POOLS:slis.  
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. "表格规格属性内表  
  
  
DATA:BEGIN OF wa\_item,  
  
       aufnr     LIKE aufk-aufnr,  
       plnbez    LIKE afko-plnbez,  
       wgbez     LIKE t023t-wgbez,  
       matkl     LIKE t023t-wgbez60,  
       maktx     LIKE makt-maktx,  
       zznme     LIKE zmmt002-zznme,  
       meins     LIKE mara-meins,  
       wemng     LIKE afpo-wemng,  
       objnr     LIKE cosp-objnr,  
       auart     LIKE aufk-auart,  
       txt01     LIKE t003p-txt,  
       udate\_01  LIKE jcds-udate,  
  
       dmbtr\_01  LIKE cosp\_bak-wkg001,  
       dmbtr\_02  LIKE cosp\_bak-wkg001,  
       dmbtr\_03  LIKE cosp\_bak-wkg001,  
       dmbtr\_04  LIKE cosp\_bak-wkg001,  
       dmbtr\_05  LIKE cosp\_bak-wkg001,  
       dmbtr\_06  LIKE cosp\_bak-wkg001,  
       dmbtr\_07  LIKE cosp\_bak-wkg001,  
  
       dmbtr\_08  LIKE cosp\_bak-wkg001,  
       dmbtr\_09  LIKE cosp\_bak-wkg001,  
       dmbtr\_10  LIKE cosp\_bak-wkg001,  
       dmbtr\_11  LIKE cosp\_bak-wkg001,  
       dmbtr\_12  LIKE cosp\_bak-wkg001,  
       dmbtr\_13  LIKE cosp\_bak-wkg001,  
       dmbtr\_14  LIKE cosp\_bak-wkg001,  
  
       dmbtr\_15  LIKE cosp\_bak-wkg001,  
       dmbtr\_16  LIKE cosp\_bak-wkg001,  
       dmbtr\_17  LIKE cosp\_bak-wkg001,  
       dmbtr\_18  LIKE cosp\_bak-wkg001,  
       dmbtr\_19  LIKE cosp\_bak-wkg001,  
       dmbtr\_20  LIKE cosp\_bak-wkg001,  
       dmbtr\_21  LIKE cosp\_bak-wkg001,  
       meg005\_01 LIKE coss-meg005,  
       meg005\_02 LIKE coss-meg005,  
       meg005\_03 LIKE coss-meg005,  
       meg005\_04 LIKE coss-meg005,  
       meg005\_05 LIKE coss-meg005,  
       meg005\_06 LIKE coss-meg005,  
       meg005\_07 LIKE coss-meg005,  
       meg005\_08 LIKE coss-meg005,  
       meg005\_09 LIKE coss-meg005,  
       meg005\_10 LIKE coss-meg005,  
       meg005\_11 LIKE coss-meg005,  
  
       udate     TYPE string,  
  
     END OF wa\_item.  
  
DATA:gt\_item LIKE TABLE OF wa\_item.  
  
  
DATA:str   TYPE char22,  
     a     TYPE i,  
     tabix TYPE sy-tabix.  
  
DATA:z\_pp\_0001 TYPE REF TO zhele\_pp\_0001.  
CREATE OBJECT z\_pp\_0001.  
  
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE t1.  
SELECT-OPTIONS: s\_aufnr  FOR aufk-aufnr,  
                s\_plnbez FOR afko-plnbez,  
                s\_wgbez  FOR t023t-wgbez,  
\*                s\_matkl  FOR mara-matkl,  
                s\_auart  FOR aufk-auart.  
PARAMETERS:s\_udate1 LIKE jcds-udate OBLIGATORY,  
           s\_udate2 LIKE jcds-udate OBLIGATORY.  
  
SELECTION-SCREEN:END OF BLOCK b1.  
  
INITIALIZATION.  
  t1 = '请输入条件'.  
  
START-OF-SELECTION.  
  PERFORM get\_data.  
  
END-OF-SELECTION.  
  PERFORM alv.  
  
  
FORM get\_data.  
  
  SELECT a~aufnr,a~objnr,k~plnbez,m~matkl,m~meins,a~auart,j~stat,j~udate  
      FROM aufk AS a  
      JOIN jcds AS j ON a~objnr = j~objnr  
      JOIN afko AS k ON a~aufnr = k~aufnr  
      JOIN mara AS m ON k~plnbez = m~matnr  
      INTO TABLE @DATA(gt\_aufk)  
      WHERE ( j~stat = 'I0012'  
      OR j~stat = 'I0045')  
      AND j~udate >= @s\_udate1  
      AND j~udate <= @s\_udate2  
      AND j~inact <> 'X'  
      AND a~aufnr IN @s\_aufnr  
      AND a~auart IN @s\_auart  
      AND k~plnbez IN @s\_plnbez.  
\*      AND m~matkl IN @s\_matkl.  
\*      AND m~extwg IN @s\_extwg.  
  SORT gt\_aufk BY objnr DESCENDING stat DESCENDING udate DESCENDING.  
  DELETE ADJACENT DUPLICATES FROM gt\_aufk COMPARING objnr stat udate.  
  
  SELECT objnr,stat,udate  
    FROM jcds  
    INTO TABLE @DATA(gt\_jcds)  
    FOR ALL ENTRIES IN @gt\_aufk  
    WHERE objnr = @gt\_aufk-objnr  
    AND inact = 'X'  
    AND   ( stat = 'I0012'  
    OR stat = 'I0045')  
    AND udate >= @s\_udate1  
    AND udate <= @s\_udate2.  
  SORT gt\_jcds BY objnr DESCENDING stat DESCENDING udate DESCENDING.  
\*  DELETE ADJACENT DUPLICATES FROM gt\_jcds COMPARING objnr stat udate.  
  
\*      and  
  
\*    SELECT aufnr,stat  
\*      from jcds  
\*      INTO TABLE @DATA(gt\_stat)  
\*      where  
  
  
\*  IF gt\_aufk is NOT INITIAL.  
  SELECT objnr,wrttp,kstar,hrkft,wkg001,wkg002,wkg003,wkg004,  
         wkg005,wkg006,wkg007,wkg008,wkg009,wkg010,wkg011,  
         wkg012,wkg013,wkg014,wkg015,wkg016,meg001,meg002,meg003,  
         meg004,meg005,meg006,meg007,meg008,meg009,meg010,meg011,meg012,meg013,meg014,meg015,meg016  
    FROM cosp  
    INTO TABLE @DATA(gt\_cosp)  
      FOR ALL ENTRIES IN @gt\_aufk  
      WHERE objnr = @gt\_aufk-objnr  
    AND wrttp IN ('01','04','05')  
    AND   kstar IN ('0050010000','0050010002','0050010003','0050010020').  
  
  SELECT objnr,wrttp,kstar,hrkft,wkg001,wkg002,wkg003,wkg004,  
     wkg005,wkg006,wkg007,wkg008,wkg009,wkg010,wkg011,  
     wkg012,wkg013,wkg014,wkg015,wkg016,meg001,meg002,meg003,  
         meg004,meg005,meg006,meg007,meg008,meg009,meg010,meg011,meg012,meg013,meg014,meg015,meg016  
    FROM coss  
    INTO TABLE @DATA(gt\_coss)  
      FOR ALL ENTRIES IN @gt\_aufk  
      WHERE objnr = @gt\_aufk-objnr  
   AND wrttp IN ('01','04','05')  
    AND   kstar IN ('0000843000','0000843002','0000843003','0000843001',  
                    '0050010009').  
  
  APPEND LINES OF gt\_coss TO gt\_cosp.  
  
\*      SELECT objnr,wrttp,kstar,WKG001,WKG002,WKG003,WKG004,  
\*           WKG005,WKG006,WKG007,WKG008,WKG009,WKG010,WKG011,  
\*           WKG012,WKG013,WKG014,WKG015,WKG016  
\*      from cosp  
\*      into TABLE @DATA(gt\_cosp\_04)  
\*      FOR ALL ENTRIES IN @gt\_aufk  
\*      where objnr = @gt\_aufk-objnr  
\*      and   wrttp = 4  
\*      and   kstar in ('0050010000','0050010002','0050010003','0050010020',  
\*                      '0000843000','0000843002','0000843003','0000843001',  
\*                      '0050010009').  
\*  
\*      SELECT objnr,wrttp,kstar,WKG001,WKG002,WKG003,WKG004,  
\*           WKG005,WKG006,WKG007,WKG008,WKG009,WKG010,WKG011,  
\*           WKG012,WKG013,WKG014,WKG015,WKG016  
\*      from cosp  
\*      into TABLE @DATA(gt\_cosp\_05)  
\*      FOR ALL ENTRIES IN @gt\_aufk  
\*      where objnr = @gt\_aufk-objnr  
\*      and   wrttp = 5  
\*      and   kstar in ('0050010000','0050010002','0050010003','0050010020',  
\*                      '0000843000','0000843002','0000843003','0000843001',  
\*                      '0050010009').  
  
  
\*  ENDIF.  
  
  LOOP AT gt\_cosp INTO DATA(wa\_cosp).  
    CLEAR:a.  
    a = strlen( wa\_cosp-objnr ).  
    IF a > 8.  
      a = a - 8.  
      str = wa\_cosp-objnr.  
      CLEAR:wa\_cosp-objnr.  
      wa\_cosp-objnr = str+a(8).  
      MODIFY gt\_cosp FROM wa\_cosp INDEX sy-tabix.  
    ENDIF.  
  
    CLEAR:wa\_cosp.  
  ENDLOOP.  
  
  LOOP AT gt\_coss INTO DATA(wa\_coss).  
    CLEAR:a.  
    a = strlen( wa\_coss-objnr ).  
    IF a > 8.  
      a = a - 8.  
      str = wa\_coss-objnr.  
      CLEAR:wa\_coss-objnr.  
      wa\_coss-objnr = str+a(8).  
      MODIFY gt\_coss FROM wa\_coss INDEX sy-tabix.  
    ENDIF.  
  
    CLEAR:wa\_coss.  
  ENDLOOP.  
\*  DELETE gt\_coss WHERE wrttp = '01'.  
  
  SORT gt\_cosp BY objnr wrttp.  
  SORT gt\_coss BY objnr wrttp.  
  
  DATA:objnr TYPE jcds-objnr.  
  
  LOOP AT gt\_aufk INTO DATA(wa\_aufk).  
  
\*    CLEAR:objnr.  
\*    SELECT SINGLE objnr  
\*      INTO objnr  
\*      FROM jcds  
\*      WHERE objnr = wa\_aufk-objnr  
\*      and   stat = wa\_aufk-stat  
\*      and   INACT = 'X'.  
\*      IF sy-subrc = 0.  
\*        delete gt\_aufk.  
\*        CLEAR wa\_aufk.  
\*        CONTINUE.  
\*      ENDIF.  
  
    READ TABLE gt\_jcds INTO DATA(wa\_jcds)  
    WITH KEY objnr = wa\_aufk-objnr  
             stat  = wa\_aufk-stat.  
    IF sy-subrc = 0.  
  
      IF wa\_aufk-udate < wa\_jcds-udate.  
        DELETE gt\_jcds INDEX sy-tabix.  
        DELETE gt\_aufk.  
        CLEAR:wa\_aufk,wa\_jcds.  
        CONTINUE.  
      ENDIF.  
  
    ENDIF.  
    CLEAR:wa\_jcds.  
  
    MOVE-CORRESPONDING:wa\_aufk TO wa\_item.  
    CLEAR:wa\_item-udate,wa\_item-udate\_01.  
    wa\_item-udate\_01 = wa\_aufk-udate.  
  
    CALL METHOD z\_pp\_0001->maktx  
      EXPORTING  
        matnr = wa\_item-plnbez  
      IMPORTING  
        maktx = wa\_item-maktx  
        zznme = wa\_item-zznme.  
  
    SELECT SINGLE wemng  
      INTO wa\_item-wemng  
      FROM afpo  
      WHERE aufnr = wa\_item-aufnr.  
  
    SELECT SINGLE t023t~wgbez60 t023t~wgbez  
      INTO (wa\_item-matkl,wa\_item-wgbez)  
      FROM mara  
      JOIN t023t ON mara~matkl = t023t~matkl  
      WHERE mara~matkl = wa\_aufk-matkl  
      AND   t023t~spras = 1  
      AND   t023t~wgbez IN s\_wgbez.  
    IF sy-subrc <> 0.  
      DELETE gt\_aufk.  
      CLEAR:wa\_aufk,wa\_item.  
      CONTINUE.  
    ENDIF.  
  
    SELECT SINGLE txt  
      INTO wa\_item-txt01  
      FROM t003p  
      WHERE auart = wa\_item-auart  
      AND   spras = 1.  
  
    CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_OUTPUT'  
      EXPORTING  
        input  = wa\_item-aufnr  
      IMPORTING  
        output = wa\_item-aufnr.  
  
    READ TABLE gt\_cosp INTO wa\_cosp  
    WITH KEY   objnr = wa\_item-aufnr  
               BINARY SEARCH.  
    IF sy-subrc = 0.  
      CLEAR:tabix.  
      tabix = sy-tabix.  
      CLEAR:wa\_cosp.  
  
      LOOP AT gt\_cosp INTO wa\_cosp  
        FROM tabix.  
  
        IF wa\_cosp-objnr <> wa\_item-aufnr.  
          EXIT.  
        ENDIF.  
  
        IF wa\_cosp-wrttp = '01'.  
  
          IF wa\_cosp-kstar = '0050010000'  
          OR wa\_cosp-kstar = '0050010002'  
          OR wa\_cosp-kstar = '0050010003'  
          OR wa\_cosp-kstar = '0050010020'.  
            wa\_item-dmbtr\_01 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_01.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843000'.  
            wa\_item-dmbtr\_02 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_02.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843002'.  
            wa\_item-dmbtr\_03 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_03.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843003'.  
            wa\_item-dmbtr\_04 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_04.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843001'  
          OR wa\_cosp-kstar = '0050010009'.  
            wa\_item-dmbtr\_05 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_05.  
  
          ENDIF.  
  
        ENDIF.  
  
        IF wa\_cosp-wrttp = '04'.  
  
          IF wa\_cosp-kstar = '0050010000'  
          OR wa\_cosp-kstar = '0050010002'  
          OR wa\_cosp-kstar = '0050010003'  
          OR wa\_cosp-kstar = '0050010020'.  
            wa\_item-dmbtr\_08 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_08.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843000'.  
            wa\_item-dmbtr\_09 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_09.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843002'.  
            wa\_item-dmbtr\_10 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_10.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843003'.  
            wa\_item-dmbtr\_11 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_11.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843001'  
          OR wa\_cosp-kstar = '0050010009'.  
            wa\_item-dmbtr\_12 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_12.  
  
          ENDIF.  
  
        ENDIF.  
  
        IF wa\_cosp-wrttp = '05'.  
  
          IF wa\_cosp-kstar = '0050010000'  
          OR wa\_cosp-kstar = '0050010002'  
          OR wa\_cosp-kstar = '0050010003'  
          OR wa\_cosp-kstar = '0050010020'.  
            wa\_item-dmbtr\_15 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_15.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843000'.  
            wa\_item-dmbtr\_16 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_16.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843002'.  
            wa\_item-dmbtr\_17 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_17.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843003'.  
            wa\_item-dmbtr\_18 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_18.  
  
          ENDIF.  
  
          IF wa\_cosp-kstar = '0000843001'  
          OR wa\_cosp-kstar = '0050010009'.  
            wa\_item-dmbtr\_19 = wa\_cosp-wkg001 + wa\_cosp-wkg002 + wa\_cosp-wkg003  
                             + wa\_cosp-wkg004 + wa\_cosp-wkg005 + wa\_cosp-wkg006  
                             + wa\_cosp-wkg007 + wa\_cosp-wkg008 + wa\_cosp-wkg009  
                             + wa\_cosp-wkg010 + wa\_cosp-wkg011 + wa\_cosp-wkg012  
                             + wa\_cosp-wkg013 + wa\_cosp-wkg014 + wa\_cosp-wkg015  
                             + wa\_cosp-wkg016 + wa\_item-dmbtr\_19.  
  
          ENDIF.  
  
        ENDIF.  
  
      ENDLOOP.  
  
    ENDIF.  
  
    wa\_item-dmbtr\_06 = wa\_item-dmbtr\_01 + wa\_item-dmbtr\_02  
                     + wa\_item-dmbtr\_03 + wa\_item-dmbtr\_04  
                     + wa\_item-dmbtr\_05.  
  
    wa\_item-dmbtr\_13 = wa\_item-dmbtr\_08 + wa\_item-dmbtr\_09  
                     + wa\_item-dmbtr\_10 + wa\_item-dmbtr\_11  
                     + wa\_item-dmbtr\_12.  
  
  
    wa\_item-dmbtr\_20 = wa\_item-dmbtr\_15 + wa\_item-dmbtr\_16  
                     + wa\_item-dmbtr\_17 + wa\_item-dmbtr\_18  
                     + wa\_item-dmbtr\_19.  
  
  
    IF wa\_item-wemng <> 0.  
      wa\_item-dmbtr\_07 = wa\_item-dmbtr\_06 / wa\_item-wemng.  
      wa\_item-dmbtr\_14 = wa\_item-dmbtr\_13 / wa\_item-wemng.  
      wa\_item-dmbtr\_21 = wa\_item-dmbtr\_20 / wa\_item-wemng.  
    ENDIF.  
  
    wa\_item-udate = s\_udate1 && ' - ' && s\_udate2.  
  
  
\*实际数量、目标数量  
\*    READ TABLE gt\_coss INTO wa\_coss  
\*       WITH KEY   objnr = wa\_item-aufnr  
\*                  BINARY SEARCH.  
\*    IF sy-subrc = 0.  
  
    DATA: meg005\_01 TYPE coss-meg001,  
          meg005\_02 TYPE coss-meg001,  
          meg005\_03 TYPE coss-meg001,  
          meg005\_04 TYPE coss-meg001,  
          meg005\_05 TYPE coss-meg001,  
          meg005\_06 TYPE coss-meg001,  
          meg005\_07 TYPE coss-meg001,  
          meg005\_08 TYPE coss-meg001,  
          meg005\_09 TYPE coss-meg001,  
          meg005\_10 TYPE coss-meg001,  
          meg005\_11 TYPE coss-meg001.  
  
    LOOP AT gt\_coss INTO wa\_coss WHERE objnr = wa\_item-aufnr.  
\*实际人工费用  
      IF wa\_coss-kstar = '0000843000' AND wa\_coss-wrttp = '04'.  
        meg005\_01 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_01 <> '0'.  
          wa\_item-meg005\_01 = meg005\_01.  
        ENDIF.  
      ENDIF.  
  
\*实际其他制费  
      IF wa\_coss-kstar = '0000843001' AND wa\_coss-wrttp = '04'.  
        meg005\_02 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_02 <> '0'.  
          wa\_item-meg005\_02 = meg005\_02.  
        ENDIF.  
  
      ENDIF.  
  
\*实际机器费用  
      IF wa\_coss-kstar = '0000843002' AND wa\_coss-wrttp = '04'.  
        meg005\_03 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_03 <> '0'.  
          wa\_item-meg005\_03 = meg005\_03.  
        ENDIF.  
  
      ENDIF.  
  
\*\*实际模具成本  
\*      IF wa\_coss-kstar = '0000843003' AND wa\_coss-wrttp = '04'.  
\*        wa\_item-meg005\_04 = wa\_coss-meg005.  
\*      ENDIF.  
  
  
\*目标人工费用  
      IF wa\_coss-kstar = '0000843000' AND wa\_coss-wrttp = '05'.  
        meg005\_05 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_05 <> '0'.  
          wa\_item-meg005\_05 = meg005\_05.  
        ENDIF.  
  
      ENDIF.  
  
\*目标其他制费  
      IF wa\_coss-kstar = '0000843001' AND wa\_coss-wrttp = '05'.  
        meg005\_06 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_06 <> '0'.  
          wa\_item-meg005\_06 = meg005\_06.  
        ENDIF.  
  
      ENDIF.  
  
\*目标机器费用  
      IF wa\_coss-kstar = '0000843002' AND wa\_coss-wrttp = '05'.  
        meg005\_07 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_07 <> '0'.  
          wa\_item-meg005\_07 = meg005\_07.  
        ENDIF.  
  
      ENDIF.  
  
  
\*计划人工费用  
      IF wa\_coss-kstar = '0000843000' AND wa\_coss-wrttp = '01'.  
        meg005\_08 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_08 <> '0'.  
          wa\_item-meg005\_08 = meg005\_08.  
        ENDIF.  
  
      ENDIF.  
  
\*计划其他制费  
      IF wa\_coss-kstar = '0000843001' AND wa\_coss-wrttp = '01'.  
        meg005\_09 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_09 <> '0'.  
          wa\_item-meg005\_09 = meg005\_09.  
        ENDIF.  
  
      ENDIF.  
  
\*计划机器费用  
      IF wa\_coss-kstar = '0000843002' AND wa\_coss-wrttp = '01'.  
        meg005\_10 = wa\_coss-meg001 + wa\_coss-meg002 + wa\_coss-meg003 + wa\_coss-meg004 + wa\_coss-meg005  
        + wa\_coss-meg006 + wa\_coss-meg007 + wa\_coss-meg008 + wa\_coss-meg009 + wa\_coss-meg010 + wa\_coss-meg011  
        + wa\_coss-meg012 + wa\_coss-meg013 + wa\_coss-meg014 + wa\_coss-meg015 + wa\_coss-meg016.  
  
        IF meg005\_10 <> '0'.  
          wa\_item-meg005\_10 = meg005\_10.  
        ENDIF.  
  
      ENDIF.  
  
\*\*目标模具成本  
\*      IF wa\_coss-kstar = '0000843003' AND wa\_coss-wrttp = '05'.  
\*        wa\_item-meg005\_08 = wa\_coss-meg005.  
\*      ENDIF.  
  
    ENDLOOP.  
  
    APPEND wa\_item TO gt\_item.  
    CLEAR:wa\_item.  
  
  
  ENDLOOP.  
  
  SORT gt\_item BY aufnr udate\_01 DESCENDING.  
  DELETE ADJACENT DUPLICATES FROM gt\_item COMPARING aufnr.  
  
ENDFORM.  
  
FORM alv.  
  DATA : col\_pos TYPE i VALUE 1.  
  CLEAR:it\_fieldcat,wa\_fieldcat.  
  it\_layout-colwidth\_optimize = 'X'.  
  it\_layout-zebra = 'X'.  
  
\* PERFORM fieldcat\_int USING col\_pos  '字段名字' '显示名字' '关键字' '锁定列'  '可编辑' '去前零' '表参考' '字段参考' '单位参考'.  
  PERFORM fieldcat\_int USING col\_pos  'AUFNR' '订单号' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'AUART' '订单类型' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'TXT01' '订单类型名称' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'PLNBEZ' '物料编号' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MATKL' '物料组' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'WGBEZ' '产品机型' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MAKTX' '物料名称' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'ZZNME' '规格型号' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEINS' '单位' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'WEMNG' '入库数量' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_01' '计划材料成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_02' '计划人工成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_03' '计划机器成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_04' '计划模具费用成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_05' '计划其它制费成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_06' '计划成本合计' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_07' '计划单位成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_08' '实际材料成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_09' '实际人工成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_10' '实际机器费用成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_11' '实际模具费用成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_12' '实际其它制费成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_13' '实际成本合计' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_14' '实际单位成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_15' '目标材料成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_16' '目标人工成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_17' '目标机器费用成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_18' '目标模具费用成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_19' '目标其它制费成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_20' '目标成本合计' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'DMBTR\_21' '目标单位成本' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'UDATE' '成本核算期间' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_01' '实际人工工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_02' '实际其他工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_03' '实际机器工时' '' '' ''  '' '' '' ''.  
\*  PERFORM fieldcat\_int USING col\_pos  'MEG005\_04' '实际人工费用' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_05' '目标人工工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_06' '目标其他工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_07' '目标机器工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_08' '计划人工工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_09' '计划其他工时' '' '' ''  '' '' '' ''.  
  PERFORM fieldcat\_int USING col\_pos  'MEG005\_10' '计划机器工时' '' '' ''  '' '' '' ''.  
\*  PERFORM fieldcat\_int USING col\_pos  'MEG005\_08' '实际人工费用' '' '' ''  '' '' '' ''.  
  
\*    调用ALV需要使用的函数  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy-repid  
      i\_callback\_pf\_status\_set = 'SET\_PF\_STATUS'  
      i\_callback\_user\_command  = 'ALV\_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.  
  
  SET PF-STATUS 'OPEN' EXCLUDING rt\_extab.  
  
ENDFORM.                    "set\_pf\_status  
  
FORM fieldcat\_int  USING   p\_col\_pos  
                           p\_fieldname  
             p\_seltext\_l  
                           p\_key  
                           p\_fix\_column  
                           p\_edit  
                           p\_zero  
             p\_tname  
                           p\_fname  
                           p\_reffi.  
  wa\_fieldcat-col\_pos        = p\_col\_pos.  "行号  
  wa\_fieldcat-fieldname      = p\_fieldname.  "字段名  
  wa\_fieldcat-seltext\_l      = p\_seltext\_l.  "显示名字  
  wa\_fieldcat-key            = p\_key.   "关键字  
  wa\_fieldcat-fix\_column     = p\_fix\_column.  "锁定列  
  wa\_fieldcat-edit           = p\_edit.    "可编辑  
  wa\_fieldcat-no\_zero        = p\_zero.    "去前零  
  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.                    "FIELDCAT\_INT  
  
FORM alv\_user\_command USING r\_ucomm LIKE sy-ucomm  
                        rs\_selfield TYPE slis\_selfield.  
  
\*   获取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 'E'.  
      "LEAVE PROGRAM.  
  
  ENDCASE.  
  
ENDFORM.

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220130/ef029356d57d4be9ba7e294ec6eafe9c.png