cancel
Showing results for 
Search instead for 
Did you mean: 

Header text not displayed in quotation

0 Kudos

Dear all ,

I am using standard form for quotation printing but the text i enter in quotation header it is not getting displayed in the standard layout of the quotaion . is there any settings i need to do .

pls advise

Ramar

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

you have to read_text function module for that.......for that you need

id

object

name which is diffenrent for standard program ,you have to pass these parameters and on the basis you have to read text... i am sending you code

DATA: wa_ltext TYPE tline,

current_line TYPE i,

prev_line TYPE i.

LOOP AT ta_ltext WHERE tdline NE space.

CASE ta_ltext-tdformat.

WHEN '='.

prev_line = sy-tabix - 1.

READ TABLE ta_ltext INTO wa_ltext INDEX prev_line.

IF sy-subrc = 0.

CONCATENATE wa_ltext-tdline ta_ltext-tdline

INTO ta_ltext2-tdline.

MODIFY ta_ltext2 INDEX current_line.

ENDIF.

WHEN OTHERS.

ta_ltext2-tdline = ta_ltext-tdline.

APPEND ta_ltext2.

current_line = sy-tabix.

ENDCASE.

ENDLOOP.

-


DATA: BEGIN OF ttab OCCURS 0.

INCLUDE STRUCTURE tline.

DATA: END OF ttab.

DATA: BEGIN OF tinlinetab OCCURS 0.

INCLUDE STRUCTURE tline.

DATA: END OF tinlinetab.

DATA: BEGIN OF thead.

INCLUDE STRUCTURE thead.

DATA: END OF thead.

lv_objname = it_lips-posnr.

CONCATENATE it_lips-vbeln lv_objname INTO lv_objname.

PERFORM read_item_text1 USING lv_objname it_lips-vbeln.

&----


*& Form read_item_text1

&----


  • text

----


  • -->P_LV_OBJNAME text

  • -->P_IT_LIPS_VBELN text

----


FORM read_item_text1 USING P_OBJNAME

P_IT_LIPS_VBELN.

CLEAR : v_regcarr , v_intcarr ,

v_reqdate , v_commdate.

CLEAR: thead,it_likp-traty.

REFRESH : ttab, tinlinetab.

thead-tdid = '0001'.

thead-tdspras = sy-langu.

thead-tdname = p_objname.

thead-tdobject = 'VBBP'.

CALL FUNCTION 'READ_TEXT_INLINE'

EXPORTING

id = thead-tdid

inline_count = 1

language = thead-tdspras

name = thead-tdname

object = thead-tdobject

IMPORTING

header = thead

TABLES

inlines = tinlinetab

lines = ttab

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

OTHERS = 7.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

and if you ar using smartforms

you kan read text in this way

program lines

-


input parameters output parameters

gs_vbrp GV_TYPPKG

gs_item

CLEAR: GV_TYPPKG.

CONCATENATE

gs_ITEM-vbeln

gs_ITEM-posnr INTO GV_TYPPKG.

create>text, type>include text

1)text name --> &GV_TYPPKG&

2)text object-->VBBP

3)Text id ->Z009

4)lan -->en

tick mark no error if no text exists

also provide standard paragraph and first paragraph

reward points if satisfied

Former Member
0 Kudos

The header text I believe is really not printed in the standard script.

you have to edit the script then perform a subroutine that will then call function read_text.

reward if helpful.