ADD FIELD TO CONDITION TABLE

*----------------------------------------------------------------------*
*   INCLUDE ZRSD_PCEBG_KOMPAZ                                          *
*----------------------------------------------------------------------*
*** add on by five 20100315
 IF SY-MANDT = '207' OR SY-MANDT = '307'
 OR SY-MANDT = '707' OR SY-MANDT = '807'.

   TKOMP-ZZKDMAT = VBAP-KDMAT .

 ENDIF.
****20100315
*----------------------------------------------------------------------*
*   INCLUDE ZRSD_PBECG_BILL_PRICE_0001                                 *
*----------------------------------------------------------------------*
 IF SY-MANDT = '207' OR SY-MANDT = '307'
 OR SY-MANDT = '707' OR SY-MANDT = '807'.
   DATA:TKDMAT LIKE VBAP-KDMAT.

   SELECT * FROM LIPS
    WHERE VBELN = TKOMP-VGBEL
    AND   POSNR = TKOMP-KPOSN.

     SELECT SINGLE KDMAT INTO TKDMAT FROM VBAP
     WHERE VBELN = LIPS-VGBEL
     AND POSNR = LIPS-VGPOS.
     IF SY-SUBRC = 0 .
       TKOMP-ZZKDMAT = TKDMAT .
     ENDIF.

   ENDSELECT.

 ENDIF.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666228/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666228/