Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Module Pool Prgramm update

Former Member
0 Kudos

HI Guru's,

Iam new to ABAP..copy the standard abap module pool programm rggbs000 into ZGGBS000 include following code..

  • Substitute FI line item text (BSEG-SGTXT) with corresponding

  • purchase order item text(EKPO-TXZ01).

----


FORM u900.

TABLES: ekpo, makt.

CLEAR: ekpo-txz01.

IF bkpf-blart = 'WE'.

  • Get PO Item Text for GR docs

SELECT SINGLE txz01 INTO ekpo-txz01

FROM ekpo

WHERE ebeln EQ bseg-ebeln

AND ebelp EQ bseg-ebelp.

IF sy-subrc EQ 0.

bseg-sgtxt = ekpo-txz01.

ENDIF.

  • Get Material Master text for GI docs

ELSEIF bkpf-blart = 'WA'.

SELECT SINGLE MAKTX INTO makt-maktx

FROM makt

WHERE matnr = bseg-matnr

AND spras = 'EN'.

IF sy-subrc EQ 0.

bseg-sgtxt = makt-maktx.

ENDIF.

********************************************TMQ-S

CLEAR: ekpo-txz01.

ELSEIF bkpf-blart = 'RE' AND bseg-bschl = '31'.

  • Get PO Item Text for IR docs

SELECT SINGLE txz01 INTO ekpo-txz01

FROM ekpo

WHERE ebeln EQ bseg-ebeln AND ebelp EQ bseg-ebelp.

  • OR bschl EQ bseg-bschl = '31'.

IF sy-subrc EQ 0.

bseg-sgtxt = ekpo-txz01.

ENDIF.

*********************************************TMQ-E

ENDIF.

ENDFORM. "End of u900

with this code display the text bseg-sgtxt in one line item only...user requirement is to display text in all line items in FI documents how to do it.. any one can help me..

regards

JK

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi Jan,

Try to modify your select statement as i have shown it will work.

Basically when we try to display the field if call screen name then it gives more relevent results. Check the select statement and try.

If your screen input field name is ekpo-txz01.

SELECT SINGLE txz01 FROM ekpo INTO (ekpo-txz01).

Cheers!!

Balu

2 REPLIES 2

Former Member
0 Kudos

Hi Jan,

Try to modify your select statement as i have shown it will work.

Basically when we try to display the field if call screen name then it gives more relevent results. Check the select statement and try.

If your screen input field name is ekpo-txz01.

SELECT SINGLE txz01 FROM ekpo INTO (ekpo-txz01).

Cheers!!

Balu

0 Kudos

HI Thanks for your reply.. actually its working... but I disply the document..showing bseg-sgtxt in one line item only..

1 31 305556 Black Bag and Access P7 2.82-

2 86 202002 GR/IR - Non FA 20080820 P7 2.64 POINTY WIZARD HAT, BLUE .

3 40 106002 Input GST 20080820 P7 0.18

text displaying in 2nd item only ... requirement is display the text remaing 2 items..

regards

JK