abap program sample

最新推荐文章于 2024-12-11 13:56:00 发布

原创最新推荐文章于 2024-12-11 13:56:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#duplicates #parameters #report #join #delete #date

该博客围绕采购降价报告展开，定义了相关数据表结构，设置了参数和选择选项。通过 SQL 语句从多个表中查询数据，进行数据处理，如删除重复项、计算价格差异和库存差异等，最后将处理后的数据格式化输出。

****************************************************

*TITLE:BUY DOWN REPORT(RFQ PRICE DIFFERECE)

*TRANSACETION CODE:ZNC17

*AUTHOR:RICHARD L. CHANG

*DEVELPMENT DATE:2002.07.02~2002.07.03

****************************************************

REPORT ZRCO_NSG_0017 no standard page heading line-size 93.

TABLES:A902,KONP,MBEW,AMPL.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE A902-MATNR, "MATERIAL NUMBER

werks like a902-werks,

CURRENT_KNUMH LIKE A902-KNUMH,

PREVIOUS_KNUMH LIKE A902-KNUMH,

CURRENT_KBETR LIKE KONP-KBETR, "CURRENT RATE

PREVIOUS_KBETR LIKE KONP-KBETR, "PREVIOUS RATE

KONWA LIKE KONP-KONWA, "CURRENCY

CURRENT_KPEIN LIKE KONP-KPEIN, "CURRENT PRICE UNIT

PREVIOUS_KPEIN LIKE KONP-KPEIN, "PREVIOUS PRICE UNIT

VARIA LIKE KONP-KBETR,

LBKUM LIKE MBEW-LBKUM, "STOCK

SALK3 LIKE MBEW-SALK3, "VALUE OF BUY DOWN

DATBI LIKE A902-DATBI, "TEMP DATE

END OF ITAB.

DATA:TOTAL LIKE MBEW-SALK3.

*DATA:ITAB_VALID LIKE ITAB OCCURS 0 WITH HEADER LINE.

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

parameters: in_ekorg like a902-ekorg .

parameters:PLANT LIKE A902-WERKS DEFAULT 'ACEA'.

SELECT-OPTIONS:in_bklas FOR mbew-bklas." NO-EXTENSION NO INTERVALS.

SELECT-OPTIONS:MATERIAL FOR A902-MATNR.

SELECT-OPTIONS:DATE FOR A902-DATAB .

SELECTION-SCREEN:END OF BLOCK B1.

START-OF-SELECTION.

clear itab. refresh itab.

SELECT matnr bwkey sum( LBKUM )

INTO (itab-matnr,itab-werks,ITAB-LBKUM)

FROM MBEW

WHERE MATNR in material

and BKLAS in in_bklas

and bwkey = plant

group by matnr bwkey.

if itab-lbkum > 0.

append itab.

endif.

ENDSELECT.

DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR.

*************************BEGIN TO SELECT DATA**********************

loop at itab.

SELECT single

A902~KNUMH

* A902~DATAB

KONP~KBETR

KONP~KONWA

KONP~KPEIN

INTO (ITAB-CURRENT_KNUMH,

* ITAB-DATBI,

ITAB-CURRENT_KBETR,

ITAB-KONWA,

ITAB-CURRENT_KPEIN)

FROM A902 INNER JOIN KONP ON KONP~KNUMH = A902~KNUMH

WHERE matnr = itab-matnr AND

WERKS = itab-werks AND

A902~KSCHL = 'ZP01' AND

A902~DATBI >= DATE-HIGH AND

A902~DATAB <= DATE-HIGH and

a902~ekorg = in_ekorg.

ITAB-CURRENT_KBETR = ITAB-CURRENT_KBETR * 1000 / ITAB-CURRENT_KPEIN.

* APPEND ITAB.

modify itab.

endloop.

LOOP AT ITAB.

SELECT single A902~KNUMH

KONP~KBETR

KONP~KPEIN

INTO (ITAB-PREVIOUS_KNUMH,

ITAB-PREVIOUS_KBETR,

ITAB-PREVIOUS_KPEIN)

FROM A902 INNER JOIN KONP ON A902~KNUMH = KONP~KNUMH

WHERE MATNR = ITAB-MATNR AND

A902~DATBI >= DATE-LOW AND

A902~DATAB <= DATE-LOW and

a902~KSCHL = 'ZP01' and

WERKS = itab-werks AND

ekorg = in_ekorg.

IF SY-SUBRC <> 0.

SELECT MIN( DATBI )

INTO ITAB-DATBI

FROM A902

WHERE A902~KSCHL = 'ZP01' AND

DATBI > DATE-LOW AND

MATNR = ITAB-MATNR.

SELECT single A902~KNUMH

KONP~KBETR

KONP~KPEIN

INTO (ITAB-PREVIOUS_KNUMH,

ITAB-PREVIOUS_KBETR,

ITAB-PREVIOUS_KPEIN)

FROM A902 INNER JOIN KONP ON A902~KNUMH = KONP~KNUMH

WHERE MATNR = ITAB-MATNR AND

A902~DATBI = ITAB-DATBI AND

a902~KSCHL = 'ZP01' and

WERKS = itab-werks AND

ekorg = in_ekorg.

ENDIF.

ITAB-PREVIOUS_KBETR = ITAB-PREVIOUS_KBETR * 1000 /

ITAB-PREVIOUS_KPEIN.

ITAB-VARIA = ITAB-PREVIOUS_KBETR - ITAB-CURRENT_KBETR.

ITAB-SALK3 = ITAB-VARIA * ITAB-LBKUM / 1000.

MODIFY ITAB .

ENDLOOP.

*LOOP AT ITAB.

* SELECT BMATN

* INTO ITAB-MATNR

* FROM AMPL

* WHERE AMPL~EMATN = ITAB-MATNR.

* MODIFY ITAB .

* ENDSELECT.

*ENDLOOP.

* DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR.

*LOOP AT ITAB.

*ENDLOOP.

************************END OF SELECTION DATA**********************

PERFORM OUTPUT.

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

*& Form OUTPUT

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

* text

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

* --> p1 text

* <-- p2 text

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

FORM OUTPUT.

LOOP AT ITAB.

WRITE:/ '|',

ITAB-MATNR UNDER 'Material Number ',

18 '|',

(13) ITAB-PREVIOUS_KBETR UNDER 'Previous Price/KPC' ,

33 '|',

(13) ITAB-CURRENT_KBETR UNDER 'Current Price/KPC' ,

47 '|',

(10) ITAB-VARIA UNDER 'Variance/KPC' ,

59 '|',

(12) ITAB-LBKUM unit 'ST' UNDER 'Total Stock/PC' ,

72 '|',

(13) ITAB-SALK3 UNDER 'Stock Variance/KPC' ,

87 '|',

ITAB-KONWA UNDER 'CUR.',93 SY-VLINE.

* ULINE.

ENDLOOP.

ULINE.

* WRITE: ' TOTAL(USD)', 12 ':',13 TOTAL .

* write: / ' -----------------------------'.

ENDFORM. " OUTPUT

top-of-page.

write:40 'Buy down Report'.

write:/.

uline.

format color 1.

WRITE:'|',

2 'Material Number ' COLOR 1,

18 '|',

19 'Pre. Price/KPC' COLOR 1,

33 '|',

34 'Cur.Price/KPC' COLOR 1,

47 '|',

48 ' Var./KPC' COLOR 1,

59 '|',

60 'Total Stock' COLOR 1,

72 '|',

73 ' Stock Var.' COLOR 1,

87 '|',

88 'CUR.' COLOR 1,

93 SY-VLINE.

format color off.

ULINE.