物料价格分析取未分摊和未分配价格差异

物料价格分析的事务码是：CKM3和CKMVFM


*&---------------------------------------------------------------------*

*& Report ZTEST

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT ZTEST.

TYPE-POOLS: SLIS.

DATA: I_FIELDCAT_ALV TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

I_LAYOUT TYPE SLIS_LAYOUT_ALV, "alv的格式

I_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

TMP_TITLE(70),

W_REPID LIKE SY-REPID.

**---------------------------------------------------------------------*

*** Types

**---------------------------------------------------------------------*

DATA : POS TYPE I,

LW_TITLE(150) TYPE C,

S_mat TYPE CKMLHD-MATNR.

*选择屏幕

data:BEGIN OF itab OCCURS 0,

matnr like mara-matnr,

KALNR like CKMLHD-kalnr,

BDATJ like ckmlcr-bdatj,

POPER like ckmlcr-poper,

VNPRD_EA like ckmlcr-VNPRD_EA,

vnprd_ma like ckmlcr-vnprd_ma,

ABPRD_O LIKE CKMLCR-ABPRD_O,

ZUPRD_O LIKE CKMLCR-ZUPRD_O,

EBPRD_EA LIKE CKMLCR-EBPRD_EA,

ABPRD_mO LIKE CKMLCR-ABPRD_mO,

ZUPRD_mO LIKE CKMLCR-ZUPRD_mO,

EBPRD_mA LIKE CKMLCR-EBPRD_mA,

ESTPRD like mlcd-ESTPRD,

mstprd like mlcd-mstprd,

testprd like mlcd-estprd,

WFPCY LIKE CKMLCR-ABPRD_O,

end of itab.

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.

SELECTION-SCREEN SKIP.

PARAMETERS P_BDATJ LIKE CKMLCR-BDATJ OBLIGATORY DEFAULT '2011'.

SELECTION-SCREEN SKIP.

PARAMETERS: P_POPER LIKE CKMLCR-POPER OBLIGATORY DEFAULT '12'.

SELECTION-SCREEN SKIP.

PARAMETERS P_WERKS LIKE CKMLHD-BWKEY OBLIGATORY DEFAULT 'PS01'.

SELECTION-SCREEN SKIP.

SELECT-OPTIONS: S_MATNR FOR S_mat.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK BLK1.

CONCATENATE ' ' P_BDATJ '年' P_POPER

'月'

'未分配差异表' INTO LW_TITLE.

START-OF-SELECTION.

PERFORM GETDATA. "

PERFORM LAYOUT_BUILD. "

PERFORM FIELDS. "

PERFORM DISPLAY_DATA. "

*&---------------------------------------------------------------------*

*& Form getdata

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM GETDATA.

select CKMLHD~matnr

CKMLHD~KALNR

ckmlcr~BDATJ

ckmlcr~POPER

ckmlcr~VNPRD_EA

ckmlcr~vnprd_ma

ckmlcr~ABPRD_O

ckmlcr~ZUPRD_O

ckmlcr~EBPRD_EA

ckmlcr~ABPRD_mO

ckmlcr~ZUPRD_mO

ckmlcr~EBPRD_mA

INTO CORRESPONDING FIELDS OF TABLE itab

from ckmlhd

join ckmlcr on ckmlhd~kalnr = ckmlcr~kalnr

where ckmlhd~matnr in s_matnr

and ckmlhd~bwkey = p_werks

and ckmlcr~BDATJ = p_BDATJ

and ckmlcr~POPER = p_poper.

loop at itab.

select sum( ESTPRD ) sum( mstprd ) into (itab-tESTPRD,itab-mstprd)

from mlcd

where kalnr = itab-kalnr

and bdatj = itab-bdatj

and poper = itab-poper

and CATEG = 'VN'.

itab-estprd = itab-vnprd_ea + itab-vnprd_ma - ( itab-testprd + itab-mstprd ).

itab-WFPCY = itab-EBPRD_EA + + itab-VNPRD_EA - itab-ZUPRD_O - itab-ABPRD_O

+ itab-EBPRD_mA + + itab-VNPRD_mA - itab-ZUPRD_mO - itab-ABPRD_mO.

modify itab.

endloop.

ENDFORM. "GETDATA

*&---------------------------------------------------------------------*

*& Form layout_build

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM LAYOUT_BUILD.

I_LAYOUT-ZEBRA = 'X'.

I_LAYOUT-DETAIL_POPUP = 'X'. "

W_REPID = SY-REPID. "

I_LAYOUT-F2CODE = '&ETA'."

I_LAYOUT-NO_VLINE = 'X'."

I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "

I_LAYOUT-DETAIL_INITIAL_LINES = 'X'.

I_LAYOUT-DETAIL_TITLEBAR = '详细内容'."

ENDFORM. "layout_build

*&---------------------------------------------------------------------*

*& Form fields

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM FIELDS.

REFRESH I_FIELDCAT_ALV.

POS = 0.

CLEAR I_FIELDCAT.

TMP_TITLE = LW_TITLE."

I_FIELDCAT-COL_POS = POS. "

I_FIELDCAT-FIELDNAME = 'MATNR'.

I_FIELDCAT-SELTEXT_L = '物料号'. "

APPEND I_FIELDCAT TO I_FIELDCAT_ALV.

POS = POS + 1.

I_FIELDCAT-COL_POS = POS.

I_FIELDCAT-FIELDNAME = 'WFPCY'.

I_FIELDCAT-SELTEXT_L = '没有被分摊'.

APPEND I_FIELDCAT TO I_FIELDCAT_ALV.

POS = POS + 1.

I_FIELDCAT-COL_POS = POS.

I_FIELDCAT-FIELDNAME = 'ESTPRD'.

I_FIELDCAT-SELTEXT_L = '未分配价格差异'.

APPEND I_FIELDCAT TO I_FIELDCAT_ALV.

CLEAR I_FIELDCAT.

ENDFORM. "fields

*&---------------------------------------------------------------------*

*& Form display_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM DISPLAY_DATA.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = W_REPID "

I_S***E = ''

IS_LAYOUT = I_LAYOUT "

IT_FIELDCAT = I_FIELDCAT_ALV[] "

I_GRID_TITLE = TMP_TITLE

TABLES

T_OUTTAB = itab. "

ENDFORM. "display_data