Printing header text

hi,
when i went through smart form code ,i found the following code for printing texts for items(me23n-->item--
>texts)
in TEXT node in smartform (for printing item text):
TYPE: INCLUDE TEXT
TEXT NAME : &G_TEXT_KEY&
TEXT OBJECT: EKPO
TEXT ID: F01
LANGUAGE: &SY-LANGU&
How to create text name,text object,text id?
when i gave text name & text id in SO10 &then display it's giving message Text Id F01 for Text Object TEXT does not exist.
how to create text object EKPO instead of TEXT.where can i see this TEXT OBJECT option.
how can i print header texts in ME23N?
please help?

hi mustafa,
1. If you want to create text name, text object, text id.. you have to create functionally in spro settings....
   spro
> mm
> purchasing
> messages
> texts for messages
> define texts for purchase order
    here you can define header texts or item text functionally
If you want to create in you po then go to header text tab and create with respective text
2. if you want to print header texts simply pass only
     po number in text_name,
     text_object : ekko
     text_id : depends up on ur text check i header text tab
    language key u know as usual
Don't forget to reward points
praveen

Similar Messages

How to use Read_text in Smart Forms for printing Header Texts

Dear ALL,
I want to print Header Texts in SmartForms, For that
I am using T/Code VL02N .. and choosed Header ..
got this details... from Text Header.
Text Name       :0080000441
Language         :EN
Text ID             :Z002
Text Object       :VBBK.
So in Smart forms Under Template i have created a text and Program Code .
Inside that I have used this below code .
CALL FUNCTION 'READ_TEXT'
EXPORTING
*CLIENT= SY-MANDT
ID = 'Z002'
LANGUAGE = SY-LANGU
NAME = NAME
OBJECT = 'VBBK'
TABLES
LINES = IT_TLINE
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.
CLEAR IT_TLINE.
ENDIF.
Kindly suggest me, Where to declare the variables and loops for using this Read_Text Syntax in Smartforms .
Response to this will be highly appreciated........
Regards ,
Vinoth.

hi
good
please check this code
CONSTANTS:
*For text reading like in LCNMMFTX / FORM SET_CONTROL_TEXT
           text_id like thead-tdid     value 'MATK',
           text_obj like thead-tdobject value 'AUFK '.
data tlines like tline occurs 0 with header line.
data tdname like thead-tdname.
data tdheader like thead.
if not it_proj-ltxsp is initial.
refresh tlines.
        tdname = sy-mandt.
        tdname+3 = it_proj-rsnum.
        tdname+13 = it_proj-rspos.
        tdname+17 = it_proj-rsart.
        call function 'READ_TEXT'
             exporting
                id        = text_id
                language = it_proj-ltxsp
                name      = tdname
                object    = text_obj
             importing
                header    = tdheader
             tables
                lines     = tlines.
            exceptions
               not_found = 01.
thanks
mrutyun^

Adobe Forms: Printing Header Text - Background as Dark

Hi,
We are upgrading our ECC system to Enahncement Pack 5.
We have Adobe forms for Sales Order, Delivery Notes,... In Border Palatte, we have set 'Solid' as a background fill for our header texts
After applying patches, Adobe forms started printing header texts background very Dark.We are not able to read the texts. If I view the document in the spool then they are displayed correctly. If I save spool document on the desktop and print it then also output is printed as we want. Only when we print it directly through VA01, VA02 ( directly from SAP ) then it gives this error.
I removed the background fill then it prints text correctly but then I loose the separation between header and content.
I will appreciate any help in this regard
Jitendra Pongurlekar
Moderator message: wrong forum, please have a look in the forum for "Adobe Interactive Forms".
Edited by: Thomas Zloch on Mar 4, 2011 10:55 AM

Hi mrudul,
as usual in programming, you got different ways to solve the problem. So if you work through the content here on SCN you will find a lot of examples how to decide between different letter heads. The easiest solution (and might be the best) is to pass the necessary data via the interface and do not add any condition in the form itself.
How to create a dynamic field and all the stuff is very basic knowledge, so I think you do not need any explaination how to do that. If so I refer you to the official documentation provided by SAP.
If you have some minutes please work through this blog Before You Ask - Just another guide and phrases like "urgent" or "do reply" are just not necessary to get an answer
~Florian

Help required. How to print Header Text in customized PO ?

Hi experts,
Please help me go forward with this.
I'm using a ZMEDRUCK & standard printing program.
I have put my code here. Pls go through it and help me what has to be corrected here.
PROGRAM ZMEDRUCK_SUBP2.
FORM fetch_table_data TABLES in_tab STRUCTURE itcsy
 out_tab STRUCTURE itcsy.
TABLES EKKO.
DATA: BEGIN OF header OCCURS 0,
 ld_txt1(163),
 ld_txt2(163),
 ld_txt3(163),
 END OF header.
DATA: li_lines LIKE STANDARD TABLE OF tline WITH HEADER LINE,
 ID like THEAD-TDID,
 TNAME LIKE THEAD-TDNAME,
 TDOBJECT like THEAD-TDOBJECT.
DATA HTEXT LIKE EKKO-EBELN.
DATA f_lines TYPE P.
* HTEXT = EKKO-EBELN.
READ TABLE in_tab WITH KEY EKKO-EBELN.
if sy-subrc = 0.
TNAME = in_tab-value.
ENDIF.
*TNAME = EKKO-EBELN.
*CONCATENATE EKPO-ebeln EKPO-ebelp INTO v_item_text.
*MOVE v_head_text to HNAME.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
 input = TNAME
IMPORTING
 OUTPUT = TNAME
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
 id = 'F01'
 language = 'E'
 name = TNAME
 object = 'EKKO'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER = TNAME
tables
 lines = li_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.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE li_lines INDEX 1.
IF sy-subrc = 0.
 header-ld_txt1 = li_lines-tdline.
ENDIF.
DESCRIBE TABLE li_lines LINES f_lines.
data: lstr type String,
 lstr1 type string,
 lstr2 type string,
 lstr3 type string,
 lstr4 type string.
read table li_lines index 1.
 lstr = li_lines.
 condense lstr.
 clear li_lines.
read table li_lines index 2.
 lstr1 = li_lines.
 condense lstr.
 clear li_lines.
read table li_lines index 3.
 lstr2 = li_lines.
 condense lstr.
 clear li_lines.
if f_lines GT 3.
 read table li_lines index 4.
 lstr3 = li_lines.
 condense lstr.
 clear li_lines.
read table li_lines index 5.
 lstr4 = li_lines.
 condense lstr.
 clear li_lines.
 endif.
DATA: v_text type text.
 CONCATENATE lstr1 lstr2 lstr3 lstr4 into v_text separated by ' '.
 CLEAR out_tab.
READ TABLE out_tab WITH KEY name = 'TNAME'.
 out_tab-value = v_text.
 MODIFY out_tab INDEX sy-tabix.
ENDFORM.
And my script is :
/:PERFORM FETCH_TABLE_DATA IN PROGRAM ZMEDRUCK_SUBP2
/:USING &EKKO-EBELN&
/:CHANGING &TNAME&
/: ENDPERFORM
IL RECEIVED FROM M/S &TNAME&

Hi,
Use this Function module 'READ_TEXT'
T_lines contains the header text, you can loop it and display it in sap script
Function module to read the header text
CALL FUNCTION 'READ_TEXT'
 EXPORTING
 client = sy-mandt
 id = 'F01'
 language = sy-langu
 name = ekko-ebeln
 object = ekko
 TABLES
 lines = t_lines
 EXCEPTIONS
 id = 1
 language = 2
 name = 3
 not_found = 4
 object = 5
 reference_check = 6
 wrong_access_to_archive = 7
 OTHERS = 8.
Regards
Krishna

How to Print Header text in PO SAPScript

Hi Gurus,
I am working on PO Script (MEDRUCK). I copied the Standard to a Z form. ZMM_MEDRUCK, Now I need to print the the Header text at the end of MAIN window. I created a a perform and call it from the Script and read the heder text by using FM Read_text
DEFINE &TEXT1& = ' '
PERFORM GET_TERMS IN PROGRAM ZMM_MEDRUCK_ROUTINE
USING &EKKO-EBELN&
CHANGING &TEXT1&
ENDPERFORM
PROTECT
&TEXT1&
ENDPROTECT
but while returning I am getting only one line. Can any body suggest me how I can read the Header text in PO script. Please provide the sample Code.
Regards
Sony

Hi,
Use this Function module 'READ_TEXT'
T_lines contains the header text, you can loop it and display it in sap script
Function module to read the header text
CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                  = sy-mandt
      id                      = 'F01'
      language                = sy-langu
      name                    = ekko-ebeln
      object                  = ekko
    TABLES
      lines                   = t_lines
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.
Regards
Krishna

Smartforms - printing header text for a PO

Hi,
I need to print the header text from a PO. To do this I'm using the function Module READ_TEXT.
While entering the header text if they make it bold or underlined then the Output is having html tags. How to get rid of these tags?? (Ex: Header Text </>)
Thank you,
Renu

Use REPLACE or TRANSLATE to replace the tags with spaces or to just remove them, i.e. "replace with nothing" (not sure about this option though - never tried it myself). You might need to do SHIFT or CONDENSE afterwards to get rid of extra spaces, if necesary.

Printing Header Text in Purchase Order

HI,
Actually I had the problem. A smart form has been developed for printing Purchase Order. Here in smartform a field has been declared to accept whatever the text had keyin in Header Text has to appear in Purchase Order. It is printing correctly until it is of Two paragraphs which consists of two or max three lines. Whenever it is exceeding these two paragraphs even a single word. It is printing something from the middle and in a reverse way. To get the clear picture I will give the example below.
Ex. I) This Purchase Order has been given.
 Delivery has to be make on time.
In the above example it is ok printing properly.
Ex. II) This Purchase Order has been given after
 verification.
 Delivery has to be make on time as scheduled.
 On Delay PO will be cancelled.
In this IInd example the output is showing as
Output: to be make on time as scheduled.
 verification.
 This Purchase Order has been given after
 On Delay PO will be cancelled
 Delivery has
Waiting for your help.
Thanks in Advance.
bye
Abdul Mannan

hi,
Ofcourse, the field is a part of main window in Smart Forms. I will elaborate further, In Main window we declared one Table in the Tables Main Area there is a Row and in a Row there is a Cell in a cell we declared one Text Field which is taking that header text and printing it as output.
I hope you got it.
Waiting for reply with a good solution.
Thanks and Regards.
Bye.
Abdul Mannan

Can we print header text in a tabular format...? urgent

Hi,
In the below program i need the text type payment history in a proper format.so plz help me regarding this.
this a just a test program,you just execute this program.its running.
i am feching the text payment history using the function module READ_TEXT.
GO TO (T.CODE IS VA42).-> GIVE A CONTARCT NUMBER THEN TEXT TYPE IS PAYMENT HISTORY. UNDER THIS TEXT TYPE WE HAVE ATEXT LIKE THIS:
Due date Invoice Amount Invoice no. Status Timing
8/1/2005 2,486.667.00 9887767798 Paid sept-Dec 05
12/1/2005 2,567,778.00 987662156 paid Jan-apr 06
i fectch all this by using read_text function module in the table t_item.(plz see in below program)
now the requirement is we want to print this payment history text as a proper format i.e in a tabular format...so is it possible....
actualy, we r not printing in the output screen.
we generate a flat file in this payment history is printed as a tabulr format.
can it is possible...if it plz reply me.
REPORT YTEST_ADD_DAYS_TO_DATE .
TABLES :tline.
TABLES :
vbrk,
vbrp,
vbpa,
kna1.
CONSTANTS :
c_re TYPE vbpa-parvw VALUE 'RE' . "Bill-to-Party
data: l_flag type c value cl_abap_char_utilities=>horizontal_tab.
*parameters: new_date type sy-datum.
data: timing type sy-datum.
*new_date = new_date + 31 .
*write: / new_date.
*CALL FUNCTION '/BEV4/PLPS__ADD_MONTH_TO_DATE'
EXPORTING
months = '01'
olddate = '20070101'
IMPORTING
NEWDATE = timing.
Write : / timing .
write: / sy-datum . .
CONSTANTS :
c_vbbk TYPE thead-tdobject VALUE 'VBBK' ,
c_zi03 TYPE thead-tdid VALUE 'ZI03' .
Types:
BEGIN OF ty_item ,
Pay_history(1000) TYPE c ,
END OF ty_item .
DATA :
t_item TYPE STANDARD TABLE OF ty_item ,
w_item TYPE ty_item ,
lt_item TYPE ty_item ,
t_tline TYPE STANDARD TABLE OF tline ,
w_tline TYPE tline ,
t_tlines TYPE STANDARD TABLE OF tline-tdline ,
w_tlines TYPE tline-tdline .
Type Definition *
Invoice header and item table
TYPES :
BEGIN OF ty_vbrk ,
vbeln TYPE vbrk-vbeln , " Billing Document
fkart TYPE vbrk-fkart , " Billing type
fkdat TYPE vbrk-fkdat , " Billing Date
zterm TYPE vbrk-zterm , " Payment key
netwr TYPE vbrk-netwr , " Amount due
END OF ty_vbrk ,
BEGIN OF ty_vbrp ,
vbeln TYPE vbrp-vbeln , "Billing Document
posnr TYPE vbrp-posnr ,
vgbel TYPE vbrp-vgbel ,
vgpos TYPE vbrp-vgpos ,
aubel TYPE vbrp-aubel , " Sales Document
aupos TYPE vbrp-aupos ,
matnr TYPE vbrp-matnr ,
arktx TYPE vbrp-arktx ,
END OF ty_vbrp ,
Partner table
BEGIN OF ty_vbpa ,
vbeln TYPE vbpa-vbeln , " Document#
posnr TYPE vbpa-posnr ,
parvw TYPE vbpa-parvw , " Partner funtion
kunnr TYPE vbpa-kunnr , " Customer#
END OF ty_vbpa ,
Customer master table
BEGIN OF ty_kna1 ,
kunnr TYPE kna1-kunnr ,
name1 TYPE kna1-name1 ,
ort01 TYPE kna1-ort01 ,
pstlz TYPE kna1-pstlz ,
regio TYPE kna1-regio ,
stras TYPE kna1-stras ,
END OF ty_kna1 ,
****Payment terms table
BEGIN OF ty_tvzbt ,
spras TYPE tvzbt-spras ,
zterm TYPE tvzbt-zterm ,
vtext TYPE tvzbt-vtext ,
END OF ty_tvzbt ,
BEGIN OF ty_t052 ,
zterm TYPE t052-zterm ,
ztag1 TYPE t052-ztag1 ,
END OF ty_t052 ,
****Document flow table
BEGIN OF ty_vbfa ,
vbelv TYPE vbfa-vbelv , " Contract number
posnv TYPE vbfa-posnv ,
vbeln TYPE vbfa-vbeln ,
posnn TYPE vbfa-posnn ,
vbtyp_n TYPE vbfa-vbtyp_n ,
END OF ty_vbfa,
***Contract Data table
BEGIN OF ty_veda ,
vbeln TYPE veda-vbeln ,
vposn TYPE veda-vposn ,
vbegdat TYPE veda-vbegdat ,
venddat TYPE veda-venddat ,
END OF ty_veda .
Data Declaration *
DATA :
t_vbrk TYPE STANDARD TABLE OF ty_vbrk ,
w_vbrk TYPE ty_vbrk ,
t_vbrp TYPE STANDARD TABLE OF ty_vbrp ,
w_vbrp TYPE ty_vbrp ,
t_vbpa TYPE STANDARD TABLE OF ty_vbpa ,
w_vbpa TYPE ty_vbpa ,
t_kna1 TYPE STANDARD TABLE OF ty_kna1 ,
w_kna1 TYPE ty_kna1 ,
t_tvzbt TYPE STANDARD TABLE OF ty_tvzbt ,
w_tvzbt TYPE ty_tvzbt ,
t_veda TYPE STANDARD TABLE OF ty_veda ,
w_veda TYPE ty_veda ,
t_vbfa TYPE STANDARD TABLE OF ty_vbfa ,
w_vbfa TYPE ty_vbfa ,
t_t052 TYPE STANDARD TABLE OF ty_t052 ,
w_t052 TYPE ty_t052 .
DATA :
ld_output TYPE btcxpm OCCURS 0 WITH HEADER LINE,
ld_status TYPE extcmdexex-status ," #EC NEEDED
w_underscore TYPE c VALUE '_' ,
doa0001(50) TYPE c . " Invoice Dataset
Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln. "Billing Doc No
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat . "Billing Date
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkart FOR vbrk-fkart. " Invoive type
SELECTION-SCREEN END OF BLOCK blk1.
Start of initialization *
INITIALIZATION.
RANGES :
r_parvw FOR vbpa-parvw."Range table for partner function
CLEAR :
r_parvw .
r_parvw-sign = 'I'.
r_parvw-option ='EQ'.
r_parvw-low = c_re .
APPEND r_parvw .
End of Initialization *
START-OF-SELECTION .
SELECT vbeln
fkart
fkdat
zterm
netwr
FROM vbrk
INTO TABLE t_vbrk
WHERE vbeln IN s_vbeln
AND fkart IN r_fkart
AND fkdat IN s_fkdat .
IF t_vbrk[] IS INITIAL .
MESSAGE I005 .
EXIT .
ENDIF .
SELECT vbeln
parvw
kunnr
FROM vbpa
INTO TABLE t_vbpa
FOR ALL ENTRIES IN t_vbrk
WHERE vbeln = t_vbrk-vbeln
AND parvw IN r_parvw .
SELECT kunnr
name1
ort01
pstlz
regio
stras
FROM kna1
INTO TABLE t_kna1
FOR ALL ENTRIES IN t_vbpa
WHERE kunnr = t_vbpa-kunnr .
SORT t_kna1 BY kunnr .
DELETE ADJACENT DUPLICATES FROM t_kna1 .
SELECT spras
zterm
vtext
FROM tvzbt
INTO TABLE t_tvzbt
FOR ALL ENTRIES IN t_vbrk
WHERE spras = 'EN'
AND zterm = t_vbrk-zterm .
SELECT zterm
ztag1
FROM t052
INTO TABLE t_t052
FOR ALL ENTRIES IN t_vbrk
WHERE zterm = t_vbrk-zterm .
SELECT vbelv
posnv
vbeln
posnn
vbtyp_n
FROM vbfa
INTO TABLE t_vbfa
FOR ALL ENTRIES IN t_vbrk
WHERE vbeln = t_vbrk-vbeln .
AND vbtyp_n = 'M' .
SELECT vbeln
vposn
vbegdat
venddat
FROM veda
INTO TABLE t_veda
FOR ALL ENTRIES IN t_vbfa
WHERE vbeln = t_vbfa-vbelv .
AND vposn = t_vbfa-posnv .
data: w_name TYPE thead-tdname.
LOOP AT t_vbfa INTO w_vbfa .
w_name = w_vbfa-vbelv.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = c_zi03
language = sy-langu
name = w_name
object = c_vbbk
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
tables
lines = t_tline
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5 .
LOOP AT t_tline INTO w_tline.
split w_tline-tdline at l_flag into table t_tlines .
IF NOT t_tlines[] IS INITIAL .
LOOP AT t_tlines INTO w_tlines .
w_item-pay_history = w_tlines .
APPEND w_item TO t_item .
write: / w_item.
ENDLOOP .
ENDIF .
ENDLOOP .
ENDLOOP .
SPLIT w_tline-tdline AT ',' INTO TABLE t_tlines .
IF NOT t_tlines[] IS INITIAL .
LOOP AT t_tlines INTO w_tlines .
w_item-pay_history = w_tline .
APPEND w_item TO t_item .
ENDLOOP .
ENDIF .
ENDLOOP .
write: / w_item.

Hi,
Tcode SO10 can be used to attach standard text in sapscript.
For formatting, plz check the below link
Standard text editor SO10

Can we print header text in a tabular format

Hi,
In the below program i need the text type payment history in a proper format.so plz help me regarding this.
this a just a test program,you just execute this program.its running.
i am feching the text payment history using the function module READ_TEXT.
GO TO (T.CODE IS VA42).-> GIVE A CONTARCT NUMBER THEN TEXT TYPE IS PAYMENT HISTORY. UNDER THIS TEXT TYPE WE HAVE ATEXT LIKE THIS:
Due date Invoice Amount Invoice no. Status Timing
8/1/2005 2,486.667.00 9887767798 Paid sept-Dec 05
12/1/2005 2,567,778.00 987662156 paid Jan-apr 06
i fectch all this by using read_text function module in the table t_item.(plz see in below program)
now the requirement is we want to print this payment history text as a proper format i.e in a tabular format...so is it possible....
actualy, we r not printing in the output screen.
we generate a flat file in this payment history is printed as a tabulr format.
can it is possible...if it plz reply me.
REPORT YTEST_ADD_DAYS_TO_DATE                  .
TABLES :tline.
TABLES :
        vbrk,
        vbrp,
        vbpa,
        kna1.
CONSTANTS :
c_re        TYPE vbpa-parvw VALUE 'RE' .            "Bill-to-Party
data: l_flag type c value cl_abap_char_utilities=>horizontal_tab.
*parameters: new_date type sy-datum.
data: timing type sy-datum.
*new_date = new_date + 31 .
*write: / new_date.
*CALL FUNCTION '/BEV4/PLPS__ADD_MONTH_TO_DATE'
EXPORTING
   months        = '01'
   olddate       = '20070101'
IMPORTING
NEWDATE       = timing.
Write : / timing .
write: / sy-datum .       .
CONSTANTS :
c_vbbk TYPE thead-tdobject VALUE 'VBBK' ,
c_zi03 TYPE thead-tdid     VALUE 'ZI03' .
Types:
BEGIN OF ty_item ,
    Pay_history(1000)   TYPE c         ,
END   OF ty_item .
DATA :
t_item TYPE STANDARD TABLE OF ty_item ,
w_item TYPE ty_item ,
lt_item TYPE ty_item ,
t_tline TYPE STANDARD TABLE OF tline ,
w_tline TYPE tline ,
t_tlines TYPE STANDARD TABLE OF tline-tdline ,
w_tlines TYPE tline-tdline .
                 Type Definition                                     *
Invoice header and item table
TYPES :
BEGIN OF ty_vbrk ,
    vbeln TYPE vbrk-vbeln , " Billing Document
    fkart TYPE vbrk-fkart , " Billing type
    fkdat TYPE vbrk-fkdat , " Billing Date
    zterm TYPE vbrk-zterm , " Payment key
    netwr TYPE vbrk-netwr , " Amount due
END   OF ty_vbrk ,
BEGIN OF ty_vbrp ,
    vbeln TYPE vbrp-vbeln , "Billing Document
    posnr TYPE vbrp-posnr ,
    vgbel TYPE vbrp-vgbel ,
    vgpos TYPE vbrp-vgpos ,
    aubel TYPE vbrp-aubel , " Sales Document
    aupos TYPE vbrp-aupos ,
    matnr TYPE vbrp-matnr ,
    arktx TYPE vbrp-arktx ,
END   OF ty_vbrp ,
Partner table
BEGIN OF ty_vbpa ,
    vbeln TYPE vbpa-vbeln , " Document#
posnr TYPE vbpa-posnr ,
    parvw TYPE vbpa-parvw , " Partner funtion
    kunnr TYPE vbpa-kunnr , " Customer#
END   OF ty_vbpa ,
Customer master table
BEGIN OF ty_kna1         ,
    kunnr TYPE kna1-kunnr ,
    name1 TYPE kna1-name1 ,
    ort01 TYPE kna1-ort01 ,
    pstlz TYPE kna1-pstlz ,
    regio TYPE kna1-regio ,
    stras TYPE kna1-stras ,
END   OF ty_kna1 ,
****Payment terms table
BEGIN OF ty_tvzbt ,
   spras TYPE tvzbt-spras ,
   zterm TYPE tvzbt-zterm ,
   vtext TYPE tvzbt-vtext ,
END OF ty_tvzbt ,
BEGIN OF ty_t052 ,
   zterm TYPE t052-zterm ,
   ztag1 TYPE t052-ztag1 ,
END OF ty_t052 ,
****Document flow table
BEGIN OF ty_vbfa ,
   vbelv TYPE vbfa-vbelv , " Contract number
   posnv TYPE vbfa-posnv ,
   vbeln TYPE vbfa-vbeln ,
   posnn TYPE vbfa-posnn ,
vbtyp_n TYPE vbfa-vbtyp_n ,
END OF ty_vbfa,
***Contract Data table
BEGIN OF ty_veda ,
   vbeln   TYPE veda-vbeln   ,
   vposn   TYPE veda-vposn   ,
   vbegdat TYPE veda-vbegdat ,
   venddat TYPE veda-venddat ,
END OF ty_veda .
                 Data Declaration                                    *
DATA :
t_vbrk TYPE STANDARD TABLE OF ty_vbrk ,
w_vbrk TYPE ty_vbrk ,
t_vbrp TYPE STANDARD TABLE OF ty_vbrp ,
w_vbrp TYPE ty_vbrp ,
t_vbpa TYPE STANDARD TABLE OF ty_vbpa ,
w_vbpa TYPE ty_vbpa ,
t_kna1 TYPE STANDARD TABLE OF ty_kna1 ,
w_kna1 TYPE ty_kna1 ,
t_tvzbt TYPE STANDARD TABLE OF ty_tvzbt ,
w_tvzbt TYPE ty_tvzbt ,
t_veda TYPE STANDARD TABLE OF ty_veda ,
w_veda TYPE ty_veda ,
t_vbfa TYPE STANDARD TABLE OF ty_vbfa ,
w_vbfa TYPE ty_vbfa ,
t_t052 TYPE STANDARD TABLE OF ty_t052 ,
w_t052 TYPE ty_t052 .
DATA :
ld_output   TYPE btcxpm OCCURS 0 WITH HEADER LINE,
ld_status   TYPE extcmdexex-status ," #EC NEEDED
w_underscore TYPE c VALUE '_'   ,
doa0001(50) TYPE c .                    " Invoice Dataset
     Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln.                 "Billing Doc No
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat .               "Billing Date
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkart FOR vbrk-fkart.                 " Invoive type
SELECTION-SCREEN END OF BLOCK blk1.
Start of initialization                                             *
INITIALIZATION.
RANGES :
    r_parvw FOR vbpa-parvw."Range table for partner function
CLEAR :
    r_parvw .
r_parvw-sign   = 'I'.
r_parvw-option ='EQ'.
r_parvw-low    = c_re .
APPEND r_parvw .
             End of Initialization                                   *
START-OF-SELECTION .
SELECT vbeln
         fkart
         fkdat
         zterm
         netwr
         FROM vbrk
         INTO TABLE t_vbrk
         WHERE vbeln IN s_vbeln
        AND   fkart IN r_fkart
         AND   fkdat IN s_fkdat .
IF t_vbrk[] IS INITIAL .
   MESSAGE I005 .
   EXIT .
ENDIF .
SELECT vbeln
         parvw
         kunnr
         FROM vbpa
         INTO TABLE t_vbpa
         FOR ALL ENTRIES IN t_vbrk
         WHERE vbeln = t_vbrk-vbeln
         AND parvw IN r_parvw .
SELECT kunnr
         name1
         ort01
         pstlz
         regio
         stras
         FROM kna1
         INTO TABLE t_kna1
         FOR ALL ENTRIES IN t_vbpa
         WHERE kunnr = t_vbpa-kunnr .
SORT t_kna1 BY kunnr .
DELETE ADJACENT DUPLICATES FROM t_kna1 .
SELECT spras
        zterm
        vtext
        FROM tvzbt
        INTO TABLE t_tvzbt
        FOR ALL ENTRIES IN t_vbrk
        WHERE spras = 'EN'
        AND   zterm = t_vbrk-zterm .
SELECT zterm
        ztag1
        FROM t052
        INTO TABLE t_t052
        FOR ALL ENTRIES IN t_vbrk
        WHERE zterm = t_vbrk-zterm .
SELECT vbelv
        posnv
        vbeln
        posnn
       vbtyp_n
        FROM vbfa
        INTO TABLE t_vbfa
        FOR ALL ENTRIES IN t_vbrk
        WHERE vbeln = t_vbrk-vbeln .
       AND vbtyp_n = 'M' .
SELECT vbeln
       vposn
       vbegdat
       venddat
       FROM veda
       INTO TABLE t_veda
       FOR ALL ENTRIES IN t_vbfa
       WHERE vbeln = t_vbfa-vbelv .
      AND   vposn = t_vbfa-posnv .
data: w_name TYPE thead-tdname.
LOOP AT t_vbfa INTO w_vbfa .
w_name = w_vbfa-vbelv.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT                        = SY-MANDT
    id                            = c_zi03
    language                      = sy-langu
    name                          = w_name
    object                        = c_vbbk
ARCHIVE_HANDLE                = 0
LOCAL_CAT                     = ' '
IMPORTING
HEADER                        =
tables
    lines                         = t_tline
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5 .
LOOP AT t_tline INTO w_tline.
split w_tline-tdline at l_flag into table t_tlines .
IF NOT t_tlines[] IS INITIAL .
        LOOP AT t_tlines INTO w_tlines .
          w_item-pay_history = w_tlines .
          APPEND w_item TO t_item .
          write: / w_item.
        ENDLOOP .
      ENDIF .
    ENDLOOP .
ENDLOOP .
     SPLIT w_tline-tdline AT ',' INTO TABLE t_tlines .
     IF NOT t_tlines[] IS INITIAL .
       LOOP AT t_tlines INTO w_tlines .
         w_item-pay_history = w_tline .
         APPEND w_item TO t_item .
       ENDLOOP .
     ENDIF .
   ENDLOOP .
   write: / w_item.

Now answering newmacguru...
1. Why I want text to appear as an image?
Sometimes the graphical result is important. Most of the times, if you use a white or bright page background, what you see in iWeb is almost the same you see when browsing the page. No problem! But if the page background is black or dark, what you see when browsing the page can be different from what you see when developing the page with iWeb. And these differences can be important... Now if you tell iWeb to convert text to images, the result will be exactly the same you see in iWeb (the result you want).
Let me show you an example. This page was published with iWeb 1.0.1. In this case all text boxes were converted to images and the result you see is exactly what I want. Normally I choose opacity of 80% in the text color to reduce the contrast between text and background (this is the graphical result I most like):
http://clientes.netvisao.pt/3ebt2006/iweb/TesteTexto101/
Now if you publish the page with iWeb 1.1.1/1.1.2 the result is the same for both, but different from the pages obtained with iWeb 1.0.1. I only get the result I want if the text is converted to an image (using shadow). You can also see that with a white background you get good results even if the text remains text:
http://clientes.netvisao.pt/3ebt2006/iweb/TesteTexto111/
http://clientes.netvisao.pt/3ebt2006/iweb/TesteTexto112/
Thanks for the suggestion of the shadow. Sometimes using a non web safe font is not a solution, remember I want “that” graphical result...
2. Now, considering the search engines, I think I read in this forum that the search engines can do is work, even if text is converted to images, because the text still remains in the page (sorry I don’t remember where).
Sorry for my english...
Power Mac G4 - 867MHz Mac OS X (10.3.9)

Print Invoice Header Text In Main Window of Smartforms

Helo Gurus !!!
I want to print Invoice header text in main window of smartform.
There are total 5 columns.
Item Quantity Description UnitPrice Amount
Now what I want is to print header text below Description column, there is a loop on the table in main window.
This header text will be printed only once. This is a standard header text
How to get this?
Points are assured !!!

Hi Anay Kulkarni,
I understood that u need to print this header text
Item Quantity Description UnitPrice Amount
So please use TABLE instead of LOOP in the table we can prin header, main area, footer.
place the header text in header area in table... i am sure this can resolve it.....
feel free to contact me if issue is not resolved/.....
dont forget to reward points....
all the best...
Regards,
Sreeniasa Sarma K.

Header text printing in PR.

Dear all,
I have a requirement to print header text of PR. Please let us know to do this. We have developed a Y tcode to print PR in the required format. in which table this text is stored Please suggest.

header text is stored in table STXH and STXL among all other long text.
goto your requisition, go into header text, double click the text to open it with text editor, then choose from menu goto > header to get the necessary info that you need to use to access and find the right text in STXH and STXL
you have to use function module READ_TEXT to get the text from there.

How to read header text from VF03 into smartfrom

Hi all,
i want to print header text from vf03 in smartforms
bye

Hi,
Tcode VF03 enter Billing Doc no -
>goto header-----> select header texts
When you get the values Textname, text id, textobject to the smartform.
call the FM read_text in the programing lines to get the long text in the internal table. Another way to retrieve the long text is to use INCLUDE but for your requirement is better to uses READ_TEXT function module.
Once you get the data in the internal table.
Create table and loop the long text internal table. Now in the table when create a text node, keep a condition on the text node in the conditions column that when sy-tabix = 3. Which means you are skipping two lines (Administrative data).
Procedure:
1. Right click > create-> programming lines.
2. In the Input parameters pass TEXT NAME, TEXT ID, Text Object and Interanal table(itab) and In output paramaeters the Internal table (itab).
3. call function Read_text and pass the values.
4. create a table for Itab.
5. create a text node.
6. Keep a condition on the text node sy-tabix = 3 in the condition tab of the text node.
7. &itab-line&
Check this link for sample program
long text in smartform
Regards,
Maha

Tables where header text of sale document and bill document is stored

dear all,
 i need a table and field in which header text of sale docu is stored .i need to print a text entered by user at the tie of vf01 .
so plz tell me the table and way how to print that text in print of invoice
if any function is there for that please also tell me
waiting for positive response
regards & thanks

Take a look at OSS <a href="hhttps://service.sap.com/sap/support/notes/600408">Note 600408 - Smart Forms: header texts and item texts</a>, it may be useful for you
Symptom
The system does not print header texts and item texts of the billing document in the Smart Form standard form LB_BIL_INVOICE.
Other terms
SMARTFORMS, print, text, completion note, invoice
Solution
The following solution describes how to include a 'header note' on header level and an 'item note' on item level in the form.
If you want to insert other texts into your form, you must adjust the access key (text name, text object, text ID) which you create under point 4 or 11 correspondingly.
The formatting characteristics of the text are transferred from the billing document to the output. That is, you can change the character format only in the document.
to correct the form, proceed as follows:
 1. Display form LB_BIL_INVOICE in the change mode of Transaction SMARTFORMS.
 2. Expand the navigation tree on the left side and choose the following path: 'Pages and Windows -> FIRST -> MAIN'.
 3. After text node TITLEINVOICEDETAILS, insert text node HDTEXT with description 'Header text'.
 4. Maintain the general attributes of this node as follows:
 o Text Type: Include Text
 o Text Name:
 o Text Object: VBBK
 o Text ID: 0001
 o Language:
 o No error if no text exists: X
 5. Create the following variable under 'Global Definitions':
 Variable name Reference type
 GD_IT_TXT_KEY TYPE TDOBNAME
 6. Choose the following path: 'Pages and Windows -> FIRST -> MAIN -> TABLEITEM'. Expand the 'TABLEITEM' table node.
 7. Below the 'TABLEITEM' node (after node IT_REFVG2_COL2_A), insert program line node ITEM_TEXT_KEY with description 'Key for item text'.
 8. Maintain the following parameters for the node:
 o Input parameter: GS_IT_GEN
 o Output parameter: GD_IT_TXT_KEY
 9. Insert the following program lines:
 clear gd_it_txt_key.
move gs_it_gen-bil_number to gd_it_txt_key.
move gs_it_gen-itm_number to gd_it_txt_key+10.
 10. After the new program line node ITEM_TEXT_KEY, insert text node ITEM_TEXT with description 'Item text'.
 11. Maintain the following general attributes of the node:
 o Text Type: Include Text
 o Text Name:
 o Text Object: VBBP
 o Text ID: 0002
 o Language:
 o No error if no text exists: X
 12. Make the following settings under 'Output Options':
 o New Line: X
 o Line Type: IT_DESC
 o New Cell: X, 1 Skip Cells
 13. Activate your form.
Regards

SAP SCRIPT Header text and Item text not printing in customized PO

Hello Experts,
 I have copied the standard MEDRUCK to ZMEDRUCK and customized the form according to the requirement.
I want to print the header text and Item text in my form.
For Header text I have used :
/: INCLUDE &EKKO-EBELN& OBJECT EKKO ID F01
Problem 1: The text what I enter in header text is flowing only when I hit on print preview without saving the form. Once I save the SAP SCRIPT and click on print preview the field is appearing blank. I also tried to print the form, but the field is appearing blank even on the print out.
Problem 2: For item text the field is concatenation of EBELN & EBELP. Can anyone suggest me how to concatenate and fetch the text in item text.

Hi,
 Im getting an error in my subroutine pool for i_xtline which is to fetch ITEM TEXT., It says its not a in any internal table nor defined as data. How can I proceed further. I have pasted my code below. Please check and revert ASAP
PROGRAM ZMEDRUCK_SUBP1.
TABLES: EKPO, EKKO.
FORM fetch_table_data TABLES in_tab STRUCTURE itcsy
 out_tab STRUCTURE itcsy.
data xname like THEAD-TDNAME.
data i_xtline like xtline.
clear i_xtline.
refresh i_xtline.
CONCATENATE EKPO-ebeln EKPO-ebelp INTO v_item_text.
MOVE v_item_text to ITEMTXT.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
 id = F01
 language = EN
 name = ITEMTXT
 object = EKPO
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
tables
 lines = i_xtline
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.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.

How to Print Sales header text at the end of last page of Main Window

Dear All,
I have a requirement to print Sales order header text at the end of Main of last page. I don't have footer window.When i use Bottom-End bottom.Only one line is printing.The header has 5 lines.
Request you to provide codeto handle this situation. Your response is highly appreciated
Best Regards
Praveen

Hi,
If u r using standard layout set RVORDER01.
U can print that sales order header text in the following text element.
/E SUPPLEMENT_TEXT.
U can include ur text objects here.
Then it gets printed.
Regards,
Veda Kumar

Printing header text

Similar Messages

Maybe you are looking for