Quotation item text how to call in sap script in footer

Question

hi,
Please help me, i have been trying hard for this and also searches sdn for relevant posts but could not find any, I thank all people who can help me with some information on this.
Regards,
prashant

Answer 1

hi
I created driver program in se38  that is correct  or not
*& Report  ZP_QTEXT3
REPORT  ZP_QTEXT3.
DECLARION OF TABLES ******
TABLES : VBAP,STXL.
*stxh, stxl, stxb - trans tables for text
*ttxit - text on text-ids
*ttxot - Short texts on text objects
*Transaction MD63
FORM TEXT1 TABLES IN_TAB STRUCTURE ITCSY
                  OUT_TAB STRUCTURE ITCSY.
     DATA : TDOBJECT1 LIKE STXL-TDOBJECT,
              TDNAME1 LIKE STXL-TDNAME,
              TDID1 LIKE STXL-TDID,
              TDSPRAS1 LIKE STXL-TDSPRAS.
*DATA : TDOBJECT1(10).
       TDNAME(70),
       TDID(4),
       TDSPRAS(1).
READ TABLE IN_TAB WITH KEY 'STXL-TDNAME1'.
TDNAME1 = IN_TAB-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = TDNAME1
IMPORTING
   OUTPUT        = TDNAME1.
SELECT SINGLE * FROM STXL WHERE  = VBDPA-TDNAME1."MARA-MATNR."'000000000020000179' .
TDOBJECT1 = VBDPA-TDOBJECT1.
TDID1 = VBDPA-TDID1.
TDSPRAS1 = VBDPA-TDSPRAS1.
MOVE TDOBJECT TO TDOBJECT1.
READ TABLE OUT_TAB WITH KEY  'ATDOBJECT1'.
  IF SY-SUBRC = 0.
    OUT_TAB-VALUE = TDOBJECT1.
    MODIFY OUT_TAB INDEX SY-TABIX.
  ENDIF.
MOVE TDID TO TDID1.
READ TABLE OUT_TAB WITH KEY  'ATDID1'.
  IF SY-SUBRC = 0.
    OUT_TAB-VALUE = TDID1.
    MODIFY OUT_TAB INDEX SY-TABIX.
  ENDIF.
MOVE SPRAS TO SPRAS1.
READ TABLE OUT_TAB WITH KEY  'ASPRAS1'.
  IF SY-SUBRC = 0.
    OUT_TAB-VALUE = SPRAS1.
    MODIFY OUT_TAB INDEX SY-TABIX.
  ENDIF.
DATA : TNAME LIKE THEAD-TDNAME.
DATA : W_STXL TYPE STXL.
*SELECT-OPTIONS: S_VBELN for VBAP-VBELN,
*S_POSNR FOR VBAP-POSNR.
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: BEGIN OF DTEXT OCCURS 50.
DATA: VBELN LIKE VBAP-VBELN,
      POSNR LIKE VBAP-POSNR.
INCLUDE STRUCTURE TLINE.
DATA: END OF DTEXT.
PERFORM  BODY_DISPLAY.
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
*MOVE VBAP-VBELN TO TNAME.
*MOVE VBAP-POSNR TO TNAME.
*&      Form  BODY_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM BODY_DISPLAY .
PACKING DETQAILS TEXT ********
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0011' .
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
CLEAR : TNAME, HTEXT.
REFRESH : LTEXT.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
SEA FRIEGHT CHARGE TEXT **********
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0012'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
CLEAR : TNAME, HTEXT.
REFRESH : LTEXT.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
CLEAR : TNAME, HTEXT,DTEXT.
REFRESH : LTEXT.
ULINE.
LEAGALISATION FEES *********
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0013'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
SEA FREIGHT CHARGES *************
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0014'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
AIR FREIGHT CHARGES **********
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0015'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
COURIER CHARGE **************
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0016'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
INSURANCE CHARGES **********
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0017'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
HANDLING CHARGES **********
SELECT * FROM VBAP WHERE VBELN IN S_VBELN.
SELECT * FROM VBAP WHERE POSNR  IN S_POSNR.
ENDSELECT.
ENDSELECT.
CONCATENATE VBAP-VBELN VBAP-POSNR INTO TNAME.
SELECT SINGLE * FROM STXL INTO W_STXL
               WHERE TDNAME = TNAME AND TDID = '0018'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = W_STXL-TDID
LANGUAGE = W_STXL-TDSPRAS
NAME = TNAME
OBJECT = W_STXL-TDOBJECT
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT .
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE : LTEXT-TDLINE TO DTEXT-TDLINE.
APPEND DTEXT.
ENDIF.
ENDLOOP.
LOOP AT DTEXT.
WRITE:/ DTEXT-TDLINE.
ENDLOOP.
ULINE.
ENDFORM.                    " BODY_DISPLAY
best regards,
prashant