CO01/CO02/CO40保存增强

转自:http://blog.csdn.net/zeewjj/article/details/7630279   

增强： PPCO0001

   DATA: BEGIN  OF  itab  OCCURS  0,
    matkl  TYPE  matkl,
    meins  TYPE  meins,
    bdmng  TYPE  bdmng,
     END  OF   itab.
   DATA  jtab  LIKE  TABLE  OF  itab  WITH  HEADER  LINE.
   DATA:  bom  LIKE  stpox  OCCURS  10  WITH  HEADER  LINE.
   DATA  msg  TYPE  string.
   DATA  iscb.
   DATA  ctab  LIKE  TABLE  OF  component_table  WITH  HEADER  LINE.
   CLEAR: itab,itab[],jtab,jtab[],bom,bom[],msg,iscb.

   IF  sy - tcode  EQ  'CO01'  OR  sy - tcode  EQ  'CO02'  OR  sy - tcode  EQ  'CO40'.
     READ  TABLE  header_table  INDEX  1.
     READ  TABLE  header_table_old  INDEX  1.
     IF  header_table - werks  EQ  '1005'  OR  header_table - werks  EQ  '1001'   OR  header_table - werks  EQ  '1000'
     OR   header_table_old - werks  EQ  '1005'  OR  header_table_old - werks  EQ  '1001'   OR  header_table_old - werks  EQ  '1000'.
       IF  header_table - auart  EQ  'ZP01'  OR  header_table - auart  EQ  'ZP02'  OR  header_table - auart  EQ  'ZP03'   OR  header_table - auart  EQ  'ZP04'  OR  header_table - auart  EQ  'ZP05'  OR  header_table - auart  EQ  'ZP06'
             OR  header_table_old - auart  EQ  'ZP01'  OR  header_table_old - auart  EQ  'ZP02'  OR  header_table_old - auart  EQ  'ZP03'   OR  header_table_old - auart  EQ  'ZP04'  OR  header_table_old - auart  EQ  'ZP05'  OR  header_table_old - auart  EQ  'ZP06'    .

         LOOP  AT  component_table  WHERE  xloek  NE  'X'.
           READ  TABLE  itab  WITH  KEY  matkl  =  component_table - matkl meins  =  component_table - meins.
           IF  sy - subrc  NE  0.
            itab - matkl  =  component_table - matkl.
            itab - meins  =  component_table - meins.
             APPEND  itab.
             CLEAR  itab.
           ENDIF.
           CLEAR  component_table.
         ENDLOOP.

         LOOP  AT  itab.
           LOOP  AT  component_table  WHERE  matkl  =  itab - matkl  AND  meins  =  itab - meins  AND  xloek  NE  'X'.
             IF  component_table - alpos  EQ  'X'.
              itab - bdmng  =  itab - bdmng + component_table - bdmng * component_table - ewahr.
             ELSE.
              itab - bdmng  =  itab - bdmng + component_table - bdmng.
             ENDIF.
             CLEAR  component_table.
           ENDLOOP.
           MODIFY  itab.
           CLEAR  itab.
         ENDLOOP.



         IF  sy - tcode  EQ  'CO01'  OR   sy - tcode  EQ   'CO40'   OR   sy - tcode  EQ   'CO02'.
           CALL  FUNCTION  'CS_BOM_EXPL_MAT_V2'
             EXPORTING
              capid                  =  'PP01'    "BOM Application
              datuv                  =  sy - datum   "有效开始日
              emeng                  =  header_table - gamng  "BASE QUANTITY数量
              mtnrv                  =  header_table - plnbez
                                                                                                                                                                                                                                 "MATERAILNUMBER物料
              stlan                  =  '1'  "bom用途
*             STLAL                 = P_STLAL
*             CUOBJ                 = CUOBJ
              mktls                  =  'X'
*             MEHRS                 = 'X' "多阶层bom展开
              werks                  =  header_table - werks     "'PDGM'工厂
             TABLES
              stb                    =  bom   "展开明细
             EXCEPTIONS
              alt_not_found          =  1
              call_invalid           =  2
              material_not_found     =  3
              missing_authorization  =  4
              no_bom_found           =  5
              no_plant_data          =  6
              no_suitable_bom_found  =  7
               OTHERS                 =  8.

           IF  sy - subrc  EQ  0.
             LOOP  AT  bom.
               IF  bom - ausch  IS   NOT  INITIAL.
                bom - mnglg  =  bom - mnglg *  (  1  + bom - ausch /  100  ).
                bom - mnglg  =  ceil (  bom - mnglg  ).
                 MODIFY  bom.
               ENDIF.
               READ  TABLE  jtab  WITH  KEY  matkl  =  bom - matkl meins  =  bom - meins.
               IF  sy - subrc  NE  0.
                jtab - matkl  =  bom - matkl.
                jtab - meins  =  bom - meins.
                 APPEND  jtab.
                 CLEAR  jtab.
               ENDIF.
               CLEAR  bom.
             ENDLOOP.

             LOOP  AT  jtab.
               LOOP  AT  bom  WHERE  matkl  =  jtab - matkl  AND  meins  =  jtab - meins.
                 IF  bom - alpos  EQ  'X'.
                  jtab - bdmng  =  jtab - bdmng + bom - mnglg * bom - ewahr  *  '1.01' .
                 ELSE.
                  jtab - bdmng  =  jtab - bdmng + bom - mnglg  *  '1.01'.
                 ENDIF.
                 CLEAR  bom.
               ENDLOOP.
               MODIFY  jtab.
               CLEAR  jtab.
             ENDLOOP.
           ENDIF.


         ENDIF.                                               "co01

*        IF SY-TCODE EQ 'CO02'.
*
*          CTAB[] = COMPONENT_TABLE[].
*          LOOP AT COMPONENT_TABLE_OLD WHERE XLOEK NE 'X'.
*            READ TABLE CTAB WITH KEY RSNUM = COMPONENT_TABLE_OLD-RSNUM RSPOS = COMPONENT_TABLE_OLD-RSPOS.
*            IF SY-SUBRC EQ 0.
*              DELETE CTAB WHERE RSNUM = COMPONENT_TABLE_OLD-RSNUM AND RSPOS = COMPONENT_TABLE_OLD-RSPOS.
*              APPEND COMPONENT_TABLE_OLD TO CTAB.
*            ENDIF.
*            CLEAR:COMPONENT_TABLE_OLD,CTAB.
*          ENDLOOP.
*          SORT CTAB ASCENDING BY RSNUM RSPOS.
*          LOOP AT CTAB WHERE XLOEK NE 'X'.
*            READ TABLE JTAB WITH KEY MATKL = CTAB-MATKL MEINS = CTAB-MEINS.
*            IF SY-SUBRC NE 0.
*              JTAB-MATKL = CTAB-MATKL.
*              JTAB-MEINS = CTAB-MEINS.
*              APPEND JTAB.
*              CLEAR JTAB.
*            ENDIF.
*            CLEAR CTAB.
*          ENDLOOP.
*
*          LOOP AT JTAB.
*            LOOP AT CTAB WHERE MATKL = JTAB-MATKL AND MEINS = JTAB-MEINS AND XLOEK NE 'X'.
*              IF CTAB-ALPOS EQ 'X'.
*                JTAB-BDMNG = JTAB-BDMNG + CTAB-BDMNG * CTAB-EWAHR  * '1.01'.
*              ELSE.
*                JTAB-BDMNG = JTAB-BDMNG + CTAB-BDMNG  * '1.01'.
*              ENDIF.
*              CLEAR CTAB.
*            ENDLOOP.
*            MODIFY JTAB.
*            CLEAR JTAB.
*          ENDLOOP.
*        ENDIF.                                              "CO02
         "判断超标
         IF  jtab[]  IS  NOT  INITIAL.
           LOOP  AT  itab.
             READ  TABLE  jtab  WITH  KEY   matkl  =  itab - matkl meins  =  itab - meins.
             IF  itab - bdmng  GT  jtab - bdmng.
              iscb  =  'X'.
               LOOP  AT  component_table  WHERE  matkl  =  itab - matkl  AND  meins  =  itab - meins  AND  xloek  NE  'X'.
                 SHIFT  component_table - matnr  LEFT  DELETING  LEADING  '0'.
                 CONCATENATE  msg component_table - matnr  INTO  msg  SEPARATED  BY  '/'.
                 CLEAR  component_table.
               ENDLOOP.
               SHIFT  msg  LEFT  DELETING  LEADING  '/'.
               CONCATENATE  '物料组为'  itab - matkl  ' 单位为'  itab - meins  ' 的物料 '  msg  '超标，保存失败'  INTO  msg.
               MESSAGE  msg  TYPE  'I' .
               CLEAR  msg.
             ENDIF.
             CLEAR: itab,jtab..
           ENDLOOP.
         ENDIF.
         IF  iscb  IS  NOT  INITIAL.
           CLEAR  iscb.
           LEAVE  TO  TRANSACTION   sy - tcode.
         ENDIF.
       ENDIF.
     ENDIF.
   ENDIF.