topic Re: Module Pool Prgramm update in Application Development and Automation Discussions

Module Pool Prgramm update

Former Member — Wed, 22 Oct 2008 03:29:28 GMT

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

Re: Module Pool Prgramm update

Former Member — Wed, 22 Oct 2008 03:36:48 GMT

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

Re: Module Pool Prgramm update

Former Member — Wed, 22 Oct 2008 03:45:19 GMT

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