Module Pool Prgramm Update-Auto Text Populating..

[Former Member]

HI Guru's,

This code we are using for Autopolulating the PO Text into Material Documents,Goods Reciept and FI Dodument..

my problem is if create invoice... FI document only only line items is only showing text..remaining 2 line items are not shwoing text...

1 31 305556 Black Bag and Access P7 2,675.00-

2 86 202002 GR/IR - Non FA 20081028 P7 2,500.00 Text

3 40 106002 Input GST 20081028 P7 175.00

displyaing text in 2nd line item only how to solve this problem anyone can help me

----

---

• FORM U900.

----

---

• 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.

********************************************RJRAO

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.

*********************************************RJRAO

ENDIF.

ENDFORM. "End of u900

regards

JK

[Former Member]

HI Guru's,

This code we are using for Autopolulating the PO Text into Material Documents,Goods Reciept and FI Dodument..

my problem is if create invoice... FI document only only line items is only showing text..remaining 2 line items are not shwoing text...

1 31 305556 Black Bag and Access P7 2,675.00-

2 86 202002 GR/IR - Non FA 20081028 P7 2,500.00 Text

3 40 106002 Input GST 20081028 P7 175.00

displyaing text in 2nd line item only how to solve this problem anyone can help me

----

---

• FORM U900.

----

---

• 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.

********************************************RJRAO

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.

*********************************************RJRAO

ENDIF.

ENDFORM. "End of u900

regards

JK

[Former Member]

solved

thanks