Problem with READ_TEXT_LINE in Custom PO SAPScript Form

[Former Member]

Ladies and gentlemen,

My client has a custom PO Sapscript form on SAP 4.6C, where they wish to have Material Line Item text (Id = F03)displayed underneath the PO line details. We are using the function READ_TEXT_INLINE to retrieve the PO line item Text. However, the text will only display on the PO if the users click on the 'Texts' tab in ME23N and scroll through the lines. Failure to do this does not display the text on the PO Form. I'm guessing this has something to do with the fact the this function only works when the text details are in internal memory, and this only happens when you view the texts on the line item text tab.

Could someone please indicate what I'm missing, as these seems a fundamentally wrong way to complete this process? What am I missing to bring all related texts into internal memory of the PO form?

Any help will be greatfully appreciated.

Cheers,

Stephen

[Former Member · Accepted solution]

Hi,

Is it really not possible to show it with a statement in the sap-script like

/: INCLUDE &T166P-TXNAM& OBJECT &T166P-TDOBJECT& ID 'F03' LANGUAGE &EKKO-SPRAS& PARAGRAPH IX

Don't make yourself difficult.

Gr., Frank

[Former Member]

Thank you for your assistance.

[Former Member]

Hi ,

For getting the PO line Item Text Please use this code

Main Program Name: Z1SAPFM06P

Under This Include FM06PF02_AUSGABE_POS

In this include FM06PF02_AUSGABE_POS. Copies this Include as ZFM06PF02_AUSGABE_POS and Chage .

DATA: BEGIN OF xt166p OCCURS 10.

INCLUDE STRUCTURE t166p.

DATA: END OF xt166p.

LOOP AT xt166p.

MOVE xt166p TO t166p.

IF t166p-tdobject EQ 'EKPO'.

t166p-txnam(10) = ekko-ebeln.

t166p-txnam+10(5) = ekpo-ebelp.

ENDIF.

PERFORM lesen_ttxit USING xt166p-titdr xt166p-tdobject xt166p-tdid.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TEXT'

EXCEPTIONS

OTHERS = 01.

CLEAR sy-subrc.

ENDLOOP.

ENDIF.

-

---

FORM LESEN_TTXIT USING TITDR OBJECT ID.

CLEAR TTXIT.

CASE TITDR.

WHEN 'X'.

SELECT SINGLE * FROM TTXIT WHERE TDSPRAS EQ EKKO-SPRAS

AND TDOBJECT EQ OBJECT

AND TDID EQ ID.

ENDCASE.

ENDFORM.

In the Sap script ZMEDRUCK01 Please go to Main Window and add this Code

/E ITEM_TEXT

/: INCLUDE &T166P-TXNAM& OBJECT &T166P-TDOBJECT& ID &T166P-TDID& LANGUAGE &EKKO-SPRAS& PARAGRAPH IX

[Former Member]

Instead of READ_TEXT_INLINE use READ_TEXT .

[former_member208669]

Hi,

First use READ_TEXT function module and then use the INIT_TEXT function module to read the text.it may help.

Sample Code:

CALL FUNCTION 'READ_TEXT'

EXPORTING

client = sy-mandt

id = l_textid

language = sy-langu

name = l_textname

object = l_textobj

IMPORTING

header = wa_header

TABLES

lines = lt_lines

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

OTHERS = 8.

IF sy-subrc <> 0.

CALL FUNCTION 'INIT_TEXT'

EXPORTING

id = l_textid

language = l_spras

name = l_textname

object = l_textobj

IMPORTING

header = wa_header

TABLES

lines = lt_lines

EXCEPTIONS

OTHERS = 1.

ENDIF.

Thanks

Sudheer