Skip to Content

item text needed in Smartform for Purchase Order

Dear Friends

i am creaing a smartform form for a Purchase Order , where i am to show item text , & material po text

also but i am not getting how to show them , i have tried with Function Module Read_ text but if for any item text is not maintained it throw a error text xxxxxxxxxx code f01 not found in language en .

kindly somebody help me with the elaborated steps

regards

digvijay rai

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • avatar image
    Former Member
    Sep 30, 2008 at 05:30 AM

    Hi,

    Irrespective of text is availabale or not in purchase order item, Please select Check box in Text node as No Error if no Text Exists.

    Regards

    Jana

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member digvijay rai

      Requirement : Need to display the item text in the scripts Tcode me23n.

      problem: the below subroutine program which i wrote reads the entire paragraph but when the values transfered to the script, the script variable accepts only one line. can you please help to pass the entire value to scripts.

      Actual output

      th respect to the materials. The only warranties for SAP Group products and services are those that are set forth in the exchoose warranty statements accompanying such products and services, if any. Nothing herein should be construed as constituting an additional warranty.D

      Displayed output

      th respect to the materials. The only warranties for SAP Group products and s

      code written in scripts :

      DEFINE &VALUE& TYPE STRING(500)

      PERFORM ITEMTEXT IN PROGRAM ZDISPLAYINGITEMTEXT

      USING &EKKO-EBELN&

      USING &EKPO-EBELP&

      CHANGING &VALUE&

      ENDPERFORM

      Item Text : &VALUE&

      REPORT ZDISPLAYINGITEMTEXT.

      DATA : name type thead-tdname,

      p_ebeln TYPE ekko-ebeln, " Purchase order Number

      p_ebelp TYPE ekpo-ebelp.

      types :strin(450).

      data : p_valu type strin.

      data : p_valu1 type strin.

      data: lines type table of tline with header line.

      data: IT_LINE LIKE STANDARD TABLE OF itcsy INITIAL SIZE 0 WITH HEADER LINE,

      IT_TEXT1 LIKE STANDARD TABLE OF itcsy INITIAL SIZE 0 WITH HEADER LINE,

      W_LINE LIKE IT_LINE.

      Types : stri(450).

      data f_name type stri.

      **

      FORM itemtext TABLES i_intab STRUCTURE itcsy

      i_outab STRUCTURE itcsy.

      *BREAK-POINT.

      READ TABLE i_intab INDEX 1.

      MOVE i_intab-value TO p_ebeln.

      READ TABLE i_intab INDEX 2.

      MOVE i_intab-value TO p_ebelp.

      *parameters: p_ebeln type ekko-ebeln,

      • p_ebelp type ekpo-ebelp.

      concatenate p_ebeln p_ebelp into name.

      call function 'READ_TEXT'

      exporting

      id = 'F01'

      language = sy-langu

      name = name

      object = 'EKPO'

      tables

      lines = lines

      exceptions

      id = 1

      language = 2

      name = 3

      not_found = 4

      object = 5

      reference_check = 6

      wrong_access_to_archive = 7

      others = 8.

      loop at lines. " INTO w_line.

      BREAK-POINT.

      *move w_line to it_text1.

      *append it_text1.

      *write:/ it_line.

      *p_valu = f_name.

      *p_valu1 = w_line.

      concatenate p_valu lines-tdline into p_valu.

      *p_valu = f_name.

      endloop.

      message p_valu type 'I'.

      READ TABLE i_outab INDEX 1.

      MOVE p_valu TO i_outab-value.

      MODIFY i_outab INDEX sy-tabix.

      *loop at lines.

      *

      • write:/ f_name.

      *

      *endloop.

      *

      *READ TABLE i_outab INDEX 1.

      • MOVE lines TO i_outab-value.

      • MODIFY i_outab INDEX sy-tabix.

      endform.

  • Oct 04, 2008 at 01:19 PM

    thanks for all replies

    Add comment
    10|10000 characters needed characters exceeded