REPORT ZSTANDARDCOST NO STANDARD PAGE HEADING
LINE-SIZE 250 LINE-COUNT 58 MESSAGE-ID Z1.
TABLES: KEKO,KEPH,MAKT.
DATA:BEGIN OF IT_LIST OCCURS 1000,
KADAT LIKE KEKO-KADAT, "成本核算日期从
BIDAT LIKE KEKO-BIDAT, "成本核算日期到
MATNR LIKE KEKO-MATNR, "物料号
MAKTX LIKE MAKT-MAKTX, "物料描述
WERKS LIKE KEKO-WERKS, "工厂
BWKEY LIKE KEKO-BWKEY, "估价范围
LOSGR LIKE KEKO-LOSGR, "批量产品成本核算
KALNR LIKE KEKO-KALNR, "成本估算编号
CPUDT LIKE KEKO-CPUDT, "成本估算创建日期
BDATJ LIKE KEKO-BDATJ, "记帐日期 YYYY
FEH_STA LIKE KEKO-FEH_STA, "成本核算状态
TATAL LIKE KEPH-KST001, "合计
KST001 LIKE KEPH-KST001, "原料成本
KADKY LIKE KEPH-KADKY, "成本估算日期
KKZST LIKE KEPH-KKZST, "标识下限层/层
KST002 LIKE KEPH-KST002, "包装物成本
KST004 LIKE KEPH-KST004, "人工
KST006 LIKE KEPH-KST006, "变动费用
KST008 LIKE KEPH-KST008, "固定成本
KST010 LIKE KEPH-KST010, "摊提成本
END OF IT_LIST.
type-pools : slis.
DATA : fcat TYPE SLIS_T_FIELDCAT_ALV.
DATA : wa LIKE LINE OF FCAT.
DATA: IT_LIST1 LIKE IT_LIST OCCURS 1000 WITH HEADER LINE.
*DATA: TATAL type P DECIMALS 2 .
DATA: PGM LIKE SY-REPID.
PGM = SY-REPID.
DATA DATUM LIKE SY-DATUM. "系统日期
DATUM = SY-DATUM.
*SELECTION-SCREEN SKIP.
*SELECTION-SCREEN BEGIN OF BLOCK BLOCK0 WITH FRAME TITLE TEXT-000.
* PARAMETERS: BUKRS LIKE MSEG-BUKRS .
*SELECTION-SCREEN END OF BLOCK BLOCK0.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
MATNR FOR KEKO-MATNR MEMORY ID MAT, "物料编码
KADKY FOR KEPH-KADKY, "成本核算日期
WERKS FOR KEKO-WERKS OBLIGATORY. "工厂
SELECTION-SCREEN END OF BLOCK BLOCK1.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_LIST
FROM KEPH AS K INNER JOIN KEKO AS L ON L~KALNR = K~KALNR
WHERE L~MATNR IN MATNR AND
L~WERKS IN WERKS AND
K~KADKY IN KADKY AND
l~KADKY IN KADKY AND
K~KADKY = L~KADKY AND
K~KKZST ne 'X'.
